@@ -, +, @@ history.txt --- about.pl | 58 ++++++++++++---------- koha-tmpl/intranet-tmpl/prog/en/modules/about.tt | 6 +++ 2 files changed, 37 insertions(+), 27 deletions(-) --- a/about.pl +++ a/about.pl @@ -157,39 +157,43 @@ if ( defined C4::Context->config('docdir') ) { $docdir = C4::Context->config('intranetdir') . '/docs'; } -open( my $file, "<", "$docdir" . "/history.txt" ); -my $i = 0; +if ( open( my $file, "<", "$docdir" . "/history.txt" ) ) { -my @rows2 = (); -my $row2 = []; + my $i = 0; -my @lines = <$file>; -close($file); + my @rows2 = (); + my $row2 = []; -shift @lines; #remove header row + my @lines = <$file>; + close($file); -foreach (@lines) { - my ( $date, $desc, $tag ) = split(/\t/); - if(!$desc && $date=~ /(?<=\d{4})\s+/) { - ($date, $desc)= ($`, $'); - } - push( - @rows2, - { - date => $date, - desc => $desc, + shift @lines; #remove header row + + foreach (@lines) { + my ( $date, $desc, $tag ) = split(/\t/); + if(!$desc && $date=~ /(?<=\d{4})\s+/) { + ($date, $desc)= ($`, $'); } - ); -} + push( + @rows2, + { + date => $date, + desc => $desc, + } + ); + } -my $table2 = []; -#foreach my $row2 (@rows2) { -foreach (@rows2) { - push (@$row2, $_); - push( @$table2, { row2 => $row2 } ); - $row2 = []; -} + my $table2 = []; + #foreach my $row2 (@rows2) { + foreach (@rows2) { + push (@$row2, $_); + push( @$table2, { row2 => $row2 } ); + $row2 = []; + } -$template->param( table2 => $table2 ); + $template->param( table2 => $table2 ); +} else { + $template->param( timeline_read_error => 1 ); +} output_html_with_http_headers $query, $cookie, $template->output; --- a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tt @@ -530,6 +530,7 @@

Koha history timeline

+ [% IF ! timeline_read_error %] @@ -546,6 +547,11 @@ [% END %]
+ [% ELSE %] +
+ Could not read the history.txt file. Please make sure <docdir> is correctly defined in koha-conf.xml. +
+ [% END %]
--