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