Merge branch 'pflichtenhefte'

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

diff --git a/SL/DB/Helper/LinkedRecords.pm b/SL/DB/Helper/LinkedRecords.pm
index dd22863d124fc28b9a458892c23af3b81ea4b301..3c26b01b0b55a4003a98dee3ee7f1dcdef6bca2a 100644 (file)
--- a/SL/DB/Helper/LinkedRecords.pm
+++ b/SL/DB/Helper/LinkedRecords.pm
@@ -149,6 +149,7 @@ sub sort_linked_records {
                   'SL::DB::DeliveryOrder'   => sub { $_[0]->donumber },
                   'SL::DB::Invoice'         => sub { $_[0]->invnumber },
                   'SL::DB::PurchaseInvoice' => sub { $_[0]->invnumber },
                   'SL::DB::DeliveryOrder'   => sub { $_[0]->donumber },
                   'SL::DB::Invoice'         => sub { $_[0]->invnumber },
                   'SL::DB::PurchaseInvoice' => sub { $_[0]->invnumber },

+                  'SL::DB::RequirementSpec' => sub { $_[0]->id },

                   UNKNOWN                   => '9999999999999999',
                 );
   my $number_xtor = sub {
                   UNKNOWN                   => '9999999999999999',
                 );
   my $number_xtor = sub {


@@ -165,6 +166,7 @@ sub sort_linked_records {
 
   my %scores;
   %scores = ( 'SL::DB::SalesProcess'    =>  10,
 
   my %scores;
   %scores = ( 'SL::DB::SalesProcess'    =>  10,

+              'SL::DB::RequirementSpec' =>  15,

               'SL::DB::Order'           =>  sub { $scores{ $_[0]->type } },
               sales_quotation           =>  20,
               sales_order               =>  30,
               'SL::DB::Order'           =>  sub { $scores{ $_[0]->type } },
               sales_quotation           =>  20,
               sales_order               =>  30,