[interchange-cvs] interchange - jon modified 2 files

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2002-06-08 01:08:34 GMT
Modified:  code/SystemTag checked.coretag selected.coretag
Log:
Output a space before 'CHECKED' as is done for 'SELECTED',
to provide maximum (expected) symmetry between the two tags.

Revision  Changes    Path
1.3       +3 -3      interchange/code/SystemTag/checked.coretag


rev 1.3, prev_rev 1.2
Index: checked.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/checked.coretag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -u -r1.2 -r1.3
--- checked.coretag	18 Feb 2002 01:00:21 -0000	1.2
+++ checked.coretag	8 Jun 2002 01:08:34 -0000	1.3
@@ -11,18 +11,18 @@
 	$value = 'on' unless defined $value;
 
 	my $ref = $opt->{cgi} ? $CGI::values{$field} : $::Values->{$field};
-	return 'CHECKED' if ! length($ref) and $opt->{default};
+	return ' CHECKED' if ! length($ref) and $opt->{default};
 
 	if(! $opt->{case}) {
 		$ref = lc($ref);
 		$value = lc($value);
 	}
 
-	return 'CHECKED' if $ref eq $value;
+	return ' CHECKED' if $ref eq $value;
 
 	if ($opt->{multiple}) {
 		my $regex = quotemeta $value;
-		return 'CHECKED' if $ref =~ /(?:^|\0)$regex(?:$|\0)/i;
+		return ' CHECKED' if $ref =~ /(?:^|\0)$regex(?:$|\0)/i;
 	}
 
 	return '';



1.3       +1 -1      interchange/code/SystemTag/selected.coretag


rev 1.3, prev_rev 1.2
Index: selected.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/selected.coretag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -u -r1.2 -r1.3
--- selected.coretag	18 Feb 2002 01:00:21 -0000	1.2
+++ selected.coretag	8 Jun 2002 01:08:34 -0000	1.3
@@ -3,7 +3,7 @@
 UserTag selected            InvalidateCache
 UserTag selected            PosNumber    2
 UserTag selected            Routine <<EOR
-# Returns 'SELECTED' when a value is present on the form
+# Returns ' SELECTED' when a value is present on the form
 # Must match exactly, but NOT case-sensitive
 sub {
 	my ($field,$value,$opt) = @_;