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

[Joshua Ferraro]

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|address@hidden||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|address@hidden ||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|address@hidden ||g;
                $query =~ s|2=3||g;
***************
*** 147,150 ****
--- 153,159 ----
                  $query =~ s|address@hidden ||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|address@hidden||g;
  
!                 $query =~ s|4=1||g;    ## Phrase
                  $query =~ s|4=2||g;    ## Keyword
                  $query =~ s|4=3||g;    ## Key
--- 185,192 ----
                  $query =~ s|address@hidden||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|address@hidden||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|address@hidden||g;
***************
*** 204,208 ****
                ## Bib-1 Structure Attributes:
                  $query =~ s|address@hidden ||g;
! 
                  $query =~ s|4=1||g;    ## Phrase
                  $query =~ s|4=2||g;    ## Keyword
--- 214,221 ----
                ## Bib-1 Structure Attributes:
                  $query =~ s|address@hidden ||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|address@hidden||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";