Constraints auf vendor/customer: Vorher alle verwaisten Einträge entfernen

[mfinanz.git] / bin / mozilla / gl.pl

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index 6d2b0a5597325094af7d57eb3c0061fe7ef97457..6ef1ca3e38cac853087a6248fa326e257b1513d9 100644 (file)
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -218,7 +218,7 @@ sub search {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;

-  my $cgi      = $main::cgi;
+  my $cgi      = $::request->{cgi};

 
   $form->{title} = $locale->text('Journal');
 
 
   $form->{title} = $locale->text('Journal');
 


@@ -342,14 +342,12 @@ sub search {
           <th align=right>| . $locale->text('Project Number') . qq|</th>
           <td colspan=3>$projectnumber</td>
         </tr>
           <th align=right>| . $locale->text('Project Number') . qq|</th>
           <td colspan=3>$projectnumber</td>
         </tr>

-        <tr>
-          <th align=right>| . $locale->text('From') . qq|</th>

  <tr>
     <th align=right>| . $locale->text('Employee') . qq|</th>
     <td colspan=3>$employeenumber</td>
   </tr>
   <tr>
  <tr>
     <th align=right>| . $locale->text('Employee') . qq|</th>
     <td colspan=3>$employeenumber</td>
   </tr>
   <tr>

-    <th align=right>| . $locale->text('Date Sorting') . qq|</th>
+    <th align=right>| . $locale->text('Filter date by') . qq|</th>

     <td colspan=3>
     <input name=datesort class=radio type=radio value=gldate checked>&nbsp;| . $locale->text('Booking Date') . qq|
     <input name=datesort class=radio type=radio value=transdate>&nbsp;| . $locale->text('Invoice Date') . qq|
     <td colspan=3>
     <input name=datesort class=radio type=radio value=gldate checked>&nbsp;| . $locale->text('Booking Date') . qq|
     <input name=datesort class=radio type=radio value=transdate>&nbsp;| . $locale->text('Invoice Date') . qq|


@@ -509,7 +507,7 @@ sub generate_report {
 
   my @columns = qw(
     gldate         transdate        id             reference      description
 
   my @columns = qw(
     gldate         transdate        id             reference      description

-    notes          source           debit          debit_accno   
+    notes          source           debit          debit_accno

     credit         credit_accno     debit_tax      debit_tax_accno
     credit_tax     credit_tax_accno projectnumbers balance employee
   );
     credit         credit_accno     debit_tax      debit_tax_accno
     credit_tax     credit_tax_accno projectnumbers balance employee
   );


@@ -863,7 +861,7 @@ sub display_rows {
 
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
   my $form     = $main::form;
   my %myconfig = %main::myconfig;

-  my $cgi      = $main::cgi;
+  my $cgi      = $::request->{cgi};

 
   $form->{debit_1}     = 0 if !$form->{"debit_1"};
   $form->{totaldebit}  = 0;
 
   $form->{debit_1}     = 0 if !$form->{"debit_1"};
   $form->{totaldebit}  = 0;


@@ -1349,7 +1347,7 @@ sub form_footer {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;

-  my $cgi      = $main::cgi;
+  my $cgi      = $::request->{cgi};

 
   my $follow_ups_block;
   if ($form->{id}) {
 
   my $follow_ups_block;
   if ($form->{id}) {