]> wagnertech.de Git - mfinanz.git/blobdiff - bin/mozilla/wh.pl
SEPA reference nach SEPA-Standard zulässigen Wert (140) erhöht
[mfinanz.git] / bin / mozilla / wh.pl
index fb359085e940b04ed9c13aa63662878416b7f68d..fe37c26da727caf5c5a2300f204e9ad41afc1098 100644 (file)
@@ -23,7 +23,8 @@
 # GNU General Public License for more details.
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
 #
 #######################################################################
 #
@@ -754,14 +755,14 @@ sub generate_journal {
 
    my $allrows = 0;
    $allrows = 1 if $form->{report_generator_output_format} ne 'HTML' ;
+
    # manual paginating
    my $pages = {};
    $pages->{per_page}        = $::form->{per_page} || 15;
    my $first_nr = ($page - 1) * $pages->{per_page};
    my $last_nr  = $first_nr + $pages->{per_page};
    my $idx       = 0;
+
   foreach my $entry (@contents) {
     $entry->{qty}        = $form->format_amount_units('amount'     => $entry->{qty},
                                                       'part_unit'  => $entry->{partunit},
@@ -977,7 +978,7 @@ sub generate_report {
     }
 
     if ( $allrows || ($idx >= $first_nr && $idx < $last_nr )) {
-       $report->add_data($row_set);
+      $report->add_data($row_set);
     }
     $idx++;
   }