return $addr;
}
-sub mainturl { package_links(maint => $_[0], links_only => 1); }
+sub mainturl { package_links(maintainer => $_[0], links_only => 1); }
sub submitterurl { package_links(submitter => $_[0], links_only => 1); }
sub htmlize_maintlinks {
my ($prefixfunc, $maints) = @_;
# we'll add extra comands here once I figure out what they
# should be
}
- # add in a few utility routines
- $variables->{output_select_options} = sub {
- my ($options,$value) = @_;
- my @options = @{$options};
- my $output = '';
- while (my ($o_value,$name) = splice @options,0,2) {
- my $selected = '';
- if (defined $value and $o_value eq $value) {
- $selected = ' selected';
- }
- $output .= q(<option value=").html_escape($o_value).qq("$selected>).
- html_escape($name).qq(</option>\n);
- }
- return $output;
- };
- $variables->{make_list} = sub { make_list(@_);
- };
# now at this point, we're ready to create the template
return Debbugs::Text::fill_in_template(template=>$param{template},
(exists $param{language}?(language=>$param{language}):()),