use strict;
use DBI;
-use C4::Database;
+use C4::Context;
# This script makes the following substitutions.
# on homebranch field:
# do the substitutions.....
-my $dbh = &C4Connect;
+my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("SELECT barcode, holdingbranch, homebranch FROM items");
$sth->execute();
}
print "\nFinished output from fixbranches.pl\n";
-
-$dbh->disconnect;