loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.217 and 1.220

version 1.217, 2003/08/18 18:22:53	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 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");

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.217
changed lines
	Added in v.1.220