<TR><TH BGCOLOR="#dcdcdc"><FONT SIZE=-1>Quan.</FONT></TH><TH BGCOLOR="#dcdcdc">Service</TH></TR>
END
-unless ( $cgi->param('clone') ) {
+#unless ( $cgi->param('clone') ) {
+#dunno why...
+unless ( 0 ) {
#print <<END, $thead;
print <<END, itable(), '<TR><TD VALIGN="top">', $thead;
<BR><BR>Enter the quantity of each service this package includes.<BR><BR>
push @fixups, "pkg_svc$svcpart";
- unless ( defined ($cgi->param('clone')) && $cgi->param('clone') ) {
+ #unless ( defined ($cgi->param('clone')) && $cgi->param('clone') ) {
+ #dunno why...
+ unless ( 0 ) {
print '<TR>'; # if $count == 0 ;
print qq!<TD><INPUT TYPE="text" NAME="pkg_svc$svcpart" SIZE=4 MAXLENGTH=3 VALUE="!,
$cgi->param("pkg_svc$svcpart") || $pkg_svc->quantity || 0,
}
}
-unless ( $cgi->param('clone') ) {
+#unless ( $cgi->param('clone') ) {
+#dunno why...
+unless ( 0 ) {
print "</TR></TABLE></TD></TR></TABLE>";
#print "</TR></TABLE>";
}
qq!<TD ROWSPAN=$rowspan><FONT SIZE=-1>!,
#qq!<A HREF="$pkgview">$pkg - $comment</A>!,
qq!$pkg - $comment!,
- qq! ( <A HREF="$pkgview">Edit</A> | <A HREF="$button_url">Customize pricing</A> )</FONT></TD>!,
+ qq! ( <A HREF="$pkgview">Edit</A> | <A HREF="$button_url">Customize</A> )</FONT></TD>!,
;
for ( qw( setup bill susp expire cancel ) ) {
print "<TD ROWSPAN=$rowspan><FONT SIZE=-1>", ( $package->getfield($_)