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

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

Return to bug 18267