version 1.216, 2003/08/18 18:18:48
|
version 1.220, 2003/08/19 16:02:13
|
Line 687 ENDPART
|
Line 687 ENDPART
|
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { |
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { |
$texversion=&IndexCreation($texversion,$currentURL); |
$texversion=&IndexCreation($texversion,$currentURL); |
} |
} |
|
if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') { |
|
$texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$currentURL| \\strut\\\\\\strut /; |
|
|
|
} |
$result .= $texversion; |
$result .= $texversion; |
if ($currentURL=~m/\.page\s*$/) { |
if ($currentURL=~m/\.page\s*$/) { |
($result,$number_of_columns) = &page_cleanup($result); |
($result,$number_of_columns) = &page_cleanup($result); |
Line 755 ENDPART
|
Line 759 ENDPART
|
} |
} |
if (($selectionmade == 4) and ($assignment ne $prevassignment) and ($i>=1)) { |
if (($selectionmade == 4) and ($assignment ne $prevassignment) and ($i>=1)) { |
my ($name,$courseidinfo) = &get_name; |
my ($name,$courseidinfo) = &get_name; |
my $courseidinfo = &get_course(); |
$courseidinfo = &get_course(); |
if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo } |
if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo } |
$prevassignment=$assignment; |
$prevassignment=$assignment; |
$result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$name.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}} \vskip -5 mm '; |
$result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$name.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}} \vskip -5 mm '; |
Line 886 ENDPART
|
Line 890 ENDPART
|
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { |
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { |
$texversion=&IndexCreation($texversion,$urlp); |
$texversion=&IndexCreation($texversion,$urlp); |
} |
} |
|
if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') { |
|
$texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /; |
|
|
|
} |
$result .= $texversion; |
$result .= $texversion; |
} |
} |
$flag_latex_header_remove = 'YES'; |
$flag_latex_header_remove = 'YES'; |
Line 1203 CHOOSE_FROM_SUBDIR
|
Line 1211 CHOOSE_FROM_SUBDIR
|
if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or |
if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or |
($helper->{VARS}->{'construction'} eq '1')) { |
($helper->{VARS}->{'construction'} eq '1')) { |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next four options are available only for advanced users: </i></b></big><br />"; |
$paramHash->{MESSAGE_TEXT} = "<br /><table><tr><td><big><b><i>Next four options are available only for advanced users: </i></b></big></td><td>"; |
Apache::lonhelper::message->new(); |
Apache::lonhelper::message->new(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash->{'variable'} = 'ANSWER_TYPE'; |
$paramHash->{'variable'} = 'ANSWER_TYPE'; |
Line 1216 CHOOSE_FROM_SUBDIR
|
Line 1224 CHOOSE_FROM_SUBDIR
|
|
|
if ($ENV{'request.role.adv'}) { |
if ($ENV{'request.role.adv'}) { |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash->{MESSAGE_TEXT} = "<br />"; |
$paramHash->{MESSAGE_TEXT} = "</td></tr><tr><td> </td><td>"; |
Apache::lonhelper::message->new(); |
Apache::lonhelper::message->new(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash->{'variable'} = 'LATEX_TYPE'; |
$paramHash->{'variable'} = 'LATEX_TYPE'; |
Line 1231 CHOOSE_FROM_SUBDIR
|
Line 1239 CHOOSE_FROM_SUBDIR
|
['Print in standard LaTeX mode', 'standard'] ]; |
['Print in standard LaTeX mode', 'standard'] ]; |
} |
} |
Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
} |
|
|
|
if ($ENV{'request.role.adv'}) { |
|
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash->{MESSAGE_TEXT} = "<br />"; |
$paramHash->{MESSAGE_TEXT} = "</td></tr><tr><td> </td><td>"; |
Apache::lonhelper::message->new(); |
Apache::lonhelper::message->new(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash->{'variable'} = 'TABLE_CONTENTS'; |
$paramHash->{'variable'} = 'TABLE_CONTENTS'; |
Line 1245 CHOOSE_FROM_SUBDIR
|
Line 1251 CHOOSE_FROM_SUBDIR
|
['Print with Table of Contents', 'yes'] ]; |
['Print with Table of Contents', 'yes'] ]; |
Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
|
|
|
if (not $helper->{VARS}->{'construction'}) { |
|
$paramHash = Apache::lonhelper::getParamHash(); |
|
$paramHash->{MESSAGE_TEXT} = "</td></tr><tr><td> </td><td>"; |
|
Apache::lonhelper::message->new(); |
|
$paramHash = Apache::lonhelper::getParamHash(); |
|
$paramHash->{'variable'} = 'TABLE_INDEX'; |
|
$helper->declareVar('TABLE_INDEX'); |
|
$paramHash->{CHOICES} = [ |
|
['Print without Index', 'no'], |
|
['Print with Index', 'yes'] ]; |
|
Apache::lonhelper::dropdown->new(); |
|
} |
|
|
|
if ($helper->{VARS}->{'construction'}) { |
|
$paramHash = Apache::lonhelper::getParamHash(); |
|
$paramHash->{MESSAGE_TEXT} = "</td></tr><tr><td> </td><td>"; |
|
Apache::lonhelper::message->new(); |
|
$paramHash = Apache::lonhelper::getParamHash(); |
|
$paramHash->{'variable'} = 'CONSTR_RESOURSE_URL'; |
|
$helper->declareVar('CONSTR_RESOURSE_URL'); |
|
$paramHash->{CHOICES} = [ |
|
['Print without URL', 'no'], |
|
['Print with UTL', 'yes'] ]; |
|
Apache::lonhelper::dropdown->new(); |
|
} |
|
|
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
$paramHash->{MESSAGE_TEXT} = "<br />"; |
$paramHash->{MESSAGE_TEXT} = "</td></tr><table>"; |
Apache::lonhelper::message->new(); |
Apache::lonhelper::message->new(); |
$paramHash = Apache::lonhelper::getParamHash(); |
|
$paramHash->{'variable'} = 'TABLE_INDEX'; |
|
$helper->declareVar('TABLE_INDEX'); |
|
$paramHash->{CHOICES} = [ |
|
['Print without Index', 'no'], |
|
['Print with Index', 'yes'] ]; |
|
Apache::lonhelper::dropdown->new(); |
|
} |
} |
|
|
Apache::lonprintout::page_format_state->new("FORMAT"); |
Apache::lonprintout::page_format_state->new("FORMAT"); |