[Koha-cvs] koha/misc/migration_tools bulkmarcimport.pl

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Joshua Ferraro <address@hidden> 06/02/27 01:06:30

Modified files:
        misc/migration_tools: bulkmarcimport.pl 

Log message:
        removed Zconns, no need for them anymore with new Context.pm setup

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/misc/migration_tools/bulkmarcimport.pl.diff?tr1=1.4&tr2=1.5&r1=text&r2=text

Patches:
Index: koha/misc/migration_tools/bulkmarcimport.pl
diff -u koha/misc/migration_tools/bulkmarcimport.pl:1.4 
koha/misc/migration_tools/bulkmarcimport.pl:1.5
--- koha/misc/migration_tools/bulkmarcimport.pl:1.4     Sat Feb 25 23:40:59 2006
+++ koha/misc/migration_tools/bulkmarcimport.pl Mon Feb 27 01:06:30 2006
@@ -13,8 +13,6 @@
 
 use Getopt::Long;
 
-my $Zconn = C4::Context->Zconn or die "unable to set Zconn";
-
 my ( $input_marc_file, $number) = ('',0);
 my ($version, $delete, $test_parameter,$char_encoding, $verbose, $commit);
 
@@ -98,7 +96,7 @@
        $i++;
 
        if ($i==$number) {
-               
z3950_extended_services($Zconn,'commit',set_service_options('commit'));
+               z3950_extended_services('commit',set_service_options('commit'));
                print "COMMIT OPERATION SUCCESSFUL\n";
 
                my $timeneeded = gettimeofday - $starttime;
@@ -106,7 +104,7 @@
        }
        # perform the commit operation ever so often
        if ($i==$commit) {
-               
z3950_extended_services($Zconn,'commit',set_service_options('commit'));
+               z3950_extended_services('commit',set_service_options('commit'));
                $commit+=$commitnum;
                print "COMMIT OPERATION SUCCESSFUL\n";
        }
@@ -162,15 +160,15 @@
        print "$i : $nbitems items found\n" if $verbose;
        # now, create biblio and items with NEWnewXX call.
        unless ($test_parameter) {
-               my ($bibid,$oldbibnum,$oldbibitemnum) = 
NEWnewbiblio($dbh,$Zconn,$newRecord,'');
+               my ($bibid,$oldbibnum,$oldbibitemnum) = 
NEWnewbiblio($dbh,$newRecord,'');
                warn "ADDED biblio NB $bibid in DB\n" if $verbose;
                for (my $i=0;$i<=$#items;$i++) {
-                       NEWnewitem($dbh,$Zconn,$items[$i],$bibid);
+                       NEWnewitem($dbh,$items[$i],$bibid);
                }
        }
 }
 # final commit of the changes
-z3950_extended_services($Zconn,'commit',set_service_options('commit'));
+z3950_extended_services('commit',set_service_options('commit'));
 print "COMMIT OPERATION SUCCESSFUL\n";
 
 my $timeneeded = gettimeofday - $starttime;