add back-office xmlrpc api and daemon, RT#27958

[freeside.git] / httemplate / config / config-view.cgi

diff --git a/httemplate/config/config-view.cgi b/httemplate/config/config-view.cgi
index 08f6c10..8472dd6 100644 (file)
--- 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');
+    <a href="<%$cgi->self_url%>">global settings</a> | 
+% }
+<script type='text/javascript'>
+function changeLocale(what) {
+  //var what = document.getElementById('select-locale');
+  if(what.selectedIndex > 0) {
+    what.form.submit();
+  }
+}
+</script>
+invoice language options: 
+<form action="<% $cgi->self_url %>" method="GET" style="display:inline;">
+<& /elements/select.html,
+    'field' => 'locale',
+    'options' => [ '', grep { $_ ne 'en_US'} @locales ],
+    'labels'  => { map { 
+        my %info = FS::Locales->locale_info($_);
+        $_ => "$info{name} ($info{country})"
+    } grep { $_ ne 'en_US' } @locales },
+    'curr_value' => $locale,
+    'id' => 'select-locale',
+    'onchange' => 'changeLocale'
+    &>
+  )
+%   $cgi->param('locale', $locale);
+% }
+</form>
+
 <BR><BR>
 
 <% include('/elements/init_overlib.html') %>
@@ -89,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" : '');
 
     <tr>
       <td><% include('/elements/popup_link.html',
-                       'action'      => 'config.cgi?key='.      $i->key.
-                                                  ';agentnum='. $agentnum,
+                       'action'      => $action,
                        'width'       => $width,
                        'height'      => $height,
                        'actionlabel' => 'Enter configuration value',
@@ -128,12 +161,12 @@ Click on a configuration value to change it.
             </tr>
 
 %   } elsif ( $type eq 'image' ) {
+%           my $args = 'key=' . $i->key . ";agentnum=$agentnum;locale=$locale";
 
             <tr>
               <td bgcolor='#ffffff'>
                 <% $conf->exists($i->key, $agentnum)
-                     ? '<img src="config-image.cgi?key='.      $i->key.
-                                                 ';agentnum='. $agentnum. '">'
+                     ? '<img src="config-image.cgi?'.$args.'">'
                      : 'empty'
                 %>
               </td>
@@ -141,18 +174,19 @@ Click on a configuration value to change it.
             <tr>
               <td>
                 <% $conf->exists($i->key, $agentnum)
-                     ? qq!<a href="config-download.cgi?key=!. $i->key. ';agentnum='. $agentnum. qq!">download</a>!
+                     ? '<a href="config-download.cgi?'.$args.'">download</a>'
                      : ''
                 %>
               </td>
             </tr>
 
 %   } elsif ( $type eq 'binary' ) {
+%           my $args = 'key=' . $i->key . ";agentnum=$agentnum;locale=$locale";
 
             <tr>
               <td>
                 <% $conf->exists($i->key, $agentnum)
-                     ? qq!<a href="config-download.cgi?key=!. $i->key. ';agentnum='. $agentnum. qq!">download</a>!
+                     ? '<a href="config-download.cgi?'.$args.'">download</a>'
                      : 'empty'
                 %>
               </td>
@@ -177,7 +211,7 @@ Click on a configuration value to change it.
 %   } elsif ( $type eq 'checkbox' ) {
 
             <tr>
-              <td id="<% $agentnum.$i->key.$n %>" bgcolor="#<% $conf->exists($i->key, $agentnum) ? '00ff00">YES' : 'ff0000">NO' %></td>
+              <td id="<% $agentnum.$i->key.$n %>" bgcolor="#<% $conf->config_bool($i->key, $agentnum) ? '00ff00">YES' : 'ff0000">NO' %></td>
             </tr>
 
 %   } elsif ( $type eq 'select' && $i->select_hash ) {
@@ -207,12 +241,20 @@ Click on a configuration value to change it.
 
             <tr>
               <td id="<% $agentnum.$i->key.$n %>" bgcolor="#ffffff">
+%               if ( $i->multiple ) {
+                    <% join('<BR>',
+                        map { $_ . ": " . &{ $i->option_sub }($_) }
+                                            $conf->config($i->key,$agentnum)
+                        )
+                    %>
+%               } else {
                 <% $conf->config($i->key, $agentnum) %>: 
                 <% &{ $i->option_sub }( $conf->config($i->key, $agentnum) ) %>
+%               }
               </td>
             </tr>
 
-%   } 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};
@@ -318,6 +360,7 @@ my %namecol = (
   'part_svc'  => 'svc',
   'part_pkg'  => 'pkg',
   'pkg_class' => 'classname',
+  'agent'     => 'agent',
 );
 </%once>
 <%init>
@@ -335,22 +378,47 @@ 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 invoicing UI self-service username password 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) {