Die Variablen wurden beim Umwandeln zu spaet gesichert
authorPhilip Reetz <p.reetz@linet-services.de>
Mon, 18 May 2009 16:10:05 +0000 (16:10 +0000)
committerPhilip Reetz <p.reetz@linet-services.de>
Mon, 18 May 2009 16:10:05 +0000 (16:10 +0000)
bin/mozilla/oe.pl

index b337842..43b360f 100644 (file)
@@ -205,6 +205,7 @@ sub order_links {
   $form->{jsscript} = 1;
 
   my $editing = $form->{id};
   $form->{jsscript} = 1;
 
   my $editing = $form->{id};
+  $form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes));
 
   OE->retrieve(\%myconfig, \%$form);
 
 
   OE->retrieve(\%myconfig, \%$form);
 
@@ -217,7 +218,6 @@ sub order_links {
 
   $form->{"$form->{vc}_id"} ||= $form->{"all_$form->{vc}"}->[0]->{id} if $form->{"all_$form->{vc}"};
 
 
   $form->{"$form->{vc}_id"} ||= $form->{"all_$form->{vc}"}->[0]->{id} if $form->{"all_$form->{vc}"};
 
-  $form->backup_vars(qw(payment_id language_id taxzone_id salesman_id taxincluded cp_id intnotes));
   $form->{shipto} = 1 if $form->{id};
 
   # get customer / vendor
   $form->{shipto} = 1 if $form->{id};
 
   # get customer / vendor
@@ -342,7 +342,7 @@ sub form_header {
   $credittext = $locale->text('Credit Limit exceeded!!!');
 
   my $follow_up_vc                =  $form->{ $form->{vc} eq 'customer' ? 'customer' : 'vendor' };
   $credittext = $locale->text('Credit Limit exceeded!!!');
 
   my $follow_up_vc                =  $form->{ $form->{vc} eq 'customer' ? 'customer' : 'vendor' };
-  $follow_up_vc                   =~ s/--\d*\s*$//;
+  $follow_up_vc                   =~ s/--.*?//;
   $TMPL_VAR{follow_up_trans_info} =  ($form->{type} =~ /_quotation$/ ? $form->{quonumber} : $form->{ordnumber}) . " ($follow_up_vc)";
 
   if ($form->{id}) {
   $TMPL_VAR{follow_up_trans_info} =  ($form->{type} =~ /_quotation$/ ? $form->{quonumber} : $form->{ordnumber}) . " ($follow_up_vc)";
 
   if ($form->{id}) {