[LON-CAPA-cvs] cvs: rat / lonratedt.pm loncom/interface loncommon.pm loncoursegroups.pm lonfeedback.pm lonhtmlcommon.pm lonparmset.pm portfolio.pm loncom/interface/statistics lonproblemstatistics.pm
bisitz
bisitz@source.lon-capa.org
Tue, 20 Jan 2009 16:38:50 -0000
This is a MIME encoded message
--bisitz1232469530
Content-Type: text/plain
bisitz Tue Jan 20 16:38:50 2009 EDT
Modified files:
/loncom/interface loncommon.pm loncoursegroups.pm lonfeedback.pm
lonhtmlcommon.pm lonparmset.pm portfolio.pm
/loncom/interface/statistics lonproblemstatistics.pm
/rat lonratedt.pm
Log:
XHTML conform multiple selection
--bisitz1232469530
Content-Type: text/plain
Content-Disposition: attachment; filename="bisitz-20090120163850.txt"
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.733 loncom/interface/loncommon.pm:1.734
--- loncom/interface/loncommon.pm:1.733 Fri Jan 16 14:47:13 2009
+++ loncom/interface/loncommon.pm Tue Jan 20 16:38:38 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.733 2009/01/16 14:47:13 bisitz Exp $
+# $Id: loncommon.pm,v 1.734 2009/01/20 16:38:38 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1635,7 +1635,7 @@
$size = scalar(keys(%$hash));
}
}
- $output.="\n<select name='$name' size='$size' multiple='1'>";
+ $output.="\n".'<select name="'.$name.'" size="'.$size.'" multiple="multiple">';
my @order;
if (ref($order) eq 'ARRAY') {
@order = @{$order};
Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.88 loncom/interface/loncoursegroups.pm:1.89
--- loncom/interface/loncoursegroups.pm:1.88 Wed Dec 24 07:35:17 2008
+++ loncom/interface/loncoursegroups.pm Tue Jan 20 16:38:39 2009
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: loncoursegroups.pm,v 1.88 2008/12/24 07:35:17 raeburn Exp $
+# $Id: loncoursegroups.pm,v 1.89 2009/01/20 16:38:39 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1804,7 +1804,7 @@
}
}
my $output = '
- <select name="'.$elementname.'" multiple="true" size="'.$numvisible.'">
+ <select name="'.$elementname.'" multiple="multiple" size="'.$numvisible.'">
'.$section_sel.'
</select>';
return $output;
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.261 loncom/interface/lonfeedback.pm:1.262
--- loncom/interface/lonfeedback.pm:1.261 Mon Jan 12 04:11:25 2009
+++ loncom/interface/lonfeedback.pm Tue Jan 20 16:38:39 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Feedback
#
-# $Id: lonfeedback.pm,v 1.261 2009/01/12 04:11:25 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.262 2009/01/20 16:38:39 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2152,7 +2152,7 @@
</td>
<td> </td>
<td align="center" valign="top">
- <select name="rolefilter" multiple="true" size="5">
+ <select name="rolefilter" multiple="multiple" size="5">
<option value="all">$role_types{'all'}</option>
<option value="st">$role_types{'st'}</option>
<option value="cc">$role_types{'cc'}</option>
@@ -2164,13 +2164,13 @@
</td>
<td> </td>
<td align="center" valign="top">
- <select name="sectionpick" multiple="true" size="$numvisible">
+ <select name="sectionpick" multiple="multiple" size="$numvisible">
$section_sel
</select>
</td>
<td> </td>
<td align="center" valign="top">
- <select name="grouppick" multiple="true" size="$numvisible">
+ <select name="grouppick" multiple="multiple" size="$numvisible">
$group_sel
</select>
</td>
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.197 loncom/interface/lonhtmlcommon.pm:1.198
--- loncom/interface/lonhtmlcommon.pm:1.197 Mon Jan 12 01:37:57 2009
+++ loncom/interface/lonhtmlcommon.pm Tue Jan 20 16:38:39 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.197 2009/01/12 01:37:57 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.198 2009/01/20 16:38:39 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1552,7 +1552,7 @@
$output = &row_title($title,$css_class);
}
$output .= qq|
- <select name="roles" multiple >\n|;
+ <select name="roles" multiple="multiple">\n|;
foreach my $role (@$roles) {
my $plrole;
if ($role eq 'ow') {
@@ -1679,7 +1679,7 @@
$output = &row_title($title,$css_class,'LC_pick_box_select');
}
$output .= qq|
- <select name="types" multiple>\n|;
+ <select name="types" multiple="multiple">\n|;
foreach my $status_type (sort(keys(%{$types}))) {
$output .= ' <option value="'.$status_type.'">'.$$types{$status_type}.'</option>';
}
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.420 loncom/interface/lonparmset.pm:1.421
--- loncom/interface/lonparmset.pm:1.420 Thu Jan 15 18:31:11 2009
+++ loncom/interface/lonparmset.pm Tue Jan 20 16:38:39 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.420 2009/01/15 18:31:11 bisitz Exp $
+# $Id: lonparmset.pm,v 1.421 2009/01/20 16:38:39 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1368,7 +1368,7 @@
sub partmenu {
my ($r,$allparts,$psprt)=@_;
- $r->print('<select multiple name="psprt" size="8">');
+ $r->print('<select multiple="multiple" name="psprt" size="8">');
$r->print('<option value="all"');
$r->print(' selected="selected"') unless (@{$psprt});
$r->print('>'.&mt('All Parts').'</option>');
@@ -1532,7 +1532,7 @@
my %sectionhash = &Apache::loncommon::get_sections();
return if (!%sectionhash);
- $r->print('<select name="Section" multiple="true" size="8" >');
+ $r->print('<select name="Section" multiple="multiple" size="8">');
foreach my $s ('all',sort keys %sectionhash) {
$r->print(' <option value="'.$s.'"');
foreach (@{$selectedsections}) {
@@ -1551,7 +1551,7 @@
my %grouphash = &Apache::longroup::coursegroups();
return if (!%grouphash);
- $r->print('<select name="Group" multiple="true" size="8" >');
+ $r->print('<select name="Group" multiple="multiple" size="8">');
foreach my $group (sort(keys(%grouphash))) {
$r->print(' <option value="'.$group.'"');
foreach (@{$selectedgroups}) {
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.206 loncom/interface/portfolio.pm:1.207
--- loncom/interface/portfolio.pm:1.206 Sat Jan 3 19:34:21 2009
+++ loncom/interface/portfolio.pm Tue Jan 20 16:38:39 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network
# portfolio browser
#
-# $Id: portfolio.pm,v 1.206 2009/01/03 19:34:21 raeburn Exp $
+# $Id: portfolio.pm,v 1.207 2009/01/20 16:38:39 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1572,7 +1572,7 @@
my ($r,$status,$item,$all_doms,$access_controls,$now,$then) = @_;
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,
'domains');
- my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="true">'.
+ my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="multiple">'.
' <option value="">'.&mt('Please select').'</option>';
if ($status eq 'old') {
my $content = $$access_controls{$item};
@@ -1716,7 +1716,7 @@
'group' => $groups,
);
foreach my $item ('role','access','section','group') {
- $output .= '<td><select name="'.$item.$longid.'" multiple="true" size="4">'."\n";
+ $output .= '<td><select name="'.$item.$longid.'" multiple="multiple" size="4">'."\n";
foreach my $entry (@{$allitems{$item}}) {
if ($caller eq 'display') {
if ((@{$$content{'roles'}{$role_id}{$item}} > 0) &&
Index: loncom/interface/statistics/lonproblemstatistics.pm
diff -u loncom/interface/statistics/lonproblemstatistics.pm:1.115 loncom/interface/statistics/lonproblemstatistics.pm:1.116
--- loncom/interface/statistics/lonproblemstatistics.pm:1.115 Thu Oct 30 17:45:25 2008
+++ loncom/interface/statistics/lonproblemstatistics.pm Tue Jan 20 16:38:44 2009
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonproblemstatistics.pm,v 1.115 2008/10/30 17:45:25 bisitz Exp $
+# $Id: lonproblemstatistics.pm,v 1.116 2009/01/20 16:38:44 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -577,7 +577,7 @@
}
sub field_selection_input {
- my $Str = '<select name="fieldselections" multiple size="5">'."\n";
+ my $Str = '<select name="fieldselections" multiple="multiple" size="5">'."\n";
$Str .= '<option value="all">all</option>'."\n";
foreach my $field (@Fields) {
next if ($field->{'selectable'} ne 'yes');
Index: rat/lonratedt.pm
diff -u rat/lonratedt.pm:1.91 rat/lonratedt.pm:1.92
--- rat/lonratedt.pm:1.91 Thu Nov 20 14:38:00 2008
+++ rat/lonratedt.pm Tue Jan 20 16:38:49 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Edit Handler for RAT Maps
#
-# $Id: lonratedt.pm,v 1.91 2008/11/20 14:38:00 jms Exp $
+# $Id: lonratedt.pm,v 1.92 2009/01/20 16:38:49 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -593,7 +593,7 @@
<input type=button onClick="javascript:viewtarget()" value="$lt{'vi'}">
</td></tr>
-<tr><td bgcolor="#FFFFCC"><select name="importsel" size=10 multiple>
+<tr><td bgcolor="#FFFFCC"><select name="importsel" size="10" multiple="multiple">
$importwindow
</select>
</td>
@@ -607,7 +607,7 @@
$lt{'pas'}<br>
<input type=submit name=paste value='-->'>
</td>
-<td bgcolor="#FFFFCC"><select name="target" size=10 multiple>
+<td bgcolor="#FFFFCC"><select name="target" size="10" multiple="multiple">
$targetwindow
</select>
</table>
--bisitz1232469530--