[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, "";
                }
        }