[interchange-cvs] interchange - docelic modified code/UserTag/env.tag

[interchange-cvs at icdevgroup.org]

User:      docelic
Date:      2004-08-13 13:25:40 GMT
Modified:  code/UserTag env.tag
Log:
While documenting this item, I:
- added quoting around table options (<table x='y'>)
- removed unnecessary escaping
- added name= alias for arg=

This is my first commit to the Interchange source tree, I hope
it's all right.

Revision  Changes    Path
1.2       +6 -4      interchange/code/UserTag/env.tag


rev 1.2, prev_rev 1.1
Index: env.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/env.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- env.tag	29 Jan 2002 05:52:42 -0000	1.1
+++ env.tag	13 Aug 2004 13:25:40 -0000	1.2
@@ -29,6 +29,7 @@
 #		to return one the value of one variable:
 #		[env VARNAME]
 #		[env arg="VARNAME"]
+#		[env name="VARNAME"]
 #
 # NOTES:	Works when configured in either catalog.cfg
 #		or interchange.cfg. Thanks to Mike Heins and 
@@ -39,18 +40,19 @@
 
 Usertag env Order arg
 Usertag env PosNumber 1
+UserTag env attrAlias name arg
 Usertag env Routine <<EOR
 sub {
 	my $arg = shift;
 	my $env = ::http()->{env};
 	my $out;
 	if (! $arg) {
-		$out = "<table cellpadding=2 cellspacing=1 border=1>\n";
+		$out = "<table cellpadding='2' cellspacing='1' border='1'>\n";
 		foreach ((keys %$env)) {
-			$out .= "<tr><td><b>$_\&nbsp;<\/b><\/td><td>";
-			$out .= "$env->{$_}\&nbsp;<\/td>\n<\/tr><tr>\n";
+			$out .= "<tr><td><b>$_</b></td><td>";
+			$out .= "$env->{$_}</td>\n</tr><tr>\n";
 		}
-		$out .= "<\/table>\n";
+		$out .= "</table>\n";
 	}
 	else {
 		$out = $env->{$arg};