version 1.289, 2004/04/06 15:47:52
|
version 1.290, 2004/04/07 18:01:19
|
Line 750 ENDPART
|
Line 750 ENDPART
|
my $put_result = &Apache::lonnet::put('environment',{'construct.style'=>$helper->{'VARS'}->{'style_file'}},$dom,$user); |
my $put_result = &Apache::lonnet::put('environment',{'construct.style'=>$helper->{'VARS'}->{'style_file'}},$dom,$user); |
} |
} |
my %form; |
my %form; |
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'exam') {$form{'problemtype'}='exam';} |
if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {$form{'problemtype'}='exam';} |
$form{'grade_target'}='tex'; |
$form{'grade_target'}='tex'; |
$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); |
$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); |
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
Line 1371 sub printHelper {
|
Line 1371 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('curseed'); |
|
$helper->declareVar('probstatus'); |
$helper->declareVar('filename'); |
$helper->declareVar('filename'); |
$helper->declareVar('construction'); |
$helper->declareVar('construction'); |
$helper->declareVar('assignment'); |
$helper->declareVar('assignment'); |
Line 1431 sub printHelper {
|
Line 1432 sub printHelper {
|
if (!$helper->{VARS}->{'curseed'} && $ENV{'form.curseed'}) { |
if (!$helper->{VARS}->{'curseed'} && $ENV{'form.curseed'}) { |
$helper->{VARS}->{'curseed'}=$ENV{'form.curseed'}; |
$helper->{VARS}->{'curseed'}=$ENV{'form.curseed'}; |
} |
} |
|
if (!$helper->{VARS}->{'probstatus'} && $ENV{'form.problemtype'}) { |
|
$helper->{VARS}->{'probstatus'}=$ENV{'form.problemtype'}; |
|
} |
|
|
my $userCanSeeHidden = Apache::lonnavmaps::advancedUser(); |
my $userCanSeeHidden = Apache::lonnavmaps::advancedUser(); |
my $userPriviledged = ($ENV{'request.role'}=~m/^cc\./ or |
my $userPriviledged = ($ENV{'request.role'}=~m/^cc\./ or |
Line 1758 CHOOSE_FROM_ANY_SEQUENCE
|
Line 1762 CHOOSE_FROM_ANY_SEQUENCE
|
if ($helper->{'VARS'}->{'construction'}) { |
if ($helper->{'VARS'}->{'construction'}) { |
my $stylevalue=$ENV{'construct.style'}; |
my $stylevalue=$ENV{'construct.style'}; |
my $xmlfrag .= <<"RNDSEED"; |
my $xmlfrag .= <<"RNDSEED"; |
<message><tr><td align='right'>Use random seed: </td><td></message> |
<message><tr><td align='right'>Use random seed: </td><td></message> |
<string variable="curseed" size="15" maxlength="15"> |
<string variable="curseed" size="15" maxlength="15"> |
<defaultvalue> |
<defaultvalue> |
return $helper->{VARS}->{'curseed'}; |
return $helper->{VARS}->{'curseed'}; |