|
Lines 455-464
sub buildKohaHoldingsNamespace {
Link Here
|
| 455 |
my $ccode = ""; |
455 |
my $ccode = ""; |
| 456 |
my $xml = ''; |
456 |
my $xml = ''; |
| 457 |
while (my $holding = $holdings->next()) { |
457 |
while (my $holding = $holdings->next()) { |
| 458 |
my $holdingbranch = $holding->holdingbranch ? xml_escape($branches{$holding->holdingbranch}) : ''; |
458 |
my $holdingbranch = $holding->holdingbranch ? C4::Koha::xml_escape($branches{$holding->holdingbranch}) : ''; |
| 459 |
my $location = $holding->location ? xml_escape($shelflocations->{$holding->location} || $holding->location) : ''; |
459 |
my $location = $holding->location ? C4::Koha::xml_escape($shelflocations->{$holding->location} || $holding->location) : ''; |
| 460 |
my $callnumber = xml_escape($holding->callnumber); |
460 |
my $callnumber = C4::Koha::xml_escape($holding->callnumber); |
| 461 |
my $suppress = xml_escape($holding->suppress || '0'); |
461 |
my $suppress = C4::Koha::xml_escape($holding->suppress || '0'); |
| 462 |
$xml .= |
462 |
$xml .= |
| 463 |
"<holding>" |
463 |
"<holding>" |
| 464 |
. "<holdingbranch>$holdingbranch</holdingbranch>" |
464 |
. "<holdingbranch>$holdingbranch</holdingbranch>" |
| 465 |
- |
|
|