ok.. i just noticed that i forgot to update something in 1.11 when i switched over..
first go to Admin_HTML.pm and change
to
and then the get_template_list can be..
# --------------------------------------------------------
# Returns a list of all the templates (select list).
#
my ($name, $default) = @_;
my (@tpls, $tpl, $output);
opendir (TPL, "$LINKS{admin_root_path}/templates") or die "Invalid template directory: $LINKS{admin_root_path}/templates. Reason: $!";
@tpls = grep {!/^\./} readdir TPL;
closedir (TPL);
$output = qq~<select name="$name"><option value="">----~;
foreach $tpl (sort @tpls) {
($default eq $tpl) ? ($output .= qq~<option value="$tpl" SELECTED>$tpl~) :
($output .= qq~<option value="$tpl">$tpl~);
}
$output .= "</select>";
return $output;
}
and the line in build_template_row
to
jerry
[This message has been edited by widgetz (edited January 11, 2000).]
first go to Admin_HTML.pm and change
Code:
$templates = &get_template_list ($in, $db, $save_as);to
Code:
$templates = &get_template_list ("edit_tpl", $save_as);and then the get_template_list can be..
Code:
sub get_template_list { # --------------------------------------------------------
# Returns a list of all the templates (select list).
#
my ($name, $default) = @_;
my (@tpls, $tpl, $output);
opendir (TPL, "$LINKS{admin_root_path}/templates") or die "Invalid template directory: $LINKS{admin_root_path}/templates. Reason: $!";
@tpls = grep {!/^\./} readdir TPL;
closedir (TPL);
$output = qq~<select name="$name"><option value="">----~;
foreach $tpl (sort @tpls) {
($default eq $tpl) ? ($output .= qq~<option value="$tpl" SELECTED>$tpl~) :
($output .= qq~<option value="$tpl">$tpl~);
}
$output .= "</select>";
return $output;
}
and the line in build_template_row
Code:
my $select = &get_template_list ($value, $name);to
Code:
my $select = &get_template_list ($name, $value);jerry
[This message has been edited by widgetz (edited January 11, 2000).]