From: ivan <ivan>
Date: Thu, 17 Jun 2010 01:16:16 +0000 (+0000)
Subject: new-style mason
X-Git-Tag: root_of_svc_elec_features~154
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=5b612a4a7f3c1055ad0885e0a7741779d9f33a8d;p=freeside.git

new-style mason
---

diff --git a/httemplate/edit/process/elements/svc_Common.html b/httemplate/edit/process/elements/svc_Common.html
index 8e8c99a42..5a8afbd6c 100644
--- 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>