[wellwell-devel] [SCM] Interchange wellwell catalog branch, master, updated. 9cb01cb4c2c8cde5cfc1d3f894f0132254a8298f

[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  9cb01cb4c2c8cde5cfc1d3f894f0132254a8298f (commit)
      from  a36eeb28d027086efef7d4d3baf3a479634d8549 (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 9cb01cb4c2c8cde5cfc1d3f894f0132254a8298f
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date:   Mon Apr 6 15:33:31 2009 +0200

    new attribute tag to conveniently set attributes in CGI space
    adjust wishlist actionmap accordingly

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

Summary of changes and diff:
 code/attribute.tag                   |   23 +++++++++++++++++++++++
 plugins/wishlists/code/wishlists.sub |    4 ++--
 2 files changed, 25 insertions(+), 2 deletions(-)
 create mode 100644 code/attribute.tag

diff --git a/code/attribute.tag b/code/attribute.tag
new file mode 100644
index 0000000..403d832
--- /dev/null
+++ b/code/attribute.tag
@@ -0,0 +1,23 @@
+UserTag attribute Order function component name value
+UserTag attribute AddAttr
+UserTag attribute Routine <<EOR
+sub {
+	my ($function, $component, $name, $value) = @_;
+	my $attval;
+
+	if ($function eq 'set') {
+		if ($component) {
+			$attval = "$component.$name=$value";
+		}
+		else {
+			$attval = "$name=$value";
+		}
+
+		push(@{$CGI_array->{mv_attribute}}, $attval);
+
+		$CGI->{mv_attribute} = join("\0", @{$CGI_array->{mv_attribute}});
+	}
+
+	return 1;
+}
+EOR
diff --git a/plugins/wishlists/code/wishlists.sub b/plugins/wishlists/code/wishlists.sub
index 9ec4a48..d29792a 100644
--- a/plugins/wishlists/code/wishlists.sub
+++ b/plugins/wishlists/code/wishlists.sub
@@ -39,10 +39,10 @@ sub {
 		if ($args[1]) {
 			# select wishlist by code or name
 			if ($args[1] =~ /^(\d+)$/) {
-				$Tag->attribute('set', 'wishlist.code', $args[1]);
+				$Tag->attribute('set', 'wishlist', 'code', $args[1]);
 			}
 			else {
-				$Tag->attribute('set', 'wishlist.name', $args[1]);
+				$Tag->attribute('set', 'wishlist', 'name', $args[1]);
 			}
 		}
 


hooks/post-receive
-- 
Interchange wellwell catalog