X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fconfig%2Fconfig-view.cgi;h=a52c1e97a890f64c8956d401bcb709f35e32f433;hb=00b3fa892f2fe5665fd6415a2806d706bff0e745;hp=13286cf212d9f5f850752f1ac2a20e95684d84d2;hpb=40a7b3dc653e099f7bd0bd762b649b04c4432db2;p=freeside.git
diff --git a/httemplate/config/config-view.cgi b/httemplate/config/config-view.cgi
index 13286cf21..a52c1e97a 100644
--- a/httemplate/config/config-view.cgi
+++ b/httemplate/config/config-view.cgi
@@ -16,6 +16,38 @@ Click on a configuration value to change it.
% }
%
% }
+% if ( @locales ) {
+(
+% if ( $locale ) {
+% $cgi->delete('locale');
+ global settings |
+% }
+
+invoice language options:
+
- <% ucfirst($section || 'unclassified') %> configuration options
+ <% ucfirst($section || 'unclassified') %>
+% if ( $curuser->option('show_confitem_counts') ) {
+ (<% scalar( @{ $section_items{$section} } ) %> items)
+% }
|
% foreach my $i (@{ $section_items{$section} }) {
@@ -86,11 +121,12 @@ Click on a configuration value to change it.
% if $agent && $cgi->param('showagent');
%
% #indentation :/
+% my $action = 'config.cgi?key=' . $i->key .
+% ";agentnum=$agentnum" . ($locale ? ";locale=$locale" : '');
<% include('/elements/popup_link.html',
- 'action' => 'config.cgi?key='. $i->key.
- ';agentnum='. $agentnum,
+ 'action' => $action,
'width' => $width,
'height' => $height,
'actionlabel' => 'Enter configuration value',
@@ -125,12 +161,12 @@ Click on a configuration value to change it.
|
% } elsif ( $type eq 'image' ) {
+% my $args = 'key=' . $i->key . ";agentnum=$agentnum;locale=$locale";
<% $conf->exists($i->key, $agentnum)
- ? ''
+ ? ''
: 'empty'
%>
|
@@ -138,18 +174,19 @@ Click on a configuration value to change it.
<% $conf->exists($i->key, $agentnum)
- ? qq!download!
+ ? 'download'
: ''
%>
|
% } elsif ( $type eq 'binary' ) {
+% my $args = 'key=' . $i->key . ";agentnum=$agentnum;locale=$locale";
<% $conf->exists($i->key, $agentnum)
- ? qq!download!
+ ? 'download'
: 'empty'
%>
|
@@ -174,7 +211,7 @@ Click on a configuration value to change it.
% } elsif ( $type eq 'checkbox' ) {
- YES' : 'ff0000">NO' %> |
+ YES' : 'ff0000">NO' %> |
% } elsif ( $type eq 'select' && $i->select_hash ) {
@@ -204,12 +241,20 @@ Click on a configuration value to change it.
+% if ( $i->multiple ) {
+ <% join(' ',
+ map { $_ . ": " . &{ $i->option_sub }($_) }
+ $conf->config($i->key,$agentnum)
+ )
+ %>
+% } else {
<% $conf->config($i->key, $agentnum) %>:
<% &{ $i->option_sub }( $conf->config($i->key, $agentnum) ) %>
+% }
|
-% } elsif ( $type =~ /^select-(part_svc|part_pkg|pkg_class)$/ ) {
+% } elsif ( $type =~ /^select-(part_svc|part_pkg|pkg_class|agent)$/ ) {
%
% my $table = $1;
% my $namecol = $namecol{$table};
@@ -315,12 +360,14 @@ my %namecol = (
'part_svc' => 'svc',
'part_pkg' => 'pkg',
'pkg_class' => 'classname',
+ 'agent' => 'agent',
);
%once>
<%init>
-die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+my $curuser = $FS::CurrentUser::CurrentUser;
+
+die "access denied" unless $curuser->access_right('Configuration');
my $page_agent = '';
my $title;
@@ -331,22 +378,48 @@ if ($cgi->param('agentnum') =~ /^(\d+)$/) {
die "Agent $page_agentnum not found!" unless $page_agent;
push @menubar, 'View all agents' => $p.'browse/agent.cgi';
+}
+
+my $conf = new FS::Conf;
+my $conf_global = $conf;
+
+my @locales = $conf_global->config('available-locales');
+
+# if this is set, we are in locale mode, so limit the displayed items
+# to those with per_locale.
+my $locale;
+my $locale_desc;
+if ( $cgi->param('locale') =~ /^\w+_\w+$/ ) {
+ $locale = $cgi->param('locale');
+ # and set the context on $conf
+ $conf = new FS::Conf { 'locale' => $locale, 'localeonly' => 1 };
+ my %locale_info = FS::Locales->locale_info($locale);
+ $locale_desc = "$locale_info{name} ($locale_info{country})";
+
+ $title = 'Invoice Configuration'; #for now it is only invoicing
+ $title .= ' for '.$page_agent->agent if $page_agent;
+ $title .= ', '.$locale_desc;
+
+} elsif ($page_agent) {
$title = 'Agent Configuration for '. $page_agent->agent;
+ $title .= ", $locale_desc" if $locale;
} else {
$title = 'Global Configuration';
}
-my $conf = new FS::Conf;
-
-my @config_items = grep { $page_agent ? $_->per_agent : 1 }
+my @config_items = grep { !defined($locale) or $_->per_locale }
+ grep { $page_agent ? $_->per_agent : 1 }
grep { $page_agent ? 1 : !$_->agentonly }
$conf->config_items;
my @deleteable = qw( invoice_latexreturnaddress invoice_htmlreturnaddress );
my %deleteable = map { $_ => 1 } @deleteable;
-my @sections = qw(required billing username password UI session shell BIND );
-push @sections, '', 'deprecated';
+my @sections = (qw(
+ required billing invoicing notification UI API self-service ticketing
+ network_monitoring username password session shell BIND telephony
+ ), '', 'deprecated'
+);
my %section_items = ();
foreach my $section (@sections) {