|
Lines 115-121
sub GetAvailability {
Link Here
|
| 115 |
foreach my $id ( split( / /, $cgi->param('id') ) ) { |
115 |
foreach my $id ( split( / /, $cgi->param('id') ) ) { |
| 116 |
if ( $cgi->param('id_type') eq "item" ) { |
116 |
if ( $cgi->param('id_type') eq "item" ) { |
| 117 |
my ( $biblionumber, $status, $msg, $location ) = _availability($id); |
117 |
my ( $biblionumber, $status, $msg, $location ) = _availability($id); |
| 118 |
|
|
|
| 119 |
$out .= " <dlf:record>\n"; |
118 |
$out .= " <dlf:record>\n"; |
| 120 |
$out .= " <dlf:bibliographic id=\"" . ( $biblionumber || $id ) . "\" />\n"; |
119 |
$out .= " <dlf:bibliographic id=\"" . ( $biblionumber || $id ) . "\" />\n"; |
| 121 |
$out .= " <dlf:items>\n"; |
120 |
$out .= " <dlf:items>\n"; |
|
Lines 125-130
sub GetAvailability {
Link Here
|
| 125 |
$out .= " <dlf:availabilitystatus>" . $status . "</dlf:availabilitystatus>\n"; |
124 |
$out .= " <dlf:availabilitystatus>" . $status . "</dlf:availabilitystatus>\n"; |
| 126 |
if ($msg) { $out .= " <dlf:availabilitymsg>" . $msg . "</dlf:availabilitymsg>\n"; } |
125 |
if ($msg) { $out .= " <dlf:availabilitymsg>" . $msg . "</dlf:availabilitymsg>\n"; } |
| 127 |
if ($location) { $out .= " <dlf:location>" . $location . "</dlf:location>\n"; } |
126 |
if ($location) { $out .= " <dlf:location>" . $location . "</dlf:location>\n"; } |
|
|
127 |
if ($duedate) { $out .= " <dlf:dateavailable>" . $duedate . "</dlf:dateavailable>\n"; } |
| 128 |
$out .= " </dlf:simpleavailability>\n"; |
128 |
$out .= " </dlf:simpleavailability>\n"; |
| 129 |
$out .= " </dlf:item>\n"; |
129 |
$out .= " </dlf:item>\n"; |
| 130 |
$out .= " </dlf:items>\n"; |
130 |
$out .= " </dlf:items>\n"; |
|
Lines 782-788
sub _availability {
Link Here
|
| 782 |
if ( $item->{'notforloan'} ) { |
782 |
if ( $item->{'notforloan'} ) { |
| 783 |
return ( $biblionumber, 'not available', 'Not for loan', $location ); |
783 |
return ( $biblionumber, 'not available', 'Not for loan', $location ); |
| 784 |
} elsif ( $item->{'onloan'} ) { |
784 |
} elsif ( $item->{'onloan'} ) { |
| 785 |
return ( $biblionumber, 'not available', 'Checked out', $location ); |
785 |
return ( |
|
|
786 |
$biblionumber, 'not available', 'Checked out', |
| 787 |
$location, $item->{'onloan'} |
| 788 |
); |
| 786 |
} elsif ( $item->{'itemlost'} ) { |
789 |
} elsif ( $item->{'itemlost'} ) { |
| 787 |
return ( $biblionumber, 'not available', 'Item lost', $location ); |
790 |
return ( $biblionumber, 'not available', 'Item lost', $location ); |
| 788 |
} elsif ( $item->{'wthdrawn'} ) { |
791 |
} elsif ( $item->{'wthdrawn'} ) { |
| 789 |
- |
|
|