5 description => "Set itemtypes.notforloan to NOT NULL and tinyint(1)",
8 my ( $dbh, $out ) = @$args{qw(dbh out)};
11 my $count_sql = q{SELECT COUNT(*) FROM itemtypes WHERE notforloan IS NULL};
12 my ($count) = $dbh->selectrow_array($count_sql);
15 $dbh->do(q{UPDATE itemtypes SET notforloan = 0 WHERE notforloan IS NULL});
16 say $out "Updated $count columns where itemtypes.notforloan was NULL";
20 ALTER TABLE itemtypes MODIFY COLUMN `notforloan` tinyint(1) NOT NULL DEFAULT 0
24 say $out "Updated itemtypes.notforlaon column'";