Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Interactive Form Creation/Maintenance

by Sherlock (Deacon)
on May 10, 2001 at 00:18 UTC ( #79235=note: print w/ replies, xml ) Need Help??


in reply to Interactive Form Creation/Maintenance

First of all, I'd like to thank everyone for their help on this topic - I think I came out of it with exactly what I was looking for. Using a solution presented by Sifmole, I was able to use HTML::Template to separate my Perl script from my HTML and make a (I believe) much more maintainable script. This is what I ended up with:

# editForm.tmpl - The template file I'm now using <HTML> <HEAD> <TITLE>Administrative Schedule Editor</TITLE> </HEAD> <BODY> <FORM method="post" ACTION="http://www.mediaforgeproductions.com/cgi-b +in/SchedBuilder/login.pl"> <TABLE BORDER="1"> <TR> <TD VALIGN="top"> <TABLE BORDER="1"> <TR> <TD><CENTER>Days with Appointments</CENTER></TD> </TR> <TR> <TD> <CENTER> <SELECT NAME="daysList" SIZE="5"> <TMPL_LOOP NAME="daysList"> <OPTION VALUE="<TMPL_VAR NAME="daysListValue">"><TMPL_VA +R NAME="daysListValueText"> </TMPL_LOOP> </SELECT> </CENTER> </TD> </TR> <TR> <TD> <CENTER><INPUT TYPE="SUBMIT" VALUE="Display Appts"></CENTE +R> </TD> </TR> </TABLE> </TD> <TD VALIGN="top"> <TABLE BORDER="1"> <TR> <TD><CENTER>Appointments:</CENTER></TD> </TR> <TR> <TD> <CENTER> <SELECT NAME="apptsList" SIZE="5"> <TMPL_LOOP NAME="apptsList"> <OPTION VALUE="<TMPL_VAR NAME="apptsListValue">"><TMPL +_VAR NAME="apptsListValueText"> </TMPL_LOOP> </SELECT> </CENTER> </TD> </TR> </TABLE> </TD> </TR> </TABLE> </FORM> </BODY> </HTML> # Perl file # # For brevity, I've only included the code # to fill one of the two select boxes. my $template = HTML::Template->new(filename => 'editForm.tmpl'); my @dateList; foreach my $element (keys %calendar) { push @dateList, {'daysListValue' => $element, 'daysListValueText' => + $element}; } $template->param( daysList => \@dateList, apptsList => \@apptTimeList ); print $template->output;
I'm sorry that this post has been so long, but I felt that this code could be useful to anyone that might run into a similar issue in the future. Again, thanks for all your help.

- Sherlock

Skepticism is the source of knowledge as much as knowledge is the source of skepticism.


Comment on Re: Interactive Form Creation/Maintenance
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://79235]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (9)
As of 2015-07-31 00:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (273 votes), past polls