projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 6528 : Cataloguing search not showing location for available items
[koha.git]
/
C4
/
AuthoritiesMarc.pm
diff --git
a/C4/AuthoritiesMarc.pm
b/C4/AuthoritiesMarc.pm
index
fa2ef00
..
0164c8d
100644
(file)
--- a/
C4/AuthoritiesMarc.pm
+++ b/
C4/AuthoritiesMarc.pm
@@
-1075,8
+1075,8
@@
sub BuildSummary{
} elsif ($record->field('148')) {
$heading.= $field->as_string('abvxyz68');
} elsif ($record->field('150')) {
} elsif ($record->field('148')) {
$heading.= $field->as_string('abvxyz68');
} elsif ($record->field('150')) {
-
#
$heading.= $field->as_string('abvxyz68');
- $heading.= $field->as_formatted();
+
$heading.= $field->as_string('abvxyz68');
+
#
$heading.= $field->as_formatted();
my $tag=$field->tag();
$heading=~s /^$tag//g;
$heading =~s /\_/\$/g;
my $tag=$field->tag();
$heading=~s /^$tag//g;
$heading =~s /\_/\$/g;
@@
-1307,6
+1307,7
@@
sub merge {
} else {
#zebra connection
my $oConnection=C4::Context->Zconn("biblioserver",0);
} else {
#zebra connection
my $oConnection=C4::Context->Zconn("biblioserver",0);
+ my $oldSyntax = $oConnection->option("preferredRecordSyntax");
$oConnection->option("preferredRecordSyntax"=>"XML");
my $query;
$query= "an=".$mergefrom;
$oConnection->option("preferredRecordSyntax"=>"XML");
my $query;
$query= "an=".$mergefrom;
@@
-1323,7
+1324,8
@@
sub merge {
push @reccache, $marcdata;
$z++;
}
push @reccache, $marcdata;
$z++;
}
- $oConnection->destroy();
+ $oResult->destroy();
+ $oConnection->option("preferredRecordSyntax"=>$oldSyntax);
}
#warn scalar(@reccache)." biblios to update";
# Get All candidate Tags for the change
}
#warn scalar(@reccache)." biblios to update";
# Get All candidate Tags for the change