[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.20,1.6.2.21

[Alan Millar]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv13796/acqui.simple

Modified Files:
      Tag: rel-1-2
	marcimport.pl 
Log Message:
Parameter check routine for DBI handle

Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.6.2.20
retrieving revision 1.6.2.21
diff -C2 -r1.6.2.20 -r1.6.2.21
*** marcimport.pl	12 Jun 2002 22:33:59 -0000	1.6.2.20
--- marcimport.pl	14 Jun 2002 06:14:06 -0000	1.6.2.21
***************
*** 190,193 ****
--- 190,195 ----
      my $splitchar=chr(29);
  
+     requireDBI($dbh,"ProcessFile");
+ 
      print "<a href=$ENV{'SCRIPT_NAME'}>Main Menu</a><hr>\n";
      my $qisbn=$input->param('isbn');
***************
*** 413,416 ****
--- 415,420 ----
  	my ($numrecords,$resultsid,$data,$startdate,$enddate);
  
+     requireDBI($dbh,"ListFileRecords");
+ 
  	# File can be z3950 search query or uploaded MARC data
  
***************
*** 513,517 ****
  		    for ($i=$startrecord; $i<$startrecord+10; $i++) {
  			if ( $records[$i] ) {
! 			  &PrintResultRecordLink($records[$i],$resultsid);
  			} # if record
  		    } # for records
--- 517,521 ----
  		    for ($i=$startrecord; $i<$startrecord+10; $i++) {
  			if ( $records[$i] ) {
! 			  &PrintResultRecordLink($dbh,$records[$i],$resultsid);
  			} # if record
  		    } # for records
***************
*** 533,537 ****
  	    foreach $record (@records) {
  
! 		&PrintResultRecordLink($record,'');
  
  	    } # foreach record
--- 537,541 ----
  	    foreach $record (@records) {
  
! 		&PrintResultRecordLink($dbh,$record,'');
  
  	    } # foreach record
***************
*** 552,555 ****
--- 556,561 ----
      #----
  
+     requireDBI($dbh,"z3950servername");
+ 
  	my $sti=$dbh->prepare("select name 
  		from z3950servers 
***************
*** 567,571 ****
  sub PrintResultRecordLink {
      use strict;
!     my ($record,$resultsid)=@_; 	# input
  
      my (
--- 573,577 ----
  sub PrintResultRecordLink {
      use strict;
!     my ($dbh,$record,$resultsid)=@_; 	# input
  
      my (
***************
*** 577,580 ****
--- 583,587 ----
      );
  	
+     requireDBI($dbh,"PrintResultRecordLink");
  
  	$bib=extractmarcfields($record);
***************
*** 792,795 ****
--- 799,804 ----
      );
  
+     requireDBI($dbh,"z3950menu");
+ 
      print "<a href=$ENV{'SCRIPT_NAME'}>Main Menu</a><hr>\n";
      print "<table border=0><tr><td valign=top>\n";
***************
*** 918,921 ****
--- 927,934 ----
  sub uploadmarc {
      use strict;
+     my ($dbh)=@_;
+ 
+     requireDBI($dbh,"uploadmarc");
+ 
      print "<a href=$ENV{'SCRIPT_NAME'}>Main Menu</a><hr>\n";
      my $sth=$dbh->prepare("select id,name from uploadedmarc");
***************
*** 1072,1075 ****
--- 1085,1090 ----
      my @serverlist;
  
+     requireDBI($dbh,"AcceptZ3950Queue");
+ 
      my $query=$input->param('query');
  
***************
*** 1107,1110 ****
--- 1122,1127 ----
      )=@_;
  
+     requireDBI($dbh,"AcceptMarcUpload");
+ 
      my $name=$input->param('name');
      my $data=$input->param('uploadmarc');
***************
*** 1135,1140 ****
      my $biblionumber=0;
      my $biblioitemnumber=0;
- 
      my $sth;
      my $isbn=$input->param('isbn');
      my $issn=$input->param('issn');
--- 1152,1159 ----
      my $biblionumber=0;
      my $biblioitemnumber=0;
      my $sth;
+ 
+     requireDBI($dbh,"AcceptBiblioitem");
+ 
      my $isbn=$input->param('isbn');
      my $issn=$input->param('issn');
***************
*** 1258,1261 ****
--- 1277,1281 ----
      my $sth;
      my $barcode;
+     requireDBI($dbh,"ItemCopyForm");
  
      my $title=$input->param('title');
***************
*** 1311,1314 ****
--- 1331,1337 ----
  
      my $error;
+ 
+     requireDBI($dbh,"AcceptItemCopy");
+ 
      my $barcode=$input->param('barcode');
      my $replacementprice=($input->param('replacementprice') || 0);
***************
*** 1364,1367 ****
--- 1387,1392 ----
  	my $debug=0;
  
+     	requireDBI($dbh,"getkeytableselectoptions");
+ 
  	if ( $showkey ) {
  		$orderfieldname=$keyfieldname;
***************
*** 1403,1406 ****
--- 1428,1432 ----
  
  	#--------
+     	requireDBI($dbh,"newcompletebiblioitem");
  
  	print "<PRE>Trying to add biblio item Title=$biblio->{title} " .
***************
*** 1460,1463 ****
--- 1486,1491 ----
  	
  	#-----
+     	requireDBI($dbh,"getoraddbiblio");
+ 
  	print "<PRE>Looking for biblio </PRE>\n" if $debug;
  	$sth=$dbh->prepare("select biblionumber 
***************
*** 1505,1508 ****
--- 1533,1538 ----
  	$failed,
      );
+     
+     requireDBI($dbh,"addz3950queue");
  
  	# list of servers: entry can be a fully qualified URL-type entry