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