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