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>

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 7b8e6e6..1409a09 100644 (file)
--- 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 7e7cb44..409aa4e 100755 (executable)
--- 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 {