Also look in the next-highest directory when detecting VCS; add SVN
[interchange.git] / code / SystemTag / control_set.coretag
1 # Copyright 2002-2007 Interchange Development Group and others
2
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 2 of the License, or
6 # (at your option) any later version.  See the LICENSE file for details.
7
8 UserTag control-set         Order        index
9 UserTag control-set         addAttr
10 UserTag control-set         hasEndTag
11 UserTag control-set         PosNumber    1
12 UserTag control-set         Version      1.4
13 UserTag control-set         Routine      <<EOR
14 # Batch sets a set of controls without affecting Scratch
15 # Increments the index afterwards unless index is defined
16 sub {
17         my ($index, $opt, $body) = @_;
18
19         my $inc;
20         unless($index) {
21                 $index = $::Scratch->{control_index} || 0;
22                 $inc = 1;
23         }
24         
25         while($body =~ m{\[([-\w]+)\](.*)\[/\1\]}sg) {
26                 my $name = lc $1;
27                 my $val = $2;
28                 $name =~ s/-/_/g;
29                 $::Control->[$index]{$name} = $val;
30         }
31         $::Scratch->{control_index}++;
32         return;
33 }
34 EOR