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.91 and 1.93

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

version 1.91, 2002/11/18 20:30:49	version 1.93, 2002/11/20 17:26:52
Line 107 ENDMENUOUT6	Line 107 ENDMENUOUT6
}	}
my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});	my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});
$subdirtoprint =~ s/\/[^\/]+$//;	$subdirtoprint =~ s/\/[^\/]+$//;
if (&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') {	if ((&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') and ($ENV{'form.postdata'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)/)) {
$r->print(<<ENDMENUOUT4);	$r->print(<<ENDMENUOUT4);
<input type="radio" name="choice" value="Subdirectory print"> Problems from current subdirectory <b>$subdir_to_print</b><br />	<input type="radio" name="choice" value="Subdirectory print"> Problems from current subdirectory <b>$subdir_to_print</b><br />
ENDMENUOUT4	ENDMENUOUT4
Line 165 sub sequence_content_menu {	Line 165 sub sequence_content_menu {
<input type="hidden" name="choice" value="$ENV{'form.choice'}">	<input type="hidden" name="choice" value="$ENV{'form.choice'}">
<input type="hidden" name="layout" value="$ENV{'form.layout'}">	<input type="hidden" name="layout" value="$ENV{'form.layout'}">
<input type="hidden" name="papersize" value="$ENV{'form.papersize'}">	<input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
	<input type="hidden" name="assignment" value="$ENV{'form.assignment'}">
<input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">	<input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
<h1>Mark item(s) which you want to print</h1>	<h1>Mark item(s) which you want to print</h1>
<script>	<script>
Line 449 ENDPART	Line 450 ENDPART
if ($choice eq 'Standard LaTeX output for current document') {	if ($choice eq 'Standard LaTeX output for current document') {
#-- single document - problem, page, html, xml	#-- single document - problem, page, html, xml
$selectionmade = 1;	$selectionmade = 1;
my %moreenv;	if ($ENV{'form.url'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {
$moreenv{'form.grade_target'}='tex';	my %moreenv;
if (&Apache::lonnet::allowed('bre',$ENV{'form.url'})) {	$moreenv{'form.grade_target'}='tex';
	if (&Apache::lonnet::allowed('bre',$ENV{'form.url'})) {
$ENV{'form.url'}=~s/http:\/\/[^\/]+//;	$ENV{'form.url'}=~s/http:\/\/[^\/]+//;
}	}
$moreenv{'request.filename'}=$ENV{'form.url'};	$moreenv{'request.filename'}=$ENV{'form.url'};
$moreenv{'form.textwidth'}=$LaTeXwidth;	$moreenv{'form.textwidth'}=$LaTeXwidth;
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
my $texversion=&Apache::lonnet::ssi($ENV{'form.url'});	my $texversion=&Apache::lonnet::ssi($ENV{'form.url'});
&Apache::lonnet::delenv('form.grade_target','form.textwidth','form.counter');	&Apache::lonnet::delenv('form.grade_target','form.textwidth','form.counter');
$result .= $texversion;	$result .= $texversion;
if ($ENV{'form.url'}=~m/\.page\s*$/) {	if ($ENV{'form.url'}=~m/\.page\s*$/) {
($result,$number_of_columns) = &page_cleanup($result);	($result,$number_of_columns) = &page_cleanup($result);
	}
	} else{
	$result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}You are trying to print eather sequence or something simular. Currently this option is not supported. Sorry for the inconvenience. Bye. Your current URL is '.$ENV{'form.url'}.' \end{document}'
}	}
} elsif ($choice eq 'Standard LaTeX output for the primary sequence' or	} elsif ($choice eq 'Standard LaTeX output for the primary sequence' or
$choice eq 'Standard LaTeX output for whole primary sequence') {	$choice eq 'Standard LaTeX output for whole primary sequence') {
Line 1169 sub character_chart {	Line 1174 sub character_chart {
sub page_format_transformation {	sub page_format_transformation {
my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_;	my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_;
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);	my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);
my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};	my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
if ($layout eq 'CBI') {	if ($layout eq 'CBI') {
$text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill $courseidinfo} \\vskip 5 mm /;	$text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill $courseidinfo} \\vskip 5 mm /;
} elsif ($layout eq 'CAPA') {	} elsif ($layout eq 'CAPA') {

Removed from v.1.91
changed lines
	Added in v.1.93