diff options
| author | jeff <jeff> | 2007-01-15 22:15:26 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-01-15 22:15:26 +0000 |
| commit | 810f6c351cbc38838daca5b795838ade12711999 (patch) | |
| tree | 7495888d6acfa37725c39eadcaf2085bf0764936 | |
| parent | db690b75431c6bcff432930db1646f316d2e7154 (diff) | |
that was DUM
| -rw-r--r-- | httemplate/edit/process/quick-charge.cgi | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/httemplate/edit/process/quick-charge.cgi b/httemplate/edit/process/quick-charge.cgi index f614dd5cf..a2eba3abc 100644 --- a/httemplate/edit/process/quick-charge.cgi +++ b/httemplate/edit/process/quick-charge.cgi @@ -6,7 +6,7 @@ % for ( my $row = 0; exists($param->{"description$row"}); $row++ ) { % push @description, $param->{"description$row"}; % } -% pop @description until ($description[$#description]); +% pop @description until (!@description || $description[$#description]); % % $param->{"custnum"} =~ /^(\d+)$/ % or $error .= "Illegal customer number " . $param->{"custnum"} . " "; |