[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