|
Lines 507-512
sub FixCorruptedData {
Link Here
|
| 507 |
print "Updating $table.$col_name=$old_id with new id $max\n"; |
507 |
print "Updating $table.$col_name=$old_id with new id $max\n"; |
| 508 |
eval { |
508 |
eval { |
| 509 |
$sth_fix->execute( $max, $old_id ); |
509 |
$sth_fix->execute( $max, $old_id ); |
|
|
510 |
if ( $table eq 'issues' ) { |
| 511 |
$dbh->do( q|UPDATE accountlines SET issue_id = ? WHERE issue_id = ?|, undef, $max, $old_id ); |
| 512 |
} elsif ( $table eq 'borrowers' ) { |
| 513 |
$dbh->do( q|UPDATE borrower_password_recovery SET borrowernumber = ? WHERE borrowernumber = ?|, undef, $max, $old_id ); |
| 514 |
$dbh->do( q|UPDATE borrowers SET guarantorid = ? WHERE guarantorid= ?|, undef, $max, $old_id ); |
| 515 |
$dbh->do( q|UPDATE notifys SET borrowernumber = ? WHERE borrowernumber = ?|, undef, $max, $old_id ); # Just in case, see bug 10021 |
| 516 |
$dbh->do( q|UPDATE saved_sql SET borrowernumber = ? WHERE borrowernumber = ?|, undef, $max, $old_id ); |
| 517 |
$dbh->do( q|UPDATE search_history SET userid = ? WHERE userid = ?|, undef, $max, $old_id ); |
| 518 |
$dbh->do( q|UPDATE statistics SET borrowernumber = ? WHERE borrowernumber = ?|, undef, $max, $old_id ); |
| 519 |
$dbh->do( q|UPDATE aqbudgets SET budget_owner_id = ? WHERE budget_owner_id = ?|, undef, $max, $old_id ); |
| 520 |
$dbh->do( q|UPDATE aqbasket SET authorisedby = ? WHERE authorisedby = ?|, undef, $max, $old_id ); |
| 521 |
$dbh->do( q|UPDATE suggestions SET suggestedby = ? WHERE suggestedby = ?|, undef, $max, $old_id ); |
| 522 |
$dbh->do( q|UPDATE suggestions SET managedby = ? WHERE managedby = ?|, undef, $max, $old_id ); |
| 523 |
$dbh->do( q|UPDATE suggestions SET acceptedby = ? WHERE acceptedby = ?|, undef, $max, $old_id ); |
| 524 |
$dbh->do( q|UPDATE suggestions SET rejectedby = ? WHERE rejectedby = ?|, undef, $max, $old_id ); |
| 525 |
} elsif ( $table eq 'biblio' ) { |
| 526 |
$dbh->do( q|UPDATE import_biblios SET matched_biblionumber = ? WHERE matched_biblionumber = ?|, undef, $max, $old_id ); |
| 527 |
$dbh->do( q|UPDATE oai_sets_biblios SET biblionumber = ? WHERE biblionumber = ?|, undef, $max, $old_id ); |
| 528 |
$dbh->do( q|UPDATE serial SET biblionumber = ? WHERE biblionumber = ?|, undef, $max, $old_id ); |
| 529 |
$dbh->do( q|UPDATE subscription SET biblionumber = ? WHERE biblionumber = ?|, undef, $max, $old_id ); |
| 530 |
$dbh->do( q|UPDATE subscriptionhistory SET biblionumber = ? WHERE biblionumber = ?|, undef, $max, $old_id ); |
| 531 |
$dbh->do( q|UPDATE tmp_holdsqueue SET biblionumber = ? WHERE biblionumber = ?|, undef, $max, $old_id ); |
| 532 |
$dbh->do( q|UPDATE suggestions SET biblionumber = ? WHERE biblionumber = ?|, undef, $max, $old_id ); |
| 533 |
$dbh->do( q|UPDATE linktracker SET biblionumber = ? WHERE biblionumber = ?|, undef, $max, $old_id ); |
| 534 |
} elsif ( $table eq 'items' ) { |
| 535 |
$dbh->do( q|UPDATE collections_tracking SET itemnumber = ? WHERE itemnumber = ?|, undef, $max, $old_id ); |
| 536 |
$dbh->do( q|UPDATE import_items SET itemnumber = ? WHERE itemnumber = ?|, undef, $max, $old_id ); |
| 537 |
$dbh->do( q|UPDATE notifys SET itemnumber = ? WHERE itemnumber = ?|, undef, $max, $old_id ); # Just in case, see bug 10021 |
| 538 |
$dbh->do( q|UPDATE statistics SET itemnumber = ? WHERE itemnumber = ?|, undef, $max, $old_id ); |
| 539 |
$dbh->do( q|UPDATE tmp_holdsqueue SET itemnumber = ? WHERE itemnumber = ?|, undef, $max, $old_id ); |
| 540 |
$dbh->do( q|UPDATE accountlines SET itemnumber = ? WHERE itemnumber = ?|, undef, $max, $old_id ); |
| 541 |
} |
| 510 |
}; |
542 |
}; |
| 511 |
if ($@) { |
543 |
if ($@) { |
| 512 |
print "Something went wrong, rolling back!\n"; |
544 |
print "Something went wrong, rolling back!\n"; |
| 513 |
- |
|
|