Bug 13222 - Accessors for import_record.status have variable names suggesting overlay...

TODO:: Somebody who knows what these are about could write some documentation about it.

Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm
index b8d2560..08304d7 100644 (file)
--- a/C4/ImportBatch.pm
+++ b/C4/ImportBatch.pm
@@ -1328,7 +1328,7 @@ sub SetImportRecordOverlayStatus {
 
 =head2 GetImportRecordStatus
 
-  my $overlay_status = GetImportRecordStatus($import_record_id);
+  my $status = GetImportRecordStatus($import_record_id);
 
 =cut
 
@@ -1338,25 +1338,25 @@ sub GetImportRecordStatus {
     my $dbh = C4::Context->dbh;
     my $sth = $dbh->prepare("SELECT status FROM import_records WHERE import_record_id = ?");
     $sth->execute($import_record_id);
-    my ($overlay_status) = $sth->fetchrow_array();
+    my ($status) = $sth->fetchrow_array();
     $sth->finish();
-    return $overlay_status;
+    return $status;
 
 }
 
 
 =head2 SetImportRecordStatus
 
-  SetImportRecordStatus($import_record_id, $new_overlay_status);
+  SetImportRecordStatus($import_record_id, $new_status);
 
 =cut
 
 sub SetImportRecordStatus {
-    my ($import_record_id, $new_overlay_status) = @_;
+    my ($import_record_id, $new_status) = @_;
 
     my $dbh = C4::Context->dbh;
     my $sth = $dbh->prepare("UPDATE import_records SET status = ? WHERE import_record_id = ?");
-    $sth->execute($new_overlay_status, $import_record_id);
+    $sth->execute($new_status, $import_record_id);
     $sth->finish();
 
 }