Index: Util.pm =================================================================== RCS file: /var/cvs/interchange/lib/Vend/Util.pm,v retrieving revision 2.119 diff -u -r2.119 Util.pm --- Util.pm 13 Sep 2008 04:28:56 -0000 2.119 +++ Util.pm 26 Sep 2008 12:37:10 -0000 @@ -1395,6 +1395,10 @@ } } + if($opt->{lines}) { + return scalar(grep {! $attr or $sub->($_->{$attr})} @$cart); + } + $total = 0; foreach $item (@$cart) { next if $attr and ! $sub->($item->{$attr});