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

(-)a/C4/Acquisition.pm (-2 / +3 lines)
Lines 41-47 use MARC::Record; Link Here
41
41
42
use Time::localtime;
42
use Time::localtime;
43
43
44
use vars qw(@ISA @EXPORT);
44
use vars qw(@ISA @EXPORT @EXPORT_OK);
45
45
46
BEGIN {
46
BEGIN {
47
    require Exporter;
47
    require Exporter;
Lines 91-102 BEGIN { Link Here
91
91
92
        &FillWithDefaultValues
92
        &FillWithDefaultValues
93
    );
93
    );
94
        @EXPORT_OK = qw( populate_order_with_prices );
94
}
95
}
95
96
96
97
97
98
98
99
99
100
101
100
sub GetOrderFromItemnumber {
102
sub GetOrderFromItemnumber {
101
    my ($itemnumber) = @_;
103
    my ($itemnumber) = @_;
102
    my $dbh          = C4::Context->dbh;
104
    my $dbh          = C4::Context->dbh;
103
- 

Return to bug 18267