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