version 1.136, 2003/04/30 19:25:47
|
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. |
Line 1457 CHOOSE_FROM_SUBDIR
|
Line 1462 CHOOSE_FROM_SUBDIR
|
Apache::lonhelper::message->new(); |
Apache::lonhelper::message->new(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash->{'variable'} = 'PRINT_TYPE'; |
$paramHash->{'variable'} = 'PRINT_TYPE'; |
|
$helper->declareVar('PRINT_TYPE'); |
$paramHash->{CHOICES} = $printChoices; |
$paramHash->{CHOICES} = $printChoices; |
Apache::lonhelper::choices->new(); |
Apache::lonhelper::choices->new(); |
Apache::lonprintout::page_format_state->new("FORMAT"); |
Apache::lonprintout::page_format_state->new("FORMAT"); |