version 1.229, 2003/09/05 19:42:00
|
version 1.231, 2003/09/06 17:22:27
|
Line 670 ENDPART
|
Line 670 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 700 ENDPART
|
Line 703 ENDPART
|
#printing content of sequence from the construction space |
#printing content of sequence from the construction space |
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'}; |
|
} |
$currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|; |
$currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|; |
my $errtext=&Apache::lonratedt::mapread($currentURL); |
my $errtext=&Apache::lonratedt::mapread($currentURL); |
for (my $member=0;$member<=$#Apache::lonratedt::order;$member++) { |
for (my $member=0;$member<=$#Apache::lonratedt::order;$member++) { |
Line 884 ENDPART
|
Line 890 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 1059 sub printHelper {
|
Line 1068 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 1114 sub printHelper {
|
Line 1124 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 1331 CHOOSE_FROM_SUBDIR
|
Line 1344 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) { |