From f4ef34c13603e8f373451b2739dd4528f8aba6df Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Thu, 28 Apr 2016 19:58:32 +0200 Subject: [PATCH] Bug 6934: QA follow-up - fixed tabs - fixed capitalization on reports start page Signed-off-by: Hector Castro Signed-off-by: Katrin Fischer Signed-off-by: Kyle M Hall --- .../prog/en/modules/reports/reports-home.tt | 2 +- reports/cash_register_stats.pl | 38 +++++++++---------- 2 files changed, 19 insertions(+), 21 deletions(-) diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/reports-home.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/reports/reports-home.tt index 7b8e6e696e..1409a09ea9 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/reports-home.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/reports/reports-home.tt @@ -35,7 +35,7 @@
  • Catalog
  • Circulation
  • Serials
  • -
  • Cash Register
  • +
  • Cash register
  • Holds
  • diff --git a/reports/cash_register_stats.pl b/reports/cash_register_stats.pl index 7e7cb44e4b..409aa4e676 100755 --- a/reports/cash_register_stats.pl +++ b/reports/cash_register_stats.pl @@ -25,8 +25,6 @@ use C4::Circulation; use DateTime; use Koha::DateUtils; use Text::CSV::Encoded; -#use Data::Dumper; -#use Smart::Comments; my $input = new CGI; my $dbh = C4::Context->dbh; @@ -153,32 +151,32 @@ if ($do_it) { $csv or die "Text::CSV::Encoded->new({binary => 1}) FAILED: " . Text::CSV::Encoded->error_diag(); my @headers = (); push @headers, "mfirstname", - "cardnumber", - "bfirstname", - "branchname", - "date", - "accounttype", - "amount", - "title", - "barcode", - "itype"; + "cardnumber", + "bfirstname", + "branchname", + "date", + "accounttype", + "amount", + "title", + "barcode", + "itype"; if ($csv->combine(@headers)) { $content .= Encode::decode('UTF-8', $csv->string()) . "\n"; } else { push @$q_errors, { combine => 'HEADER ROW: ' . $csv->error_diag() } ; } foreach my $row (@loopresult) { - my @rowValues = (); + my @rowValues = (); push @rowValues, $row->{mfirstname}, $row->{cardnumber}, - $row->{bfirstname}, - $row->{branchname}, - $row->{date}, - $row->{accounttype}, - $row->{amount}, - $row->{title}, - $row->{barcode}; - $row->{itype}; + $row->{bfirstname}, + $row->{branchname}, + $row->{date}, + $row->{accounttype}, + $row->{amount}, + $row->{title}, + $row->{barcode}; + $row->{itype}; if ($csv->combine(@rowValues)) { $content .= Encode::decode('UTF-8',$csv->string()) . "\n"; } else { -- 2.39.5