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