X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fedit%2Frouter.cgi;h=a756c617c388f4e8a32663fb102be5c1398cfab2;hp=0da45c00e0cb28dc87cf18f9b76f7e43d70e40f2;hb=833cfe5c9938d33c3e6b97ed610c25a7afa6eb04;hpb=3ce7691203a7737406bf2d4442f7fd84b81f847e diff --git a/httemplate/edit/router.cgi b/httemplate/edit/router.cgi index 0da45c00e..a756c617c 100755 --- a/httemplate/edit/router.cgi +++ b/httemplate/edit/router.cgi @@ -1,78 +1,64 @@ - -% -% -%my $router; -%if ( $cgi->keywords ) { -% my($query) = $cgi->keywords; -% $query =~ /^(\d+)$/; -% $router = qsearchs('router', { routernum => $1 }) -% or print $cgi->redirect(popurl(2)."browse/router.cgi") ; -%} else { -% $router = new FS::router ( { -% map { $_, scalar($cgi->param($_)) } fields('router') -% } ); -%} -% -%my $routernum = $router->routernum; -%my $action = $routernum ? 'Edit' : 'Add'; -% -%print header("$action Router", menubar( -% 'Main Menu' => "$p", -% 'View all routers' => "${p}browse/router.cgi", -%)); -% -%my $p3 = popurl(3); -% -%if($cgi->param('error')) { -% - Error: <%$cgi->param('error')%> -% } +<% include('elements/edit.html', + 'post_url' => popurl(1).'process/router.cgi', + 'name' => 'router', + 'table' => 'router', + 'viewall_url' => "${p}browse/router.cgi", + 'labels' => { 'routernum' => 'Router', + 'routername' => 'Name', + 'svc_part' => 'Service', + 'agentnum' => 'Agent', + 'manual_addr' => 'Assign IP addresses manually', + }, + 'fields' => [ + { 'field'=>'routername', 'type'=>'text', 'size'=>32 }, + { 'field'=>'agentnum', 'type'=>'select-agent' }, + { 'field'=>'svcnum', 'type'=>'hidden' }, + { 'field'=>'manual_addr','type'=>'checkbox','value'=>'Y'}, + ], + 'error_callback' => $callback, + 'edit_callback' => $callback, + 'new_callback' => $callback, + 'html_table_bottom' => $html_table_bottom, + ) +%> +<%init> +my $curuser = $FS::CurrentUser::CurrentUser; -
- - - - - - Router #<%$routernum or "(NEW)"%> +die "access denied" + unless $curuser->access_right('Broadband configuration') + || $curuser->access_right('Broadband global configuration'); -

Name +my @svc_x = 'svc_broadband'; +if ( FS::Conf->new->exists('svc_acct-ip_addr') ) { + push @svc_x, 'svc_acct'; +} -

-Custom fields: -
-<%table() %> -% -%foreach my $field ($router->virtual_fields) { -% print $router->pvf($field)->widget('HTML', 'edit', -% $router->getfield($field)); -%} -% +my $callback = sub { + my ($cgi, $object, $fields) = (shift, shift, shift); - -% -%unless ($router->svcnum) { -% - -

Select the service types available on this router
-% -% -% foreach my $part_svc ( qsearch('part_svc', { svcdb => 'svc_broadband', -% disabled => '' }) ) { -% - -
- $part_svc->svcpart, - routernum => $routernum } ) ? ' CHECKED' : ''%> VALUE="ON"> - - <%$part_svc->svcpart%>: <%$part_svc->svc%> -% } -% } - - -

-
- + my $extra_sql = ' AND svcdb IN(' . join(',', map { "'$_'" } @svc_x) . ')'; + unless ($object->svcnum) { + push @{$fields}, + { 'type' => 'tablebreak-tr-title', + 'value' => 'Select the service types available on this router', + }, + { 'type' => 'checkboxes-table', + 'target_table' => 'part_svc', + 'link_table' => 'part_svc_router', + 'name_col' => 'svc', + 'hashref' => { 'disabled' => '' }, + 'extra_sql' => $extra_sql, + }; + } +}; +my $html_table_bottom = sub { + my $router = shift; + my $html = ''; + foreach my $field ($router->virtual_fields) { + $html .= $router->pvf($field)->widget('HTML', 'edit', $router->get($field)); + } + $html; +}; +