[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Search.pm [dev_week]
From: |
Joshua Ferraro |
Subject: |
[Koha-cvs] koha/C4 Search.pm [dev_week] |
Date: |
Fri, 21 Jul 2006 15:43:05 +0000 |
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 address@hidden;
- [Koha-cvs] koha/C4 Search.pm [dev_week],
Joshua Ferraro <=