From f4ef34c13603e8f373451b2739dd4528f8aba6df Mon Sep 17 00:00:00 2001
From: Katrin Fischer <Katrin.Fischer.83@web.de>
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 <hector.hecaxmmx@gmail.com>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
---
 .../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 @@
 		<li><a href="/cgi-bin/koha/reports/catalogue_stats.pl">Catalog</a></li>
 		<li><a href="/cgi-bin/koha/reports/issues_stats.pl">Circulation</a></li>
 		<li><a href="/cgi-bin/koha/reports/serials_stats.pl">Serials</a></li>
-        <li><a href="/cgi-bin/koha/reports/cash_register_stats.pl">Cash Register</a></li>
+        <li><a href="/cgi-bin/koha/reports/cash_register_stats.pl">Cash register</a></li>
 		<li><a href="/cgi-bin/koha/reports/reserves_stats.pl">Holds</a></li>
       </ul>
 
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