X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fconfig%2Fconfig-view.cgi;h=7b2e55a55982979564416bfbfe71961162f8ab1b;hb=228d0171b07879ce7a585c87aa5580237df74842;hp=51535d7624cdce999523fbe7437d28996b937f01;hpb=8800e519dc0e4b8eee4ab2cddc74d52c205bc536;p=freeside.git diff --git a/httemplate/config/config-view.cgi b/httemplate/config/config-view.cgi index 51535d762..7b2e55a55 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'); + <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' => [ '', @locales ], + 'labels' => { map { + my %info = FS::Locales->locale_info($_); + $_ => "$info{name} ($info{country})" + } @locales }, + 'curr_value' => $locale, + 'id' => 'select-locale', + 'onchange' => 'changeLocale' + &> + ) +% $cgi->param('locale', $locale); +% } +</form> + <BR><BR> <% include('/elements/init_overlib.html') %> @@ -43,7 +75,10 @@ Click on a configuration value to change it. <TABLE BGCOLOR="#cccccc" BORDER=1 CELLSPACING=0 CELLPADDING=0 BORDERCOLOR="#999999"> <tr> <th colspan="2" bgcolor="#dcdcdc"> - <% ucfirst($section || 'unclassified') %> configuration options + <% ucfirst($section || 'unclassified') %> +% if ( $curuser->option('show_confitem_counts') ) { + (<% scalar( @{ $section_items{$section} } ) %> items) +% } </th> </tr> % 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" : ''); <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', @@ -125,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> @@ -138,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> @@ -163,18 +200,22 @@ Click on a configuration value to change it. <tr> <td id="<% $agentnum.$i->key.$n %>" bgcolor="#ffffff"> -<font size="-2"><pre><% encode_entities(join("\n", - map { length($_) > 88 ? substr($_,0,88).'...' : $_ } - $conf->config($i->key, $agentnum) - ) ) -%></pre></font> + +% my $escaped = eval { encode_entities(join("\n", +% map { length($_) > 88 ? substr($_,0,88).'...' : $_ } +% $conf->config($i->key, $agentnum) +% ) ); +% }; +% $escaped = $@ ? '('.encode_entities($@).')' : $escaped; +<font size="-2"><pre><% $escaped %></pre></font> + </td> </tr> % } 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 ) { @@ -204,19 +245,35 @@ 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)$/ ) { +% } elsif ( $type =~ /^select-(part_svc|part_pkg|pkg_class|agent)$/ ) { +% +% my $table = $1; +% my $namecol = $namecol{$table}; +% my $pkey = dbdef->table($table)->primary_key; +% % my @keys = $conf->config($i->key, $agentnum); <tr> <td id="<% $agentnum.$i->key.$n %>" bgcolor="#ffffff"> - <% join('<BR>', map { $_ # ': '. $svc, $pkg, whatever - } - @keys + <% join( '<BR>', + map { + my $key = $_; + my $record = qsearchs($table, { $pkey => $key }); + $record ? "$key: ".$record->$namecol() : $key; + } @keys ) %> </td> @@ -301,10 +358,20 @@ Click on a configuration value to change it. </SCRIPT> </body></html> +<%once> +#false laziness w/config-process.cgi +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; @@ -315,22 +382,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) { @@ -343,6 +436,5 @@ my @all_agents = (); if ( $cgi->param('showagent') ) { @all_agents = qsearch('agent', { 'disabled' => '' } ); } -warn 'all agents: '. join('-', @all_agents); </%init>