297 |
|
|
298 |
if ($sth_archive_backup_parts->rows == 0) { |
if ($sth_archive_backup_parts->rows == 0) { |
299 |
warn "ERROR: no backup parts found for $dvd_nr. You should re-create that DVD.\n"; |
warn "ERROR: no backup parts found for $dvd_nr. You should re-create that DVD.\n"; |
300 |
|
print "Do you want to delete invalid DVD #$dvd_nr now? [NO/yes]: "; |
301 |
|
my $ok = <STDIN>; |
302 |
|
chomp($ok); |
303 |
|
if (lc($ok) eq 'yes') { |
304 |
|
print "Deleting DVD #$dvd_nr from database...\n"; |
305 |
|
|
306 |
|
$dbh->begin_work; |
307 |
|
|
308 |
|
my $sth_delete_dvd = $dbh->prepare( qq{ |
309 |
|
delete from archive where dvd_nr = ? |
310 |
|
} ); |
311 |
|
$sth_delete_dvd->execute( $dvd_nr ); |
312 |
|
$dbh->do( qq{ |
313 |
|
select setval('dvd_nr', (select max(dvd_nr) from archive), true) |
314 |
|
} ); |
315 |
|
|
316 |
|
$dbh->commit; |
317 |
|
} |
318 |
} |
} |
319 |
|
|
320 |
my @volumes; |
my @volumes; |