X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_Common.html;h=9c4d71eb8e9b4e2967846204ba826dc276970199;hp=bb3a6dd33beae8572d26b42bd1c17b3fa0f8d14d;hb=11bbf29de447fe39e9d7155fe280a0df70fa8c3c;hpb=ffcad49ae9b3b54094f8282bec67759399b57c95

diff --git a/httemplate/view/svc_Common.html b/httemplate/view/svc_Common.html
index bb3a6dd33..9c4d71eb8 100644
--- a/httemplate/view/svc_Common.html
+++ b/httemplate/view/svc_Common.html
@@ -1,11 +1,18 @@
+<& elements/svc_Common.html,
+             'table'    => $table,
+	     'edit_url' => $edit_url, #$p."edit/svc_Common.html?svcdb=$table;svcnum=",
+	     %opt,
+&>
 <%init>
 
 # false laziness w/edit/svc_Common.html
 
-$cgi->param('svcdb') =~ /^(svc_\w+)$/ or die "unparsable svcdb";
+$cgi->param('svcdb') =~ /^(svc_\w+)$/ or die "unparseable svcdb";
 my $table = $1;
 require "FS/$table.pm";
 
+my $edit_url = svc_url( 'm' => $m, 'action' => 'edit', 'svcdb' => $table, query => '' );
+
 my %opt;
 if ( UNIVERSAL::can("FS::$table", 'table_info') ) {
   $opt{'name'}   = "FS::$table"->table_info->{'name'};
@@ -18,12 +25,17 @@ if ( UNIVERSAL::can("FS::$table", 'table_info') ) {
                    }
                keys %$fields;
   $opt{'labels'} = \%labels;
+
+  #transform FS::svc_* table_info's structure into one svc_Common.html likes
+  delete $fields->{svcnum};
+  $opt{'fields'} = [ map { ref $fields->{$_}
+                             ? { field => $_,
+                                 %{ $fields->{$_} }
+                               }
+                             : $_
+                          } keys %$fields
+                   ];
+
 }
 
 </%init>
-<% include('elements/svc_Common.html',
-             'table'    => $table,
-	     'edit_url' => $p."edit/svc_Common.html?svcdb=$table;svcnum=",
-	     %opt,
-          )
-%>