<%attr> ajax => 1 <%args> $start_time => undef $end_time => undef $duration => 99 $active => undef $chnum => undef $date => undef $prio => 50 $text => undef $epg => undef <%init> $text =~ s/~$//;
@(Aktive): @(Ja) @(Nein)
@(Kanal):
@(Datum):
@(Startzeit):
@(Endzeit):
@(Prioritaet):
@(Lebenszeit):
@(Text)
<%filter> use HTML::FillInForm; # auto fill in form fields my $fif = HTML::FillInForm->new(); $_ = $fif->fill( scalarref => \$_, fdat => \%ARGS );