diff options
| author | ivan <ivan> | 2001-12-28 14:40:35 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-12-28 14:40:35 +0000 |
| commit | 5e25b996982d42eb2587ec54db0d5b39508aa730 (patch) | |
| tree | 04e409d5cf14e01161ccee90eef8e31662836492 /httemplate/edit/part_pkg.cgi | |
| parent | cf16b23820da69e3c8d0156ae27e21c635bf1ec5 (diff) | |
add more options to freeside-overdue
add charge method to FS::cust_main
one-off packages default to disabled
billing payname defaults to first and last, not "Accounts Payable"
Diffstat (limited to 'httemplate/edit/part_pkg.cgi')
| -rwxr-xr-x | httemplate/edit/part_pkg.cgi | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/httemplate/edit/part_pkg.cgi b/httemplate/edit/part_pkg.cgi index 1618c5a99..735f4f269 100755 --- a/httemplate/edit/part_pkg.cgi +++ b/httemplate/edit/part_pkg.cgi @@ -1,4 +1,4 @@ -<!-- $Id: part_pkg.cgi,v 1.7 2001-12-27 09:26:14 ivan Exp $ --> +<!-- $Id: part_pkg.cgi,v 1.8 2001-12-28 14:40:35 ivan Exp $ --> <% @@ -26,6 +26,7 @@ if ( $cgi->param('clone') ) { my $old_part_pkg = qsearchs('part_pkg', { 'pkgpart' => $cgi->param('clone') } ); $part_pkg ||= $old_part_pkg->clone; + $part_pkg->disabled('Y'); } elsif ( $query && $query =~ /^(\d+)$/ ) { $part_pkg ||= qsearchs('part_pkg',{'pkgpart'=>$1}); } else { |