Micheal, You've got the right idea there, that's generally how it's done and yes, it's a bit of a pain.
One other option is to fill the template without the form selections, then use HTML::FillInForm to set the form parameters. Another option if you're just dealing with date / time select menus is to use my HTML::Menu::DateTime to create the data structures suitable for filling the template. The distribution includes template files that you can use. It's available at http://search.cpan.org or http://sourceforge.net/projects/html-menu Cheers, Carl >>> "Michael Kraus" <[EMAIL PROTECTED]> 01/10/05 7:33 am >>> G'day all... I'm curious about using HTML::Template to pre-fill in form field values. What I'm currently using is this method <input name="my_input_box"<TMPL_IF NAME="my_input_box_value"> value="<TMPL_VAR NAME="my_input_box_value">"</TMPL_IF>> This works great for filling in text boxes. However, how can this be done for select boxes (drop-down lists)? Currently I've got a select box that looks like this: ---CUT--- <select name="my_select"> <TMPL_LOOP NAME="my_select_loop"> <option value="<TMPL_VAR NAME="id">"><TMPL_VAR NAME="description"></option> </TMPL_LOOP> </select> ---CUT--- I can't see how HTML::Template would cope with this in an automagic way. (???) I'm guessing, I could use ecma-script/j-script/javascript in the HTML with variables set to HTML::Template variables. Or something like the following: In Template: ---CUT--- <select name="my_select"> <TMPL_LOOP NAME="my_select_loop"> <option value="<TMPL_VAR NAME="id">"<TMPL_IF NAME="selected"> selected</TMPL_IF>><TMPL_VAR NAME="description"></option> </TMPL_LOOP> </select> ---CUT--- In code: ---CUT--- for $item (@$my_select_loop) { $item->{selected} = 1 if $item->{id} eq $cgi->param("id"); } [...] $template->param("my_select_loop" => $my_select_loop); print $cgi->header, $template->output; ---CUT--- Is there a simpler way, or am I just asking too much and should stop whinging and continue coding? :) TIA! Regards, Michael S. E. Kraus B. Info. Tech. (CQU), Dip. Business (Computing) Software Developer Wild Technology Pty Ltd _______________________________ ABN 98 091 470 692 Level 4 Tiara, 306/9 Crystal Street, Waterloo NSW 2017, Australia Telephone 1300-13-9453 | Facsimile 1300-88-9453 http://www.wildtechnology.net The information contained in this email message and any attachments may be confidential information and may also be the subject of client legal - legal professional privilege. If you are not the intended recipient, any use, interference with, disclosure or copying of this material is unauthorised and prohibited. This email and any attachments are also subject to copyright. No part of them may be reproduced, adapted or transmitted without the written permission of the copyright owner. If you have received this email in error, please immediately advise the sender by return email and delete the message from your system. -------------------------------------------------------------------------------- Wild Technology Pty Ltd , ABN 98 091 470 692 Sales - Ground Floor, 265/8 Lachlan Street, Waterloo NSW 2017 Admin - Level 4 Tiara, 306/9 Crystal Street, Waterloo NSW 2017 Telephone 1300-13-9453 | Facsimile 1300-88-9453 http://www.wildtechnology.net DISCLAIMER & CONFIDENTIALITY NOTICE: The information contained in this email message and any attachments may be confidential information and may also be the subject of client legal - legal professional privilege. If you are not the intended recipient, any use, interference with, disclosure or copying of this material is unauthorised and prohibited. This email and any attachments are also subject to copyright. No part of them may be reproduced, adapted or transmitted without the written permission of the copyright owner. If you have received this email in error, please immediately advise the sender by return email and delete the message from your system. ------------------------------------------------------- The SF.Net email is sponsored by: Beat the post-holiday blues Get a FREE limited edition SourceForge.net t-shirt from ThinkGeek. It's fun and FREE -- well, almost....http://www.thinkgeek.com/sfshirt _______________________________________________ Html-template-users mailing list Html-template-users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/html-template-users ------------------------------------------------------- The SF.Net email is sponsored by: Beat the post-holiday blues Get a FREE limited edition SourceForge.net t-shirt from ThinkGeek. It's fun and FREE -- well, almost....http://www.thinkgeek.com/sfshirt _______________________________________________ Html-template-users mailing list Html-template-users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/html-template-users
