From 5b612a4a7f3c1055ad0885e0a7741779d9f33a8d Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 17 Jun 2010 01:16:16 +0000 Subject: [PATCH] new-style mason --- httemplate/edit/process/elements/svc_Common.html | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) 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 ); + + -- 2.11.0