1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
<% 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 ); foreach (fields($table)) { if ( $cgi->param($_.'_classnum') ) { push @{ $opt{'fields'} }, $_.'_classnum'; } } </%init>