[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/z3950 z3950import.pl,1.1,1.2
From: |
Mike Hansen |
Subject: |
[Koha-cvs] CVS: koha/z3950 z3950import.pl,1.1,1.2 |
Date: |
Tue, 18 Feb 2003 17:01:16 -0800 |
Update of /cvsroot/koha/koha/z3950
In directory sc8-pr-cvs1:/tmp/cvs-serv14943/koha/z3950
Modified Files:
z3950import.pl
Log Message:
Removed the unecessary $dbh argument from being passed.
Resolved a few minor FIXMEs.
Index: z3950import.pl
===================================================================
RCS file: /cvsroot/koha/koha/z3950/z3950import.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** z3950import.pl 22 Nov 2002 10:15:22 -0000 1.1
--- z3950import.pl 19 Feb 2003 01:01:11 -0000 1.2
***************
*** 282,286 ****
my ($srvid, $server, $database, $auth) = split(/\//,
$serverstring, 4);
if ( $server ) {
! my
$srvname=&z3950servername($dbh,$srvid,"$server/$database");
$template->param(srvid => $srvid);
$template->param(srvname => $srvname);
--- 282,286 ----
my ($srvid, $server, $database, $auth) = split(/\//,
$serverstring, 4);
if ( $server ) {
! my
$srvname=&z3950servername($srvid,"$server/$database");
$template->param(srvid => $srvid);
$template->param(srvname => $srvname);
***************
*** 652,656 ****
}
! $error=addz3950queue($dbh,$input->param('query'), $input->param('type'),
$input->param('rand'), @serverlist);
if ( $error ) {
--- 652,656 ----
}
! $error=addz3950queue($input->param('query'), $input->param('type'),
$input->param('rand'), @serverlist);
if ( $error ) {
***************
*** 997,1000 ****
--- 997,1004 ----
#---------------
# $Log$
+ # Revision 1.2 2003/02/19 01:01:11 wolfpac444
+ # Removed the unecessary $dbh argument from being passed.
+ # Resolved a few minor FIXMEs.
+ #
# Revision 1.1 2002/11/22 10:15:22 tipaul
# moving z3950 related scripts to specific dir
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/z3950 z3950import.pl,1.1,1.2,
Mike Hansen <=