version 1.137, 2003/04/30 20:03:14
|
version 1.139, 2003/05/01 17:19:25
|
Line 1437 CHOOSE_STUDENTS
|
Line 1437 CHOOSE_STUDENTS
|
push @{$printChoices}, ["Problems from <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR']; |
push @{$printChoices}, ["Problems from <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR']; |
|
|
my $f = '$filename'; |
my $f = '$filename'; |
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_SUBDIR); |
my $xmlfrag = <<CHOOSE_FROM_SUBDIR; |
<state name="CHOOSE_FROM_SUBDIR" title="Select Files"> |
<state name="CHOOSE_FROM_SUBDIR" title="Select Files"> |
<message>Select problems you wish to print from <b>$subdir</b></message> |
<message>Select problems you wish to print from <b>$subdir</b></message> |
<files variable="FILES"> |
<files variable="FILES" multichoice='1'> |
<nextstate>FINAL</nextstate> |
<nextstate>FINAL</nextstate> |
<filechoice>$subdir</filechoice> |
<filechoice>return '$subdir';</filechoice> |
<filefilter>return $f =~ |
CHOOSE_FROM_SUBDIR |
|
|
|
$xmlfrag .= <<'CHOOSE_FROM_SUBDIR'; |
|
<filefilter>return $filename =~ |
m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/; |
m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/; |
</filefilter> |
</filefilter> |
|
</files> |
</state> |
</state> |
CHOOSE_FROM_SUBDIR |
CHOOSE_FROM_SUBDIR |
|
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
} |
} |
|
|
# Generate the first state, to select which resources get printed. |
# Generate the first state, to select which resources get printed. |