Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix table creation

  • Loading branch information...
commit 2369a8c145135251ae05779f3dcd404c26a6c1af 1 parent d992115
@szabgab authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 lib/PEG.pm
View
4 lib/PEG.pm
@@ -112,7 +112,9 @@ get '/events/table' => sub {
#$date .= '-' . join('.', $dt->year, $dt->month, $dt->day);
$date .= '-' . join('.', @date);
}
- $html .= qq(<tr><td>$date</td><td><a href="$e-{>url}">$e->{title}</a></td><td>$e->{address}</td><td>$wiki</td></tr>\n);
+ #$_ ||= '' for ($date, $e->{url}, $e->{title}, $e->{address}, $wiki);
+ my $link = $e->{url} ? qq(<a href="$e->{url}">$e->{title}</a>) : $e->{title};
+ $html .= qq(<tr><td>$date</td><td>$link</td><td>$e->{address}</td><td>$wiki</td></tr>\n);
}
$html .= "</table>\n";
Please sign in to comment.
Something went wrong with that request. Please try again.