[LON-CAPA-cvs] cvs: loncom /interface courseprefs.pm
raeburn
raeburn at source.lon-capa.org
Mon Feb 21 10:44:57 EST 2022
raeburn Mon Feb 21 15:44:57 2022 EDT
Modified files:
/loncom/interface courseprefs.pm
Log:
- Bug 6907
Need to be able to add Link Protectors (domain-level), if there is no existing
LTI Provider configuration.
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.104 loncom/interface/courseprefs.pm:1.105
--- loncom/interface/courseprefs.pm:1.104 Wed Feb 16 15:58:28 2022
+++ loncom/interface/courseprefs.pm Mon Feb 21 15:44:57 2022
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set configuration settings for a course
#
-# $Id: courseprefs.pm,v 1.104 2022/02/16 15:58:28 raeburn Exp $
+# $Id: courseprefs.pm,v 1.105 2022/02/21 15:44:57 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -5623,9 +5623,6 @@
sub print_linkprotection {
my ($cdom,$cnum,$settings,$rowtotal,$crstype,$noedit,$context) = @_;
- unless (ref($settings) eq 'HASH') {
- return;
- }
my %linkprotection;
my $count = 0;
@@ -5670,7 +5667,7 @@
}
}
- if (ref($settings->{'linkprot'}) eq 'HASH') {
+ if ((ref($settings) eq 'HASH') && (ref($settings->{'linkprot'}) eq 'HASH')) {
if (keys(%{$settings->{'linkprot'}})) {
my @current = sort { $a <=> $b } keys(%{$settings->{'linkprot'}});
$next += $current[-1];
@@ -5793,7 +5790,7 @@
$datatable .= '<tr '.$css_class.'><td><span class="LC_nobreak">'."\n".
'<input type="hidden" name="linkprot_maxnum" value="'.$next.'" />'."\n".
'<input type="checkbox" name="linkprot_add" value="1"'.$disabled.' />'.&mt('Add').'</span></td>'."\n".
- '<td>';
+ '<td width="100%">';
my ($usersty,$onclickrequser,%checkedrequser);
if ($ltiauth) {
$usersty = 'display:none';
More information about the LON-CAPA-cvs
mailing list