Bug 7368 - General staff client typo omnibus

[koha-ffzg.git] / about.pl

diff --git a/about.pl b/about.pl
index 249f245..d196a7f 100755 (executable)
--- a/about.pl
+++ b/about.pl
@@ -108,6 +108,13 @@ foreach (@components) {
         $row = [];
     }
 }
+# Processing the last line (if there are any modules left)
+if (scalar(@$row) > 0) {
+    # Extending $row to the table size
+    $$row[3] = '';
+    # Pushing the last line
+    push (@$table, {row => $row});
+}
 ## ## $table
 
 $template->param( table => $table );
@@ -118,14 +125,14 @@ $template->param( table => $table );
 
 #get file location
 my $dir = C4::Context->config('intranetdir');
-open( FILE, "$dir" . "/docs/history.txt" );
+open( my $file, "<", "$dir" . "/docs/history.txt" );
 my $i = 0;
 
 my @rows2 = ();
 my $row2  = [];
 
-my @lines = <FILE>;
-close(FILE);
+my @lines = <$file>;
+close($file);
 
 shift @lines; #remove header row