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

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

# $Id: default.coretag,v 1.3 2005-02-09 13:39:42 docelic Exp $

UserTag default Order name default

UserTag default addAttr

UserTag default PosNumber 2

UserTag default Version $Revision: 1.3 $

UserTag default Routine <<EOR

# Returns the text of a user entered field named VAR.

# Same as tag [value name=name default="string"] except

# returns 'default' if not present

sub {

my($var, $default, $opt) = @_;

$opt->{default} = !(length $default) ? 'default' : $default;

return tag_value($var, $opt);

}

EOR