Presenter: Neue Struktur in weiteren Belegen

[mfinanz.git] / SL / DB / Helper / LinkedRecords.pm

diff --git a/SL/DB/Helper/LinkedRecords.pm b/SL/DB/Helper/LinkedRecords.pm
index 5ad49257c50e275e7275ab1eef8071db68e85222..bf91e6a7b0ce6eaf3e923e390e3d7df55523ad98 100644 (file)
--- a/SL/DB/Helper/LinkedRecords.pm
+++ b/SL/DB/Helper/LinkedRecords.pm
@@ -312,6 +312,7 @@ sub sort_linked_records {
                   'SL::DB::PurchaseInvoice' => sub { $_[0]->invnumber },
                   'SL::DB::RequirementSpec' => sub { $_[0]->id },
                   'SL::DB::Letter'          => sub { $_[0]->letternumber },
+                  'SL::DB::ShopOrder'       => sub { $_[0]->shop_ordernumber },
                   UNKNOWN                   => '9999999999999999',
                 );
   my $number_xtor = sub {
@@ -341,6 +342,7 @@ sub sort_linked_records {
               'SL::DB::PurchaseInvoice' => 150,
               'SL::DB::PurchaseInvoice' => 150,
               'SL::DB::Letter'          => 200,
+              'SL::DB::ShopOrder'       => 250,
               UNKNOWN                   => 999,
             );
   my $score_xtor = sub {