|
Lines 1328-1334
sub SetImportRecordOverlayStatus {
Link Here
|
| 1328 |
|
1328 |
|
| 1329 |
=head2 GetImportRecordStatus |
1329 |
=head2 GetImportRecordStatus |
| 1330 |
|
1330 |
|
| 1331 |
my $overlay_status = GetImportRecordStatus($import_record_id); |
1331 |
my $status = GetImportRecordStatus($import_record_id); |
| 1332 |
|
1332 |
|
| 1333 |
=cut |
1333 |
=cut |
| 1334 |
|
1334 |
|
|
Lines 1338-1362
sub GetImportRecordStatus {
Link Here
|
| 1338 |
my $dbh = C4::Context->dbh; |
1338 |
my $dbh = C4::Context->dbh; |
| 1339 |
my $sth = $dbh->prepare("SELECT status FROM import_records WHERE import_record_id = ?"); |
1339 |
my $sth = $dbh->prepare("SELECT status FROM import_records WHERE import_record_id = ?"); |
| 1340 |
$sth->execute($import_record_id); |
1340 |
$sth->execute($import_record_id); |
| 1341 |
my ($overlay_status) = $sth->fetchrow_array(); |
1341 |
my ($status) = $sth->fetchrow_array(); |
| 1342 |
$sth->finish(); |
1342 |
$sth->finish(); |
| 1343 |
return $overlay_status; |
1343 |
return $status; |
| 1344 |
|
1344 |
|
| 1345 |
} |
1345 |
} |
| 1346 |
|
1346 |
|
| 1347 |
|
1347 |
|
| 1348 |
=head2 SetImportRecordStatus |
1348 |
=head2 SetImportRecordStatus |
| 1349 |
|
1349 |
|
| 1350 |
SetImportRecordStatus($import_record_id, $new_overlay_status); |
1350 |
SetImportRecordStatus($import_record_id, $new_status); |
| 1351 |
|
1351 |
|
| 1352 |
=cut |
1352 |
=cut |
| 1353 |
|
1353 |
|
| 1354 |
sub SetImportRecordStatus { |
1354 |
sub SetImportRecordStatus { |
| 1355 |
my ($import_record_id, $new_overlay_status) = @_; |
1355 |
my ($import_record_id, $new_status) = @_; |
| 1356 |
|
1356 |
|
| 1357 |
my $dbh = C4::Context->dbh; |
1357 |
my $dbh = C4::Context->dbh; |
| 1358 |
my $sth = $dbh->prepare("UPDATE import_records SET status = ? WHERE import_record_id = ?"); |
1358 |
my $sth = $dbh->prepare("UPDATE import_records SET status = ? WHERE import_record_id = ?"); |
| 1359 |
$sth->execute($new_overlay_status, $import_record_id); |
1359 |
$sth->execute($new_status, $import_record_id); |
| 1360 |
$sth->finish(); |
1360 |
$sth->finish(); |
| 1361 |
|
1361 |
|
| 1362 |
} |
1362 |
} |
| 1363 |
- |
|
|