[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 {