[wellwell-devel] [SCM] Interchange wellwell catalog branch, master, updated. 5df6915544567620d136a051c77a47039031cfd5

[Stefan Hornburg]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Interchange wellwell catalog".

The branch, master has been updated
       via  5df6915544567620d136a051c77a47039031cfd5 (commit)
      from  5298e89b2edb88fc0422ff6e8d7d8c56d2e10f00 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 5df6915544567620d136a051c77a47039031cfd5
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date:   Sun May 31 14:09:18 2009 +0200

    added skipauto parameter to [compose]

-----------------------------------------------------------------------

Summary of changes and diff:
 code/compose.tag |    9 +++++++++
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/code/compose.tag b/code/compose.tag
index cf57a18..a3885a6 100644
--- a/code/compose.tag
+++ b/code/compose.tag
@@ -118,11 +118,20 @@ sub {
 	# automatic components
 	if ($Variable->{MV_COMPONENT_AUTO}) {
 		my @auto = split(/\s+/, $Variable->{MV_COMPONENT_AUTO});
+		my %skipauto;
+
+		if ($opt->{skipauto}) {
+			for (split(/[,\s]+/, $opt->{skipauto})) {
+				$skipauto{$_} = 1;
+			}
+		}
 
 		for (@auto) {
 			my ($ph, $c) = split(/[=:]/, $_, 2); # i.e. body=c1,c2=a2
 
 			for my $sc (reverse split(/,+/, $c)) {
+				next if $opt->{skipauto} && $skipauto{$sc};
+
 				if (exists $opt->{components}->{$ph}) {
 					$opt->{components}->{$ph} = "$sc $opt->{components}->{$ph}";
 				} else {


hooks/post-receive
-- 
Interchange wellwell catalog