[Koha-cvs] CVS: koha/z3950/server zed-koha-server.pl,1.2,1.3
Joshua Ferraro
joshferraro at users.sourceforge.net
Fri Apr 23 03:15:54 CEST 2004
Update of /cvsroot/koha/koha/z3950/server
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15616
Modified Files:
zed-koha-server.pl
Log Message:
Changing version numbers to correspond with CVS
Fixed the substitution bug (e.g., 4=100 before 4=1);
Added support for the truncation attribute (5=1 and
5=100; thanks to Tomasz M. Wolniewicz for pointing
out these improvements)
Index: zed-koha-server.pl
===================================================================
RCS file: /cvsroot/koha/koha/z3950/server/zed-koha-server.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** zed-koha-server.pl 15 Apr 2004 03:47:06 -0000 1.2
--- zed-koha-server.pl 23 Apr 2004 01:15:52 -0000 1.3
***************
*** 20,24 ****
#-----------------------------------
# Script Name: zed-koha-server.pl
! # Script Version: 0.02
# Date: 2004/04/14
# Author: Joshua Ferraro [jmf at kados dot org]
--- 20,24 ----
#-----------------------------------
# Script Name: zed-koha-server.pl
! # Script Version: 1.3
# Date: 2004/04/14
# Author: Joshua Ferraro [jmf at kados dot org]
***************
*** 32,35 ****
--- 32,40 ----
# 0.02 2004/04/14: Cleaned up documentation, etc. No functional
# changes.
+ # 1.30 2004/04/22: Changing version numbers to correspond with CVS;
+ # Fixed the substitution bug (e.g., 4=100 before 4=1);
+ # Added support for the truncation attribute (5=1 and
+ # 5=100; thanks to Tomasz M. Wolniewicz for pointing
+ # out these improvements)
#-----------------------------------
# Note: After installing SimpleServer (indexdata.dk/simpleserver) and
***************
*** 115,118 ****
--- 120,126 ----
$query =~ s|\@attr||g;
+ $query =~ s|4=100||g; ## date (un-normalized)
+ $query =~ s|4=101||g; ## name (normalized)
+ $query =~ s|4=102||g; ## sme (un-normalized)
$query =~ s|4=1||g; ## Phrase
$query =~ s|4=2||g; ## Keyword
***************
*** 121,128 ****
$query =~ s|4=5||g; ## Date (normalized)
$query =~ s|4=6||g; ## word list
! $query =~ s|4=100||g; ## date (un-normalized)
! $query =~ s|4=101||g; ## name (normalized)
! $query =~ s|4=102||g; ## sme (un-normalized)
!
$query =~ s|\@and ||g;
$query =~ s|2=3||g;
--- 129,134 ----
$query =~ s|4=5||g; ## Date (normalized)
$query =~ s|4=6||g; ## word list
! $query =~ s|5=100||g; ## truncation
! $query =~ s|5=1||g; ## truncation
$query =~ s|\@and ||g;
$query =~ s|2=3||g;
***************
*** 147,150 ****
--- 153,159 ----
$query =~ s|\@attr ||g;
+ $query =~ s|4=100||g; ## date (un-normalized)
+ $query =~ s|4=101||g; ## name (normalized)
+ $query =~ s|4=102||g; ## sme (un-normalized)
$query =~ s|4=1||g; ## Phrase
$query =~ s|4=2||g; ## Keyword
***************
*** 153,160 ****
$query =~ s|4=5||g; ## Date (normalized)
$query =~ s|4=6||g; ## word list
! $query =~ s|4=100||g; ## date (un-normalized)
! $query =~ s|4=101||g; ## name (normalized)
! $query =~ s|4=102||g; ## sme (un-normalized)
!
$query =~ s|2=3||g;
$query =~ s|"||g;
--- 162,168 ----
$query =~ s|4=5||g; ## Date (normalized)
$query =~ s|4=6||g; ## word list
! $query =~ s|5=100||g; ## truncation
! $query =~ s|5=1||g; ## truncation
!
$query =~ s|2=3||g;
$query =~ s|"||g;
***************
*** 177,181 ****
$query =~ s|\@attr||g;
! $query =~ s|4=1||g; ## Phrase
$query =~ s|4=2||g; ## Keyword
$query =~ s|4=3||g; ## Key
--- 185,192 ----
$query =~ s|\@attr||g;
! $query =~ s|4=100||g; ## date (un-normalized)
! $query =~ s|4=101||g; ## name (normalized)
! $query =~ s|4=102||g; ## sme (un-normalized)
! $query =~ s|4=1||g; ## Phrase
$query =~ s|4=2||g; ## Keyword
$query =~ s|4=3||g; ## Key
***************
*** 183,190 ****
$query =~ s|4=5||g; ## Date (normalized)
$query =~ s|4=6||g; ## word list
! $query =~ s|4=100||g; ## date (un-normalized)
! $query =~ s|4=101||g; ## name (normalized)
! $query =~ s|4=102||g; ## sme (un-normalized)
!
$query =~ s|2=3||g;
#$query =~ s|\@and||g;
--- 194,200 ----
$query =~ s|4=5||g; ## Date (normalized)
$query =~ s|4=6||g; ## word list
! $query =~ s|5=100||g; ## truncation
! $query =~ s|5=1||g; ## truncation
!
$query =~ s|2=3||g;
#$query =~ s|\@and||g;
***************
*** 204,208 ****
## Bib-1 Structure Attributes:
$query =~ s|\@attr ||g;
!
$query =~ s|4=1||g; ## Phrase
$query =~ s|4=2||g; ## Keyword
--- 214,221 ----
## Bib-1 Structure Attributes:
$query =~ s|\@attr ||g;
! $query =~ s|4=100||g; ## date (un-normalized)
! $query =~ s|4=101||g; ## name (normalized)
! $query =~ s|4=102||g; ## sme (un-normalized)
!
$query =~ s|4=1||g; ## Phrase
$query =~ s|4=2||g; ## Keyword
***************
*** 211,218 ****
$query =~ s|4=5||g; ## Date (normalized)
$query =~ s|4=6||g; ## word list
! $query =~ s|4=100||g; ## date (un-normalized)
! $query =~ s|4=101||g; ## name (normalized)
! $query =~ s|4=102||g; ## sme (un-normalized)
!
$query .= "\%"; ## Add the wildcard to search term
print "$query\n";
--- 224,230 ----
$query =~ s|4=5||g; ## Date (normalized)
$query =~ s|4=6||g; ## word list
! $query =~ s|5=100||g; ## truncation
! $query =~ s|5=1||g; ## truncation
!
$query .= "\%"; ## Add the wildcard to search term
print "$query\n";
***************
*** 228,231 ****
--- 240,247 ----
$query =~ s|\@attr||g;
+ $query =~ s|4=100||g; ## date (un-normalized)
+ $query =~ s|4=101||g; ## name (normalized)
+ $query =~ s|4=102||g; ## sme (un-normalized)
+
$query =~ s|4=1||g; ## Phrase
$query =~ s|4=2||g; ## Keyword
***************
*** 234,241 ****
$query =~ s|4=5||g; ## Date (normalized)
$query =~ s|4=6||g; ## word list
! $query =~ s|4=100||g; ## date (un-normalized)
! $query =~ s|4=101||g; ## name (normalized)
! $query =~ s|4=102||g; ## sme (un-normalized)
!
$query .= "\%"; ## Add the wildcard to search term
print "$query\n";
--- 250,256 ----
$query =~ s|4=5||g; ## Date (normalized)
$query =~ s|4=6||g; ## word list
! $query =~ s|5=100||g; ## truncation
! $query =~ s|5=1||g; ## truncation
!
$query .= "\%"; ## Add the wildcard to search term
print "$query\n";
More information about the Koha-cvs
mailing list