[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)address@hidden;    # input
  
      my (
--- 573,577 ----
  sub PrintResultRecordLink {
      use strict;
!     my ($dbh,$record,$resultsid)address@hidden;       # 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)address@hidden;
+ 
+     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 ----
      )address@hidden;
  
+     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