From fc4e9ab62e5146af71ef6b296783e18f6bc564e8 Mon Sep 17 00:00:00 2001 From: Olli-Antti Kivilahti Date: Fri, 7 Nov 2014 17:07:46 +0200 Subject: [PATCH] Bug 13222 - Accessors for import_record.status have variable names suggesting overlay_status TODO:: Somebody who knows what these are about could write some documentation about it. Signed-off-by: Jonathan Druart Signed-off-by: Katrin Fischer Signed-off-by: Tomas Cohen Arazi --- C4/ImportBatch.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm index b8d256091f..08304d7f25 100644 --- 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(); } -- 2.39.5