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 |
- |
|
|
154 |
Use of GetItemnumbersForBiblio instead of GetItemsByBiblioitemnumber (thx Jonathan Druart) |
155 |
-- |
156 |
C4/ILSDI/Services.pm | 23 ++++++++++------------- |
166 |
C4/ILSDI/Services.pm | 23 ++++++++++------------- |
157 |
1 file changed, 10 insertions(+), 13 deletions(-) |
167 |
1 file changed, 10 insertions(+), 13 deletions(-) |