[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,\@tags);
 	my ($results,$total) = catalogsearch($dbh, \@tags,\@and_or,