httemplate/edit/process/elements/svc_Common.html

   1 <% include( 'process.html',
   2                  'edit_ext' => 'cgi',
   3                  'redirect' => popurl(3)."view/$table.cgi?",
   4                  'args_callback' => $args_callback,
   5                  %opt,
   6            )
   7 %>
   8 <%init>
   9
  10 my %opt = @_;
  11 my $table = $opt{'table'};
  12 $opt{'fields'} ||= [ fields($table) ];
  13 push @{ $opt{'fields'} }, qw( pkgnum svcpart );
  14 foreach (fields($table)) {
  15   if ( $cgi->param($_.'_classnum') ) {
  16     push @{ $opt{'fields'} }, $_.'_classnum';
  17   }
  18 }
  19
  20 my $args_callback = sub {
  21   my ($cgi, $svc) = @_;
  22   my $part_svc = FS::part_svc->by_key($cgi->param('svcpart'))
  23     or die "svcpart required";
  24   if ( $part_svc->has_router ) {
  25     my $router = FS::router->new({
  26       map { $_ => $cgi->param("router_$_") }
  27       qw( routernum routername blocknum )
  28     });
  29    if (length($router->routername) == 0) {
  30       #sensible default
  31       $router->set('routername', $svc->label);
  32     }
  33     return (child_objects => [ $router ]);
  34   }
  35   ();
  36 };
  37
  38 </%init>