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 |
- |
|
|