Example program
#!/usr/bin/perl use strict; use warnings; use CGI ':standard'; use HTML::Menu::DateTime; use HTML::Template; my $template = HTML::Template->new (filename => 'date.tmpl'); my $menu = HTML::Menu::DateTime->new (date => '2004-09-28'); $template->param (day => $menu->day_menu, month => $menu->month_menu, year => $menu->year_menu); print header(), print $template->output;
The date.tmpl template file
I've listed a couple of to-do's in the 'feature requests' in the project's homepage at http://sourceforge.net/projects/html-menu/.<html> <body> <form method="POST" action=""> <TMPL_INCLUDE day.tmpl> <TMPL_INCLUDE month.tmpl> <TMPL_INCLUDE year.tmpl> <input type="submit" name="Submit" value="Submit"> </form> </body> </html>
|
|---|