[interchange-cvs] interchange - edl modified code/SystemTag/credit.coretag

[interchange-cvs at icdevgroup.org]

User:      edl
Date:      2003-11-14 23:21:55 GMT
Added:     code/SystemTag credit.coretag
Log:
tag to display 'credit applied' on order subtotal lines

Revision  Changes    Path
1.1                  interchange/code/SystemTag/credit.coretag


rev 1.1, prev_rev 1.0
Index: credit.coretag
===================================================================
UserTag credit            Order        noformat
UserTag credit            addAttr
UserTag credit            PosNumber    1
UserTag credit            Routine <<EOR
sub {
	my($noformat, $opt) = @_;
	my $credit = credit();
	if ($credit > 0) {
		$credit = '- ' . currency( credit(), $noformat, undef, $opt);
	}
	else {
		undef $credit;
	}
	return $credit;
}
EOR