marc/test

   1 #!/usr/bin/perl
   2
   3
   4
   5 use C4::Database;
   6 use C4::Catalogue;
   7 use CGI;
   8 use DBI;
   9 #use strict;
  10 use C4::Acquisitions;
  11 use C4::Biblio;
  12 use C4::Output;
  13 my $userid=$ENV{'REMOTE_USER'};
  14
  15
  16 my $dbh=C4Connect;
  17
  18 my $newschool=$ARGV[0];
  19 ($newschool) || ($newschool='SHE');
  20
  21 #changeSubfield(45,'876','c','7.20','7.30',451);
  22
  23
  24 my $sth=$dbh->prepare("select * from items where barcode='1024'");
  25 $sth->execute;
  26 my $item=$sth->fetchrow_hashref();
  27 print $item->{'homebranch'}."\n";
  28 print $item->{'barcode'}."\n";
  29 print $item->{'biblionumber'}."\n";
  30 $item->{'homebranch'}=$newschool;
  31 print $item->{'homebranch'}."\n";
  32 updateItem($env, $item);
  33 $sth->finish;
  34 $dbh->disconnect;