[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.36,1.6.2.37

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
	marcimport.pl 
Log Message:
Adds ability to clear the Z39.50 search query list.


Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.6.2.36
retrieving revision 1.6.2.37
diff -C2 -r1.6.2.36 -r1.6.2.37
*** marcimport.pl	4 Dec 2002 17:21:04 -0000	1.6.2.36
--- marcimport.pl	17 Jan 2003 17:21:47 -0000	1.6.2.37
***************
*** 62,65 ****
--- 62,72 ----
  	AcceptZ3950Queue($dbh,$input);
  } 
+ if ($input->param('clearsearchlist')) {
+     my $sth=$dbh->prepare("delete from z3950queue");
+     $sth->execute;
+     my $sth=$dbh->prepare("delete from z3950results");
+     $sth->execute;
+ }
+ 
  
  if ($input->param('uploadmarc')) {
***************
*** 636,640 ****
  	} # if results done
      } # while queries
!     print "</ul> </td>\n";
      # End of query listing
  
--- 643,649 ----
  	} # if results done
      } # while queries
!     print "</ul>\n";
!     print "<hr>\n<a href=marcimport.pl?menu=z3950&clearsearchlist=1>Clear Search List</a>\n";
!     print "</td>\n";
      # End of query listing
  
***************
*** 1155,1158 ****
--- 1164,1170 ----
  #---------------
  # $Log$
+ # Revision 1.6.2.37  2003/01/17 17:21:47  tonnesen
+ # Adds ability to clear the Z39.50 search query list.
+ #
  # Revision 1.6.2.36  2002/12/04 17:21:04  tonnesen
  # Added a link to delete uploaded marc records.