# Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)

# Copyright 1996-2002 Red Hat, Inc.

# Licensed under the GNU GPL v2. See file LICENSE for details.

# $Id: currency.filter,v 1.3 2005-11-08 18:14:32 jon Exp $

CodeDef currency Filter

CodeDef currency Description Currency

CodeDef currency Routine <<EOR

sub {

my ($val, $tag, $locale) = @_;

my $convert = $locale ? 1 : 0;

return Vend::Util::currency($val, 0, $convert, { locale => $locale });

}

EOR