[Koha-cvs] CVS: koha/search.marc search.pl,1.14,1.15

[Paul POULAIN]

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

Modified Files:
	search.pl 
Log Message:
css'ing & improving MARC search

Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.marc/search.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** search.pl	16 Apr 2004 07:28:22 -0000	1.14
--- search.pl	3 May 2004 09:29:49 -0000	1.15
***************
*** 116,124 ****
  
  	foreach my $marc (@marclist) {
! 		my ($tag,$subfield) = MARCfind_marc_from_kohafield($dbh,$marc);
! 		if ($tag) {
! 			push @tags,$dbh->quote("$tag$subfield");
  		} else {
! 			push @tags, $dbh->quote(substr($marc,0,4));
  		}
  	}
--- 116,128 ----
  
  	foreach my $marc (@marclist) {
! 		if ($marc) {
! 			my ($tag,$subfield) = MARCfind_marc_from_kohafield($dbh,$marc);
! 			if ($tag) {
! 				push @tags,$dbh->quote("$tag$subfield");
! 			} else {
! 				push @tags, $dbh->quote(substr($marc,0,4));
! 			}
  		} else {
! 			push @tags, "";
  		}
  	}