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