version 1.370, 2005/03/22 11:59:26
|
version 1.372, 2005/03/29 10:21:21
|
Line 841 Please stand by while processing your pr
|
Line 841 Please stand by while processing your pr
|
ENDPART |
ENDPART |
|
|
|
|
|
|
# fetch the pagebreaks and store them in the course environment |
# fetch the pagebreaks and store them in the course environment |
# The page breaks will be pulled into the hash %page_breaks which is |
# The page breaks will be pulled into the hash %page_breaks which is |
# indexed by symb and contains 1's for each break. |
# indexed by symb and contains 1's for each break. |
Line 877 ENDPART
|
Line 878 ENDPART
|
my %form; |
my %form; |
$form{'grade_target'} = 'tex'; |
$form{'grade_target'} = 'tex'; |
$form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth); |
$form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth); |
|
|
|
# If form.showallfoils is set, then request all foils be shown: |
|
# privilege will be enforced both by not allowing the |
|
# check box selecting this option to be presnt unless it's ok, |
|
# and by lonresponse's priv. check. |
|
# The if is here because lonresponse.pm only cares that |
|
# showallfoils is defined, not what the value is. |
|
|
|
if ($helper->{'VARS'}->{'showallfoils'} eq "1") { |
|
$form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'}; |
|
} |
|
|
if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') { |
if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') { |
#-- single document - problem, page, html, xml, ... |
#-- single document - problem, page, html, xml, ... |
my ($currentURL,$cleanURL); |
my ($currentURL,$cleanURL); |
Line 1649 sub printHelper {
|
Line 1661 sub printHelper {
|
$helper->declareVar('student_sort'); |
$helper->declareVar('student_sort'); |
$helper->declareVar('FINISHPAGE'); |
$helper->declareVar('FINISHPAGE'); |
$helper->declareVar('PRINT_TYPE'); |
$helper->declareVar('PRINT_TYPE'); |
|
$helper->declareVar("showallfoils"); |
|
|
# The page breaks can get loaded initially from the course environment: |
# The page breaks can get loaded initially from the course environment: |
|
|
Line 2126 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2139 CHOOSE_FROM_ANY_SEQUENCE
|
['Yes', 'yes'] ]; |
['Yes', 'yes'] ]; |
Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
addMessage("</td></tr>"); |
addMessage("</td></tr>"); |
|
|
|
# If advanced roles, then allow to show all foils. |
|
|
|
if ($ENV{'request.role.adv'}) { |
|
addMessage("<tr><td align = 'right'> </td><td>"); |
|
$paramHash = Apache::lonhelper::getParamHash(); |
|
$paramHash->{'multichoice'} = "true"; |
|
$paramHash->{'allowempty'} = "true"; |
|
$paramHash->{'variable'} = "showallfoils"; |
|
$paramHash->{'CHOICES'} = [ ["Show all foils", "1"] ]; |
|
Apache::lonhelper::choices->new(); |
|
addMessage("</td></tr>"); |
|
} |
|
|
} |
} |
|
|
if ($helper->{'VARS'}->{'construction'}) { |
if ($helper->{'VARS'}->{'construction'}) { |
Line 2140 CHOOSE_FROM_ANY_SEQUENCE
|
Line 2167 CHOOSE_FROM_ANY_SEQUENCE
|
<message></td></tr><tr><td align="right">Use style file:</td><td></message> |
<message></td></tr><tr><td align="right">Use style file:</td><td></message> |
<message><input type="text" size="40" name="style_file_value" value="$stylevalue" /> <a href="javascript:openbrowser('helpform','style_file','sty')">Select style file</a> </td><td></message> |
<message><input type="text" size="40" name="style_file_value" value="$stylevalue" /> <a href="javascript:openbrowser('helpform','style_file','sty')">Select style file</a> </td><td></message> |
<message></td></tr></message> |
<message></td></tr></message> |
|
<choices allowempty="1" multichoice="true" variable="showallfoils"> |
|
<choice computer="1">Show all foils?</choice> |
|
</choices> |
RNDSEED |
RNDSEED |
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
$helper->{'VARS'}->{'style_file'}=$ENV{'form.style_file_value'}; |
$helper->{'VARS'}->{'style_file'}=$ENV{'form.style_file_value'}; |
} |
|
|
} |
|
|
} |
} |
|
|
|
|