use IkiWiki 3.00;
use Time::Local;
use DateTime;
+use CGI::FormBuilder;
#use Data::Dumper;
sub import {
= htmllink
( $params{page}
, $params{destpage}
- , $tag
+ , '/'.$tag
, linktext => $title
, noimageinline => 1
, title => $title );
{ class => "tag tag-$class"
, link => $link }
} @tags;
+ my $base = IkiWiki::dirname($event);
+ $base =~ s/[^a-zA-Z0-9-]/_/g;
return
{ hour => $hour
, link => $link
- , tags => \@tags };
+ , tags => \@tags
+ , base => $base };
}
sub events_of_pages ($%) {
my ($pages, %params) = @_;
?(month => $month):())
, (($date->year() or $date->month() or $date->day())
?(year => $date->year()):())
- , do => 'events'
+ , do => 'newevent'
, page => $params{destpage}
)
. qq{' rel='nofollow'>+</a>};
my @tags
= map {"<li\n class='".$_->{class}."'>".$_->{link}."</li>"}
@{$_->{tags}};
- "<ul\n class='events'><li class='event'>"
+ "<ul\n class='events'><li class='event event-$_->{base}'>"
. "<span class='head'>"
. (defined $_->{hour} ? "<span class='hour'>$_->{hour}</span>" : "")
. "<span class='link'>$_->{link}</span>"
my @tags
= map {"<li\n class='".$_->{class}."'>".$_->{link}."</li>"}
@{$_->{tags}};
- "<li\n class='event'>"
+ "<li\n class='event event-$_->{base}'>"
. "<span class='head'>"
. (defined $_->{hour} ? "<span class='hour'>$_->{hour}</span>" : "")
. "<span class='link'>$_->{link}</span>"
# new
sub tmpl ($$) {
my ($base, $model) = @_;
- my $page = IkiWiki::dirname($base).'/'.'templates/'.$model;
+ my $page = $base.'/'.'templates/'.$model;
my $file = defined srcfile($page, 1) ? '/'.$page : $model;
return template($file);
}