|
Lines 157-195
if ( defined C4::Context->config('docdir') ) {
Link Here
|
| 157 |
$docdir = C4::Context->config('intranetdir') . '/docs'; |
157 |
$docdir = C4::Context->config('intranetdir') . '/docs'; |
| 158 |
} |
158 |
} |
| 159 |
|
159 |
|
| 160 |
open( my $file, "<", "$docdir" . "/history.txt" ); |
160 |
if ( open( my $file, "<", "$docdir" . "/history.txt" ) ) { |
| 161 |
my $i = 0; |
|
|
| 162 |
|
161 |
|
| 163 |
my @rows2 = (); |
162 |
my $i = 0; |
| 164 |
my $row2 = []; |
|
|
| 165 |
|
163 |
|
| 166 |
my @lines = <$file>; |
164 |
my @rows2 = (); |
| 167 |
close($file); |
165 |
my $row2 = []; |
| 168 |
|
166 |
|
| 169 |
shift @lines; #remove header row |
167 |
my @lines = <$file>; |
|
|
168 |
close($file); |
| 170 |
|
169 |
|
| 171 |
foreach (@lines) { |
170 |
shift @lines; #remove header row |
| 172 |
my ( $date, $desc, $tag ) = split(/\t/); |
171 |
|
| 173 |
if(!$desc && $date=~ /(?<=\d{4})\s+/) { |
172 |
foreach (@lines) { |
| 174 |
($date, $desc)= ($`, $'); |
173 |
my ( $date, $desc, $tag ) = split(/\t/); |
| 175 |
} |
174 |
if(!$desc && $date=~ /(?<=\d{4})\s+/) { |
| 176 |
push( |
175 |
($date, $desc)= ($`, $'); |
| 177 |
@rows2, |
|
|
| 178 |
{ |
| 179 |
date => $date, |
| 180 |
desc => $desc, |
| 181 |
} |
176 |
} |
| 182 |
); |
177 |
push( |
| 183 |
} |
178 |
@rows2, |
|
|
179 |
{ |
| 180 |
date => $date, |
| 181 |
desc => $desc, |
| 182 |
} |
| 183 |
); |
| 184 |
} |
| 184 |
|
185 |
|
| 185 |
my $table2 = []; |
186 |
my $table2 = []; |
| 186 |
#foreach my $row2 (@rows2) { |
187 |
#foreach my $row2 (@rows2) { |
| 187 |
foreach (@rows2) { |
188 |
foreach (@rows2) { |
| 188 |
push (@$row2, $_); |
189 |
push (@$row2, $_); |
| 189 |
push( @$table2, { row2 => $row2 } ); |
190 |
push( @$table2, { row2 => $row2 } ); |
| 190 |
$row2 = []; |
191 |
$row2 = []; |
| 191 |
} |
192 |
} |
| 192 |
|
193 |
|
| 193 |
$template->param( table2 => $table2 ); |
194 |
$template->param( table2 => $table2 ); |
|
|
195 |
} else { |
| 196 |
$template->param( timeline_read_error => 1 ); |
| 197 |
} |
| 194 |
|
198 |
|
| 195 |
output_html_with_http_headers $query, $cookie, $template->output; |
199 |
output_html_with_http_headers $query, $cookie, $template->output; |