%
-%
% my %opt = @_;
%
% #my( $svcnum, $pkgnum, $svcpart, $part_svc );
% my( $pkgnum, $svcpart, $part_svc );
%
% #get & untaint pkgnum & svcpart
-% my($query) = $cgi->keywords; #they're not proper cgi params
-% if ( $query =~ /^pkgnum(\d+)-svcpart(\d+)$/ ) {
-% $pkgnum = $1;
-% $svcpart = $2;
-% $cgi->delete_all(); #so the standard edit.html treats this correctly as new
+% if ( ! $cgi->param('error')
+% && $cgi->param('pkgnum') && $cgi->param('svcpart')
+% )
+% {
+% $cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum';
+% $pkgnum = $1;
+% $cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart';
+% $svcpart = $1;
+% $cgi->delete_all(); #so edit.html treats this correctly as new??
% }
%
-%
<% include( 'edit.html',
'menubar' => [],