I've tried the LinksSQL and Perl forums with no luck - can ANYONE help me figure this out?
I've put the following pull down menu values in the add and add failure sub routines (Links SQL) in html_templates, but when the add failure template is called it's just displaying the menu value passed to it as text, instead of returning the pull-down menu with the users selection preserved. Can anyone give me a pointer on how to get it to return the error page with their selection perserved but in the pull-down menu?
Thanks, Regan.
sub site_html_add_failure {
# --------------------------------------------------------
# This routine determines how the add failure page will look like.
#
my ($tags, $dynamic) = @_;
my $template = defined $dynamic ? $dynamic->param('t') : undef;
(ref $tags eq 'HASH') or croak "HTML_TEMPLATES: Argument '$tags' must be hash reference";
my $linktype .= qq|
<SELECT NAME="Link_Type">\n
<option value="">Select One...\n
<option value="Business">Business\n
<option value="Non-profit">Non-profit\n
<option value="Personal">Personal\n
<option value="Club/Org">Club/Org\n
<option value="Government">Government\n
</select>\n
|;
defined $dynamic and &load_user ($dynamic, $tags);
my $output = &load_template ('add_error.html', {
Link_Type => $linktype,
%$tags,
%GLOBALS
}, undef, $template);
defined $dynamic and &clean_output($dynamic, \$output);
print $output;
}
I've put the following pull down menu values in the add and add failure sub routines (Links SQL) in html_templates, but when the add failure template is called it's just displaying the menu value passed to it as text, instead of returning the pull-down menu with the users selection preserved. Can anyone give me a pointer on how to get it to return the error page with their selection perserved but in the pull-down menu?
Thanks, Regan.
sub site_html_add_failure {
# --------------------------------------------------------
# This routine determines how the add failure page will look like.
#
my ($tags, $dynamic) = @_;
my $template = defined $dynamic ? $dynamic->param('t') : undef;
(ref $tags eq 'HASH') or croak "HTML_TEMPLATES: Argument '$tags' must be hash reference";
my $linktype .= qq|
<SELECT NAME="Link_Type">\n
<option value="">Select One...\n
<option value="Business">Business\n
<option value="Non-profit">Non-profit\n
<option value="Personal">Personal\n
<option value="Club/Org">Club/Org\n
<option value="Government">Government\n
</select>\n
|;
defined $dynamic and &load_user ($dynamic, $tags);
my $output = &load_template ('add_error.html', {
Link_Type => $linktype,
%$tags,
%GLOBALS
}, undef, $template);
defined $dynamic and &clean_output($dynamic, \$output);
print $output;
}