$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;
<div id="history">
<h2>Koha history timeline</h2>
+ [% IF ! timeline_read_error %]
<table style="cursor:pointer">
<thead>
<tr>
</tr>
[% END %]
</table>
+ [% ELSE %]
+ <div class="dialog alert">
+ Could not read the history.txt file. Please make sure <docdir> is correctly defined in koha-conf.xml.
+ </div>
+ [% END %]
</div>
</div>