version 1.679, 2022/06/11 14:51:49
|
version 1.682, 2022/06/11 18:12:28
|
Line 4788 CHOOSE_FROM_SUBDIR
|
Line 4788 CHOOSE_FROM_SUBDIR
|
# another resource selector for that sequence |
# another resource selector for that sequence |
if ((!$helper->{VARS}->{'construction'}) && |
if ((!$helper->{VARS}->{'construction'}) && |
(!$is_published || (($subdir eq '') && ($url eq '/adm/navmaps')))) { |
(!$is_published || (($subdir eq '') && ($url eq '/adm/navmaps')))) { |
push @$printChoices, [&mtn("Selected <b>Resources</b> from <b>selected folder</b> in course"), |
push(@$printChoices,[&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course', |
'select_sequences', 'CHOOSE_SEQUENCE']; |
'<b>','</b>','<b>','</b>'), |
|
'select_sequences','CHOOSE_SEQUENCE']); |
my $escapedSequenceName; |
my $escapedSequenceName; |
if ($helper->{VARS}->{'SEQUENCE'} ne '') { |
if ($helper->{VARS}->{'SEQUENCE'} ne '') { |
$escapedSequenceName = $helper->{VARS}->{'SEQUENCE'}; |
$escapedSequenceName = $helper->{VARS}->{'SEQUENCE'}; |
Line 4804 CHOOSE_FROM_SUBDIR
|
Line 4805 CHOOSE_FROM_SUBDIR
|
#Escape apostrophes and backslashes for Perl |
#Escape apostrophes and backslashes for Perl |
$escapedSequenceName =~ s/\\/\\\\/g; |
$escapedSequenceName =~ s/\\/\\\\/g; |
$escapedSequenceName =~ s/'/\\'/g; |
$escapedSequenceName =~ s/'/\\'/g; |
|
my $nocurrloc; |
if (($subdir eq '') && ($url eq '/adm/navmaps')) { |
if (($subdir eq '') && ($url eq '/adm/navmaps')) { |
if ($perm{'pfo'})) { |
$nocurrloc = 'nocurrloc="1"'; |
|
if ($perm{'pfo'}) { |
push(@{$printChoices}, |
push(@{$printChoices}, |
[&mt('Selected [_1]Problems[_2] from [_3]selected folder[_4] in course for [_5]selected people[_6]', |
[&mt('Selected [_1]Problems[_2] from [_3]selected folder[_4] in course for [_5]selected people[_6]', |
'<b>','</b>','<b>','</b>','<b>','</b>'), |
'<b>','</b>','<b>','</b>','<b>','</b>'), |
Line 4818 CHOOSE_FROM_SUBDIR
|
Line 4821 CHOOSE_FROM_SUBDIR
|
'select_sequences_resources_for_students','CHOOSE_SEQUENCE_STUDENTS1'], |
'select_sequences_resources_for_students','CHOOSE_SEQUENCE_STUDENTS1'], |
[&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course for [_5]CODEd assignments[_6]', |
[&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course for [_5]CODEd assignments[_6]', |
'<b>','</b>','<b>','</b>','<b>','</b>'), |
'<b>','</b>','<b>','</b>','<b>','</b>'), |
'select_sequences_resources_for_anon','CHOOSE_SEQUENCE_ANON2'], |
'select_sequences_resources_for_anon','CHOOSE_SEQUENCE_ANON2']); |
[&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course', |
|
'<b>','</b>','<b>','</b>'), |
|
'select_sequences','CHOOSE_SEQUENCE']); |
|
if ($escapedSequenceName) { |
if ($escapedSequenceName) { |
&generate_common_choosers($r,$helper,$escapedSequenceName,$escapedSequenceName,$isProblem,$symbFilter,$start_new_option); |
&generate_common_choosers($r,$helper,$escapedSequenceName,$escapedSequenceName,$isProblem,$symbFilter,$start_new_option); |
} |
} |
} else { |
|
push(@{$printChoices}, |
|
[&mt('Selected [_1]Resources[_2] from [_3]selected folder[_4] in course', |
|
'<b>','</b>','<b>','</b>'), |
|
'select_sequences','CHOOSE_SEQUENCE']); |
|
} |
} |
} |
} |
if (($subdir eq '') && ($url eq '/adm/navmaps') && ($perm{'pfo'})) { |
if (($subdir eq '') && ($url eq '/adm/navmaps') && ($perm{'pfo'})) { |
Line 4887 CHOOSE_FROM_SUBDIR
|
Line 4882 CHOOSE_FROM_SUBDIR
|
<state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print"> |
<state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print"> |
<message>(mark desired resources then click "next" button) <br /></message> |
<message>(mark desired resources then click "next" button) <br /></message> |
<resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1" |
<resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1" |
closeallpages="1" modallink="1"> |
closeallpages="1" modallink="1" $nocurrloc> |
<nextstate>PAGESIZE</nextstate> |
<nextstate>PAGESIZE</nextstate> |
<filterfunc>return $isNotMap</filterfunc> |
<filterfunc>return $isNotMap</filterfunc> |
<mapurl evaluate='1'>return '$escapedSequenceName';</mapurl> |
<mapurl evaluate='1'>return '$escapedSequenceName';</mapurl> |
Line 4911 CHOOSE_FROM_ANY_SEQUENCE
|
Line 4906 CHOOSE_FROM_ANY_SEQUENCE
|
<state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print"> |
<state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print"> |
<message>(mark desired resources then click "next" button) <br /></message> |
<message>(mark desired resources then click "next" button) <br /></message> |
<resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1" |
<resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1" |
closeallpages="1" modallink="1"> |
closeallpages="1" modallink="1" $nocurrloc> |
<nextstate>PAGESIZE</nextstate> |
<nextstate>PAGESIZE</nextstate> |
<filterfunc>return $isNotMap</filterfunc> |
<filterfunc>return $isNotMap</filterfunc> |
<mapurl evaluate='1'>return '$escapedSequenceName';</mapurl> |
<mapurl evaluate='1'>return '$escapedSequenceName';</mapurl> |