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 |
- |
|
|