[LON-CAPA-cvs] cvs: loncom /homework grades.pm /interface loncommunicate.pm lonconfigsettings.pm loncoursegroups.pm loncreatecourse.pm loncreateuser.pm londocs.pm lonhtmlcommon.pm lonmenu.pm lonmodifycourse.pm lonnotify.pm lonparmset.pm lonpreferences.pm lonstatistics.pm
raeburn
raeburn at source.lon-capa.org
Sat Dec 13 08:33:33 EST 2025
raeburn Sat Dec 13 13:33:33 2025 EDT
Modified files:
/loncom/interface lonconfigsettings.pm loncommunicate.pm
loncoursegroups.pm loncreatecourse.pm
loncreateuser.pm londocs.pm lonhtmlcommon.pm
lonmenu.pm lonmodifycourse.pm lonnotify.pm
lonparmset.pm lonpreferences.pm lonstatistics.pm
/loncom/homework grades.pm
Log:
- WCAG compliance. Eliminate redundant text for screen readers.
Preserve alt='', i.e., null attribute where alttext => '' is explicitly
included in menu item hash.
-------------- next part --------------
Index: loncom/interface/lonconfigsettings.pm
diff -u loncom/interface/lonconfigsettings.pm:1.21.4.13.2.9 loncom/interface/lonconfigsettings.pm:1.21.4.13.2.10
--- loncom/interface/lonconfigsettings.pm:1.21.4.13.2.9 Mon Sep 19 19:28:31 2022
+++ loncom/interface/lonconfigsettings.pm Wed Jul 5 17:34:15 2023
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: lonconfigsettings.pm,v 1.21.4.13.2.9 2022/09/19 19:28:31 raeburn Exp $
+# $Id: lonconfigsettings.pm,v 1.21.4.13.2.10 2023/07/05 17:34:15 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -37,11 +37,12 @@
use Apache::lonlocal;
use Apache::courseclassifier();
use LONCAPA qw(:DEFAULT :match);
+use File::Copy;
sub print_header {
my ($r,$phase,$context,$jscript,$container,$instcode,$dom,$confname,$values) = @_;
my ($pagetitle,$brcrumtitle,$action,$call_category_check,$instcode_check,
- $linkprot_check,$crstype, at actions, at code_order);
+ $linkprot_check,$ltitools_check,$crstype, at actions, at code_order);
if ($phase eq 'display') {
@actions = &Apache::loncommon::get_env_multiple('form.actions');
}
@@ -115,8 +116,8 @@
ENDSCRIPT
}
}
- if (($context eq 'course') && ($phase eq 'display') &&
- (grep(/^linkprot$/, at actions))) {
+ if (($context eq 'course') && ((grep(/^linkprot$/, at actions)) ||
+ (grep(/^ltitools$/, at actions)))) {
my $allowed;
my $home = &Apache::lonnet::homeserver($confname,$dom);
unless ($home eq 'no_host') {
@@ -124,102 +125,12 @@
foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
}
if ($allowed) {
- my (@changeable, at settable);
- if (ref($values->{'linkprot'}) eq 'HASH') {
- if (keys(%{$values->{'linkprot'}})) {
- my @current = sort { $a <=> $b } keys(%{$values->{'linkprot'}});
- if (@current) {
- for (my $i=0; $i<@current; $i++) {
- my $num = $current[$i];
- if (ref($values->{'linkprot'}->{$num}) eq 'HASH') {
- if ($values->{'linkprot'}->{$num}->{'usable'}) {
- push(@changeable,$i);
- } else {
- push(@settable,$i);
- }
- }
- }
- }
- }
- }
- my ($numrules,$intargjs);
-$linkprot_check .= <<ENDJS;
-
-var linkprotradio = '';
-var secretinput = '';
-var posscheck = '';
-
-ENDJS
- if (@changeable) {
- foreach my $num (@changeable) {
- ($numrules,$intargjs) =
- &Apache::loncommon::passwd_validation_js('secretinput',$dom,'linkprot',$num);
- $linkprot_check .= <<ENDJS;
-posscheck = '';
-linkprotradio = document.display.elements['linkprot_changesecret_$num'];
-if (linkprotradio.length) {
- for (var i=0; i<linkprotradio.length; i++) {
- if (linkprotradio[i].checked) {
- if (linkprotradio[i].value == 1) {
- posscheck = 1;
- }
- }
- }
-}
-
-ENDJS
- if ($numrules) {
- $linkprot_check .= <<ENDJS;
-if (posscheck) {
- secretinput = document.display.elements['linkprot_secret_$num'].value;
- $intargjs
-}
-
-ENDJS
- }
- $linkprot_check .= <<ENDJS;
-if (posscheck) {
- uncheckLinkProtMakeVis('visible','$num');
- document.display.elements['linkprot_secret_$num'].type = 'password';
-}
-
-ENDJS
- }
- }
- if (@settable) {
- foreach my $num (@settable) {
- ($numrules,$intargjs) =
- &Apache::loncommon::passwd_validation_js('secretinput',$dom,'linkprot',$num);
- if ($numrules) {
- $linkprot_check .= <<ENDJS;
-secretinput = document.display.elements['linkprot_secret_$num'].value;
-$intargjs
-
-ENDJS
- }
- $linkprot_check .= <<ENDJS;
-uncheckLinkProtMakeVis('visible','$num');
-document.display.elements['linkprot_secret_$num'].type = 'password';
-
-ENDJS
- }
+ if (grep((/^linkprot$/, at actions))) {
+ $linkprot_check = <isecret_js('linkprot',$dom,$values);
}
- ($numrules,$intargjs) =
- &Apache::loncommon::passwd_validation_js('secretinput',$dom,'linkprot','add');
- if ($numrules) {
- $linkprot_check .= <<ENDJS
-secretinput = document.display.elements['linkprot_secret_add'].value;
-if (document.display.elements['linkprot_add'].checked) {
- $intargjs
-}
-
-ENDJS
+ if (grep((/^ltitools$/, at actions))) {
+ $ltitools_check = <isecret_js('ltitools',$dom,$values);
}
- $linkprot_check .= <<ENDJS;
-uncheckLinkProtMakeVis('visible','add');
-document.display.elements['linkprot_secret_add'].type = 'password';
-
-ENDJS
}
}
}
@@ -252,16 +163,21 @@
return;
}
}
- '.$instcode_check.$call_category_check.$linkprot_check.'
+ '.$instcode_check.$call_category_check.$linkprot_check.$ltitools_check.'
formname.submit();
}'."\n";
if ($phase eq 'pickactions') {
- $js .= &Apache::lonhtmlcommon::color_picker();
+ $js .= &Apache::lonhtmlcommon::color_picker();
$js .=
&Apache::lonhtmlcommon::set_form_elements({actions => 'checkbox'})."\n";
} elsif ($phase eq 'display') {
- $js .= &Apache::lonhtmlcommon::color_picker();
+ $js .= &Apache::lonhtmlcommon::color_picker();
$js .= &color_pick_js()."\n";
+ if ($context eq 'domain') {
+ if (grep(/^(lti|ltitools)$/, at actions)) {
+ $js .= <isec_javascript($dom)."\n";
+ }
+ }
}
$js .= &Apache::loncommon::viewport_size_js().'
@@ -322,22 +238,52 @@
$onload .= "toggleHelpdeskRow(document.display,'overrides','$customclass','$optionsprefix');";
}
if (grep(/^lti$/, at actions)) {
+ $onload .= "toggleLTI(document.display,'user','add');".
+ "toggleLTI(document.display,'crs','add');".
+ "toggleLTI(document.display,'sec','add');".
+ "toggleLTI(document.display,'lcauth','add');".
+ "toggleLTI(document.display,'lcmenu','add');".
+ "toggleLTI(document.display,'passback','add');".
+ "toggleLTI(document.display,'callback','add');";
+ if (ref($values) eq 'HASH') {
+ if (ref($values->{'lti'}) eq 'HASH') {
+ my $numlti = scalar(keys(%{$values->{'lti'}}));
+ for (my $i=0; $i<$numlti; $i++) {
+ $onload .= "toggleLTI(document.display,'user','$i');".
+ "toggleLTI(document.display,'crs','$i');".
+ "toggleLTI(document.display,'sec','$i');".
+ "toggleLTI(document.display,'lcauth','$i');".
+ "toggleLTI(document.display,'lcmenu','$i');".
+ "toggleLTI(document.display,'passback','$i');".
+ "toggleLTI(document.display,'callback','$i');";
+ }
+ }
+ }
my %servers = &Apache::lonnet::get_servers($dom,'library');
foreach my $server (keys(%servers)) {
- $onload .= "togglePrivKey(document.display,'$server');";
+ $onload .= "togglePrivKey(document.display,'ltisec','$server');";
}
- $onload .= "toggleLTIEncKey(document.display);";
+ $onload .= "toggleLTIEncKey(document.display,'ltisec');";
}
if (grep(/^ltitools$/, at actions)) {
- $onload .= "toggleLTITools(document.display,'user','add');";
+ $onload .= "toggleLTITools(document.display,'passback','add');".
+ "toggleLTITools(document.display,'roster','add');".
+ "toggleLTITools(document.display,'user','add');";
if (ref($values) eq 'HASH') {
if (ref($values->{'ltitools'}) eq 'HASH') {
my $numltitools = scalar(keys(%{$values->{'ltitools'}}));
for (my $i=0; $i<$numltitools; $i++) {
- $onload .= "toggleLTITools(document.display,'user','$i');";
+ $onload .= "toggleLTITools(document.display,'passback','$i');".
+ "toggleLTITools(document.display,'roster','$i');".
+ "toggleLTITools(document.display,'user','$i');";
}
}
}
+ my %servers = &Apache::lonnet::get_servers($dom,'library');
+ foreach my $server (keys(%servers)) {
+ $onload .= "togglePrivKey(document.display,'toolsec','$server');";
+ }
+ $onload .= "toggleLTIEncKey(document.display,'toolsec');";
}
if (grep(/^wafproxy$/, at actions)) {
$onload .= "toggleWAF();checkWAF();updateWAF();";
@@ -364,7 +310,7 @@
$additem = {'add_entries' => \%loaditems,};
}
} elsif ($context eq 'course') {
- my $onload;
+ my ($onload,$ishome,$crshome_checked);
if (grep(/^courseinfo$/, at actions)) {
if (@code_order) {
$onload = "courseSet('','load');toggleCloners(document.display.cloners_instcode);";
@@ -380,11 +326,9 @@
my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
$ltiauth = $domdefs{'crsltiauth'};
}
- my $ishome;
- my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
- unless (($chome eq 'no_host') || ($chome eq '')) {
- my @ids=&Apache::lonnet::current_machine_ids();
- foreach my $id (@ids) { if ($id eq $chome) { $ishome=1; } }
+ unless ($crshome_checked) {
+ $ishome = &is_home();
+ $crshome_checked = 1;
}
my $posslti = scalar(keys(%{$values->{'linkprot'}}));
for (my $i=0; $i<=$posslti; $i++) {
@@ -394,16 +338,42 @@
}
if (ref($values->{'linkprot'}->{$i}) eq 'HASH') {
if ($values->{'linkprot'}->{$i}->{'usable'}) {
- $onload .= "toggleLinkProt(document.display,'$num','secret');";
+ $onload .= "toggleChgSecret(document.display,'$num','secret','linkprot');";
}
}
- $onload .= "toggleLinkProtExtra(document.display,'returnurl','divurlparam','1','inline-block','$num');";
+ $onload .= "toggleLinkProtExtra(document.display,'returnurl','divurlparam','1','inline-block','$num');".
+ "toggleLinkProtExtra(document.display,'passback','passbackparam','1','inline-block','$num');";
if ($ltiauth) {
$onload .= "toggleLinkProtExtra(document.display,'requser','optional','1','block','$num');".
"toggleLinkProtExtra(document.display,'mapuser','userfield','other','inline-block','$num');";
}
if ($ishome) {
- $onload .= "uncheckLinkProtMakeVis('visible','$num');";
+ $onload .= "uncheckLinkProtMakeVis('linkprot','visible','$num');";
+ }
+ }
+ }
+ }
+ }
+ if (grep(/^ltitools$/, at actions)) {
+ if (ref($values) eq 'HASH') {
+ if (ref($values->{'ltitools'}) eq 'HASH') {
+ unless ($crshome_checked) {
+ $ishome = &is_home();
+ $crshome_checked = 1;
+ }
+ my $possltitools = scalar(keys(%{$values->{'ltitools'}}));
+ for (my $i=0; $i<=$possltitools; $i++) {
+ my $num = $i;
+ if ($i == $possltitools) {
+ $num = 'add';
+ }
+ if (ref($values->{'ltitools'}->{$i}) eq 'HASH') {
+ if ($values->{'ltitools'}->{$i}->{'usable'}) {
+ $onload .= "toggleChgSecret(document.display,'$num','secret','ltitools');";
+ }
+ }
+ if ($ishome) {
+ $onload .= "uncheckLinkProtMakeVis('ltitools','visible','$num');";
}
}
}
@@ -437,6 +407,126 @@
return;
}
+sub ltisecret_js {
+ my ($name,$dom,$values) = @_;
+ return unless (ref($values) eq 'HASH');
+ my $js;
+ if (($name eq 'linkprot') || ($name eq 'ltitools')) {
+ my (@changeable, at settable);
+ if (ref($values->{$name}) eq 'HASH') {
+ if (keys(%{$values->{$name}})) {
+ my @current = sort { $a <=> $b } keys(%{$values->{$name}});
+ if (@current) {
+ for (my $i=0; $i<@current; $i++) {
+ my $num = $current[$i];
+ if (ref($values->{$name}->{$num}) eq 'HASH') {
+ if ($values->{$name}->{$num}->{'usable'}) {
+ push(@changeable,$i);
+ } else {
+ push(@settable,$i);
+ }
+ }
+ }
+ }
+ }
+ }
+ my ($numrules,$intargjs);
+$js .= <<ENDJS;
+
+var ${name}radio = '';
+var ${name}secretinput = '';
+var ${name}posscheck = '';
+
+ENDJS
+ if (@changeable) {
+ foreach my $num (@changeable) {
+ ($numrules,$intargjs) =
+ &Apache::loncommon::passwd_validation_js($name.'secretinput',$dom,$name,$num);
+ $js .= <<"ENDJS";
+${name}posscheck = '';
+${name}radio = document.display.elements['${name}_changesecret_$num'];
+if (${name}radio.length) {
+ for (var i=0; i<${name}radio.length; i++) {
+ if (${name}radio[i].checked) {
+ if (${name}radio[i].value == 1) {
+ ${name}posscheck = 1;
+ }
+ }
+ }
+}
+
+ENDJS
+ if ($numrules) {
+ $js .= <<"ENDJS";
+if (${name}posscheck) {
+ ${name}secretinput = document.display.elements['${name}_secret_$num'].value;
+ $intargjs
+}
+
+ENDJS
+ }
+ $js .= <<"ENDJS";
+if (${name}posscheck) {
+ uncheckLinkProtMakeVis('$name','visible','$num');
+ document.display.elements['${name}_secret_$num'].type = 'password';
+}
+
+ENDJS
+ }
+ }
+ if (@settable) {
+ foreach my $num (@settable) {
+ ($numrules,$intargjs) =
+ &Apache::loncommon::passwd_validation_js($name.'secretinput',$dom,$name,$num);
+ if ($numrules) {
+ $js .= <<ENDJS;
+${name}secretinput = document.display.elements['${name}_secret_$num'].value;
+$intargjs
+
+ENDJS
+ }
+ $js .= <<ENDJS;
+uncheckLinkProtMakeVis('$name','visible','$num');
+document.display.elements['${name}_secret_$num'].type = 'password';
+
+ENDJS
+ }
+ }
+ ($numrules,$intargjs) =
+ &Apache::loncommon::passwd_validation_js($name.'secretinput',$dom,$name,'add');
+ if ($numrules) {
+ $js .= <<ENDJS
+${name}secretinput = document.display.elements['${name}_secret_add'].value;
+if (document.display.elements['${name}_add'].checked) {
+ $intargjs
+}
+
+ENDJS
+ }
+ $js .= <<ENDJS;
+uncheckLinkProtMakeVis('$name','visible','add');
+document.display.elements['${name}_secret_add'].type = 'password';
+
+ENDJS
+ }
+ return $js;
+}
+
+sub is_home {
+ my $ishome;
+ my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
+ unless (($chome eq 'no_host') || ($chome eq '')) {
+ my @ids=&Apache::lonnet::current_machine_ids();
+ foreach my $id (@ids) {
+ if ($id eq $chome) {
+ $ishome=1;
+ last;
+ }
+ }
+ }
+ return $ishome;
+}
+
sub print_footer {
my ($r,$phase,$newphase,$button_text,$actions,$container,$parm_permission) = @_;
$button_text = &mt($button_text);
@@ -574,7 +664,7 @@
if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) {
if (@actions > 0) {
my $rowsum = 0;
- my (%output,%rowtotal, at items);
+ my (%output,%rowtotal, at items,$got_check_uncheck,$got_change_secret);
foreach my $item (@{$prefs_order}) {
if (grep(/^\Q$item\E$/, at actions)) {
push(@items,$item);
@@ -613,15 +703,47 @@
$settings = $inststatus;
}
}
- } elsif ($item eq 'lti') {
- if (ref($values->{'ltisec'}) eq 'HASH') {
- $settings = $values->{'ltisec'};
+ } elsif (($item eq 'lti') || ($item eq 'ltitools')) {
+ unless ($got_change_secret) {
+ $r->print('<script type="text/javascript">'."\n".
+ '// <![CDATA['."\n".
+ &change_secret_js()."\n".
+ '// ]]>'."\n".
+ '</script>'."\n");
+ $got_change_secret = 1;
+ }
+ if ($item eq 'lti') {
+ if (ref($values->{'ltisec'}) eq 'HASH') {
+ if (ref($values->{'lti'}) eq 'HASH') {
+ $settings = {%{$values->{'lti'}},%{$values->{'ltisec'}}};
+ } else {
+ $settings = $values->{'ltisec'};
+ }
+ } elsif (ref($values->{'lti'}) eq 'HASH') {
+ $settings = $values->{'lti'};
+ }
+ } elsif ($item eq 'ltitools') {
+ if (ref($values->{'toolsec'}) eq 'HASH') {
+ if (ref($values->{'ltitools'}) eq 'HASH') {
+ $settings = {%{$values->{'ltitools'}},%{$values->{'toolsec'}}};
+ } else {
+ $settings = $values->{'toolsec'};
+ }
+ }
}
}
($output{$item},$rowtotal{$item}) =
&Apache::domainprefs::print_config_box($r,$dom,$confname,
$phase,$item,$prefs->{$item},$settings);
} else {
+ unless ($got_change_secret) {
+ $r->print('<script type="text/javascript">'."\n".
+ '// <![CDATA['."\n".
+ &change_secret_js()."\n".
+ '// ]]>'."\n".
+ '</script>'."\n");
+ $got_change_secret = 1;
+ }
($output{$item},$rowtotal{$item}) =
&Apache::courseprefs::print_config_box($r,$dom,$confname,$phase,
$item,$prefs->{$item},$values,$allitems,$crstype,$parm_permission);
@@ -750,6 +872,274 @@
return $output;
}
+sub ltisec_javascript {
+ my ($dom) = @_;
+ my %servers = &Apache::lonnet::get_servers($dom,'library');
+ my $primary = &Apache::lonnet::domain($dom,'primary');
+ my $course_servers = "'".join("','",keys(%servers))."'";
+ my $output = <<"ENDJS";
+
+function toggleLTIEncKey(form,context) {
+ var shownhosts = new Array();
+ var hiddenhosts = new Array();
+ var forcourse = new Array($course_servers);
+ var fromdomain = '$primary';
+ var crsradio;
+ if (context == 'ltisec') {
+ crsradio = form.elements['ltisec_crslinkprot'];
+ } else {
+ crsradio = form.elements['toolsec_crs'];
+ }
+ if (crsradio.length) {
+ for (var i=0; i<crsradio.length; i++) {
+ if (crsradio[i].checked) {
+ if (crsradio[i].value == 1) {
+ if (forcourse.length > 0) {
+ for (var j=0; j<forcourse.length; j++) {
+ if (!shownhosts.includes(forcourse[j])) {
+ shownhosts.push(forcourse[j]);
+ }
+ }
+ }
+ } else {
+ if (forcourse.length > 0) {
+ for (var j=0; j<forcourse.length; j++) {
+ if (!hiddenhosts.includes(forcourse[j])) {
+ hiddenhosts.push(forcourse[j]);
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ var domradio;
+ if (context == 'ltisec') {
+ domradio = form.elements['ltisec_domlinkprot'];
+ } else {
+ domradio = form.elements['toolsec_dom'];
+ }
+ if (domradio.length) {
+ for (var i=0; i<domradio.length; i++) {
+ if (domradio[i].checked) {
+ if (domradio[i].value == 1) {
+ if (!shownhosts.includes(fromdomain)) {
+ shownhosts.push(fromdomain);
+ }
+ } else {
+ if (!hiddenhosts.includes(fromdomain)) {
+ hiddenhosts.push(fromdomain);
+ }
+ }
+ }
+ }
+ }
+ if (context == 'ltisec') {
+ var consumersradio = form.elements['ltisec_consumers'];
+ if (consumersradio.length) {
+ for (var i=0; i<consumersradio.length; i++) {
+ if (consumersradio[i].checked) {
+ if (consumersradio[i].value == 1) {
+ if (!shownhosts.includes(fromdomain)) {
+ shownhosts.push(fromdomain);
+ }
+ } else {
+ if (!hiddenhosts.includes(fromdomain)) {
+ hiddenhosts.push(fromdomain);
+ }
+ }
+ }
+ }
+ }
+ }
+ if (shownhosts.length > 0) {
+ for (var i=0; i<shownhosts.length; i++) {
+ if (document.getElementById(context+'_info_'+shownhosts[i])) {
+ document.getElementById(context+'_info_'+shownhosts[i]).style.display = 'block';
+ }
+ }
+ if (document.getElementById(context+'_noprivkey')) {
+ document.getElementById(context+'_noprivkey').style.display = 'none';
+ }
+ } else {
+ if (document.getElementById(context+'_noprivkey')) {
+ document.getElementById(context+'_noprivkey').style.display = 'inline-block';
+ }
+ }
+ if (hiddenhosts.length > 0) {
+ for (var i=0; i<hiddenhosts.length; i++) {
+ if (!shownhosts.includes(hiddenhosts[i])) {
+ if (document.getElementById(context+'_info_'+hiddenhosts[i])) {
+ document.getElementById(context+'_info_'+hiddenhosts[i]).style.display = 'none';
+ }
+ }
+ }
+ }
+ return;
+}
+
+function togglePrivKey(form,context,hostid) {
+ var radioname = '';
+ var currdivid = '';
+ var newdivid = '';
+ if ((document.getElementById(context+'_divcurrprivkey_'+hostid)) &&
+ (document.getElementById(context+'_divchgprivkey_'+hostid))) {
+ currdivid = document.getElementById(context+'_divcurrprivkey_'+hostid);
+ newdivid = document.getElementById(context+'_divchgprivkey_'+hostid);
+ radioname = form.elements[context+'_changeprivkey_'+hostid];
+ if (radioname) {
+ if (radioname.length > 0) {
+ var setvis;
+ for (var i=0; i<radioname.length; i++) {
+ if (radioname[i].checked == true) {
+ if (radioname[i].value == 1) {
+ newdivid.style.display = 'inline-block';
+ currdivid.style.display = 'none';
+ setvis = 1;
+ }
+ break;
+ }
+ }
+ if (!setvis) {
+ newdivid.style.display = 'none';
+ currdivid.style.display = 'inline-block';
+ }
+ }
+ }
+ }
+ return;
+}
+
+ENDJS
+
+}
+
+sub ltitools_javascript {
+ my ($settings) = @_;
+ my $togglejs = <itools_toggle_js();
+ unless (ref($settings) eq 'HASH') {
+ return $togglejs;
+ }
+ my (%ordered,$total,%jstext);
+ $total = 0;
+ foreach my $item (keys(%{$settings})) {
+ if (ref($settings->{$item}) eq 'HASH') {
+ my $num = $settings->{$item}{'order'};
+ $ordered{$num} = $item;
+ }
+ }
+ $total = scalar(keys(%{$settings}));
+ my @jsarray = ();
+ foreach my $item (sort {$a <=> $b } (keys(%ordered))) {
+ push(@jsarray,$ordered{$item});
+ }
+ my $jstext = ' var ltitools = Array('."'".join("','", at jsarray)."'".');'."\n";
+ return <<"ENDSCRIPT";
+<script type="text/javascript">
+// <![CDATA[
+function reorderLTITools(form,item) {
+ var changedVal;
+$jstext
+ var newpos = 'ltitools_add_pos';
+ var maxh = 1 + $total;
+ var current = new Array;
+ var newitemVal = form.elements[newpos].options[form.elements[newpos].selectedIndex].value;
+ if (item == newpos) {
+ changedVal = newitemVal;
+ } else {
+ changedVal = form.elements[item].options[form.elements[item].selectedIndex].value;
+ current[newitemVal] = newpos;
+ }
+ for (var i=0; i<ltitools.length; i++) {
+ var elementName = 'ltitools_'+ltitools[i];
+ if (elementName != item) {
+ if (form.elements[elementName]) {
+ var currVal = form.elements[elementName].options[form.elements[elementName].selectedIndex].value;
+ current[currVal] = elementName;
+ }
+ }
+ }
+ var oldVal;
+ for (var j=0; j<maxh; j++) {
+ if (current[j] == undefined) {
+ oldVal = j;
+ }
+ }
+ if (oldVal < changedVal) {
+ for (var k=oldVal+1; k<=changedVal ; k++) {
+ var elementName = current[k];
+ form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex - 1;
+ }
+ } else {
+ for (var k=changedVal; k<oldVal; k++) {
+ var elementName = current[k];
+ form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex + 1;
+ }
+ }
+ return;
+}
+
+// ]]>
+</script>
+
+$togglejs
+
+ENDSCRIPT
+}
+
+sub ltitools_toggle_js {
+ return <<"ENDSCRIPT";
+<script type="text/javascript">
+// <![CDATA[
+
+function toggleLTITools(form,setting,item) {
+ var radioname = '';
+ var divid = '';
+ if ((setting == 'passback') || (setting == 'roster')) {
+ radioname = 'ltitools_'+setting+'_'+item;
+ divid = 'ltitools_'+setting+'time_'+item;
+ var num = form.elements[radioname].length;
+ if (num) {
+ var setvis = '';
+ for (var i=0; i<num; i++) {
+ if (form.elements[radioname][i].checked) {
+ if (form.elements[radioname][i].value == '1') {
+ if (document.getElementById(divid)) {
+ document.getElementById(divid).style.display = 'inline-block';
+ }
+ setvis = 1;
+ }
+ break;
+ }
+ }
+ }
+ if (!setvis) {
+ if (document.getElementById(divid)) {
+ document.getElementById(divid).style.display = 'none';
+ }
+ }
+ }
+ if (setting == 'user') {
+ divid = 'ltitools_'+setting+'_div_'+item;
+ var checkid = 'ltitools_'+setting+'_field_'+item;
+ if (document.getElementById(divid)) {
+ if (document.getElementById(checkid)) {
+ if (document.getElementById(checkid).checked) {
+ document.getElementById(divid).style.display = 'inline-block';
+ } else {
+ document.getElementById(divid).style.display = 'none';
+ }
+ }
+ }
+ }
+ return;
+}
+// ]]>
+</script>
+
+ENDSCRIPT
+}
+
sub get_crumb_text {
my %brcrumbtext = (
domain => 'Domain Settings',
@@ -758,4 +1148,271 @@
return %brcrumbtext;
}
+sub publishlogo {
+ my ($r,$action,$formname,$dom,$confname,$subdir,$thumbwidth,$thumbheight,
+ $savefileas,$modified) = @_;
+ my ($output,$fname,$logourl,$madethumb);
+ if ($action eq 'upload') {
+ $fname=$env{'form.'.$formname.'.filename'};
+ chop($env{'form.'.$formname});
+ } else {
+ ($fname) = ($formname =~ /([^\/]+)$/);
+ }
+ if ($savefileas ne '') {
+ $fname = $savefileas;
+ }
+ $fname=&Apache::lonnet::clean_filename($fname);
+# See if there is anything left
+ unless ($fname) { return ('error: no uploaded file'); }
+ $fname="$subdir/$fname";
+ my $docroot=$r->dir_config('lonDocRoot');
+ my $filepath="$docroot/priv";
+ my $relpath = "$dom/$confname";
+ my ($fnamepath,$file,$fetchthumb);
+ $file=$fname;
+ if ($fname=~m|/|) {
+ ($fnamepath,$file) = ($fname =~ m|^(.*)/([^/]+)$|);
+ }
+ my @parts=split(/\//,"$filepath/$relpath/$fnamepath");
+ my $count;
+ for ($count=5;$count<=$#parts;$count++) {
+ $filepath.="/$parts[$count]";
+ if ((-e $filepath)!=1) {
+ mkdir($filepath,02770);
+ }
+ }
+ # Check for bad extension and disallow upload
+ if ($file=~/\.(\w+)$/ &&
+ (&Apache::loncommon::fileembstyle($1) eq 'hdn')) {
+ $output =
+ &mt('Invalid file extension ([_1]) - reserved for internal use.',$1);
+ } elsif ($file=~/\.(\w+)$/ &&
+ !defined(&Apache::loncommon::fileembstyle($1))) {
+ $output = &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1);
+ } elsif ($file=~/\.(\d+)\.(\w+)$/) {
+ $output = &mt('Filename not allowed - rename the file to remove the number immediately before the file extension([_1]) and re-upload.',$2);
+ } elsif (-d "$filepath/$file") {
+ $output = &mt('Filename is a directory name - rename the file and re-upload');
+ } else {
+ my $source = $filepath.'/'.$file;
+ my $logfile;
+ if (!open($logfile,">>",$source.'.log')) {
+ return (&mt('No write permission to Authoring Space'));
+ }
+ print $logfile
+"\n================= Publish ".localtime()." ================\n".
+$env{'user.name'}.':'.$env{'user.domain'}."\n";
+# Save the file
+ if (!open(FH,">",$source)) {
+ &Apache::lonnet::logthis('Failed to create '.$source);
+ return (&mt('Failed to create file'));
+ }
+ if ($action eq 'upload') {
+ if (!print FH ($env{'form.'.$formname})) {
+ &Apache::lonnet::logthis('Failed to write to '.$source);
+ return (&mt('Failed to write file'));
+ }
+ } else {
+ my $original = &Apache::lonnet::filelocation('',$formname);
+ if(!copy($original,$source)) {
+ &Apache::lonnet::logthis('Failed to copy '.$original.' to '.$source);
+ return (&mt('Failed to write file'));
+ }
+ }
+ close(FH);
+ chmod(0660, $source); # Permissions to rw-rw---.
+
+ my $targetdir=$docroot.'/res/'.$dom.'/'.$confname .'/'.$fnamepath;
+ my $copyfile=$targetdir.'/'.$file;
+
+ my @parts=split(/\//,$targetdir);
+ my $path="/$parts[1]/$parts[2]/$parts[3]/$parts[4]";
+ for (my $count=5;$count<=$#parts;$count++) {
+ $path.="/$parts[$count]";
+ if (!-e $path) {
+ print $logfile "\nCreating directory ".$path;
+ mkdir($path,02770);
+ }
+ }
+ my $versionresult;
+ if (-e $copyfile) {
+ $versionresult = &logo_versioning($targetdir,$file,$logfile);
+ } else {
+ $versionresult = 'ok';
+ }
+ if ($versionresult eq 'ok') {
+ if (copy($source,$copyfile)) {
+ print $logfile "\nCopied original source to ".$copyfile."\n";
+ $output = 'ok';
+ $logourl = '/res/'.$dom.'/'.$confname.'/'.$fname;
+ if (ref($modified) eq 'ARRAY') {
+ push(@{$modified},[$copyfile,$source]);
+ }
+ my $metaoutput =
+ &write_metadata($dom,$confname,$formname,$targetdir,$file,$logfile);
+ } else {
+ print $logfile "\nUnable to write ".$copyfile.':'.$!."\n";
+ $output = &mt('Failed to copy file to RES space').", $!";
+ }
+ if (($thumbwidth =~ /^\d+$/) && ($thumbheight =~ /^\d+$/)) {
+ my $inputfile = $filepath.'/'.$file;
+ my $outfile = $filepath.'/'.'tn-'.$file;
+ my ($fullwidth,$fullheight) = &Apache::lonnet::check_dimensions($inputfile);
+ if ($fullwidth ne '' && $fullheight ne '') {
+ if ($fullwidth > $thumbwidth && $fullheight > $thumbheight) {
+ my $thumbsize = $thumbwidth.'x'.$thumbheight;
+ my @args = ('convert','-sample',$thumbsize,$inputfile,$outfile);
+ system({$args[0]} @args);
+ chmod(0660, $filepath.'/tn-'.$file);
+ if (-e $outfile) {
+ my $copyfile=$targetdir.'/tn-'.$file;
+ if (copy($outfile,$copyfile)) {
+ print $logfile "\nCopied source to ".$copyfile."\n";
+ my $thumb_metaoutput =
+ &write_metadata($dom,$confname,$formname,
+ $targetdir,'tn-'.$file,$logfile);
+ if (ref($modified) eq 'ARRAY') {
+ push(@{$modified},[$copyfile,$outfile]);
+ }
+ $madethumb = 1;
+ } else {
+ print $logfile "\nUnable to write ".$copyfile.
+ ':'.$!."\n";
+ }
+ }
+ }
+ }
+ }
+ } else {
+ $output = $versionresult;
+ }
+ }
+ return ($output,$logourl,$madethumb);
+}
+
+sub logo_versioning {
+ my ($targetdir,$file,$logfile) = @_;
+ my $target = $targetdir.'/'.$file;
+ my ($maxversion,$fn,$extn,$output);
+ $maxversion = 0;
+ if ($file =~ /^(.+)\.(\w+)$/) {
+ $fn=$1;
+ $extn=$2;
+ }
+ opendir(DIR,$targetdir);
+ while (my $filename=readdir(DIR)) {
+ if ($filename=~/\Q$fn\E\.(\d+)\.\Q$extn\E$/) {
+ $maxversion=($1>$maxversion)?$1:$maxversion;
+ }
+ }
+ $maxversion++;
+ print $logfile "\nCreating old version ".$maxversion."\n";
+ my $copyfile=$targetdir.'/'.$fn.'.'.$maxversion.'.'.$extn;
+ if (copy($target,$copyfile)) {
+ print $logfile "Copied old target to ".$copyfile."\n";
+ $copyfile=$copyfile.'.meta';
+ if (copy($target.'.meta',$copyfile)) {
+ print $logfile "Copied old target metadata to ".$copyfile."\n";
+ $output = 'ok';
+ } else {
+ print $logfile "Unable to write metadata ".$copyfile.':'.$!."\n";
+ $output = &mt('Failed to copy old meta').", $!, ";
+ }
+ } else {
+ print $logfile "Unable to write ".$copyfile.':'.$!."\n";
+ $output = &mt('Failed to copy old target').", $!, ";
+ }
+ return $output;
+}
+
+sub write_metadata {
+ my ($dom,$confname,$formname,$targetdir,$file,$logfile) = @_;
+ my (%metadatafields,%metadatakeys,$output);
+ $metadatafields{'title'}=$formname;
+ $metadatafields{'creationdate'}=time;
+ $metadatafields{'lastrevisiondate'}=time;
+ $metadatafields{'copyright'}='public';
+ $metadatafields{'modifyinguser'}=$env{'user.name'}.':'.
+ $env{'user.domain'};
+ $metadatafields{'authorspace'}=$confname.':'.$dom;
+ $metadatafields{'domain'}=$dom;
+ {
+ print $logfile "\nWrite metadata file for ".$targetdir.'/'.$file;
+ my $mfh;
+ if (open($mfh,">",$targetdir.'/'.$file.'.meta')) {
+ foreach (sort(keys(%metadatafields))) {
+ unless ($_=~/\./) {
+ my $unikey=$_;
+ $unikey=~/^([A-Za-z]+)/;
+ my $tag=$1;
+ $tag=~tr/A-Z/a-z/;
+ print $mfh "\n\<$tag";
+ foreach (split(/\,/,$metadatakeys{$unikey})) {
+ my $value=$metadatafields{$unikey.'.'.$_};
+ $value=~s/\"/\'\'/g;
+ print $mfh ' '.$_.'="'.$value.'"';
+ }
+ print $mfh '>'.
+ &HTML::Entities::encode($metadatafields{$unikey},'<>&"')
+ .'</'.$tag.'>';
+ }
+ }
+ $output = 'ok';
+ print $logfile "\nWrote metadata";
+ close($mfh);
+ } else {
+ print $logfile "\nFailed to open metadata file";
+ $output = &mt('Could not write metadata');
+ }
+ }
+ return $output;
+}
+
+sub change_secret_js {
+ return <<"ENDSCRIPT";
+function toggleChgSecret(form,num,item,name) {
+ var radioname = '';
+ var currdivid = '';
+ var newdivid = '';
+ if ((document.getElementById(name+'_divcurr'+item+'_'+num)) &&
+ (document.getElementById(name+'_divchg'+item+'_'+num))) {
+ currdivid = document.getElementById(name+'_divcurr'+item+'_'+num);
+ newdivid = document.getElementById(name+'_divchg'+item+'_'+num);
+ radioname = form.elements[name+'_change'+item+'_'+num];
+ if (radioname) {
+ if (radioname.length > 0) {
+ var setvis;
+ for (var i=0; i<radioname.length; i++) {
+ if (radioname[i].checked == true) {
+ if (radioname[i].value == 1) {
+ newdivid.style.display = 'inline-block';
+ currdivid.style.display = 'none';
+ setvis = 1;
+ }
+ break;
+ }
+ }
+ if (!setvis) {
+ newdivid.style.display = 'none';
+ currdivid.style.display = 'inline-block';
+ }
+ }
+ }
+ }
+ return;
+}
+
+function uncheckLinkProtMakeVis(name,item,num) {
+ if (document.getElementById(name+'_'+item+'_'+num)) {
+ var currtype = document.getElementById(name+'_'+item+'_'+num).type;
+ if (currtype.toLowerCase() == 'checkbox') {
+ document.getElementById(name+'_'+item+'_'+num).checked = false;
+ }
+ }
+ return;
+}
+ENDSCRIPT
+
+}
+
1;
Index: loncom/interface/loncommunicate.pm
diff -u loncom/interface/loncommunicate.pm:1.49 loncom/interface/loncommunicate.pm:1.50
--- loncom/interface/loncommunicate.pm:1.49 Sat Dec 13 13:25:46 2025
+++ loncom/interface/loncommunicate.pm Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Communicate
#
-# $Id: loncommunicate.pm,v 1.49 2025/12/13 13:25:46 raeburn Exp $
+# $Id: loncommunicate.pm,v 1.50 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -92,12 +92,14 @@
{url => '/adm/email?compose=individual',
permission => 'F',
icon => 'mail-message-new.png',
+ alttext => '',
linktext => 'New Message',
linktitle => 'Send a message to users.'},
{url => '/adm/email?compose=group',
permission => "$can_srm",
icon => 'mail-reply-all.png',
+ alttext => '',
linktext => 'New Broadcast Message',
help => 'Course_Broadcast_Message',
linktitle => "Send a broadcast message to members of this $crstype and/or other users."},
@@ -105,6 +107,7 @@
{url => '/adm/email?compose=upload',
permission => "$can_srm",
icon => 'fromfile.png',
+ alttext => '',
linktext => 'New Messages from File',
linktitle => 'Create a message from file and send to users.'},
]},
@@ -117,6 +120,7 @@
{url => '/adm/email?recordftf=query',
permission => "$can_dff",
icon => 'messalog.png',
+ alttext => '',
linktext => 'Message Log for Selected Users',
help => 'Course_Face_To_Face_Records,Course_Critical_Message',
linktitle => "User notes, records of face-to-face discussions, critical messages, broadcast messages and archived messages in $crstype."},
@@ -124,6 +128,7 @@
{url => '/adm/setblock?caller=email',
permission => "$can_dcm",
icon => 'comblock.png',
+ alttext => '',
linktext => 'Communication Blocking',
linktitle => "Blocking of $usertype communication during exams."},
]});
Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.133 loncom/interface/loncoursegroups.pm:1.134
--- loncom/interface/loncoursegroups.pm:1.133 Sat Dec 13 05:56:01 2025
+++ loncom/interface/loncoursegroups.pm Sat Dec 13 13:33:33 2025
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: loncoursegroups.pm,v 1.133 2025/12/13 05:56:01 raeburn Exp $
+# $Id: loncoursegroups.pm,v 1.134 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3811,21 +3811,21 @@
{ linktext => "Modify default $gpterm settings",
url => '/adm/coursegroups?action=modify&refpage='.$env{'form.refpage'}.'&groupname='.$groupname.'&state=change_settings&branch=settings',
icon => 'grp_settings.png',
- alttext => "Modify default $gpterm settings",
+ alttext => '',
permission => '1',
help => 'Course_Modify_Group',
},
{ linktext => 'Modify access, tools and privileges for members',
url => '/adm/coursegroups?action=modify&refpage='.$env{'form.refpage'}.'&groupname='.$groupname.'&state=change_members&branch=members',
icon => 'grp_tools.png',
- alttext => 'Modify access, tools and privileges for members',
+ alttext => '',
permission => '1',
help => 'Course_Modify_Group_Membership',
},
{ linktext => "Add member(s) to the $gpterm",
url => '/adm/coursegroups?action=modify&refpage='.$env{'form.refpage'}.'&groupname='.$groupname.'&state=add_members&branch=adds',
icon => 'grp_add.png',
- alttext => "Add member(s) to the $gpterm",
+ alttext => '',
permission => '1',
help => 'Course_Group_Add_Members',
}]}
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.179 loncom/interface/loncreatecourse.pm:1.180
--- loncom/interface/loncreatecourse.pm:1.179 Sat Dec 13 05:56:01 2025
+++ loncom/interface/loncreatecourse.pm Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Create a course
#
-# $Id: loncreatecourse.pm,v 1.179 2025/12/13 05:56:01 raeburn Exp $
+# $Id: loncreatecourse.pm,v 1.180 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -843,6 +843,7 @@
permission => $permission->{'create'},
#help => '',
icon => 'crsnew.png',
+ alttext => '',
linktitle => 'Create a new course by completing an online form.'
},
{
@@ -851,6 +852,7 @@
permission => $permission->{'create'} && $cancreate->{'Community'},
#help => '',
icon => 'crsnew.png',
+ alttext => '',
linktitle => 'Create a new collaborative community by completing an online form.'
},
{
@@ -859,6 +861,7 @@
permission => $permission->{'create'} && $cancreate->{'Placement'},
#help => '',
icon => 'crsnew.png',
+ alttext => '',
linktitle => 'Create a new placement test by completing an online form.'
},
{
@@ -867,6 +870,7 @@
permission => $permission->{'create'},
help => 'Batch_Creation',
icon => 'uplcrs.png',
+ alttext => '',
linktitle => 'Upload an attributes file containing specifications for one or more courses, communities or placement tests in XML format.'
},
]
@@ -879,6 +883,7 @@
permission => $show_all_choices,
#help => '',
icon => 'rcrs.png',
+ alttext => '',
linktitle => 'Display course, community creation and placement test requests submitted by authorized users, held pending approval by a Domain Coordinator.'
},
{
@@ -900,6 +905,7 @@
permission => $show_all_choices,
#help => '',
icon => 'document-properties.png',
+ alttext => '',
linktitle => 'Display information about when, how and by whom courses, communities and placement tests were created in this domain.'
},
]
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.487 loncom/interface/loncreateuser.pm:1.488
--- loncom/interface/loncreateuser.pm:1.487 Sat Dec 13 05:56:01 2025
+++ loncom/interface/loncreateuser.pm Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.487 2025/12/13 05:56:01 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.488 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -6844,6 +6844,7 @@
{
linktext => $links{$linkcontext}{'singleuser'},
icon => 'edit-redo.png',
+ alttext => '',
#help => 'Course_Change_Privileges',
url => '/adm/createuser?action=singleuser',
permission => ($permission->{'view'} || $permission->{'cusr'}),
@@ -6857,6 +6858,7 @@
{
linktext => $links{$linkcontext}{'upload'},
icon => 'uplusr.png',
+ alttext => '',
#help => 'Course_Create_Class_List',
url => '/adm/createuser?action=upload',
permission => $permission->{'cusr'},
@@ -6865,6 +6867,7 @@
{
linktext => $links{$linkcontext}{'listusers'},
icon => 'mngcu.png',
+ alttext => '',
#help => 'Course_View_Class_List',
url => '/adm/createuser?action=listusers',
permission => ($permission->{'view'} || $permission->{'cusr'}),
@@ -6882,6 +6885,7 @@
{
linktext => 'User Access Log',
icon => 'document-properties.png',
+ alttext => '',
#help => 'Domain_User_Access_Logs',
url => '/adm/createuser?action=accesslogs',
permission => $permission->{'activity'},
@@ -6893,6 +6897,7 @@
{
linktext => 'Custom Roles',
icon => 'emblem-photos.png',
+ alttext => '',
#help => 'Course_Editing_Custom_Roles',
url => '/adm/createuser?action=custom',
permission => $permission->{'custom'},
@@ -6901,6 +6906,7 @@
{
linktext => 'Authoring Space Requests',
icon => 'selfenrl-queue.png',
+ alttext => '',
#help => 'Domain_Role_Approvals',
url => '/adm/createuser?action=processauthorreq',
permission => $permission->{'cusr'},
@@ -6909,6 +6915,7 @@
{
linktext => 'LON-CAPA Account Requests',
icon => 'list-add.png',
+ alttext => '',
#help => 'Domain_Username_Approvals',
url => '/adm/createuser?action=processusernamereq',
permission => $permission->{'cusr'},
@@ -6917,6 +6924,7 @@
{
linktext => 'Change Log',
icon => 'document-properties.png',
+ alttext => '',
#help => 'Course_User_Logs',
url => '/adm/createuser?action=changelogs',
permission => ($permission->{'cusr'} || $permission->{'view'}),
@@ -6961,6 +6969,7 @@
linktext => $linktext{$crstype}{'single'},
#help => 'Course_Add_Student',
icon => 'list-add.png',
+ alttext => '',
url => '/adm/createuser?action=singlestudent',
permission => $permission->{'cusr'},
linktitle => $linktitle{$crstype}{'single'},
@@ -6971,6 +6980,7 @@
{
linktext => $linktext{$crstype}{'drop'},
icon => 'edit-undo.png',
+ alttext => '',
#help => 'Course_Drop_Student',
url => '/adm/createuser?action=drop',
permission => $permission->{'cusr'},
@@ -6981,6 +6991,7 @@
{
linktext => 'Helpdesk Access',
icon => 'helpdesk-access.png',
+ alttext => '',
#help => 'Course_Helpdesk_Access',
url => '/adm/createuser?action=helpdesk',
permission => (($permission->{'owner'} || $permission->{'co-owner'}) &&
@@ -6990,6 +7001,7 @@
{
linktext => 'Custom Roles',
icon => 'emblem-photos.png',
+ alttext => '',
#help => 'Course_Editing_Custom_Roles',
url => '/adm/createuser?action=custom',
permission => $permission->{'custom'},
@@ -6998,6 +7010,7 @@
{
linktext => $linktext{$crstype}{'groups'},
icon => 'grps.png',
+ alttext => '',
#help => 'Course_Manage_Group',
url => '/adm/coursegroups?refpage=cusr',
permission => $permission->{'grp_manage'},
@@ -7006,6 +7019,7 @@
{
linktext => 'Change Log',
icon => 'document-properties.png',
+ alttext => '',
#help => 'Course_User_Logs',
url => '/adm/createuser?action=changelogs',
permission => ($permission->{'view'} || $permission->{'cusr'}),
@@ -7017,6 +7031,7 @@
{
linktext => 'Enrollment Requests',
icon => 'selfenrl-queue.png',
+ alttext => '',
#help => 'Course_Approve_Selfenroll',
url => '/adm/createuser?action=selfenrollqueue',
permission => $permission->{'selfenrolladmin'} || $permission->{'selfenrollview'},
@@ -7031,6 +7046,7 @@
{
linktext => 'Automated Enrollment',
icon => 'roles.png',
+ alttext => '',
#help => 'Course_Automated_Enrollment',
permission => (&Apache::lonnet::auto_run($cnum,$cdom)
&& (($permission->{'cusr'}) ||
@@ -7044,6 +7060,7 @@
{
linktext => 'User Self-Enrollment',
icon => 'self_enroll.png',
+ alttext => '',
#help => 'Course_Self_Enrollment',
url => '/adm/createuser?action=selfenroll',
permission => $permission->{'selfenrolladmin'} || $permission->{'selfenrollview'},
@@ -7067,6 +7084,7 @@
{
linktext => 'Co-author-viewable list',
icon => 'clst.png',
+ alttext => '',
#help => 'Coauthor_Listing',
url => '/adm/createuser?action=calist&forceedit=0',
permission => $permission->{'cusr'},
@@ -7077,6 +7095,7 @@
{
linktext => 'Change Log',
icon => 'document-properties.png',
+ alttext => '',
#help => 'Course_User_Logs',
url => '/adm/createuser?action=changelogs',
permission => $permission->{'cusr'},
@@ -7085,6 +7104,7 @@
{
linktext => 'Co-author Managers',
icon => 'camanager.png',
+ alttext => '',
#help => 'Coauthor_Management',
url => '/adm/createuser?action=camanagers',
permission => $permission->{'author'},
@@ -7093,6 +7113,7 @@
{
linktext => 'Configure Co-author Listing',
icon => 'coauthors.png',
+ alttext => '',
#help => 'Coauthor_Settings',
url => '/adm/createuser?action=calist&forceedit=1',
permission => ($permission->{'cusr'}),
@@ -7104,6 +7125,7 @@
{
linktext => 'Role Requests (other domains)',
icon => 'edit-find.png',
+ alttext => '',
#help => 'Role_Requests',
url => '/adm/createuser?action=rolerequests',
permission => $permission->{'cusr'},
@@ -7115,6 +7137,7 @@
{
linktext => 'Queued Role Assignments (this domain)',
icon => 'edit-find.png',
+ alttext => '',
#help => 'Role_Approvals',
url => '/adm/createuser?action=queuedroles',
permission => $permission->{'cusr'},
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.731 loncom/interface/londocs.pm:1.732
--- loncom/interface/londocs.pm:1.731 Sat Dec 13 05:56:01 2025
+++ loncom/interface/londocs.pm Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.731 2025/12/13 05:56:01 raeburn Exp $
+# $Id: londocs.pm,v 1.732 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -8540,6 +8540,7 @@
permission => 'F',
help => 'Docs_Verify_Content',
icon => 'verify.png',
+ alttext => '',
linktitle => 'Verify contents can be retrieved/rendered',
},
{ linktext => $lt{'cv'},
@@ -8547,6 +8548,7 @@
permission => 'F',
help => 'Docs_Check_Resource_Versions',
icon => 'resversion.png',
+ alttext => '',
linktitle => "View version information for resources in your $lc_crstype, and fix/unfix use of specific versions",
},
{ linktext => $lt{'ls'},
@@ -8554,6 +8556,7 @@
permission => 'F',
#help => '',
icon => 'symbs.png',
+ alttext => '',
linktitle => "List the unique identifier used for each resource instance in your $lc_crstype"
},
{ linktext => $lt{'ct'},
@@ -8561,6 +8564,7 @@
permission => 'F',
help => 'Docs_Short_URLs',
icon => 'shorturls.png',
+ alttext => '',
linktitle => "Set shortened URLs for a resource or folder in your $lc_crstype for use in deep-linking"
},
]
@@ -8588,6 +8592,7 @@
permission => 'F',
help => 'Docs_Course_Authorspace',
icon => 'impcrsau.png',
+ alttext => '',
linktitle => $lt{'ca'},
});
}
@@ -8601,6 +8606,7 @@
permission => 'F',
help => 'Docs_Export_Course_Docs',
icon => 'imsexport.png',
+ alttext => '',
linktitle => $lt{'imse'},
},
{ linktext => $lt{'dcd'},
@@ -8608,6 +8614,7 @@
permission => $candump,
help => 'Docs_Dump_Course_Docs',
icon => 'dump.png',
+ alttext => '',
linktitle => $lt{'dcd'},
},
]
@@ -8620,6 +8627,7 @@
permission => 'F',
help => 'Docs_Export_Course_Author',
icon => 'res.png',
+ alttext => '',
linktitle => $lt{'cpc'},
});
}
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.425 loncom/interface/lonhtmlcommon.pm:1.426
--- loncom/interface/lonhtmlcommon.pm:1.425 Sun Sep 7 04:21:13 2025
+++ loncom/interface/lonhtmlcommon.pm Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.425 2025/09/07 04:21:13 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.426 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3875,14 +3875,14 @@
# NOTES:
# - Empty elements, such as <br/> are correctly terminated,
# i.e. htmltag('br') returns <br/>
-# - Empty attributes (title="") are filtered out.
+# - Empty attributes (e.g., title="") with the exception of alt="" are filtered out.
# - The function will not check for deprecated attributes.
#
# OUTPUT: content enclosed in xhtml conform tags
sub htmltag{
return
qq|<$_[0]|
- . join( '', map { qq| $_="${$_[2]}{$_}"| if ${$_[2]}{$_} } keys(%{ $_[2] }) )
+ . join( '', map { qq| $_="${$_[2]}{$_}"| if ${$_[2]}{$_} || $_ eq 'alt' } keys(%{ $_[2] }) )
. ($_[1] ? qq|>$_[1]</$_[0]>| : qq|/>|). "\n";
};
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.567 loncom/interface/lonmenu.pm:1.568
--- loncom/interface/lonmenu.pm:1.567 Wed Nov 26 19:43:20 2025
+++ loncom/interface/lonmenu.pm Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines to control the menu
#
-# $Id: lonmenu.pm,v 1.567 2025/11/26 19:43:20 raeburn Exp $
+# $Id: lonmenu.pm,v 1.568 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2000,7 +2000,7 @@
url => 'javascript:'.$act,
permission => 'F',
icon => $img,
- alttext => $alttext,
+ alttext => '',
linktitle => '',
};
} else {
Index: loncom/interface/lonmodifycourse.pm
diff -u loncom/interface/lonmodifycourse.pm:1.108 loncom/interface/lonmodifycourse.pm:1.109
--- loncom/interface/lonmodifycourse.pm:1.108 Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonmodifycourse.pm Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# handler for DC-only modifiable course settings
#
-# $Id: lonmodifycourse.pm,v 1.108 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonmodifycourse.pm,v 1.109 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -520,6 +520,7 @@
permission => $permission->{'setparms'},
#help => '',
icon => 'crsconf.png',
+ alttext => '',
linktitle => ''
},
{
@@ -528,6 +529,7 @@
permission => $permission->{'setquota'},
#help => '',
icon => 'groupportfolioquota.png',
+ alttext => '',
linktitle => ''
},
{
@@ -536,6 +538,7 @@
permission => $permission->{'setanon'},
#help => '',
icon => 'anonsurveythreshold.png',
+ alttext => '',
linktitle => ''
},
{
@@ -544,6 +547,7 @@
permission => (($permission->{'catsettings'}) && (@additional_params > 0)),
#help => '',
icon => 'ccatconf.png',
+ alttext => '',
linktitle => ''
},
{
@@ -552,11 +556,13 @@
permission => ($permission->{'viewparms'} && ($type ne 'Community') && ($type ne 'Placement')),
#help => '',
icon => 'roles.png',
+ alttext => '',
linktitle => ''
},
{
linktext => $linktext{'selfenroll'},
icon => 'self_enroll.png',
+ alttext => '',
#help => 'Course_Self_Enrollment',
url => &phaseurl('selfenroll'),
permission => &manage_selfenrollment($cdom,$cnum,$type,$coursehash,$permission),
@@ -565,6 +571,7 @@
{
linktext => $linktext{'setpostsubmit'},
icon => 'emblem-readonly.png',
+ alttext => '',
#help => '',
url => &phaseurl('setpostsubmit'),
permission => $permission->{'setpostsubmit'},
@@ -573,6 +580,7 @@
{
linktext => $linktext{'setltiauth'},
icon => 'system-lock-screen.png',
+ alttext => '',
#help => '',
url => &phaseurl('setltiauth'),
permission => $permission->{'setltiauth'},
@@ -581,6 +589,7 @@
{
linktext => $linktext{'setexttool'},
icon => 'exttool.png',
+ alttext => '',
#help => '',
url => &phaseurl('setexttool'),
permission => $permission->{'setexttool'},
@@ -589,6 +598,7 @@
{
linktext => $linktext{'setcrsauthor'},
icon => 'crsauthor.png',
+ alttext => '',
#help => '',
url => &phaseurl('setcrsauthor'),
permission => $permission->{'setcrsauthor'},
@@ -597,6 +607,7 @@
{
linktext => $linktext{'setcrseditors'},
icon => 'crseditors.png',
+ alttext => '',
#help => '',
url => &phaseurl('setcrseditors'),
permission => $permission->{'setcrseditors'},
Index: loncom/interface/lonnotify.pm
diff -u loncom/interface/lonnotify.pm:1.45 loncom/interface/lonnotify.pm:1.46
--- loncom/interface/lonnotify.pm:1.45 Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonnotify.pm Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Sending messages
#
-# $Id: lonnotify.pm,v 1.45 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonnotify.pm,v 1.46 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -153,6 +153,7 @@
permission => 1,
#help => '',
icon => 'mail-reply-all.png',
+ alttext => '',
linktitle => 'Send a new e-mail to selected users from this domain'
},
{ linktext => 'Display sent e-mails',
@@ -160,6 +161,7 @@
permission => 1,
#help => '',
icon => 'messalog.png',
+ alttext => '',
linktitle => 'Display e-mail sent by Domain Coordinators in this domain'
},
]
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.631 loncom/interface/lonparmset.pm:1.632
--- loncom/interface/lonparmset.pm:1.631 Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonparmset.pm Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set parameters for assessments
#
-# $Id: lonparmset.pm,v 1.631 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonparmset.pm,v 1.632 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -7165,30 +7165,35 @@
permission => $parm_permission->{'setrestrictmeta'},
linktitle => "Restrict metadata for this $lc_crstype." ,
icon =>'contact-new.png',
+ alttext => '',
},
{ linktext => 'Reset Student Access Times',
url => '/adm/helper/resettimes.helper',
permission => $mgr,
linktitle => "Reset access times for folders/maps, resources or the $lc_crstype.",
icon => 'start-here.png',
+ alttext => '',
},
{ linktext => "Show Start Times for Students' Quiz/Exam Timers",
url => '/adm/accesstimes',
permission => ($vgr || $mgr),
linktitle => "Display when timer was started by students for folders/maps, resources or the $lc_crstype.",
icon => 'accesstimes.png',
+ alttext => '',
},
{ linktext => 'Blocking Communication/Resource Access',
url => '/adm/setblock',
permission => ($vcb || $dcm),
linktitle => 'Configure blocking of communication/collaboration and access to resources during an exam',
icon => 'comblock.png',
+ alttext => '',
},
{ linktext => 'Set Parameter Setting Default Actions',
url => '/adm/parmset?action=setdefaults',
permission => $parm_permission->{'setdefaults'},
linktitle =>'Set default actions for parameters.' ,
icon => 'folder-new.png' ,
+ alttext => '',
}]},
{ categorytitle => 'New and Existing Parameter Settings for Resources',
items => [
@@ -7197,6 +7202,7 @@
permission => $parm_permission->{'helper'},
linktitle =>'Set/Modify resource parameters in helper mode.' ,
icon => 'dialog-information.png' ,
+ alttext => '',
#help => 'Parameter_Helper',
},
{ linktext => $linktext{'newoverview'},
@@ -7204,6 +7210,7 @@
permission => $parm_permission->{'newoverview'},
linktitle => $linktitle{'newoverview'},
icon => 'edit-find.png',
+ alttext => '',
#help => 'Parameter_Overview',
},
{ linktext => $linktext{'settable'},
@@ -7211,6 +7218,7 @@
permission => $parm_permission->{'settable'},
linktitle => $linktitle{'settable'},
icon => 'edit-copy.png',
+ alttext => '',
#help => 'Table_Mode',
}]},
{ categorytitle => 'Existing Parameter Settings for Resources',
@@ -7220,6 +7228,7 @@
permission => $parm_permission->{'setoverview'},
linktitle => $linktitle{'setoverview'},
icon => 'preferences-desktop-wallpaper.png',
+ alttext => '',
#help => 'Parameter_Overview',
},
{ linktext => 'Change Log',
@@ -7227,6 +7236,7 @@
permission => $parm_permission->{'parameterchangelog'},
linktitle =>"View parameter and $lc_crstype blog posting/user notification change log." ,
icon => 'document-properties.png',
+ alttext => '',
}]}
);
$r->print(&Apache::lonhtmlcommon::generate_menu(@menu));
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.250 loncom/interface/lonpreferences.pm:1.251
--- loncom/interface/lonpreferences.pm:1.250 Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonpreferences.pm Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Preferences
#
-# $Id: lonpreferences.pm,v 1.250 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.251 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2684,7 +2684,7 @@
permission => $permissions{'aboutme'},
#help => 'Prefs_About_Me',
icon => 'system-users.png',
- alttext => 'About Me Icon',
+ alttext => '',
linktitle => 'Edit information about yourself that should be displayed on your public profile.'
},
{ linktext => 'Screen Name',
@@ -2692,7 +2692,7 @@
permission => 'F',
#help => 'Prefs_Screen_Name_Nickname',
icon => 'preferences-desktop-font.png',
- alttext => 'Nickname Icon',
+ alttext => '',
linktitle => 'Change the name that is displayed in your posts.'
},
]
@@ -2704,7 +2704,7 @@
permission => 'F',
#help => 'Prefs_Language',
icon => 'preferences-desktop-locale.png',
- alttext => 'Language Icon',
+ alttext => '',
linktitle => 'Choose the default language for this user.'
},
{ linktext => $role.' Page',
@@ -2712,7 +2712,7 @@
permission => 'F',
#help => '',
icon => 'role_hotlist.png',
- alttext => 'Switch Role Icon',
+ alttext => '',
linktitle => 'Configure the roles hotlist.'
},
{ linktext => 'Math display settings',
@@ -2720,7 +2720,7 @@
permission => 'F',
#help => '',
icon => 'dismath.png',
- alttext => 'Math Icon',
+ alttext => '',
linktitle => 'Change how math is displayed.'
},
{
@@ -2729,7 +2729,7 @@
permission => $permissions{'timezone'},
#help => '',
icon => 'timezone.png',
- alttext => 'Clock Icon',
+ alttext => '',
linktitle => 'Set your time zone.',
}
]
@@ -2741,7 +2741,7 @@
permission => 'F',
#help => 'Change_Colors',
icon => 'preferences-desktop-theme.png',
- alttext => 'Colors Icon',
+ alttext => '',
linktitle => 'Change LON-CAPA default colors.'
},
{ linktext => 'Menu Display',
@@ -2749,7 +2749,7 @@
permission => 'F',
#help => '',
icon => 'preferences-system-windows.png',
- alttext => 'Menus Icon',
+ alttext => '',
linktitle => 'Change whether the menus are displayed with icons or icons and text.'
}
]
@@ -2761,7 +2761,7 @@
permission => 'F',
#help => 'Prefs_Messages',
icon => 'mail-reply-all.png',
- alttext => 'Notifications Icon',
+ alttext => '',
linktitle => 'Change messageforwarding or notifications settings.'
},
{ linktext => 'Discussion Display',
@@ -2769,7 +2769,7 @@
permission => 'F',
#help => 'Change_Discussion_Display',
icon => 'chat.png',
- alttext => 'Discussions Icon',
+ alttext => '',
linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.'
},
]
@@ -2784,7 +2784,7 @@
url => '/adm/preferences?action=authorsettings',
permission => 'F',
icon => 'codemirror.png',
- alttext => 'Coding Icon',
+ alttext => '',
linktitle => 'Settings for your authoring space.',
},
]
@@ -2797,7 +2797,7 @@
permission => 'F',
#help => '',
icon => 'system-lock-screen.png',
- alttext => 'Lock Icon',
+ alttext => '',
linktitle => 'Restrict domain coordinator access.',
});
}
@@ -2810,7 +2810,7 @@
permission => 'F',
#help => '',
icon => 'network-workgroup.png',
- alttext => 'Clicker Icon',
+ alttext => '',
linktitle => 'Register your clicker.'
},
]
@@ -2824,7 +2824,7 @@
permission => 'F',
#help => 'Change_Password',
icon => 'emblem-readonly.png',
- alttext => 'Secure Icon',
+ alttext => '',
linktitle => 'Change your password.',
});
}
@@ -2836,7 +2836,7 @@
permission => 'F',
#help => '',
icon => 'system-lock-screen.png',
- alttext => 'Screen Lock Icon',
+ alttext => '',
linktitle => 'Allow/disallow propagation of name changes from institutional directory service',
});
}
@@ -2850,7 +2850,7 @@
permission => 'F',
#help => '',
icon => 'course_ini.png',
- alttext => 'Course Launch Icon',
+ alttext => '',
linktitle => 'Set the default page to be displayed when you select a course role.',
});
@@ -2863,7 +2863,7 @@
permission => 'F',
#help => '',
icon => 'blog.png',
- alttext => 'Debugging Icon',
+ alttext => '',
linktitle => 'Toggle Debug Messages.',
});
}
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.165 loncom/interface/lonstatistics.pm:1.166
--- loncom/interface/lonstatistics.pm:1.165 Tue Nov 10 19:28:32 2020
+++ loncom/interface/lonstatistics.pm Sat Dec 13 13:33:33 2025
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: lonstatistics.pm,v 1.165 2020/11/10 19:28:32 raeburn Exp $
+# $Id: lonstatistics.pm,v 1.166 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -762,12 +762,14 @@
{url => '/adm/statistics?reportSelected=problem_statistics',
permission => 'F',
icon => 'document-open.png',
+ alttext => '',
linktext => ('Overall Problem Statistics'),
linktitle => ('Student performance statistics on all problems.')},
{url => '/adm/statistics?reportSelected=problem_analysis',
permission => 'F',
icon => 'prob_ana.png',
+ alttext => '',
linktext => ('Detailed Problem Analysis'),
linktitle => ('Detailed statistics and graphs of student performance on problems.')},
]},
@@ -776,12 +778,14 @@
{url => '/adm/statistics?reportSelected=submissiontime_analysis',
permission => 'F',
icon => 'subtimpl.png',
+ alttext => '',
linktext => ('Submission Time Plots'),
linktitle => ('Display and analysis of submission times on assessments.')},
{url => '/adm/statistics?reportSelected=correct_problems_plot',
permission => 'F',
icon => 'coprplot.png',
+ alttext => '',
linktext => ('Correct Problems Plot'),
linktitle => ('Display a histogram of student performance in the course.')},
]},
@@ -790,13 +794,15 @@
{url => '/adm/statistics?reportSelected=student_submission_reports',
permission => 'F',
icon => 'edit-copy.png',
+ alttext => '',
linktext => ('Student Submission Reports'),
linktitle => ('Prepare reports of student submissions.')},
{url => '/adm/statistics?reportSelected=survey_reports',
permission => 'F',
icon => 'survey_rep.png',
- linktext => ('Survey Reports'),
+ alttext => '',
+ linktext => ('Survey Reports'),
linktitle => ('Prepare reports on survey results.')},
]});
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.828 loncom/homework/grades.pm:1.829
--- loncom/homework/grades.pm:1.828 Tue Oct 7 20:18:06 2025
+++ loncom/homework/grades.pm Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.828 2025/10/07 20:18:06 raeburn Exp $
+# $Id: grades.pm,v 1.829 2025/12/13 13:33:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -12353,12 +12353,14 @@
url => $url1a,
permission => $permissions{'either'},
icon => 'grade_students.png',
+ alttext => '',
linktitle => 'Grade current resource for a selection of students.'
},
{ linktext => 'Grade ungraded submissions',
url => $url1b,
permission => $permissions{'either'},
icon => 'ungrade_sub.png',
+ alttext => '',
linktitle => 'Grade all submissions that have not been graded yet.'
},
@@ -12366,24 +12368,28 @@
url => $url1c,
permission => $permissions{'either'},
icon => 'grading_table.png',
+ alttext => '',
linktitle => 'Grade current resource for all students.'
},
{ linktext => 'Grade page/folder for one student',
url => $url1d,
permission => $permissions{'either'},
icon => 'grade_PageFolder.png',
+ alttext => '',
linktitle => 'Grade all resources in current page/sequence/folder for one student.'
},
{ linktext => 'Download submissions',
url => $url1e,
permission => $permissions{'either'},
icon => 'download_sub.png',
+ alttext => '',
linktitle => 'Download all students submissions.'
},
{ linktext => 'Fractional credit for late submission',
url => $url1f,
permission => $permissions{'either'},
icon => 'updategrace.png',
+ alttext => '',
linktitle => 'Display fractional credit for late submission with possible update if grace parameter has been changed since submission',
}
]},
@@ -12394,24 +12400,28 @@
url => $url2,
permission => $permissions{'mgr'},
icon => 'uploadscores.png',
+ alttext => '',
linktitle => 'Specify a file containing the class scores for current resource.'
},
{ linktext => 'Process Clicker',
url => $url3,
permission => $permissions{'mgr'},
icon => 'addClickerInfoFile.png',
+ alttext => '',
linktitle => 'Specify a file containing the clicker information for this resource.'
},
{ linktext => 'Grade/Manage/Review Bubblesheets',
url => $url4,
permission => $permissions{'mgr'},
icon => 'bubblesheet.png',
+ alttext => '',
linktitle => 'Grade bubblesheet exams, upload/download bubblesheet data files, and review previously graded bubblesheet exams.'
},
{ linktext => 'Verify Receipt Number',
url => $url5,
permission => $permissions{'either'},
icon => 'receipt_number.png',
+ alttext => '',
linktitle => 'Verify a system-generated receipt number for correct problem solution.'
}
@@ -12428,6 +12438,7 @@
url => $url6,
permission => $permissions{'either'},
icon => 'passback.png',
+ alttext => '',
linktitle => 'Passback scores to launcher CMS for resources accessed via LTI-mediated deep-linking',
});
}
More information about the LON-CAPA-cvs
mailing list