[Koha-cvs] CVS: koha/search.marc search.pl,1.27,1.28

[doXulting]

Update of /cvsroot/koha/koha/search.marc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9128/search.marc

Modified Files:
        search.pl 
Log Message:
Fixed bug #1013. Works for me, if someone can check.

Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.marc/search.pl,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -r1.27 -r1.28
*** search.pl   22 Sep 2005 15:34:17 -0000      1.27
--- search.pl   5 Oct 2005 16:19:21 -0000       1.28
***************
*** 131,135 ****
                                push @tags,$dbh->quote("$tag$subfield");
                        } else {
!                               push @tags, $dbh->quote(substr($marc,0,4));
                        }
                } else {
--- 131,143 ----
                                push @tags,$dbh->quote("$tag$subfield");
                        } else {
!                               if ($marc =~ /^(\d){3}(. -)(.)*/)
!                               {
!                                       # The user is using the search 
catalogue part, more fields
!                                       push @tags, 
$dbh->quote(substr($marc,0,4));
!                               }
!                               else
!                               {
!                                       push @tags, $marc;
!                               }
                        }
                } else {