10 my $userid=$ENV{'REMOTE_USER'};
13 my $dbh = C4::Context->dbh;
15 my $newschool=$ARGV[0];
16 ($newschool) || ($newschool='SHE');
18 #changeSubfield(45,'876','c','7.20','7.30',451);
21 my $sth=$dbh->prepare("select * from items where barcode='1024'");
23 my $item=$sth->fetchrow_hashref();
24 print $item->{'homebranch'}."\n";
25 print $item->{'barcode'}."\n";
26 print $item->{'biblionumber'}."\n";
27 $item->{'homebranch'}=$newschool;
28 print $item->{'homebranch'}."\n";
29 updateItem($env, $item); # FIXME - $env undefined