[interchange-cvs] interchange - jon modified 2 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Dec 7 18:10:09 EST 2006
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 {
More information about the interchange-cvs
mailing list