version 1.243, 2003/09/30 14:43:26
|
version 1.244, 2003/09/30 17:29:26
|
Line 1326 CHOOSE_FROM_SUBDIR
|
Line 1326 CHOOSE_FROM_SUBDIR
|
if (!$helper->{VARS}->{'construction'}) { |
if (!$helper->{VARS}->{'construction'}) { |
push @$printChoices, ["Resources from <b>selected sequence</b> in course", |
push @$printChoices, ["Resources from <b>selected sequence</b> in course", |
'map_problems_pages', 'CHOOSE_SEQUENCE']; |
'map_problems_pages', 'CHOOSE_SEQUENCE']; |
|
my $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'}; |
|
#Escape apostrophes and backslashes for Perl |
|
$escapedSequenceName =~ s/\\/\\\\/g; |
|
$escapedSequenceName =~ s/'/\\'/g; |
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_ANY_SEQUENCE); |
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_ANY_SEQUENCE); |
<state name="CHOOSE_SEQUENCE" title="Select Sequence To Print From"> |
<state name="CHOOSE_SEQUENCE" title="Select Sequence To Print From"> |
<message>Select the sequence to print resources from:</message> |
<message>Select the sequence to print resources from:</message> |
Line 1340 CHOOSE_FROM_SUBDIR
|
Line 1344 CHOOSE_FROM_SUBDIR
|
<resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"> |
<resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"> |
<nextstate>PAGESIZE</nextstate> |
<nextstate>PAGESIZE</nextstate> |
<filterfunc>return $isProblem</filterfunc> |
<filterfunc>return $isProblem</filterfunc> |
<mapurl evaluate='1'>return $helper->{VARS}->{'SEQUENCE'};</mapurl> |
<mapurl evaluate='1'>return '$escapedSequenceName';</mapurl> |
<valuefunc>return $symbFilter;</valuefunc> |
<valuefunc>return $symbFilter;</valuefunc> |
</resource> |
</resource> |
</state> |
</state> |