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 |
- |
|
|