Skip to content

bugzilla
bugzilla
Commit 85f8adca authored by lpsolit%gmail.com's avatar lpsolit%gmail.com
Browse files
Options

Bug 312150: Some routines are not exported in Bugzilla/Config/Common.pm - Patch…

Bug 312150: Some routines are not exported in Bugzilla/Config/Common.pm - Patch by Frédéric Buclin <LpSolit@gmail.com> r=joel a=justdave
parent b8f2c324
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 1 deletion
Bugzilla/Config/Common.pm
View file @ 85f8adca
...@@ -60,7 +60,8 @@ use Bugzilla::Constants; ...@@ -60,7 +60,8 @@ use Bugzilla::Constants;
use base qw(Exporter); use base qw(Exporter);
@Bugzilla::Config::Common::EXPORT = @Bugzilla::Config::Common::EXPORT =
qw(check_sslbase check_priority check_severity check_platform qw(check_multi check_numeric check_regexp
check_sslbase check_priority check_severity check_platform
check_opsys check_shadowdb check_urlbase check_webdotbase check_opsys check_shadowdb check_urlbase check_webdotbase
check_netmask check_user_verify_class check_image_converter check_netmask check_user_verify_class check_image_converter
check_languages check_mail_delivery_method check_languages check_mail_delivery_method
......
editparams.cgi
View file @ 85f8adca
...@@ -27,6 +27,7 @@ use lib "."; ...@@ -27,6 +27,7 @@ use lib ".";
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Config qw(:DEFAULT :admin :params $datadir); use Bugzilla::Config qw(:DEFAULT :admin :params $datadir);
use Bugzilla::Config::Common;
require "globals.pl"; require "globals.pl";
use vars qw($vars @parampanels); use vars qw($vars @parampanels);
...@@ -51,6 +52,7 @@ my $current_module; ...@@ -51,6 +52,7 @@ my $current_module;
my @panels = (); my @panels = ();
foreach my $panel (@parampanels) { foreach my $panel (@parampanels) {
next if ($panel eq 'Common'); next if ($panel eq 'Common');
require "Bugzilla/Config/$panel.pm";
my @module_param_list = "Bugzilla::Config::${panel}"->get_param_list(); my @module_param_list = "Bugzilla::Config::${panel}"->get_param_list();
my $item = { name => lc($panel), my $item = { name => lc($panel),
current => ($current_panel eq lc($panel)) ? 1 : 0, current => ($current_panel eq lc($panel)) ? 1 : 0,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment