[interchange-cvs] interchange - jon modified 2 files

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2006-12-07 23:10:09 GMT
Modified:  code/UserTag Tag: STABLE_5_4-branch button.tag
Modified:  lib/Vend Tag: STABLE_5_4-branch Dispatch.pm
Log:
Minor XHTML compatibility changes.

Revision  Changes    Path
No                   revision



No                   revision



1.16.2.1  +5 -5      interchange/code/UserTag/button.tag


rev 1.16.2.1, prev_rev 1.16
Index: button.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/button.tag,v
retrieving revision 1.16
retrieving revision 1.16.2.1
diff -u -u -r1.16 -r1.16.2.1
--- button.tag	8 Nov 2005 18:14:42 -0000	1.16
+++ button.tag	7 Dec 2006 23:10:08 -0000	1.16.2.1
@@ -1,12 +1,12 @@
 # Copyright 2002-2005 Interchange Development Group (http://www.icdevgroup.org/)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: button.tag,v 1.16 2005/11/08 18:14:42 jon Exp $
+# $Id: button.tag,v 1.16.2.1 2006/12/07 23:10:08 jon Exp $
 
 UserTag button Order     name src text
 UserTag button addAttr
 UserTag button attrAlias value text
 UserTag button hasEndTag
-UserTag button Version   $Revision: 1.16 $
+UserTag button Version   $Revision: 1.16.2.1 $
 UserTag button Routine   <<EOR
 sub {
 	my ($name, $src, $text, $opt, $action) = @_;
@@ -119,9 +119,9 @@
 			$onclick .= qq{"};
 		}
 
-		my $out = $opt->{bold} ? "<B>" : '';
+		my $out = $opt->{bold} ? '<b>' : '';
 		$out .= qq{<input$opt->{extra} type="submit" name="$name" value="$text"$onclick>};
-		$out .= "</B>" if $opt->{bold};
+		$out .= '</b>' if $opt->{bold};
 		if(@js) {
 			$out =~ s/ /join "\n", '', @js, ''/e;
 		}
@@ -137,7 +137,7 @@
 	$wstatus =~ s/'/\\'/g;
 
 	my $clickname = $name;
-	$out .= "</b>" if $opt->{bold};
+	$out .= '</b>' if $opt->{bold};
 	my $clickvar = $name;
 	if($image and $name eq 'mv_click') {
 		$clickvar = $text;



No                   revision



No                   revision



1.60.2.1  +3 -3      interchange/lib/Vend/Dispatch.pm


rev 1.60.2.1, prev_rev 1.60
Index: Dispatch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Dispatch.pm,v
retrieving revision 1.60
retrieving revision 1.60.2.1
diff -u -u -r1.60 -r1.60.2.1
--- Dispatch.pm	31 Oct 2005 15:13:09 -0000	1.60
+++ Dispatch.pm	7 Dec 2006 23:10:09 -0000	1.60.2.1
@@ -1,6 +1,6 @@
 # Vend::Dispatch - Handle Interchange page requests
 #
-# $Id: Dispatch.pm,v 1.60 2005/10/31 15:13:09 mheins Exp $
+# $Id: Dispatch.pm,v 1.60.2.1 2006/12/07 23:10:09 jon Exp $
 #
 # Copyright (C) 2002-2005 Interchange Development Group
 # Copyright (C) 2002 Mike Heins <mike at perusion.net>
@@ -26,7 +26,7 @@
 package Vend::Dispatch;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.60 $, 10);
+$VERSION = substr(q$Revision: 1.60.2.1 $, 10);
 
 use POSIX qw(strftime);
 use Vend::Util;
@@ -1114,7 +1114,7 @@
 	}
 
 	if($Vend::Cfg->{XHTML}) {
-		$Vend::Xtrailer = '/';
+		$Vend::Xtrailer = ' /';
 		$Vend::Xquote = '"';
 	}
 	else {