[Koha-cvs] CVS: koha/z3950/server zed-koha-server.pl,1.1,1.2

Joshua Ferraro joshferraro at users.sourceforge.net
Thu Apr 15 05:47:15 CEST 2004


Update of /cvsroot/koha/koha/z3950/server
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11356

Modified Files:
	zed-koha-server.pl 
Log Message:
Fixed some documentation; no functional changes 


Index: zed-koha-server.pl
===================================================================
RCS file: /cvsroot/koha/koha/z3950/server/zed-koha-server.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** zed-koha-server.pl	9 Jan 2004 19:50:42 -0000	1.1
--- zed-koha-server.pl	15 Apr 2004 03:47:06 -0000	1.2
***************
*** 19,40 ****
  #
  #-----------------------------------
! # Script Name: npl-search.pl
! # Script Version: 0.01
! # Date:  2003/10/02
! # Author:  Joshua Ferraro (jmf at kados.org)
  # Description: A very basic Z3950 Server 
  # Usage: zed-koha-server.pl
  # Revision History:
! #    0.00  2003/08/14: 	original version; search works
! #    0.01  2003/10/02: 	first functional version; search and fetch working
! #                      	records returned in USMARC (ISO2709) format     
! #			Bath compliant to Level 1 in Functional Areas A, B 
  #-----------------------------------
  # Note: After installing SimpleServer (indexdata.dk/simpleserver) and 
  # changing the leader information in Koha's MARCgetbiblio subroutine in
  # Biblio.pm you can run this script as root:
  # ./zed-koha-server.pl
  # and the server will start running on port 9999 and will allow searching
! # and retrieval of records in MARC21
  # ----------------------------------
  use DBI;
--- 19,44 ----
  #
  #-----------------------------------
! # Script Name: zed-koha-server.pl
! # Script Version: 0.02
! # Date:  2004/04/14
! # Author:  Joshua Ferraro [jmf at kados dot org]
  # Description: A very basic Z3950 Server 
  # Usage: zed-koha-server.pl
  # Revision History:
! #    0.00  2003/08/14: 	Original version; search works.
! #    0.01  2003/10/02: 	First functional version; search and fetch working
! #                      	 records returned in USMARC (ISO2709) format,     
! #			 Bath compliant to Level 1 in Functional Areas A, B.
! #    0.02  2004/04/14:  Cleaned up documentation, etc. No functional 
! #    			 changes.
  #-----------------------------------
  # Note: After installing SimpleServer (indexdata.dk/simpleserver) and 
  # changing the leader information in Koha's MARCgetbiblio subroutine in
  # Biblio.pm you can run this script as root:
+ # 
  # ./zed-koha-server.pl
+ #
  # and the server will start running on port 9999 and will allow searching
! # and retrieval of records in MARC21 (USMARC; ISO2709) bibliographic format.
  # ----------------------------------
  use DBI;
***************
*** 53,64 ****
  					    FETCH => \&fetch_handler);
  
! $handler->launch_server("npl-search.pl", @ARGV);
  
  sub init_handler {
          my $args = shift;
          my $session = {};
! 
!         $args->{IMP_NAME} = "NPLKoha";
!         $args->{IMP_VER} = "0.01";
          $args->{ERR_CODE} = 0;
          $args->{HANDLE} = $session;
--- 57,69 ----
  					    FETCH => \&fetch_handler);
  
! $handler->launch_server("zed-koha-server.pl", @ARGV);
  
  sub init_handler {
          my $args = shift;
          my $session = {};
! 	
! 	# FIXME: I should force use of my database name 
!         $args->{IMP_NAME} = "Zed-Koha";
!         $args->{IMP_VER} = "0.02";
          $args->{ERR_CODE} = 0;
          $args->{HANDLE} = $session;
***************
*** 98,103 ****
  	$term =~ s| |\%|g;
          $term .= "\%";         ## Add the wildcard to search term
-         $term .= "\%";         ## Add the wildcard to search term
-         $term = "\%" . "$term";
  
  	$_ = "$query";
--- 103,106 ----





More information about the Koha-cvs mailing list