|
Lines 17-27
sub fetch {
Link Here
|
| 17 |
return unless $ordernumber; |
17 |
return unless $ordernumber; |
| 18 |
my $schema = Koha::Database->new->schema; |
18 |
my $schema = Koha::Database->new->schema; |
| 19 |
|
19 |
|
| 20 |
my $rs = |
20 |
my $order = |
| 21 |
$schema->resultset('Aqorder')->search( { ordernumber => $ordernumber }, |
21 |
$schema->resultset('Aqorder')->find( { ordernumber => $ordernumber }, |
| 22 |
{ result_class => 'DBIx::Class::ResultClass::HashRefInflator' } ); |
22 |
{ result_class => 'DBIx::Class::ResultClass::HashRefInflator' } ); |
| 23 |
|
23 |
return $class->new( $order ); |
| 24 |
return $class->new( $rs->first ); |
|
|
| 25 |
} |
24 |
} |
| 26 |
|
25 |
|
| 27 |
sub insert { |
26 |
sub insert { |
| 28 |
- |
|
|