|
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> |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonprintout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface