version 1.616, 2022/07/07 03:37:01
|
version 1.619, 2023/04/03 19:53:30
|
Line 329 use Apache::lonnavmaps;
|
Line 329 use Apache::lonnavmaps;
|
use Apache::longroup; |
use Apache::longroup; |
use Apache::lonrss; |
use Apache::lonrss; |
use HTML::Entities; |
use HTML::Entities; |
|
use Text::Wrap(); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
|
|
|
Line 1749 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 2552 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 2565 sub parmboxes {
|
Line 2586 sub parmboxes {
|
if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) { |
if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) { |
$r->print( ' checked="checked"'); |
$r->print( ' checked="checked"'); |
} |
} |
$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey} |
$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? |
: $tempkey) |
Text::Wrap::wrap('',' 'x4,$$allparms{$tempkey}) |
|
: $tempkey) |
.'</label></span><br />'."\n"); |
.'</label></span><br />'."\n"); |
} |
} |
$r->print('</div>'); |
$r->print('</div>'); |
Line 5024 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 5065 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)); |