- print qq!<TR>! if $count == 0 ;
- print qq!<TD><INPUT TYPE="text" NAME="pkg_svc$svcpart" SIZE=3 VALUE="!,
- $pkg_svc->getfield('quantity') || 0,qq!"></TD>!,
- qq!<TD><A HREF="part_svc.cgi?!,$part_svc->getfield('svcpart'),
- qq!">!, $part_svc->getfield('svc'), "</A></TD>";
- $count ++ ;
- if ($count == 2)
- {
- print qq!</TR>! ;
- $count = 0 ;
+ unless ( $cgi->param('clone') ) {
+ print qq!<TR>! if $count == 0 ;
+ print qq!<TD><INPUT TYPE="text" NAME="pkg_svc$svcpart" SIZE=3 VALUE="!,
+ $pkg_svc->getfield('quantity') || 0,qq!"></TD>!,
+ qq!<TD><A HREF="part_svc.cgi?!,$part_svc->getfield('svcpart'),
+ qq!">!, $part_svc->getfield('svc'), "</A></TD>";
+ $count ++ ;
+ if ($count == 2)
+ {
+ print qq!</TR>! ;
+ $count = 0 ;
+ }
+ } else {
+ print qq!<INPUT TYPE="hidden" NAME="pkg_svc$svcpart" VALUE="!,
+ $pkg_svc->getfield('quantity') || 0, qq!">\n!;