[Koha-cvs] koha/search.marc search.pl [rel_2_2]

[paul poulain]

CVSROOT:        /cvsroot/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     paul poulain <tipaul>   06/09/13 14:16:38

Modified files:
        search.marc    : search.pl 

Log message:
        synching opac search & librarian search.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/search.marc/search.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.22.2.12&r2=1.22.2.13

Patches:
Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.marc/Attic/search.pl,v
retrieving revision 1.22.2.12
retrieving revision 1.22.2.13
diff -u -b -r1.22.2.12 -r1.22.2.13
--- search.pl   1 Sep 2006 09:43:17 -0000       1.22.2.12
+++ search.pl   13 Sep 2006 14:16:37 -0000      1.22.2.13
@@ -123,25 +123,28 @@
        # builds tag and subfield arrays
        my @tags;
 
-       foreach my $marc (@marclist) {
-               if ($marc) {
-                       my ($tag,$subfield) = 
MARCfind_marc_from_kohafield($dbh,$marc,'');
-                       if ($tag) {
-                               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 {
-                       push @tags, "";
-               }
+       for (my $i=0;$i<=$#marclist;$i++) {
+               if ($marclist[$i] eq "biblioitems.isbn") {
+                       $value[$i] =~ s/-//g;
+               }
+#              if ($marc) {
+#                      my ($tag,$subfield) = 
MARCfind_marc_from_kohafield($dbh,$marc,'');
+#                      if ($tag) {
+#                              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 {
+#                      push @tags, "";
+#              }
        }
        findseealso($dbh,address@hidden);
        my ($results,$total) = catalogsearch($dbh, 
address@hidden,address@hidden,