Revision fd0a62ab
Von Moritz Bunkus vor fast 12 Jahren hinzugefügt
| SL/DB/Manager/Order.pm | ||
|---|---|---|
| 2 | 2 |
|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 |
use SL::DB::Helper::Manager; |
|
| 6 |
use base qw(SL::DB::Helper::Manager); |
|
| 5 |
use parent qw(SL::DB::Helper::Manager); |
|
| 6 |
|
|
| 7 |
use SL::DB::Helper::Paginated; |
|
| 8 |
use SL::DB::Helper::Sorted; |
|
| 7 | 9 |
|
| 8 | 10 |
sub object_class { 'SL::DB::Order' }
|
| 9 | 11 |
|
| ... | ... | |
| 22 | 24 |
die "Unknown type $type"; |
| 23 | 25 |
} |
| 24 | 26 |
|
| 27 |
sub _sort_spec {
|
|
| 28 |
return ( |
|
| 29 |
default => [ 'transdate', 1 ], |
|
| 30 |
nulls => {
|
|
| 31 |
transaction_description => 'FIRST', |
|
| 32 |
customer_name => 'FIRST', |
|
| 33 |
default => 'LAST', |
|
| 34 |
}, |
|
| 35 |
columns => {
|
|
| 36 |
SIMPLE => 'ALL', |
|
| 37 |
customer => 'customer.name', |
|
| 38 |
globalprojectnumber => 'lower(globalproject.projectnumber)', |
|
| 39 |
map { ( $_ => "lower(oe.$_)" ) } qw(ordnumber quonumber cusordnumber shippingpoint shipvia notes intnotes transaction_description),
|
|
| 40 |
}); |
|
| 41 |
} |
|
| 42 |
|
|
| 43 |
sub default_objects_per_page { 40 }
|
|
| 44 |
|
|
| 25 | 45 |
1; |
Auch abrufbar als: Unified diff
Rose-Order-Manager: Sortier-Spezifikation und Paginating