Lines 119-125
sub GetAvailability {
Link Here
|
119 |
|
119 |
|
120 |
foreach my $id ( split( / /, $cgi->param('id') ) ) { |
120 |
foreach my $id ( split( / /, $cgi->param('id') ) ) { |
121 |
if ( $cgi->param('id_type') eq "item" ) { |
121 |
if ( $cgi->param('id_type') eq "item" ) { |
122 |
my ( $biblionumber, $status, $msg, $location ) = _availability($id); |
122 |
my ( $biblionumber, $status, $msg, $location, $itemcallnumber ) = _availability($id); |
123 |
|
123 |
|
124 |
$out .= " <dlf:record>\n"; |
124 |
$out .= " <dlf:record>\n"; |
125 |
$out .= " <dlf:bibliographic id=\"" . ( $biblionumber || $id ) . "\" />\n"; |
125 |
$out .= " <dlf:bibliographic id=\"" . ( $biblionumber || $id ) . "\" />\n"; |
Lines 130-135
sub GetAvailability {
Link Here
|
130 |
$out .= " <dlf:availabilitystatus>" . $status . "</dlf:availabilitystatus>\n"; |
130 |
$out .= " <dlf:availabilitystatus>" . $status . "</dlf:availabilitystatus>\n"; |
131 |
if ($msg) { $out .= " <dlf:availabilitymsg>" . $msg . "</dlf:availabilitymsg>\n"; } |
131 |
if ($msg) { $out .= " <dlf:availabilitymsg>" . $msg . "</dlf:availabilitymsg>\n"; } |
132 |
if ($location) { $out .= " <dlf:location>" . $location . "</dlf:location>\n"; } |
132 |
if ($location) { $out .= " <dlf:location>" . $location . "</dlf:location>\n"; } |
|
|
133 |
if ($itemcallnumber) { $out .= " <dlf:itemcallnumber>" . $itemcallnumber. "</dlf:itemcallnumber>\n"; } |
133 |
$out .= " </dlf:simpleavailability>\n"; |
134 |
$out .= " </dlf:simpleavailability>\n"; |
134 |
$out .= " </dlf:item>\n"; |
135 |
$out .= " </dlf:item>\n"; |
135 |
$out .= " </dlf:items>\n"; |
136 |
$out .= " </dlf:items>\n"; |
Lines 146-158
sub GetAvailability {
Link Here
|
146 |
# We loop over the items to clean them |
147 |
# We loop over the items to clean them |
147 |
while ( my $item = $items->next ) { |
148 |
while ( my $item = $items->next ) { |
148 |
my $itemnumber = $item->itemnumber; |
149 |
my $itemnumber = $item->itemnumber; |
149 |
my ( $biblionumber, $status, $msg, $location ) = _availability($itemnumber); |
150 |
my ( $biblionumber, $status, $msg, $location, $itemcallnumber ) = _availability($itemnumber); |
150 |
$out .= " <dlf:item id=\"" . $itemnumber . "\">\n"; |
151 |
$out .= " <dlf:item id=\"" . $itemnumber . "\">\n"; |
151 |
$out .= " <dlf:simpleavailability>\n"; |
152 |
$out .= " <dlf:simpleavailability>\n"; |
152 |
$out .= " <dlf:identifier>" . $itemnumber . "</dlf:identifier>\n"; |
153 |
$out .= " <dlf:identifier>" . $itemnumber . "</dlf:identifier>\n"; |
153 |
$out .= " <dlf:availabilitystatus>" . $status . "</dlf:availabilitystatus>\n"; |
154 |
$out .= " <dlf:availabilitystatus>" . $status . "</dlf:availabilitystatus>\n"; |
154 |
if ($msg) { $out .= " <dlf:availabilitymsg>" . $msg . "</dlf:availabilitymsg>\n"; } |
155 |
if ($msg) { $out .= " <dlf:availabilitymsg>" . $msg . "</dlf:availabilitymsg>\n"; } |
155 |
if ($location) { $out .= " <dlf:location>" . $location . "</dlf:location>\n"; } |
156 |
if ($location) { $out .= " <dlf:location>" . $location . "</dlf:location>\n"; } |
|
|
157 |
if ($itemcallnumber) { $out .= " <dlf:itemcallnumber>" . $itemcallnumber. "</dlf:itemcallnumber>\n"; } |
156 |
$out .= " </dlf:simpleavailability>\n"; |
158 |
$out .= " </dlf:simpleavailability>\n"; |
157 |
$out .= " </dlf:item>\n"; |
159 |
$out .= " </dlf:item>\n"; |
158 |
} |
160 |
} |
Lines 961-966
sub _availability {
Link Here
|
961 |
my $biblionumber = $item->biblioitemnumber; |
963 |
my $biblionumber = $item->biblioitemnumber; |
962 |
my $library = Koha::Libraries->find( $item->holdingbranch ); |
964 |
my $library = Koha::Libraries->find( $item->holdingbranch ); |
963 |
my $location = $library ? $library->branchname : ''; |
965 |
my $location = $library ? $library->branchname : ''; |
|
|
966 |
my $itemcallnumber = $item->itemcallnumber; |
964 |
|
967 |
|
965 |
if ( $item->notforloan ) { |
968 |
if ( $item->notforloan ) { |
966 |
return ( $biblionumber, 'not available', 'Not for loan', $location ); |
969 |
return ( $biblionumber, 'not available', 'Not for loan', $location ); |
Lines 973-979
sub _availability {
Link Here
|
973 |
} elsif ( $item->damaged ) { |
976 |
} elsif ( $item->damaged ) { |
974 |
return ( $biblionumber, 'not available', 'Item damaged', $location ); |
977 |
return ( $biblionumber, 'not available', 'Item damaged', $location ); |
975 |
} else { |
978 |
} else { |
976 |
return ( $biblionumber, 'available', undef, $location ); |
979 |
return ( $biblionumber, 'available', undef, $location, $itemcallnumber ); |
977 |
} |
980 |
} |
978 |
} |
981 |
} |
979 |
|
982 |
|
980 |
- |
|
|