version 1.119, 2023/04/13 15:21:00
|
version 1.120, 2023/05/22 21:10:55
|
Line 1883 sub process_ltitools {
|
Line 1883 sub process_ltitools {
|
my @allfields = ('fullname','firstname','lastname','email','user','roles'); |
my @allfields = ('fullname','firstname','lastname','email','user','roles'); |
map { $possfield{$_} = 1; } @allfields; |
map { $possfield{$_} = 1; } @allfields; |
|
|
my ($dest,$privnum,$cipher,$errors,%ltitools); |
my ($dest,$privnum,$cipher); |
|
|
($cipher,$privnum) = &get_credentials($cdom,$cnum,'ltitools',$context); |
($cipher,$privnum) = &get_credentials($cdom,$cnum,'ltitools',$context); |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
Line 3223 sub store_ltitools {
|
Line 3223 sub store_ltitools {
|
&Apache::lonnet::devalidate_cache_new('courseltitools',$hashid); |
&Apache::lonnet::devalidate_cache_new('courseltitools',$hashid); |
unless (($home eq 'no_host') || ($home eq '')) { |
unless (($home eq 'no_host') || ($home eq '')) { |
if (grep(/^\Q$home\E$/,@ids)) { |
if (grep(/^\Q$home\E$/,@ids)) { |
&Apache::lonnet::devalidate_cache_new('courseltitoolsenc',$hashid); |
&Apache::lonnet::devalidate_cache_new('crsltitoolsenc',$hashid); |
} |
} |
} |
} |
} else { |
} else { |
Line 6310 sub print_bridgetasks {
|
Line 6310 sub print_bridgetasks {
|
sub print_ltitools { |
sub print_ltitools { |
my ($cdom,$cnum,$settings,$rowtotal,$crstype,$noedit,$context) = @_; |
my ($cdom,$cnum,$settings,$rowtotal,$crstype,$noedit,$context) = @_; |
my ($datatable,$disabled,$css_class,$dest); |
my ($datatable,$disabled,$css_class,$dest); |
my %lt = <itools_names(); |
|
my $itemcount = 1; |
my $itemcount = 1; |
|
unless ($context eq 'domain') { |
|
my %tooltypes = &Apache::loncommon::usable_exttools(); |
|
unless ($tooltypes{'crs'}) { |
|
my $showtype = 'course'; |
|
if ($crstype eq 'Community') { |
|
$showtype = lc($crstype); |
|
} |
|
$css_class = $itemcount%2?' class="LC_odd_row"':''; |
|
$datatable = '<tr '.$css_class.'><td colspan="2">'. |
|
&mt("Definition of external tools is not enabled for this $showtype.").'<br />'; |
|
if ($tooltypes{'dom'}) { |
|
$datatable .= &mt("Contact an administrator for the $showtype domain ([_1]) to request this feature be enabled.", |
|
'<i>'.$cdom.'</i>'). |
|
'<br /><br />'. |
|
&mt("Use of external tools defined at a domain level is enabled, so the $showtype editor can be used to add tool(s), if any have been defined."); |
|
} else { |
|
$datatable .= &mt("Use of external tools defined at a domain level is not enabled, either, for this $showtype."). |
|
'<br /><br />'. |
|
&mt("Contact an administrator for the $showtype domain ([_1]) to request changes.", |
|
'<i>'.$cdom.'</i>'); |
|
|
|
} |
|
$datatable .= '</tr>'; |
|
$itemcount ++; |
|
return $datatable; |
|
} |
|
} |
|
my %lt = <itools_names(); |
my $maxnum = 0; |
my $maxnum = 0; |
my %ordered; |
my %ordered; |
if (ref($settings) eq 'HASH') { |
if (ref($settings) eq 'HASH') { |
Line 6393 sub print_ltitools {
|
Line 6420 sub print_ltitools {
|
'<option value="HMAC-SHA1"'.$sigsel{'HMAC-SHA1'}.'>HMAC-SHA1</option>'. |
'<option value="HMAC-SHA1"'.$sigsel{'HMAC-SHA1'}.'>HMAC-SHA1</option>'. |
'<option value="HMAC-SHA256"'.$sigsel{'HMAC-SHA256'}.'>HMAC-SHA256</option></select></span>'. |
'<option value="HMAC-SHA256"'.$sigsel{'HMAC-SHA256'}.'>HMAC-SHA256</option></select></span>'. |
'<br /><br />'. |
'<br /><br />'. |
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="40" name="ltitools_url_'.$i.'"'. |
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="60" name="ltitools_url_'.$i.'"'. |
' value="'.$url.'" /></span>'. |
' value="'.$url.'" /></span>'. |
(' 'x2). |
(' 'x2). |
'<span class="LC_nobreak">'.$lt{'lifetime'}.':'. |
'<span class="LC_nobreak">'.$lt{'lifetime'}.':'. |
Line 6671 sub print_ltitools {
|
Line 6698 sub print_ltitools {
|
'<option value="HMAC-SHA1" selected="selected">HMAC-SHA1</option>'. |
'<option value="HMAC-SHA1" selected="selected">HMAC-SHA1</option>'. |
'<option value="HMAC-SHA256">HMAC-SHA256</option></select></span>'. |
'<option value="HMAC-SHA256">HMAC-SHA256</option></select></span>'. |
'<br />'. |
'<br />'. |
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="40" name="ltitools_add_url" value="" /></span> '."\n". |
'<span class="LC_nobreak">'.$lt{'url'}.':<input type="text" size="60" name="ltitools_add_url" value="" /></span> '."\n". |
(' 'x2). |
(' 'x2). |
'<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="5" name="ltitools_add_lifetime" value="300" /></span><br />'; |
'<span class="LC_nobreak">'.$lt{'lifetime'}.':<input type="text" size="5" name="ltitools_add_lifetime" value="300" /></span><br />'; |
if ($switchserver) { |
if ($switchserver) { |
Line 8224 sub devalidate_remote_courseprefs {
|
Line 8251 sub devalidate_remote_courseprefs {
|
my %servers = &Apache::lonnet::internet_dom_servers($cdom); |
my %servers = &Apache::lonnet::internet_dom_servers($cdom); |
my %thismachine; |
my %thismachine; |
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); |
map { $thismachine{$_} = 1; } &Apache::lonnet::current_machine_ids(); |
my @posscached = ('courselti'); |
my @posscached = ('courselti','courseltitools'); |
if (keys(%servers)) { |
if (keys(%servers)) { |
foreach my $server (keys(%servers)) { |
foreach my $server (keys(%servers)) { |
next if ($thismachine{$server}); |
next if ($thismachine{$server}); |