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

(-)a/installer/data/mysql/atomicupdate/bug_14237-add_course_items.biblionumber_column_update_existing.perl (-1 / +14 lines)
Line 0 Link Here
0
- 
1
$DBversion = 'XXX';
2
if ( CheckVersion( $DBversion ) ) {
3
    my $itemnumbers = $dbh->selectall_arrayref("SELECT DISTINCT(itemnumber) FROM course_items", { Slice => {} });
4
    my $query = "UPDATE course_items SET biblionumber = ? WHERE itemnumber = ?";
5
    foreach my $row ( @$itemnumbers ) {
6
        my @biblionumber = $dbh->selectrow_array("SELECT biblionumber FROM items WHERE itemnumber = $row->{itemnumber}");
7
        if ( $biblionumber[0] ) {
8
            my @bind_values = ( $biblionumber[0], $row->{itemnumber} );
9
            $dbh->do($query, undef, @bind_values);
10
        }
11
    }
12
13
    NewVersion( $DBversion, 14237, "Update biblionumber for existing course_items" );
14
}

Return to bug 14237