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

(-)a/acqui/finishreceive.pl (-1 / +15 lines)
Lines 62-67 if ($quantityrec > $origquantityrec ) { Link Here
62
    my @received_items = ();
62
    my @received_items = ();
63
    if(C4::Context->preference('AcqCreateItem') eq 'ordering') {
63
    if(C4::Context->preference('AcqCreateItem') eq 'ordering') {
64
        @received_items = $input->param('items_to_receive');
64
        @received_items = $input->param('items_to_receive');
65
        my @affects = split q{\|}, C4::Context->preference("AcqItemSetSubfieldsWhenReceived");
66
        if ( @affects ) {
67
            my $frameworkcode = GetFrameworkCode($biblionumber);
68
            my ( $itemfield ) = GetMarcFromKohaField( 'items.itemnumber', $frameworkcode );
69
            for my $in ( @received_items ) {
70
                my $item = C4::Items::GetMarcItem( $biblionumber, $in );
71
                for my $affect ( @affects ) {
72
                    my ( $sf, $v ) = split q{=}, $affect;
73
                    foreach ( $item->field($itemfield) ) {
74
                        $_->update( $sf => $v );
75
                    }
76
                }
77
                C4::Items::ModItemFromMarc( $item, $biblionumber, $in );
78
            }
79
        }
65
    }
80
    }
66
81
67
    $order->{rrp} = $rrp;
82
    $order->{rrp} = $rrp;
Lines 136-142 if ($quantityrec > $origquantityrec ) { Link Here
136
            NewOrderItem($itemnumber, $new_ordernumber);
151
            NewOrderItem($itemnumber, $new_ordernumber);
137
        }
152
        }
138
    }
153
    }
139
140
}
154
}
141
155
142
update_item( $_ ) foreach GetItemnumbersFromOrder( $ordernumber );
156
update_item( $_ ) foreach GetItemnumbersFromOrder( $ordernumber );
(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
Lines 427-429 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES(' Link Here
427
INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('UseCourseReserves', '0', 'Enable the course reserves feature.', NULL, 'YesNo');
427
INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('UseCourseReserves', '0', 'Enable the course reserves feature.', NULL, 'YesNo');
428
INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowHoldNotes',0,'Show hold notes on OPAC','','YesNo');
428
INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacShowHoldNotes',0,'Show hold notes on OPAC','','YesNo');
429
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('CalculateFinesOnReturn','1','Switch to control if overdue fines are calculated on return or not', '', 'YesNo');
429
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('CalculateFinesOnReturn','1','Switch to control if overdue fines are calculated on return or not', '', 'YesNo');
430
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AcqItemStatusWhenReceived','0','This syspref set a status for item when items are created when receiving (e.g. 995\$o=5)','','Free');
(-)a/installer/data/mysql/updatedatabase.pl (+9 lines)
Lines 6983-6988 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ( Link Here
6983
    SetVersion($DBversion);
6983
    SetVersion($DBversion);
6984
}
6984
}
6985
6985
6986
$DBversion = "3.13.00.XXX";
6987
if(CheckVersion($DBversion)) {
6988
    $dbh->do(q{
6989
        INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('AcqItemSetSubfieldsWhenReceived','','Set subfields for item when items are created when receiving (e.g. o=5|a="foo bar")','','Free');
6990
    });
6991
    print "Upgrade to $DBversion done (Added AcqItemSetSubfieldsWhenReceived syspref)\n";
6992
    SetVersion($DBversion);
6993
}
6994
6986
6995
6987
=head1 FUNCTIONS
6996
=head1 FUNCTIONS
6988
6997
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/acquisitions.pref (-1 / +3 lines)
Lines 35-40 Acquisitions: Link Here
35
            - Default tax rates are
35
            - Default tax rates are
36
            - pref: gist
36
            - pref: gist
37
            - (enter in numeric form, 0.12 for 12%. First is the default. If you want more than 1 value, please separate with |)
37
            - (enter in numeric form, 0.12 for 12%. First is the default. If you want more than 1 value, please separate with |)
38
        -
39
            - pref: AcqItemSetSubfieldsWhenReceived
40
            - Set subfields for item when items are created when receiving (e.g. o=5|a="foo bar")
38
41
39
    Printing:
42
    Printing:
40
        -
43
        -
41
- 

Return to bug 8307