version 1.223, 2003/08/25 17:25:05
|
version 1.226, 2003/09/05 02:25:30
|
Line 669 ENDPART
|
Line 669 ENDPART
|
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; |
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; |
my $rndseed=time; |
my $rndseed=time; |
|
if ($helper->{'VARS'}->{'curseed'}) { |
|
$rndseed=$helper->{'VARS'}->{'curseed'}; |
|
} |
$form{'rndseed'}=$rndseed; |
$form{'rndseed'}=$rndseed; |
&Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::delenv('form.counter'); |
&Apache::lonnet::delenv('form.counter'); |
Line 840 ENDPART
|
Line 843 ENDPART
|
@list_of_files=sort @list_of_files; |
@list_of_files=sort @list_of_files; |
my $flag_latex_header_remove = 'NO'; |
my $flag_latex_header_remove = 'NO'; |
my $rndseed=time; |
my $rndseed=time; |
|
if ($helper->{'VARS'}->{'curseed'}) { |
|
$rndseed=$helper->{'VARS'}->{'curseed'}; |
|
} |
for (my $i=0;$i<=$#list_of_files;$i++) { |
for (my $i=0;$i<=$#list_of_files;$i++) { |
my $urlp = $list_of_files[$i]; |
my $urlp = $list_of_files[$i]; |
if ($urlp=~/\//) { |
if ($urlp=~/\//) { |
Line 915 ENDPART
|
Line 921 ENDPART
|
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { |
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { |
if ($selectionmade<10) {$selectionmade*=100;} else {$selectionmade*=10;} |
if ($selectionmade<10) {$selectionmade*=100;} else {$selectionmade*=10;} |
} |
} |
|
if ($ENV{'request.role.adv'}) {$selectionmade*=10000;} |
#-- writing .tex file in prtspool |
#-- writing .tex file in prtspool |
my $temp_file; |
my $temp_file; |
my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex"; |
my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex"; |
Line 1014 sub printHelper {
|
Line 1021 sub printHelper {
|
my $helper = Apache::lonhelper::helper->new("Printing Helper"); |
my $helper = Apache::lonhelper::helper->new("Printing Helper"); |
$helper->declareVar('symb'); |
$helper->declareVar('symb'); |
$helper->declareVar('postdata'); |
$helper->declareVar('postdata'); |
|
$helper->declareVar('curseed'); |
$helper->declareVar('filename'); |
$helper->declareVar('filename'); |
$helper->declareVar('construction'); |
$helper->declareVar('construction'); |
$helper->declareVar('assignment'); |
$helper->declareVar('assignment'); |
Line 1069 sub printHelper {
|
Line 1077 sub printHelper {
|
} |
} |
$subdir = &Apache::lonnet::filelocation("", $url); |
$subdir = &Apache::lonnet::filelocation("", $url); |
} |
} |
|
if (!$helper->{VARS}->{'curseed'} && $ENV{'form.curseed'}) { |
|
$helper->{VARS}->{'curseed'}=$ENV{'form.curseed'}; |
|
} |
|
|
my $userCanSeeHidden = Apache::lonnavmaps::advancedUser(); |
my $userCanSeeHidden = Apache::lonnavmaps::advancedUser(); |
|
|
Line 1195 CHOOSE_STUDENTS
|
Line 1206 CHOOSE_STUDENTS
|
CHOOSE_FROM_SUBDIR |
CHOOSE_FROM_SUBDIR |
|
|
$xmlfrag .= <<'CHOOSE_FROM_SUBDIR'; |
$xmlfrag .= <<'CHOOSE_FROM_SUBDIR'; |
<filefilter>return $filename =~ |
<filefilter>return Apache::lonhelper::files::not_old_version($filename) && |
m/\.(problem|exam|quiz|assess|survey|form|library)$/; |
$filename =~ m/\.(problem|exam|quiz|assess|survey|form|library)$/; |
</filefilter> |
</filefilter> |
</files> |
</files> |
</state> |
</state> |
Line 1286 CHOOSE_FROM_SUBDIR
|
Line 1297 CHOOSE_FROM_SUBDIR
|
Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
addMessage("</td></tr>"); |
addMessage("</td></tr>"); |
} |
} |
|
if ($helper->{'VARS'}->{'construction'}) { |
|
my $xmlfrag .= <<'RNDSEED'; |
|
<message><tr><td align='right'>Use random seed: </td><td></message> |
|
<string variable="curseed" size="15" maxlength="15"> |
|
<defaultvalue> |
|
return $helper->{VARS}->{'curseed'}; |
|
</defaultvalue> |
|
</string> |
|
<message></td></tr></message> |
|
RNDSEED |
|
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
|
} |
} |
} |
|
|
if ($startedTable) { |
if ($startedTable) { |