marc/test

   1 #!/usr/bin/perl
   2 use C4::Context;
   3 use C4::Catalogue;
   4 use CGI;
   5 use DBI;
   6 #use strict;
   7 use C4::Acquisitions;
   8 use C4::Biblio;
   9 use C4::Output;
  10 my $userid=$ENV{'REMOTE_USER'};
  11
  12
  13 my $dbh = C4::Context->dbh;
  14
  15 my $newschool=$ARGV[0];
  16 ($newschool) || ($newschool='SHE');
  17
  18 #changeSubfield(45,'876','c','7.20','7.30',451);
  19
  20
  21 my $sth=$dbh->prepare("select * from items where barcode='1024'");
  22 $sth->execute;
  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
  30 $sth->finish;