[Koha-devel] CVS: koha/marc test,NONE,1.1

[Steve Tonnesen]

Update of /cvsroot/koha/koha/marc
In directory usw-pr-cvs1:/tmp/cvs-serv13206

Added Files:
        test 
Log Message:
Script that I'm using to check MARC record support.


--- NEW FILE ---
#!/usr/bin/perl



use C4::Database;
use C4::Catalogue;
use CGI;
use DBI;
#use strict;
use C4::Acquisitions;
use C4::Output;
my $userid=$ENV{'REMOTE_USER'};


my $dbh=C4Connect;

my $newschool=$ARGV[0];
($newschool) || ($newschool='SHE');

#changeSubfield(45,'876','c','7.20','7.30',451);


my $sth=$dbh->prepare("select * from items where barcode='1024'");
$sth->execute;
my $item=$sth->fetchrow_hashref();
print $item->{'homebranch'}."\n";
print $item->{'barcode'}."\n";
print $item->{'biblionumber'}."\n";
$item->{'homebranch'}=$newschool;
print $item->{'homebranch'}."\n";
updateItem($env, $item);
$sth->finish;
$dbh->disconnect;