[LON-CAPA-cvs] cvs: loncom /homework radiobuttonresponse.pm structuretags.pm /interface loncommon.pm lonmsgdisplay.pm /publisher lonpublisher.pm
bisitz
bisitz@source.lon-capa.org
Wed, 18 Mar 2009 13:46:27 -0000
This is a MIME encoded message
--bisitz1237383987
Content-Type: text/plain
bisitz Wed Mar 18 13:46:27 2009 EDT
Modified files:
/loncom/interface lonmsgdisplay.pm loncommon.pm
/loncom/publisher lonpublisher.pm
/loncom/homework radiobuttonresponse.pm structuretags.pm
Log:
- XHTML conform checked attributes in input tags
- Optimized white spaces usage
--bisitz1237383987
Content-Type: text/plain
Content-Disposition: attachment; filename="bisitz-20090318134627.txt"
Index: loncom/interface/lonmsgdisplay.pm
diff -u loncom/interface/lonmsgdisplay.pm:1.117 loncom/interface/lonmsgdisplay.pm:1.118
--- loncom/interface/lonmsgdisplay.pm:1.117 Wed Mar 4 17:07:31 2009
+++ loncom/interface/lonmsgdisplay.pm Wed Mar 18 13:46:14 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging display
#
-# $Id: lonmsgdisplay.pm,v 1.117 2009/03/04 17:07:31 bisitz Exp $
+# $Id: lonmsgdisplay.pm,v 1.118 2009/03/18 13:46:14 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2150,7 +2150,7 @@
foreach my $block (@{$typeorder}) {
my $blockstatus = '';
if ($blocks->{$block} eq 'on') {
- $blockstatus = 'checked="true"';
+ $blockstatus = 'checked="checked"';
}
$r->print('<label><input type="checkbox" name="'.$block.'_'.$parmcount.'" '.$blockstatus.' value="1" />'.$types->{$block}.'</label><br />');
}
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.771 loncom/interface/loncommon.pm:1.772
--- loncom/interface/loncommon.pm:1.771 Tue Mar 17 23:11:20 2009
+++ loncom/interface/loncommon.pm Wed Mar 18 13:46:14 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.771 2009/03/17 23:11:20 droeschl Exp $
+# $Id: loncommon.pm,v 1.772 2009/03/18 13:46:14 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2126,14 +2126,14 @@
$autharg,$jscall);
my ($authnum,%can_assign) = &get_assignable_auth($in{'domain'});
if ($in{'kerb_def_auth'} eq 'krb5') {
- $check5 = ' checked="on"';
+ $check5 = ' checked="checked"';
} else {
- $check4 = ' checked="on"';
+ $check4 = ' checked="checked"';
}
$krbarg = $in{'kerb_def_dom'};
if (defined($in{'curr_authtype'})) {
if ($in{'curr_authtype'} eq 'krb') {
- $krbcheck = ' checked="on"';
+ $krbcheck = ' checked="checked"';
if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifyuser') {
$krbcheck = '';
@@ -2141,10 +2141,10 @@
}
if (defined($in{'curr_kerb_ver'})) {
if ($in{'curr_krb_ver'} eq '5') {
- $check5 = ' checked="on"';
+ $check5 = ' checked="checked"';
$check4 = '';
} else {
- $check4 = ' checked="on"';
+ $check4 = ' checked="checked"';
$check5 = '';
}
}
@@ -2235,7 +2235,7 @@
if (defined($in{'curr_authtype'})) {
if ($in{'curr_authtype'} eq 'int') {
if ($can_assign{'int'}) {
- $intcheck = 'checked="on" ';
+ $intcheck = 'checked="checked" ';
if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifyuser') {
$intcheck = '';
@@ -2290,7 +2290,7 @@
if (defined($in{'curr_authtype'})) {
if ($in{'curr_authtype'} eq 'loc') {
if ($can_assign{'loc'}) {
- $loccheck = 'checked="on" ';
+ $loccheck = 'checked="checked" ';
if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifyuser') {
$loccheck = '';
@@ -2344,7 +2344,7 @@
if (defined($in{'curr_authtype'})) {
if ($in{'curr_authtype'} eq 'fsys') {
if ($can_assign{'fsys'}) {
- $fsyscheck = 'checked="on" ';
+ $fsyscheck = 'checked="checked" ';
if (defined($in{'mode'})) {
if ($in{'mode'} eq 'modifyuser') {
$fsyscheck = '';
@@ -9201,7 +9201,7 @@
my $checked = '';
if (@currcategories > 0) {
if (grep(/^\Q$item\E$/,@currcategories)) {
- $checked = ' checked="checked" ';
+ $checked = ' checked="checked"';
}
}
$output .= '<tr '.$css_class.'><td><span class="LC_nobreak">'.
@@ -9267,7 +9267,7 @@
if (ref($currcategories) eq 'ARRAY') {
if (@{$currcategories} > 0) {
if (grep(/^\Q$item\E$/,@{$currcategories})) {
- $checked = ' checked="checked" ';
+ $checked = ' checked="checked"';
}
}
}
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.252 loncom/publisher/lonpublisher.pm:1.253
--- loncom/publisher/lonpublisher.pm:1.252 Mon Mar 9 20:10:55 2009
+++ loncom/publisher/lonpublisher.pm Wed Mar 18 13:46:20 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Publication Handler
#
-# $Id: lonpublisher.pm,v 1.252 2009/03/09 20:10:55 raeburn Exp $
+# $Id: lonpublisher.pm,v 1.253 2009/03/18 13:46:20 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1282,11 +1282,11 @@
$keywordout.='<label><input type="checkbox" name="keywords" value="'.$word.'"';
if ($metadatafields{'keywords'}) {
if ($metadatafields{'keywords'}=~/\Q$word\E/) {
- $keywordout.=' checked="on"';
+ $keywordout.=' checked="checked"';
$env{'form.keywords'}.=$word.',';
}
} elsif (&Apache::loncommon::keyword($word)) {
- $keywordout.=' checked="on"';
+ $keywordout.=' checked="checked"';
$env{'form.keywords'}.=$word.',';
}
$keywordout.=' />'.$word.'</label></td>';
Index: loncom/homework/radiobuttonresponse.pm
diff -u loncom/homework/radiobuttonresponse.pm:1.141 loncom/homework/radiobuttonresponse.pm:1.142
--- loncom/homework/radiobuttonresponse.pm:1.141 Thu Dec 11 03:25:45 2008
+++ loncom/homework/radiobuttonresponse.pm Wed Mar 18 13:46:26 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# mutliple choice style responses
#
-# $Id: radiobuttonresponse.pm,v 1.141 2008/12/11 03:25:45 raeburn Exp $
+# $Id: radiobuttonresponse.pm,v 1.142 2009/03/18 13:46:26 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -386,8 +386,8 @@
onchange=\"javascript:setSubmittedPart('$part');\"
type=\"radio\"
name=\"HWVAL_$Apache::inputtags::response['-1']\"
- value=\"$temp\" ";
- if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }
+ value=\"$temp\"";
+ if (defined($lastresponse{$name})) { $result .= ' checked="checked"'; }
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}.
'</label>';
}
@@ -615,8 +615,8 @@
"<input type=\"radio\"
onchange=\"javascript:setSubmittedPart('$part');\"
name=\"HWVAL_$Apache::inputtags::response['-1']\"
- value=\"$temp\" ";
- if (defined($lastresponse{$name})) { $result .= 'checked="on"'; }
+ value=\"$temp\"";
+ if (defined($lastresponse{$name})) { $result .= ' checked="checked"'; }
$result .= ' />'.$Apache::response::foilgroup{$name.'.text'}."</label>";
} else {
if ($Apache::lonhomework::type eq 'exam') {
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.439 loncom/homework/structuretags.pm:1.440
--- loncom/homework/structuretags.pm:1.439 Mon Mar 9 21:24:12 2009
+++ loncom/homework/structuretags.pm Wed Mar 18 13:46:26 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.439 2009/03/09 21:24:12 raeburn Exp $
+# $Id: structuretags.pm,v 1.440 2009/03/18 13:46:26 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -423,8 +423,8 @@
&mt(' Show All Instances')
: &mt(' Show All Foils');
- my $show_all= '<span class="LC_nobreak"><label><input type="checkbox" name="showallfoils" ';
- if (defined($env{'form.showallfoils'})) { $show_all.='checked="checked"'; }
+ my $show_all= '<span class="LC_nobreak"><label><input type="checkbox" name="showallfoils"';
+ if (defined($env{'form.showallfoils'})) { $show_all.=' checked="checked"'; }
$show_all.= ' />'.$show_all_foils_text.'</label></span>';
@@ -904,9 +904,9 @@
}
if ($env{'request.role.adv'}) {
$form_tag_start.=
- ' <label><input type="checkbox" name="showallfoils" ';
+ ' <label><input type="checkbox" name="showallfoils"';
if (defined($env{'form.showallfoils'})) {
- $form_tag_start.='checked="on"';
+ $form_tag_start.=' checked="checked"';
}
$form_tag_start.= ' />'.&mt(' Show All Foils').
'</label>';
--bisitz1237383987--