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

(-)a/rotating_collections/addItems.pl (-5 / +6 lines)
Lines 18-25 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use C4::Output qw( output_html_with_http_headers );
21
use C4::Output      qw( output_html_with_http_headers );
22
use C4::Auth   qw( get_template_and_user );
22
use C4::Auth        qw( get_template_and_user );
23
use C4::Circulation qw( barcodedecode );
23
use C4::Context;
24
use C4::Context;
24
use C4::RotatingCollections;
25
use C4::RotatingCollections;
25
26
Lines 42-49 if ( defined $op Link Here
42
    and $op eq 'cud-add' )
43
    and $op eq 'cud-add' )
43
{
44
{
44
    ## Add the given item to the collection
45
    ## Add the given item to the collection
45
    my $colId      = $query->param('colId');
46
    my $colId   = $query->param('colId');
46
    my $barcode    = $query->param('barcode');
47
    my $barcode = $query->param('barcode');
48
    $barcode = barcodedecode($barcode);
47
    my $removeItem = $query->param('removeItem');
49
    my $removeItem = $query->param('removeItem');
48
    my $item       = Koha::Items->find( { barcode => $barcode } );
50
    my $item       = Koha::Items->find( { barcode => $barcode } );
49
    my $itemnumber = $item ? $item->itemnumber : undef;
51
    my $itemnumber = $item ? $item->itemnumber : undef;
50
- 

Return to bug 31930