[interchange-cvs] interchange - heins modified code/UserTag/button.tag

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Mon Jan 13 18:11:01 2003


User:      heins
Date:      2003-01-13 23:11:00 GMT
Modified:  code/UserTag button.tag
Log:
* Make link_href settable instead of constraining to javascript: URL. No
  change in behavior by default.

Revision  Changes    Path
1.7       +3 -2      interchange/code/UserTag/button.tag


rev 1.7, prev_rev 1.6
Index: button.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/button.tag,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- button.tag	4 Nov 2002 15:46:52 -0000	1.6
+++ button.tag	13 Jan 2003 23:11:00 -0000	1.7
@@ -2,7 +2,7 @@
 UserTag button addAttr
 UserTag button attrAlias value text
 UserTag button hasEndTag
-UserTag button Version $Id: button.tag,v 1.6 2002/11/04 15:46:52 mheins Exp $
+UserTag button Version $Id: button.tag,v 1.7 2003/01/13 23:11:00 mheins Exp $
 UserTag button Documentation <<EOD
 
 =pod
@@ -220,8 +220,9 @@
 		$a_after = '</a>';
 	}
 
+	$opt->{link_href} ||= 'javascript: void 0';
 	$out .= <<EOF;
-<A HREF="javascript:void 0"$opt->{extra} onMouseOver="window.status='$wstatus'"
+<A HREF="$opt->{link_href}"$opt->{extra} onMouseOver="window.status='$wstatus'"
 	onClick="$confirm mv_click_map_unique(document.$opt->{form}, '$clickname', '$text') && $opt->{form}.submit(); return(false);"
 	ALT="$wstatus"><IMG ALT="$wstatus" SRC="$src" border=$opt->{border}$position>$a_before$anchor$a_after
 EOF