From: jeff Date: Sat, 20 Jan 2007 00:08:39 +0000 (+0000) Subject: strip all blank lines, not just trailing ones X-Git-Tag: TRIXBOX_2_6~745 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=bc85a6042dca1848a23623be5d6612e495121da5 strip all blank lines, not just trailing ones --- diff --git a/httemplate/edit/process/quick-charge.cgi b/httemplate/edit/process/quick-charge.cgi index a2eba3abc..024a281e0 100644 --- a/httemplate/edit/process/quick-charge.cgi +++ b/httemplate/edit/process/quick-charge.cgi @@ -4,9 +4,9 @@ % % my @description = (); % for ( my $row = 0; exists($param->{"description$row"}); $row++ ) { -% push @description, $param->{"description$row"}; +% push @description, $param->{"description$row"} +% if ($param->{"description$row"} =~ /\S/); % } -% pop @description until (!@description || $description[$#description]); % % $param->{"custnum"} =~ /^(\d+)$/ % or $error .= "Illegal customer number " . $param->{"custnum"} . " ";