[Koha-cvs] koha/C4 Search.pm [dev_week]

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Joshua Ferraro <kados>	06/07/21 15:43:05

Modified files:
	C4             : Search.pm 

Log message:
	fix to MARCgetsubjects to display the whole subject.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.99.2.11.2.4&r2=1.99.2.11.2.5

Patches:
Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/C4/Search.pm,v
retrieving revision 1.99.2.11.2.4
retrieving revision 1.99.2.11.2.5
diff -u -b -r1.99.2.11.2.4 -r1.99.2.11.2.5
--- Search.pm	4 Jun 2006 22:50:33 -0000	1.99.2.11.2.4
+++ Search.pm	21 Jul 2006 15:43:05 -0000	1.99.2.11.2.5
@@ -35,7 +35,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.99.2.11.2.4 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.99.2.11.2.5 $' =~ /\d+/g;
           shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -3923,7 +3923,7 @@
 
 
 
-my $record=MARCgetbiblio($dbh,$bibid);
+	my $record=MARCgetbiblio($dbh,$bibid);
 
 	my @marcnotes;
 	my $note = "";
@@ -3933,7 +3933,6 @@
 	foreach my $field ($record->field('5..')) {
 		my $value = $field->as_string();
 		if ( $note ne "") {
-	
 		        $marcnote = {marcnote => $note,};
 			push @marcnotes, $marcnote;
 			$note=$value;
@@ -3965,24 +3964,18 @@
 		$mintag = "600";
 		$maxtag = "619";
 	}
-#	my $sth=$dbh->prepare("SELECT subfieldvalue,subfieldcode FROM marc_subfield_table WHERE bibid=? AND tag BETWEEN ? AND ? ORDER BY tagorder");
-
-#	$sth->execute($bibid,$mintag,$maxtag);
-
-my $record=MARCgetbiblio($dbh,$bibid);
+	my $record=MARCgetbiblio($dbh,$bibid);
 	my @marcsubjcts;
 	my $subjct = "";
 	my $subfield = "";
 	my $marcsubjct;
 
 	foreach my $field ($record->field('6..')) {
-   
- 
-		my $value = $field->subfield('a');
-		
-		        $marcsubjct = {MARCSUBJCT => $value,};
+		#my $value = $field->subfield('a');
+		#$marcsubjct = {MARCSUBJCT => $value,};
+		$marcsubjct = {MARCSUBJCT => $field->as_string(),};
 			push @marcsubjcts, $marcsubjct;
-			$subjct = $value;
+		#$subjct = $value;
 		
 	}
 	my $marcsubjctsarray=\@marcsubjcts;