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

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

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

UserTag control-set Order index

UserTag control-set addAttr

UserTag control-set hasEndTag

UserTag control-set PosNumber 1

UserTag control-set Version $Revision: 1.2 $

UserTag control-set Routine <<EOR

# Batch sets a set of controls without affecting Scratch

# Increments the index afterwards unless index is defined

sub {

my ($index, $opt, $body) = @_;

my $inc;

unless($index) {

$index = $::Scratch->{control_index} || 0;

$inc = 1;

}

while($body =~ m{\[([-\w]+)\](.*)\[/\1\]}sg) {

my $name = lc $1;

my $val = $2;

$name =~ s/-/_/g;

$::Control->[$index]{$name} = $val;

}

$::Scratch->{control_index}++;

return;

}

EOR