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 |
- |
|
|