From 0f86cbbd93de2abf1e5becf5bc8fc8daa8bcdfcb Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Tue, 6 Nov 2001 18:24:54 +0000
Subject: [PATCH] Script that I'm using to check MARC record support.

---
 marc/test | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 marc/test

diff --git a/marc/test b/marc/test
new file mode 100644
index 0000000000..3d26f77d97
--- /dev/null
+++ b/marc/test
@@ -0,0 +1,33 @@
+#!/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;
-- 
2.39.2