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

(-)a/C4/SIP/ILS/Item.pm (-4 / +11 lines)
Lines 81-90 sub new { Link Here
81
        return;
81
        return;
82
    }
82
    }
83
    my $self = $item->unblessed;
83
    my $self = $item->unblessed;
84
    $self->{      'id'       } = $item->barcode;     # to SIP, the barcode IS the id.
84
    $self->{'id'}                = $item->barcode;    # to SIP, the barcode IS the id.
85
    $self->{permanent_location}= $item->homebranch;
85
    $self->{permanent_location}  = $item->homebranch;
86
    $self->{'collection_code'} = $item->ccode;
86
    $self->{'collection_code'}   = $item->ccode;
87
    $self->{  'call_number'  } = $item->itemcallnumber;
87
    $self->{'call_number'}       = $item->itemcallnumber;
88
    $self->{'shelving_location'} = $item->location;
88
89
89
    my $it = $item->effective_itemtype;
90
    my $it = $item->effective_itemtype;
90
    my $itemtype = Koha::Database->new()->schema()->resultset('Itemtype')->find( $it );
91
    my $itemtype = Koha::Database->new()->schema()->resultset('Itemtype')->find( $it );
Lines 380-385 sub fill_reserve { Link Here
380
    }
381
    }
381
    return ModReserveFill($hold);
382
    return ModReserveFill($hold);
382
}
383
}
384
385
sub next_hold {
386
    my $self = shift;
387
    return $self->{shelving_location};
388
}
389
383
1;
390
1;
384
__END__
391
__END__
385
392
(-)a/C4/SIP/Sip/Constants.pm (+3 lines)
Lines 240-245 use constant { Link Here
240
    FID_ALERT_TYPE             => 'CV',
240
    FID_ALERT_TYPE             => 'CV',
241
    FID_HOLD_PATRON_ID         => 'CY',
241
    FID_HOLD_PATRON_ID         => 'CY',
242
    FID_HOLD_PATRON_NAME       => 'DA',
242
    FID_HOLD_PATRON_NAME       => 'DA',
243
244
    # SIP Extensions by RFIDLS
245
    FID_SHELVING_LOCATION      => 'SL',
243
};
246
};
244
247
245
#
248
#
(-)a/C4/SIP/Sip/MsgType.pm (-1 / +3 lines)
Lines 676-681 sub handle_checkin { Link Here
676
            $resp .= maybe_add( FID_DESTINATION_LOCATION, $item->destination_loc );
676
            $resp .= maybe_add( FID_DESTINATION_LOCATION, $item->destination_loc );
677
            $resp .= maybe_add( FID_HOLD_PATRON_ID,       $item->hold_patron_bcode );
677
            $resp .= maybe_add( FID_HOLD_PATRON_ID,       $item->hold_patron_bcode );
678
            $resp .= maybe_add( FID_HOLD_PATRON_NAME,     $item->hold_patron_name( $server->{account}->{da_field_template} ) );
678
            $resp .= maybe_add( FID_HOLD_PATRON_NAME,     $item->hold_patron_name( $server->{account}->{da_field_template} ) );
679
            $resp .= maybe_add( FID_SHELVING_LOCATION,    $item->shelving_location );
679
            if ( $status->hold and $status->hold->{branchcode} ne $item->destination_loc ) {
680
            if ( $status->hold and $status->hold->{branchcode} ne $item->destination_loc ) {
680
                warn 'SIP hold mismatch: $status->hold->{branchcode}=' . $status->hold->{branchcode} . '; $item->destination_loc=' . $item->destination_loc;
681
                warn 'SIP hold mismatch: $status->hold->{branchcode}=' . $status->hold->{branchcode} . '; $item->destination_loc=' . $item->destination_loc;
681
682
Lines 1141-1146 sub handle_item_information { Link Here
1141
        $resp .= maybe_add( FID_CURRENT_LOCN, $item->current_location );
1142
        $resp .= maybe_add( FID_CURRENT_LOCN, $item->current_location );
1142
        $resp .= maybe_add( FID_ITEM_PROPS,   $item->sip_item_properties );
1143
        $resp .= maybe_add( FID_ITEM_PROPS,   $item->sip_item_properties );
1143
1144
1145
        $resp .= maybe_add( FID_SHELVING_LOCATION, $item->shelving_location );
1146
1144
        if ( ( $i = $item->fee ) != 0 ) {
1147
        if ( ( $i = $item->fee ) != 0 ) {
1145
            $resp .= add_field( FID_CURRENCY, $item->fee_currency );
1148
            $resp .= add_field( FID_CURRENCY, $item->fee_currency );
1146
            $resp .= add_field( FID_FEE_AMT,  $i );
1149
            $resp .= add_field( FID_FEE_AMT,  $i );
1147
- 

Return to bug 21977