View | Details | Raw Unified | Return to bug 17317
Collapse All | Expand All

(-)a/C4/ILSDI/Services.pm (-14 / +10 lines)
Lines 134-152 sub GetAvailability { Link Here
134
        } else {
134
        } else {
135
            my $status;
135
            my $status;
136
            my $msg;
136
            my $msg;
137
            my $biblioitem = ( GetBiblioItemByBiblioNumber( $id, undef ) )[0];
137
            my $items = GetItemnumbersForBiblio($id);
138
            if ($biblioitem) {
138
            if ($items) {
139
                my $biblioitemnumber = $biblioitem->{'biblioitemnumber'};
139
                # Open XML
140
                my $items            = (GetItemsByBiblioitemnumber($biblioitemnumber))[0];
140
                $out .= "  <dlf:record>\n";
141
141
                $out .= "    <dlf:bibliographic id=\"" .$id. "\" />\n";
142
                $out .= "    <dlf:items>\n";
142
                # We loop over the items to clean them
143
                # We loop over the items to clean them
143
                my $itemnumber;
144
                foreach my $itemnumber (@$items) {
144
                foreach my $item (@$items) {
145
                    $itemnumber=$item->{'itemnumber'};
146
                    my ( $biblionumber, $status, $msg, $location ) = _availability($itemnumber);
145
                    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";
146
                    $out .= "      <dlf:item id=\"" . $itemnumber . "\">\n";
151
                    $out .= "        <dlf:simpleavailability>\n";
147
                    $out .= "        <dlf:simpleavailability>\n";
152
                    $out .= "          <dlf:identifier>" . $itemnumber . "</dlf:identifier>\n";
148
                    $out .= "          <dlf:identifier>" . $itemnumber . "</dlf:identifier>\n";
Lines 155-163 sub GetAvailability { Link Here
155
                    if ($location) { $out .= "          <dlf:location>" . $location . "</dlf:location>\n"; }
151
                    if ($location) { $out .= "          <dlf:location>" . $location . "</dlf:location>\n"; }
156
                    $out .= "        </dlf:simpleavailability>\n";
152
                    $out .= "        </dlf:simpleavailability>\n";
157
                    $out .= "      </dlf:item>\n";
153
                    $out .= "      </dlf:item>\n";
158
                    $out .= "    </dlf:items>\n";
159
                    $out .= "  </dlf:record>\n";
160
                }
154
                }
155
                # Close XML
156
                $out .= "    </dlf:items>\n";
157
                $out .= "  </dlf:record>\n";
161
            } else {
158
            } else {
162
                $status = "unknown";
159
                $status = "unknown";
163
                $msg    = "Error: could not retrieve availability for this ID";
160
                $msg    = "Error: could not retrieve availability for this ID";
164
- 

Return to bug 17317