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

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

# $Id: checked.coretag,v 1.6 2005-02-09 13:39:41 docelic Exp $

UserTag checked Order name value

UserTag checked addAttr

UserTag checked Implicit multiple multiple

UserTag checked Implicit default default

UserTag checked PosNumber 2

UserTag checked Version $Revision: 1.6 $

UserTag checked Routine <<EOR

sub {

my ($field,$value,$opt) = @_;

$value = 'on' unless defined $value;

my $ref = $opt->{cgi} ? $CGI::values{$field} : $::Values->{$field};

return ' CHECKED' if ! length($ref) and $opt->{default};

if(! $opt->{case}) {

$ref = lc($ref);

$value = lc($value);

}

return ' CHECKED' if $ref eq $value;

if ($opt->{delimiter}) {

$opt->{multiple} = 1;

}

if ($opt->{multiple}) {

my $be;

my $ee;

$opt->{delimiter} = "\0" unless defined $opt->{delimiter};

if (length $opt->{delimiter}) {

my $del = Vend::Interpolate::get_joiner($opt->{delimiter}, "\0");

$be = '(?:^|' . $del . ')'; ;

$ee = '(?:$|' . $del . ')'; ;

}

else {

$be = '';

$ee = '';

}

my $regex = qr/$be\Q$value\E$ee/;

return ' CHECKED' if $ref =~ $regex;

}

return '';

}

EOR