- or download this
package MyEditForm;
...
sub build_form
...
...
$self->add_field(start_date => MyDateField::MDY->new(size => ...));
}
- or download this
package MyWebApp;
...
sub init
...
...
}
- or download this
sub do_whatever
{
...
$app->show_page('edit_page');
}
- or download this
<!-- file: edit.mc -->
<html>
...
<%args>
$form
</%args>
- or download this
/mywebapp/edit?start_date=1/2/2005
/mywebapp/edit?start_date.month=1&start_date.day=2&start_date.year=200
+5
- or download this
$form->field('start_date.day')->input_value(1);
$form->field('start_date')->field('day')->input_value(1);
- or download this
$form->field('start_date')->input_value('1/31/1988');
$form->field('start_date')->input_value(DateTime->new(...));