Re: 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;
[download]

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


Think about Loose Coupling
	PerlMonks