diff options
| author | khoff <khoff> | 2003-05-06 20:33:03 +0000 |
|---|---|---|
| committer | khoff <khoff> | 2003-05-06 20:33:03 +0000 |
| commit | bc2e387fcf4cf847ef7b51e4137e276fedea5c1e (patch) | |
| tree | 848417a773ebf606fcf0f346c9683e6802ee373c | |
| parent | 903fb4a4509866ffaba09bf09fe535ba3ae02400 (diff) | |
Can't pull out of thin air.
| -rw-r--r-- | httemplate/view/cust_main_alt.cgi | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/httemplate/view/cust_main_alt.cgi b/httemplate/view/cust_main_alt.cgi index 80fa49e04..01e46b59a 100644 --- a/httemplate/view/cust_main_alt.cgi +++ b/httemplate/view/cust_main_alt.cgi @@ -371,7 +371,7 @@ print qq!<BR><A NAME="cust_pkg">Packages</A> !, #get package info -my $packages = get_packages(); +my $packages = get_packages($cust_main); if ( @$packages ) { %> @@ -673,6 +673,8 @@ sub keyfield_numerically { (split(/\t/,$a))[0] <=> (split(/\t/,$b))[0]; } sub get_packages { +my $cust_main = shift or return undef; + my @packages = (); foreach my $cust_pkg (($conf->exists('hidecancelledpackages') ? ($cust_main->ncancelled_pkgs) |