version 1.617, 2023/04/03 15:32:54
|
version 1.620, 2023/05/22 21:10:55
|
Line 1750 sub print_row {
|
Line 1750 sub print_row {
|
if ($automatic) { |
if ($automatic) { |
$parm.='<span class="LC_warning"><br />'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'</span>'; |
$parm.='<span class="LC_warning"><br />'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'</span>'; |
} |
} |
|
my $advice; |
|
if ((ref($name) eq 'HASH') && ($name->{$which} eq 'mapalias') && |
|
(ref($symbp) eq 'HASH') && ($parmlev eq 'full')) { |
|
if ($symbp->{$rid} =~ m{^uploaded/}) { |
|
if ($result == 14) { |
|
$advice = &mt('Use Course Editor to modify this.'); |
|
} else { |
|
$advice = &mt('Use Course Editor to set this.'); |
|
} |
|
} else { |
|
if ($result == 14) { |
|
$advice = &mt('Use Resource Assembly Tool to modify this.'); |
|
} else { |
|
$advice = &mt('Use Resource Assembly Tool to set this.'); |
|
} |
|
} |
|
$parm .= '<br /><span class="LC_fontsize_small LC_cusr_emph">'.$advice.'</span>'; |
|
} |
$r->print('<td>'.$parm.'</td>'); |
$r->print('<td>'.$parm.'</td>'); |
|
|
my $thismarker=$which; |
my $thismarker=$which; |
Line 1831 sub print_row {
|
Line 1849 sub print_row {
|
$extra = 'ltid_'.$domltistr; |
$extra = 'ltid_'.$domltistr; |
} |
} |
} |
} |
my %courselti = &Apache::lonnet::get_course_lti($cnum,$cdom); |
my %courselti = &Apache::lonnet::get_course_lti($cnum,$cdom,'provider'); |
if (keys(%courselti)) { |
if (keys(%courselti)) { |
foreach my $item (sort { $a <=> $b } keys(%courselti)) { |
foreach my $item (sort { $a <=> $b } keys(%courselti)) { |
if (($item =~ /^\d+$/) && (ref($courselti{$item}) eq 'HASH')) { |
if (($item =~ /^\d+$/) && (ref($courselti{$item}) eq 'HASH')) { |
Line 2553 sub parmboxes {
|
Line 2571 sub parmboxes {
|
&whatIsMyCategory($tempparameter, \%categoryList); |
&whatIsMyCategory($tempparameter, \%categoryList); |
} |
} |
#part to print the parm-list |
#part to print the parm-list |
|
$Text::Wrap::columns=60; |
|
$Text::Wrap::separator='<br />'; |
foreach my $key (sort { $category_order{$a} <=> $category_order{$b} } keys(%categoryList)) { |
foreach my $key (sort { $category_order{$a} <=> $category_order{$b} } keys(%categoryList)) { |
next if (@{$categoryList{$key}} == 0); |
next if (@{$categoryList{$key}} == 0); |
next if ($key eq ''); |
next if ($key eq ''); |
Line 5026 sub listdata {
|
Line 5046 sub listdata {
|
# Ready to print |
# Ready to print |
# |
# |
my $parmitem = &standard_parameter_names($name); |
my $parmitem = &standard_parameter_names($name); |
|
my $advice; |
|
if (($name eq 'mapalias') && ($middle) && (!$is_map)) { |
|
if ($middle =~ m{^uploaded/}) { |
|
$advice = &mt('Use Course Editor to set this.'); |
|
} else { |
|
$advice = &mt('Use Resource Assembly Tool to set this.'); |
|
} |
|
$advice = '<br /><span class="LC_fontsize_small LC_cusr_emph">'.$advice.'</span>'; |
|
} |
$r->print(&tablestart($readonly,$is_map). |
$r->print(&tablestart($readonly,$is_map). |
&Apache::loncommon::start_data_table_row(). |
&Apache::loncommon::start_data_table_row(). |
'<td><b>'.&mt($parmitem). |
'<td><b>'.&mt($parmitem). |
'</b></td>'); |
'</b>'.$advice.'</td>'); |
unless ($readonly) { |
unless ($readonly) { |
my $disabled; |
my $disabled; |
if (($name eq 'availablestudent') && |
if (($name eq 'availablestudent') && |
(($showval eq '') || ($userscope))) { |
(($showval eq '') || ($userscope))) { |
$disabled = ' disabled="disabled"'; |
$disabled = ' disabled="disabled"'; |
|
} elsif (($name eq 'mapalias') && ($showval eq '')) { |
|
$disabled = ' disabled="disabled"'; |
} |
} |
$r->print('<td><input type="checkbox" name="del_'. |
$r->print('<td><input type="checkbox" name="del_'. |
$thiskey.'"'.$disabled.' /></td>'); |
$thiskey.'"'.$disabled.' /></td>'); |
Line 5067 sub listdata {
|
Line 5098 sub listdata {
|
} elsif ($thistype =~ m/^string/) { |
} elsif ($thistype =~ m/^string/) { |
if ($name eq 'availablestudent') { |
if ($name eq 'availablestudent') { |
$readonly = 1; |
$readonly = 1; |
|
} elsif (($name eq 'mapalias') && ($showval eq '')) { |
|
$readonly = 1; |
} |
} |
$r->print(&string_selector($thistype,$thiskey, |
$r->print(&string_selector($thistype,$thiskey, |
$showval,$name,$readonly)); |
$showval,$name,$readonly)); |
Line 5312 sub string_deeplink_selector {
|
Line 5345 sub string_deeplink_selector {
|
} |
} |
my %courselti = |
my %courselti = |
&Apache::lonnet::get_course_lti($env{'course.'.$env{'request.course.id'}.'.num'}, |
&Apache::lonnet::get_course_lti($env{'course.'.$env{'request.course.id'}.'.num'}, |
$env{'course.'.$env{'request.course.id'}.'.domain'}); |
$env{'course.'.$env{'request.course.id'}.'.domain'}, |
|
'provider'); |
foreach my $item (keys(%courselti)) { |
foreach my $item (keys(%courselti)) { |
if (ref($courselti{$item}) eq 'HASH') { |
if (ref($courselti{$item}) eq 'HASH') { |
$crslti{$item} = $courselti{$item}{'name'}; |
$crslti{$item} = $courselti{$item}{'name'}; |