|
Lines 134-152
sub GetAvailability {
Link Here
|
| 134 |
} else { |
134 |
} else { |
| 135 |
my $status; |
135 |
my $status; |
| 136 |
my $msg; |
136 |
my $msg; |
| 137 |
my $biblioitem = ( GetBiblioItemByBiblioNumber( $id, undef ) )[0]; |
137 |
my $items = GetItemnumbersForBiblio($id); |
| 138 |
if ($biblioitem) { |
138 |
if ($items) { |
| 139 |
my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
139 |
# Open XML |
| 140 |
my $items = (GetItemsByBiblioitemnumber($biblioitemnumber))[0]; |
140 |
$out .= " <dlf:record>\n"; |
| 141 |
|
141 |
$out .= " <dlf:bibliographic id=\"" .$id. "\" />\n"; |
|
|
142 |
$out .= " <dlf:items>\n"; |
| 142 |
# We loop over the items to clean them |
143 |
# We loop over the items to clean them |
| 143 |
my $itemnumber; |
144 |
foreach my $itemnumber (@$items) { |
| 144 |
foreach my $item (@$items) { |
|
|
| 145 |
$itemnumber=$item->{'itemnumber'}; |
| 146 |
my ( $biblionumber, $status, $msg, $location ) = _availability($itemnumber); |
145 |
my ( $biblionumber, $status, $msg, $location ) = _availability($itemnumber); |
| 147 |
$out .= " <dlf:record>\n"; |
|
|
| 148 |
$out .= " <dlf:bibliographic id=\"" . ( $biblionumber || $itemnumber ) . "\" />\n"; |
| 149 |
$out .= " <dlf:items>\n"; |
| 150 |
$out .= " <dlf:item id=\"" . $itemnumber . "\">\n"; |
146 |
$out .= " <dlf:item id=\"" . $itemnumber . "\">\n"; |
| 151 |
$out .= " <dlf:simpleavailability>\n"; |
147 |
$out .= " <dlf:simpleavailability>\n"; |
| 152 |
$out .= " <dlf:identifier>" . $itemnumber . "</dlf:identifier>\n"; |
148 |
$out .= " <dlf:identifier>" . $itemnumber . "</dlf:identifier>\n"; |
|
Lines 155-163
sub GetAvailability {
Link Here
|
| 155 |
if ($location) { $out .= " <dlf:location>" . $location . "</dlf:location>\n"; } |
151 |
if ($location) { $out .= " <dlf:location>" . $location . "</dlf:location>\n"; } |
| 156 |
$out .= " </dlf:simpleavailability>\n"; |
152 |
$out .= " </dlf:simpleavailability>\n"; |
| 157 |
$out .= " </dlf:item>\n"; |
153 |
$out .= " </dlf:item>\n"; |
| 158 |
$out .= " </dlf:items>\n"; |
|
|
| 159 |
$out .= " </dlf:record>\n"; |
| 160 |
} |
154 |
} |
|
|
155 |
# Close XML |
| 156 |
$out .= " </dlf:items>\n"; |
| 157 |
$out .= " </dlf:record>\n"; |
| 161 |
} else { |
158 |
} else { |
| 162 |
$status = "unknown"; |
159 |
$status = "unknown"; |
| 163 |
$msg = "Error: could not retrieve availability for this ID"; |
160 |
$msg = "Error: could not retrieve availability for this ID"; |
| 164 |
- |
|
|