View | Details | Raw Unified | Return to bug 26997
Collapse All | Expand All

(-)a/installer/data/mysql/updatedatabase.pl (-51 / +54 lines)
Lines 10635-10645 if ( CheckVersion($DBversion) ) { Link Here
10635
10635
10636
$DBversion = "3.21.00.009";
10636
$DBversion = "3.21.00.009";
10637
if ( CheckVersion($DBversion) ) {
10637
if ( CheckVersion($DBversion) ) {
10638
    $dbh->do(q|
10638
    eval {
10639
        UPDATE aqorders SET orderstatus='cancelled'
10639
        local $dbh->{PrintError} = 0;
10640
        WHERE (datecancellationprinted IS NOT NULL OR
10640
        $dbh->do(q|
10641
               datecancellationprinted<>'0000-00-00');
10641
            UPDATE aqorders SET orderstatus='cancelled'
10642
    |);
10642
            WHERE (datecancellationprinted IS NOT NULL OR
10643
                   datecancellationprinted<>'0000-00-00');
10644
        |);
10645
    };
10643
    print "Upgrade to $DBversion done (Bug 13993: Correct orderstatus for transferred orders)\n";
10646
    print "Upgrade to $DBversion done (Bug 13993: Correct orderstatus for transferred orders)\n";
10644
    SetVersion($DBversion);
10647
    SetVersion($DBversion);
10645
}
10648
}
Lines 10870-10887 if ( CheckVersion($DBversion) ) { Link Here
10870
10873
10871
$DBversion = "3.21.00.023";
10874
$DBversion = "3.21.00.023";
10872
if ( CheckVersion($DBversion) ) {
10875
if ( CheckVersion($DBversion) ) {
10873
    $dbh->do(q{
10876
    eval {
10874
        UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00'
10877
        local $dbh->{PrintError} = 0;
10875
    });
10878
        $dbh->do(q{
10876
    $dbh->do(q{
10879
            UPDATE borrowers SET debarred=NULL WHERE debarred='0000-00-00'
10877
        UPDATE borrowers SET dateexpiry=NULL where dateexpiry='0000-00-00'
10880
        });
10878
    });
10881
        $dbh->do(q{
10879
    $dbh->do(q{
10882
            UPDATE borrowers SET dateexpiry=NULL where dateexpiry='0000-00-00'
10880
        UPDATE borrowers SET dateofbirth=NULL where dateofbirth='0000-00-00'
10883
        });
10881
    });
10884
        $dbh->do(q{
10882
    $dbh->do(q{
10885
            UPDATE borrowers SET dateofbirth=NULL where dateofbirth='0000-00-00'
10883
        UPDATE borrowers SET dateenrolled=NULL where dateenrolled='0000-00-00'
10886
        });
10884
    });
10887
        $dbh->do(q{
10888
            UPDATE borrowers SET dateenrolled=NULL where dateenrolled='0000-00-00'
10889
        });
10890
    };
10891
10885
    print "Upgrade to $DBversion done (Bug 14717: Prevent 0000-00-00 dates in patron data)\n";
10892
    print "Upgrade to $DBversion done (Bug 14717: Prevent 0000-00-00 dates in patron data)\n";
10886
    SetVersion($DBversion);
10893
    SetVersion($DBversion);
10887
}
10894
}
Lines 17629-17643 $DBversion = '18.12.00.024'; Link Here
17629
if ( CheckVersion($DBversion) ) {
17636
if ( CheckVersion($DBversion) ) {
17630
17637
17631
    # Fixup any pre-existing bad suggestedby, manageddate, accepteddate dates
17638
    # Fixup any pre-existing bad suggestedby, manageddate, accepteddate dates
17632
    $dbh->do(
17639
    eval {
17633
        "UPDATE suggestions SET suggesteddate = '1970-01-01' WHERE suggesteddate = '0000-00-00';"    
17640
        local $dbh->{PrintError} = 0;
17634
    );
17641
        $dbh->do(
17635
    $dbh->do(
17642
            "UPDATE suggestions SET suggesteddate = '1970-01-01' WHERE suggesteddate = '0000-00-00';"
17636
        "UPDATE suggestions SET manageddate = '1970-01-01' WHERE manageddate = '0000-00-00';"    
17643
        );
17637
    );
17644
        $dbh->do(
17638
    $dbh->do(
17645
            "UPDATE suggestions SET manageddate = '1970-01-01' WHERE manageddate = '0000-00-00';"
17639
        "UPDATE suggestions SET accepteddate = '1970-01-01' WHERE accepteddate = '0000-00-00';"    
17646
        );
17640
    );
17647
        $dbh->do(
17648
            "UPDATE suggestions SET accepteddate = '1970-01-01' WHERE accepteddate = '0000-00-00';"
17649
        );
17650
    };
17641
17651
17642
    # Add constraint for suggestedby
17652
    # Add constraint for suggestedby
17643
    unless ( foreign_key_exists( 'suggestions', 'suggestions_ibfk_suggestedby' ) )
17653
    unless ( foreign_key_exists( 'suggestions', 'suggestions_ibfk_suggestedby' ) )
Lines 21685-21716 $DBversion = '19.12.00.076'; Link Here
21685
if( CheckVersion( $DBversion ) ) {
21695
if( CheckVersion( $DBversion ) ) {
21686
    my @warnings;
21696
    my @warnings;
21687
21697
21688
    $dbh->do(q|
21698
    eval {
21689
        UPDATE
21699
        local $dbh->{PrintError} = 0;
21690
          serial
21700
        $dbh->do(q|
21691
        SET
21701
            UPDATE serial
21692
          planneddate = NULL
21702
            SET planneddate = NULL
21693
        WHERE
21703
            WHERE planneddate = '0000-00-00'
21694
          planneddate = '0000-00-00'
21704
        |);
21695
    |);
21696
21705
21697
    $dbh->do(q|
21706
        $dbh->do(q|
21698
        UPDATE
21707
            UPDATE serial
21699
          serial
21708
            SET publisheddate = NULL
21700
        SET
21709
            WHERE publisheddate = '0000-00-00'
21701
          publisheddate = NULL
21710
        |);
21702
        WHERE
21703
          publisheddate = '0000-00-00'
21704
    |);
21705
21711
21706
    $dbh->do(q|
21712
        $dbh->do(q|
21707
        UPDATE
21713
            UPDATE serial
21708
          serial
21714
            SET claimdate = NULL
21709
        SET
21715
            WHERE claimdate = '0000-00-00'
21710
          claimdate = NULL
21716
        |);
21711
        WHERE
21717
    };
21712
          claimdate = '0000-00-00'
21713
    |);
21714
21718
21715
    $dbh->do(q|
21719
    $dbh->do(q|
21716
        ALTER TABLE serial
21720
        ALTER TABLE serial
21717
- 

Return to bug 26997