new-style mason

diff --git a/httemplate/edit/process/elements/svc_Common.html b/httemplate/edit/process/elements/svc_Common.html
index 8e8c99a..5a8afbd 100644 (file)
--- a/httemplate/edit/process/elements/svc_Common.html
+++ b/httemplate/edit/process/elements/svc_Common.html
@@ -1,15 +1,14 @@
-%
-%
-%  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?",
                  %opt,
            )
 %>
+<%init>
 
+my %opt = @_;
+my $table = $opt{'table'};
+$opt{'fields'} ||= [ fields($table) ];
+push @{ $opt{'fields'} }, qw( pkgnum svcpart );
+
+</%init>