scalar cgi param

[freeside.git] / httemplate / edit / process / elements / svc_Common.html

diff --git a/httemplate/edit/process/elements/svc_Common.html b/httemplate/edit/process/elements/svc_Common.html
index 8e8c99a..504ded0 100644 (file)
--- a/httemplate/edit/process/elements/svc_Common.html
+++ b/httemplate/edit/process/elements/svc_Common.html
@@ -1,15 +1,41 @@
-%
-%
-%  my %opt = @_;
-%  my $table = $opt{'table'};
-%  $opt{'fields'} ||= [ fields($table) ];
-%  push @{ $opt{'fields'} }, qw( pkgnum svcpart );
-%
-%
 <% include( 'process.html',
                  'edit_ext' => 'cgi',
                  'redirect' => popurl(3)."view/$table.cgi?",
+                 'args_callback' => $args_callback,
                  %opt,
            )
 %>
+<%init>
 
+my %opt = @_;
+my $table = $opt{'table'};
+$opt{'fields'} ||= [ fields($table) ];
+push @{ $opt{'fields'} }, qw( pkgnum svcpart );
+push @{ $opt{'fields'} }, @{ "FS::$table"->table_info->{'addl_process_fields'} }
+  if UNIVERSAL::can("FS::$table", 'table_info')
+  && "FS::$table"->table_info->{'addl_process_fields'};
+foreach (fields($table)) {
+  if ( $cgi->param($_.'_classnum') ) {
+    push @{ $opt{'fields'} }, $_.'_classnum';
+  }
+}
+
+my $args_callback = sub {
+  my ($cgi, $svc) = @_;
+  my $part_svc = FS::part_svc->by_key($cgi->param('svcpart'))
+    or die "svcpart required";
+  if ( $part_svc->has_router ) {
+    my $router = FS::router->new({
+      map { $_ => scalar($cgi->param("router_$_")) }
+      qw( routernum routername blocknum )
+    });
+   if ($router->blocknum and length($router->routername) == 0) {
+      #sensible default
+      $router->set('routername', $svc->label);
+    }
+    return (child_objects => [ $router ]);
+  }
+  ();
+};
+
+</%init>