|
Lines 466-475
sub buildKohaHoldingsNamespace {
Link Here
|
| 466 |
my $ccode = ""; |
466 |
my $ccode = ""; |
| 467 |
my $xml = ''; |
467 |
my $xml = ''; |
| 468 |
while (my $holding = $holdings->next()) { |
468 |
while (my $holding = $holdings->next()) { |
| 469 |
my $holdingbranch = $holding->holdingbranch ? xml_escape($branches{$holding->holdingbranch}) : ''; |
469 |
my $holdingbranch = $holding->holdingbranch ? C4::Koha::xml_escape($branches{$holding->holdingbranch}) : ''; |
| 470 |
my $location = $holding->location ? xml_escape($shelflocations->{$holding->location} || $holding->location) : ''; |
470 |
my $location = $holding->location ? C4::Koha::xml_escape($shelflocations->{$holding->location} || $holding->location) : ''; |
| 471 |
my $callnumber = xml_escape($holding->callnumber); |
471 |
my $callnumber = C4::Koha::xml_escape($holding->callnumber); |
| 472 |
my $suppress = xml_escape($holding->suppress || '0'); |
472 |
my $suppress = C4::Koha::xml_escape($holding->suppress || '0'); |
| 473 |
$xml .= |
473 |
$xml .= |
| 474 |
"<holding>" |
474 |
"<holding>" |
| 475 |
. "<holdingbranch>$holdingbranch</holdingbranch>" |
475 |
. "<holdingbranch>$holdingbranch</holdingbranch>" |
| 476 |
- |
|
|