gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bugfix for MARCsubjects fixes cases where no subjects exist but 

getMARCsubjects() was still creating a blank one.
This commit is contained in:
kados 2006-04-13 18:14:34 +00:00
parent fe7a02bd11
commit 392d5380e4
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
C4/SearchMarc.pm
View File

@ -671,9 +671,9 @@ sub getMARCsubjects {
my $lasttag;
my ($subfieldvalue,$subfieldcode,$tagorder,$tag);
while (($subfieldvalue,$subfieldcode,$tagorder,$tag)=$sth->fetchrow) {
warn "IN MARCSUBJECTS $subfieldvalue $subfieldcode $tagorder $tag\n";
#warn "IN MARCSUBJECTS $subfieldvalue $subfieldcode $tagorder $tag\n";
if ($activetagorder && $tagorder != $activetagorder) {
warn "ACTIVETAGORDER".$activetagorder;
# warn "ACTIVETAGORDER".$activetagorder;
$subject=~ s/ -- $//;
$marcsubjct = {MARCSUBJCT => $subject,
link => $lasttag."9",
@ -694,13 +694,14 @@ sub getMARCsubjects {
$activetagorder=$tagorder;
$lasttag=$tag if $tag;
}
$subject=~ s/ -- $//;
$marcsubjct = {MARCSUBJCT => $subject,
if ($subject) {
$subject=~ s/ -- $//;
$marcsubjct = {MARCSUBJCT => $subject,
link => $lasttag."9",
linkvalue => $field9,
};
push @marcsubjcts, $marcsubjct;
push @marcsubjcts, $marcsubjct;
}
$sth->finish;
my $marcsubjctsarray=\@marcsubjcts;