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.301 and 1.341

version 1.301, 2004/05/10 14:25:02	version 1.341, 2004/12/13 23:28:43
Line 41 use Apache::lonnavmaps;	Line 41 use Apache::lonnavmaps;
use Apache::lonratedt;	use Apache::lonratedt;
use POSIX qw(strftime);	use POSIX qw(strftime);
use Apache::lonlocal;	use Apache::lonlocal;
use GDBM_File;


my %hash;
my $LaTeXwidth = 0;	my $LaTeXwidth = 0;


	# Compare two students by name. The students are in the form
	# returned by the helper:
	# user:domain:section:last, first:status
	# This is a helper function for the perl sort built-in therefore:
	# Implicit Inputs:
	# $a - The first element to compare (global)
	# $b - The second element to compare (global)
	# Returns:
	# -1 - $a < $b
	# 0 - $a == $b
	# +1 - $a > $b
	# Note that the initial comparison is done on the last names with the
	# first names only used to break the tie.
	#
	#
	sub compare_names {
	# First split the names up into the primary fields.

	my ($u1, $d1, $s1, $n1, $stat1) = split(/:/, $a);
	my ($u2, $d2, $s2, $n2, $stat2) = split(/:/, $b);

	# Now split the last name and first name of each n:
	#

	my ($l1,$f1) = split(/,/, $n1);
	my ($l2,$f2) = split(/,/, $n2);

	# We don't bother to remove the leading/trailing whitespace from the
	# firstname, unless the last names compare identical.

	if($l1 lt $l2) {
	return -1;
	}
	if($l1 gt $l2) {
	return 1;
	}

	# Break the tie on the first name, but there are leading (possibly trailing
	# whitespaces to get rid of first
	#
	$f1 =~ s/^\s+//; # Remove leading...
	$f1 =~ s/\s+$//; # Trailing spaces from first 1...

	$f2 =~ s/^\s+//;
	$f2 =~ s/\s+$//; # And the same for first 2...

	if($f1 lt $f2) {
	return -1;
	}
	if($f1 gt $f2) {
	return 1;
	}

	# Must be the same name.

	return 0;
	}

sub latex_header_footer_remove {	sub latex_header_footer_remove {
my $text = shift;	my $text = shift;
$text =~ s/\\end{document}//;	$text =~ s/\\end{document}//;
Line 229 sub character_chart {	Line 284 sub character_chart {
$result =~ s/&(\#219\|Ucirc);/\\^{U}/g;	$result =~ s/&(\#219\|Ucirc);/\\^{U}/g;
$result =~ s/&(\#220\|Uuml);/\\\"{U}/g;	$result =~ s/&(\#220\|Uuml);/\\\"{U}/g;
$result =~ s/&(\#221\|Yacute);/\\\'{Y}/g;	$result =~ s/&(\#221\|Yacute);/\\\'{Y}/g;
$result =~ s/&(\#223\|szlig);/\\ss/g;	$result =~ s/&(\#223\|szlig);/{\\ss}/g;
$result =~ s/&(\#224\|agrave);/\\\`{a}/g;	$result =~ s/&(\#224\|agrave);/\\\`{a}/g;
$result =~ s/&(\#225\|aacute);/\\\'{a}/g;	$result =~ s/&(\#225\|aacute);/\\\'{a}/g;
$result =~ s/&(\#226\|acirc);/\\^{a}/g;	$result =~ s/&(\#226\|acirc);/\\^{a}/g;
Line 373 sub character_chart {	Line 428 sub character_chart {
}	}


	#width, height, oddsidemargin, evensidemargin, topmargin
	my %page_formats=
	('letter' => {
	'book' => {
	'1' => [ '7.1 in','10.2 in', '-0.57 in','-0.57 in','1 cm'],
	'2' => ['3.66 in','10.2 in', '-0.57 in','-0.57 in','1 cm']
	},
	'album' => {
	'1' => [ '8.8 in', '6.8 in','-40 pt in', '-60 pt','1 cm'],
	'2' => [ '4.4 in', '6.8 in','-0.5 in', '-1.5 in','3.5 in']
	},
	},
	'legal' => {
	'book' => {
	'1' => ['7.1 in','13 in',,'-0.57 in','-0.57 in','-0.5 in'],
	'2' => ['3.16 in','13 in','-0.57 in','-0.57 in','-0.5 in']
	},
	'album' => {
	'1' => [],
	'2' => []
	},
	},
	'tabloid' => {
	'book' => {
	'1' => ['9.8 in','16 in','-0.57 in','-0.57 in','-0.5 in'],
	'2' => ['4.9 in','16 in','-0.57 in','-0.57 in','-0.5 in']
	},
	'album' => {
	'1' => [],
	'2' => []
	},
	},
	'executive' => {
	'book' => {
	'1' => ['6.8 in','9 in','-0.57 in','-0.57 in','1.2 in'],
	'2' => ['3.1 in','9 in','-0.57 in','-0.57 in','1.2 in']
	},
	'album' => {
	'1' => [],
	'2' => []
	},
	},
	'a2' => {
	'book' => {
	'1' => [],
	'2' => []
	},
	'album' => {
	'1' => [],
	'2' => []
	},
	},
	'a3' => {
	'book' => {
	'1' => [],
	'2' => []
	},
	'album' => {
	'1' => [],
	'2' => []
	},
	},
	'a4' => {
	'book' => {
	'1' => ['176 mm','272 mm','-40 pt in','-60 pt','-0.5 in'],
	'2' => [ '91 mm','272 mm','-40 pt in','-60 pt','-0.5 in']
	},
	'album' => {
	'1' => ['8.5 in','7.7 in','-40 pt in','-60 pt','0 in'],
	'2' => ['3.9 in','7.7 in','-40 pt in','-60 pt','0 in']
	},
	},
	'a5' => {
	'book' => {
	'1' => [],
	'2' => []
	},
	'album' => {
	'1' => [],
	'2' => []
	},
	},
	'a6' => {
	'book' => {
	'1' => [],
	'2' => []
	},
	'album' => {
	'1' => [],
	'2' => []
	},
	},
	);

sub page_format {	sub page_format {
#	#
#Correspondence between $papersize variable and real paper format:	#Supported paper format: "Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]",
# 0 - "Letter [8 1/2x11 in]"	# "Ledger/Tabloid [11x17 in]", "Executive [7 1/2x10 in]",
# 1 - "Legal [8 1/2x14 in]"	# "A2 [420x594 mm]", "A3 [297x420 mm]",
# 2 - "Ledger/Tabloid [11x17 in]"	# "A4 [210x297 mm]", "A5 [148x210 mm]",
# 3 - "Executive [7 1/2x10 in]"	# "A6 [105x148 mm]"
# 4 - "A2 [420x594 mm]"
# 5 - "A3 [297x420 mm]"
# 6 - "A4 [210x297 mm]"
# 7 - "A5 [148x210 mm]"
# 8 - "A6 [105x148 mm]"
#	#
my ($papersize,$layout,$numberofcolumns) = @_;	my ($papersize,$layout,$numberofcolumns) = @_;
my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = (0,0,0,0,0);	return @{$page_formats{$papersize}->{$layout}->{$numberofcolumns}};
if ($papersize eq '0') {
if ($layout eq 'book') {
if ($numberofcolumns == 1) {
$textwidth = '7.1 in'; #'18 cm';
$textheight = '10.2 in'; #'25.9 cm';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
} elsif ($numberofcolumns == 2) {
$textwidth = '3.66 in'; #'93 mm';
$textheight = '10.2 in'; #'25.9 cm';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
}
} elsif ($layout eq 'album') {
if ($numberofcolumns eq '1') {
$textwidth = '8.8 in';
$textheight = '6.8 in';
$oddoffset = '-40 pt';
$evenoffset = '-60 pt';
} elsif ($numberofcolumns == 2) {
$textwidth = '4.4 in';
$textheight = '6.8 in';
$oddoffset = '-0.5 in';
$evenoffset = '-1.5 in';
$topmargin = '3.5 in';
}
}
# } elsif($papersize eq '1') {
# } elsif($papersize eq '2') {
# } elsif($papersize eq '3'/) {
} elsif($papersize eq '6') {
if ($layout eq 'book') {
if ($numberofcolumns == 1) {
$textwidth = '18 cm';
$textheight = '28 cm';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
} elsif ($numberofcolumns == 2) {
$textwidth = '96 mm';
$textheight = '2 cm';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
}
} elsif ($layout eq 'album') {
if ($numberofcolumns eq '1') {
$textwidth = '8.5 in';
$textheight = '7.7 in';
$oddoffset = '-40 pt';
$evenoffset = '-60 pt';
} elsif ($numberofcolumns == 2) {
$textwidth = '3.9 in';
$textheight = '7.7 in';
$oddoffset = '-40 pt';
$evenoffset = '-60 pt';
}
}
# } elsif($papersize eq '5') {
# } elsif($papersize eq '4') {
# } elsif($papersize eq '7') {
# } elsif($papersize eq '8') {
}
return $textwidth,$textheight,$oddoffset,$evenoffset,$topmargin;
}	}


Line 472 sub get_course {	Line 554 sub get_course {
}	}

sub page_format_transformation {	sub page_format_transformation {
my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment,$tableofcontents,$indexlist) = @_;	my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment,$tableofcontents,$indexlist,$selectionmade) = @_;
my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin);	my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin);
$assignment=&Apache::lonxml::latex_special_symbols($assignment,'header');	if ($selectionmade eq '4') {
	$assignment='Problems from the Whole Course';
	} else {
	$assignment=&Apache::lonxml::latex_special_symbols($assignment,'header');
	}
($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = &page_format($papersize,$layout,$numberofcolumns,$topmargin);	($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = &page_format($papersize,$layout,$numberofcolumns,$topmargin);
my $name = &get_name();	my $name = &get_name();
my $courseidinfo = &get_course();	my $courseidinfo = &get_course();
if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }	if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
	my $topmargintoinsert = '';
	if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';}
	my $fancypagestatement='';
	if ($numberofcolumns eq '2') {
	$fancypagestatement="\\fancyhead{}\\fancyhead[LO]{\\textbf{$name} $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}";
	} else {
	$fancypagestatement="\\rhead{}\\chead{}\\lhead{\\textbf{$name} $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}";
	}
if ($layout eq 'album') {	if ($layout eq 'album') {
my $topmargintoinsert = '';	$text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}$topmargintoinsert\n\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\n\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\usepackage{fancyhdr}\\addtolength{\\headheight}{\\baselineskip}\n\\pagestyle{fancy}$fancypagestatement\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}\n /;
if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';}
$text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}$topmargintoinsert\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{}\\lhead{\\textbf{$name} $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}} \\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1} /;
} elsif ($layout eq 'book') {	} elsif ($layout eq 'book') {
if ($choice ne 'All class print') {	if ($choice ne 'All class print') {
$text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{}\\lhead{\\textbf{$name} $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}/;	$text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset $topmargintoinsert\n\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\n\\renewcommand{\\ref}{\\keephidden\}\\usepackage{fancyhdr}\\addtolength{\\headheight}{\\baselineskip}\\pagestyle{fancy}$fancypagestatement\\begin{document}\n\\voffset=-0\.8 cm\\setcounter{page}{1}\n/;
} else {	} else {
$text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\begin{document}\\voffset=-0\.8cm\\setcounter{page}{1} \\vskip 5 mm /;	$text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\n\\evensidemargin = $evenoffset $topmargintoinsert\\textwidth= $textwidth\\newlength{\\minipagewidth}\n\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\begin{document}\\voffset=-0\.8cm\n\\setcounter{page}{1} \\vskip 5 mm\n /;
	}
	if ($papersize eq 'a4') {
	$text =~ s/(\\begin{document})/$1\\special{papersize=210mm,297mm}/;
}	}
}	}
if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;}	if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;}
Line 514 sub page_cleanup {	Line 609 sub page_cleanup {


sub details_for_menu {	sub details_for_menu {
	my ($helper)=@_;
my $name_of_resourse = &Apache::lonnet::gettitle($ENV{'form.postdata'});	my $postdata=$ENV{'form.postdata'};
my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});	if (!$postdata) { $postdata=$helper->{VARS}{'postdata'}; }
	my $name_of_resource = &Apache::lonnet::gettitle($postdata);
	my $symbolic = &Apache::lonnet::symbread($postdata);
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic);	my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic);
$map=&Apache::lonnet::clutter($map);	$map=&Apache::lonnet::clutter($map);
my $name_of_sequence = &Apache::lonnet::gettitle($map);	my $name_of_sequence = &Apache::lonnet::gettitle($map);
Line 529 sub details_for_menu {	Line 626 sub details_for_menu {
$ENV{'request.course.uri'} =~ m\|([^/]+)$\|;	$ENV{'request.course.uri'} =~ m\|([^/]+)$\|;
$name_of_map = $1;	$name_of_map = $1;
}	}
return ($name_of_resourse,$name_of_sequence,$name_of_map);	return ($name_of_resource,$name_of_sequence,$name_of_map);

}	}


sub latex_corrections {	sub latex_corrections {

my ($number_of_columns,$result) = @_;	my ($number_of_columns,$result,$selectionmade) = @_;

# $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g;	# $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g;
$result =~ s/\$number_of_columns/$number_of_columns/g;	$result =~ s/\$number_of_columns/$number_of_columns/g;
$result =~ s/(\\end{document})/\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License $1/;	if ($selectionmade ne '1') {
	$result =~ s/(\\end{document})/\\strut\\vspace\*{-4 mm}\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License $1/;
	} else {
	$result =~ s/(\\end{document})/\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License $1/;
	}
$result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g;	$result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g;
$result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g;	$result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g;
#-- LaTeX corrections	#-- LaTeX corrections
Line 555 sub latex_corrections {	Line 655 sub latex_corrections {
$result =~ s/\\\\\s*\\vskip/\\vskip/gm;	$result =~ s/\\\\\s*\\vskip/\\vskip/gm;
$result =~ s/\\\\\s\\noindent\s(\\\\)+/\\\\\\noindent /g;	$result =~ s/\\\\\s\\noindent\s(\\\\)+/\\\\\\noindent /g;
$result =~ s/{\\par }\s*\\\\/\\\\/gm;	$result =~ s/{\\par }\s*\\\\/\\\\/gm;
$result =~ s/\\\\\s+\[/ \[/g;	$result =~ s/\\\\\s+\[/ \[/g;
$result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
#conversion of html characters to LaTeX equivalents	#conversion of html characters to LaTeX equivalents
if ($result =~ m/&(\w+\|#\d+);/) {	if ($result =~ m/&(\w+\|#\d+);/) {
$result = &character_chart($result);	$result = &character_chart($result);
Line 602 sub print_latex_header {	Line 701 sub print_latex_header {
if ($mode eq 'batchmode') {	if ($mode eq 'batchmode') {
$output.='\batchmode';	$output.='\batchmode';
}	}
$output.='\newcommand{\keephidden}[1]{}\renewcommand{\deg}{$^{\circ}$}'.	$output.='\newcommand{\keephidden}[1]{}\renewcommand{\deg}{$^{\circ}$}'."\n".
'\usepackage{longtable}\usepackage{textcomp}\usepackage{makeidx}'.	'\usepackage{longtable}\usepackage{textcomp}\usepackage{makeidx}'."\n".
'\usepackage[dvips]{graphicx}\usepackage{epsfig}\usepackage{calc}'.	'\usepackage[dvips]{graphicx}\usepackage{epsfig}\usepackage{calc}'."\n".
'\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'.	'\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'."\n".
'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'.	'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'."\n".
'\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}'.	'\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}'."\n".
'\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}'.	'\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}'."\n".
'\setlength{\abovedisplayshortskip}{-0.04in}'.	'\setlength{\abovedisplayshortskip}{-0.04in}'."\n".
'\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}'.	'\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}'."\n".
'\renewenvironment{theindex}{\begin{list}{}{{\vskip 1mm \noindent \large'.	'\renewenvironment{theindex}{\begin{list}{}{{\vskip 1mm \noindent \large'."\n".
'\textbf{Index}} \newline \setlength{\rightmargin}{0in}'.	'\textbf{Index}} \newline \setlength{\rightmargin}{0in}'."\n".
'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.01in}'.	'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.01in}'."\n".
'\setlength{\itemsep}{0.1in}\setlength{\parsep}{-0.02in}'.	'\setlength{\itemsep}{0.1in}\setlength{\parsep}{-0.02in}'."\n".
'\setlength{\belowdisplayskip}{0.01in}\setlength{\abovedisplayskip}{0.01in}'.	'\setlength{\belowdisplayskip}{0.01in}\setlength{\abovedisplayskip}{0.01in}'."\n".
'\setlength{\abovedisplayshortskip}{-0.04in}'.	'\setlength{\abovedisplayshortskip}{-0.04in}'."\n".
'\setlength{\belowdisplayshortskip}{0.01in}}}{\end{list}}\begin{document}';	'\setlength{\belowdisplayshortskip}{0.01in}}}{\end{list}}\begin{document}'."\n";
return $output;	return $output;
}	}

sub path_to_problem {	sub path_to_problem {
my ($urlp,$LaTeXwidth)=@_;	my ($urlp,$colwidth)=@_;
my $newurlp = '';	my $newurlp = '';
$LaTeXwidth=~s/\smm\s$//;	$colwidth=~s/\smm\s$//;
my $HowMany = length($urlp)*2;	#characters average about 2 mm in width
if ($HowMany > $LaTeXwidth) {	if (length($urlp)*2 > $LaTeXwidth) {
my @temporrary = split '/',$urlp;	my @elements = split '/',$urlp;
my $HowManyNew = 0;	my $curlength=0;
for (my $ii=0;$ii<=$#temporrary;$ii++) {	foreach my $element (@elements) {
if ($temporrary[$ii] ne '') {	if ($curlength+(length($element)*2) > $colwidth) {
$HowManyNew += length($temporrary[$ii])*2;	$newurlp .= '\|\vskip -1 mm \noindent \verb\|';
if ($HowManyNew < $LaTeXwidth ) {	$curlength=0;
$newurlp .= '/'.$temporrary[$ii];	} else {
} else {	$curlength+=length($element)*2;
$HowManyNew = 0;
$newurlp .= '\|\vskip -1 mm \noindent \verb\|';
$ii--;
}
}	}
	$newurlp.='/'.$element;
}	}
} else {	} else {
$newurlp=$urlp;	$newurlp=$urlp;
Line 650 sub path_to_problem {	Line 746 sub path_to_problem {
sub recalcto_mm {	sub recalcto_mm {
my $textwidth=shift;	my $textwidth=shift;
my $LaTeXwidth;	my $LaTeXwidth;
if ($textwidth=~/(\d+\.?\d)\scm/) {	if ($textwidth=~/(-?\d+\.?\d)\scm/) {
$LaTeXwidth = $1*10;	$LaTeXwidth = $1*10;
} elsif ($textwidth=~/(\d+\.?\d)\smm/) {	} elsif ($textwidth=~/(-?\d+\.?\d)\smm/) {
$LaTeXwidth = $1;	$LaTeXwidth = $1;
} elsif ($textwidth=~/(\d+\.?\d)\sin/) {	} elsif ($textwidth=~/(-?\d+\.?\d)\sin/) {
$LaTeXwidth = $1*25.4;	$LaTeXwidth = $1*25.4;
}	}
$LaTeXwidth.=' mm';	$LaTeXwidth.=' mm';
Line 674 sub get_textwidth {	Line 770 sub get_textwidth {


sub unsupported {	sub unsupported {
my $currentURL=shift;	my ($currentURL,$mode)=@_;
my $result.='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';	if ($mode ne '') {$mode='\\'.$mode}
	my $result.= &print_latex_header($mode);
if ($currentURL=~/\/ext\//) {	if ($currentURL=~/\/ext\//) {
$result.=' \strut \\\\ THIS IS EXTERNAL RESOURCE WITH URL \strut \\\\ '.$currentURL.' ';	$result.=' \strut \\\\ THIS IS EXTERNAL RESOURCE WITH URL \strut \\\\ '.$currentURL.' ';
} else {	} else {
Line 768 ENDPART	Line 865 ENDPART
$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'};
	$form{'suppress_tries'}=$parmhash{'suppress_tries'};
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
	$form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
	if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$form{'problem_split'}='yes';}
if ($helper->{'VARS'}->{'curseed'}) {	if ($helper->{'VARS'}->{'curseed'}) {
$rndseed=$helper->{'VARS'}->{'curseed'};	$rndseed=$helper->{'VARS'}->{'curseed'};
}	}
Line 833 ENDPART	Line 933 ENDPART
$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'};
	$form{'suppress_tries'}=$parmhash{'suppress_tries'};
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
$form{'rndseed'}=$rndseed;	$form{'rndseed'}=$rndseed;
$texversion=&Apache::lonnet::ssi($urlp,%form);	$texversion=&Apache::lonnet::ssi($urlp,%form);
Line 883 ENDPART	Line 984 ENDPART
my $texversion=&Apache::lonnet::ssi($currentURL,%form);	my $texversion=&Apache::lonnet::ssi($currentURL,%form);
$result .= $texversion;	$result .= $texversion;
} else {	} else {
$result.=&unsupported($currentURL);	$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'});
}	}
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or	} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or	($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or
Line 903 ENDPART	Line 1004 ENDPART
$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'};
	$form{'suppress_tries'}=$parmhash{'suppress_tries'};
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
	$form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
	if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$form{'problem_split'}='yes';}
my $flag_latex_header_remove = 'NO';	my $flag_latex_header_remove = 'NO';
my $flag_page_in_sequence = 'NO';	my $flag_page_in_sequence = 'NO';
my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};	my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};
Line 918 ENDPART	Line 1022 ENDPART
my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem	my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem
if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;}	if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;}
if ($i==0) {$prevassignment=$assignment;}	if ($i==0) {$prevassignment=$assignment;}
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
my $texversion='';	my $texversion='';
if ($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {	if ($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {
$texversion.=&Apache::lonnet::ssi($urlp,%form);	$texversion.=&Apache::lonnet::ssi($urlp,%form);
Line 944 ENDPART	Line 1047 ENDPART
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {	if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;	$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
} else {	} else {
if ($urlp=~/\.(problem\|exam\|quiz\|library)$/) {	if ($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/) {
$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});	$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
$texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($urlp).'}\vskip 0 mm ';	$texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($urlp).'}\vskip 0 mm ';
$texversion.=&path_to_problem ($urlp,$LaTeXwidth);	$texversion.=&path_to_problem ($urlp,$LaTeXwidth);
Line 967 ENDPART	Line 1070 ENDPART
my $courseidinfo = &get_course();	my $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 ';
}	}
$result .= $texversion;	$result .= $texversion;
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
Line 986 ENDPART	Line 1089 ENDPART
$result .= $texversion;	$result .= $texversion;
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
} else {	} else {
$texversion=&unsupported($urlp);	$texversion=&unsupported($urlp,$helper->{'VARS'}->{'LATEX_TYPE'});
if ($flag_latex_header_remove ne 'NO') {	if ($flag_latex_header_remove ne 'NO') {
$texversion = &latex_header_footer_remove($texversion);	$texversion = &latex_header_footer_remove($texversion);
} else {	} else {
Line 995 ENDPART	Line 1098 ENDPART
$result .= $texversion;	$result .= $texversion;
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
}	}
	if (&Apache::loncommon::connection_aborted($r)) { last; }
}	}
&Apache::lonnet::delenv('form.counter');	&Apache::lonnet::delenv('form.counter');
if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}	if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}
Line 1011 ENDPART	Line 1115 ENDPART
$type='resources';	$type='resources';
}	}
my @students=split /\\|\\|\\|/, $helper->{'VARS'}->{'STUDENTS'};	my @students=split /\\|\\|\\|/, $helper->{'VARS'}->{'STUDENTS'};
	# The normal sort order is by section then by students within the
	# section. If the helper var student_sort is 1, then the user has elected
	# to override this and output the students by name.
	# Each element of the students array is of the form:
	# username:domain:section:last, first:status
	#
	#
	if ($helper->{'VARS'}->{'student_sort'} eq 1) {
	@students = sort compare_names @students;
	}
if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq '0' \|\|	if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq '0' \|\|
$helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'all' ) {	$helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'all' ) {
$helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1;	$helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1;
Line 1019 ENDPART	Line 1133 ENDPART
#loop over students	#loop over students
my $flag_latex_header_remove = 'NO';	my $flag_latex_header_remove = 'NO';
my %moreenv;	my %moreenv;
	$moreenv{'instructor_comments'}='hide';
$moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);	$moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1);	$moreenv{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
	if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$moreenv{'problem_split'}='yes';}
	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1,'inline','75');
my $student_counter=-1;	my $student_counter=-1;
foreach my $person (@students) {	foreach my $person (@students) {
	my $duefile="/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.due";
	if (-e $duefile) {
	my $temp_file = Apache::File->new('>>'.$duefile);
	print $temp_file "1969\n";
	}
$student_counter++;	$student_counter++;
my $i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});	my $i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});
my ($output,$fullname)=&print_resources($r,$helper,$person,$type,\%moreenv,\@master_seq,$flag_latex_header_remove);	my ($output,$fullname)=&print_resources($r,$helper,$person,$type,\%moreenv,\@master_seq,$flag_latex_header_remove);
Line 1030 ENDPART	Line 1152 ENDPART
$student_names[$i].=$person.':'.$fullname.'_END_';	$student_names[$i].=$person.':'.$fullname.'_END_';
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,&mt('last student').' '.$fullname);	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,&mt('last student').' '.$fullname);
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
	if (&Apache::loncommon::connection_aborted($r)) { last; }
}	}
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);	&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
$result .= $print_array[0].' \end{document}';	$result .= $print_array[0].' \end{document}';
Line 1040 ENDPART	Line 1163 ENDPART
my $num_todo=$helper->{'VARS'}->{'NUMBER_TO_PRINT_TOTAL'};	my $num_todo=$helper->{'VARS'}->{'NUMBER_TO_PRINT_TOTAL'};
my $code_name=$helper->{'VARS'}->{'ANON_CODE_STORAGE_NAME'};	my $code_name=$helper->{'VARS'}->{'ANON_CODE_STORAGE_NAME'};
my $old_name=$helper->{'VARS'}->{'REUSE_OLD_CODES'};	my $old_name=$helper->{'VARS'}->{'REUSE_OLD_CODES'};
my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};
my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'});
my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'};
if ($number_per_page eq '0' \|\| $number_per_page eq 'all') {
$number_per_page=$num_todo;
}
my $flag_latex_header_remove = 'NO';
my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));	my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75');
my $seed=time+($$<<16)+($$);	my $seed=time+($$<<16)+($$);
my @allcodes;	my @allcodes;
if ($old_name) {	if ($old_name) {
my %result=&Apache::lonnet::get('CODEs',[$old_name],$cdom,$cnum);	my %result=&Apache::lonnet::get('CODEs',[$old_name],$cdom,$cnum);
@allcodes=split(',',$result{$old_name});	@allcodes=split(',',$result{$old_name});
	$num_todo=scalar(@allcodes);
} else {	} else {
my %allcodes;	my %allcodes;
srand($seed);	srand($seed);
Line 1067 ENDPART	Line 1183 ENDPART
}	}
@allcodes=keys(%allcodes);	@allcodes=keys(%allcodes);
}	}
	my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};
	my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'});
	my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'};
	if ($number_per_page eq '0' \|\| $number_per_page eq 'all') {
	$number_per_page=$num_todo;
	}
	my $flag_latex_header_remove = 'NO';
	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75');
my $count=0;	my $count=0;
foreach my $code (sort(@allcodes)) {	foreach my $code (sort(@allcodes)) {
my $file_num=int($count/$number_per_page);	my $file_num=int($count/$number_per_page);
Line 1079 ENDPART	Line 1203 ENDPART
&mt('last assignment').' '.$fullname);	&mt('last assignment').' '.$fullname);
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
$count++;	$count++;
	if (&Apache::loncommon::connection_aborted($r)) { last; }
}	}
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);	&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
$result .= $print_array[0].' \end{document}';	$result .= $print_array[0].' \end{document}';
Line 1103 ENDPART	Line 1228 ENDPART
if ($urlp =~ m\|/home/([^/]+)/public_html\|) {	if ($urlp =~ m\|/home/([^/]+)/public_html\|) {
$urlp =~ s\|/home/([^/]*)/public_html\|/~$1\|;	$urlp =~ s\|/home/([^/]*)/public_html\|/~$1\|;
} else {	} else {
$urlp =~ s\|^/home/httpd/html\|\|;	$urlp =~ s\|^$Apache::lonnet::perlvar{'lonDocRoot'}\|\|;
}	}
my $texversion=&Apache::lonnet::ssi($urlp,%form);	my $texversion=&Apache::lonnet::ssi($urlp,%form);
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|	if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|
Line 1155 ENDPART	Line 1280 ENDPART
$result .= '\end{document}';	$result .= '\end{document}';
}	}
#-------------------------------------------------------- corrections for the different page formats	#-------------------------------------------------------- corrections for the different page formats
$result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'},$helper->{'VARS'}->{'TABLE_CONTENTS'},$helper->{'VARS'}->{'TABLE_INDEX'});	$result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'},$helper->{'VARS'}->{'TABLE_CONTENTS'},$helper->{'VARS'}->{'TABLE_INDEX'},$selectionmade);
$result = &latex_corrections($number_of_columns,$result);	$result = &latex_corrections($number_of_columns,$result,$selectionmade);
for (my $i=1;$i<=$#print_array;$i++) {$print_array[$i] = &latex_corrections($number_of_columns,$print_array[$i]);}	for (my $i=1;$i<=$#print_array;$i++) {$print_array[$i] = &latex_corrections($number_of_columns,$print_array[$i],$selectionmade);}
#changes page's parameters for the one column output	#changes page's parameters for the one column output
if ($numberofcolumns == 1) {	if ($numberofcolumns == 1) {
$result =~ s/\\textwidth\s=\s\d\.?\d\s*(cm\|mm\|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /;	$result =~ s/\\textwidth\s=\s-?\d\.?\d\s*(cm\|mm\|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /;
$result =~ s/\\textheight\s=\s\d\.?\d\s*(cm\|mm\|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /;	$result =~ s/\\textheight\s=\s-?\d\.?\d\s*(cm\|mm\|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /;
$result =~ s/\\evensidemargin\s=\s\d\.?\d\s*(cm\|mm\|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;	$result =~ s/\\evensidemargin\s=\s-?\d\.?\d\s*(cm\|mm\|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
$result =~ s/\\oddsidemargin\s=\s\d\.?\d\s*(cm\|mm\|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;	$result =~ s/\\oddsidemargin\s=\s-?\d\.?\d\s*(cm\|mm\|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
}	}
#-- writing .tex file in prtspool	#-- writing .tex file in prtspool
my $temp_file;	my $temp_file;
Line 1231 ENDPART	Line 1356 ENDPART
&Apache::lonnet::appenv('cgi.'.$identifier.'.file' => $filename,	&Apache::lonnet::appenv('cgi.'.$identifier.'.file' => $filename,
'cgi.'.$identifier.'.layout' => $laystyle,	'cgi.'.$identifier.'.layout' => $laystyle,
'cgi.'.$identifier.'.numcol' => $numberofcolumns,	'cgi.'.$identifier.'.numcol' => $numberofcolumns,
	'cgi.'.$identifier.'.paper' => $papersize,
'cgi.'.$identifier.'.selection' => $selectionmade,	'cgi.'.$identifier.'.selection' => $selectionmade,
'cgi.'.$identifier.'tableofcontents' => $helper->{'VARS'}->{'TABLE_CONTENTS'},	'cgi.'.$identifier.'tableofcontents' => $helper->{'VARS'}->{'TABLE_CONTENTS'},
'cgi.'.$identifier.'tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'},	'cgi.'.$identifier.'tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'},
Line 1240 ENDPART	Line 1366 ENDPART
'cgi.'.$identifier.'backref' => $URLback,);	'cgi.'.$identifier.'backref' => $URLback,);

$r->print(<<FINALEND);	$r->print(<<FINALEND);
	<br />
<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier" />	<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier" />
	<a href="/cgi-bin/printout.pl?$identifier">Continue</a>
</body>	</body>
</html>	</html>
FINALEND	FINALEND
Line 1273 sub print_resources {	Line 1401 sub print_resources {
my $current_output = '';	my $current_output = '';
my ($username,$userdomain,$usersection) = split /:/,$person;	my ($username,$userdomain,$usersection) = split /:/,$person;
my $fullname = &get_name($username,$userdomain);	my $fullname = &get_name($username,$userdomain);
	my $namepostfix;
if ($person =~ 'anon') {	if ($person =~ 'anon') {
	$namepostfix="\\\\Name: ";
$fullname = "CODE - ".$moreenv->{'CODE'};	$fullname = "CODE - ".$moreenv->{'CODE'};
}	}
#goes through all resources, checks if they are available for	#goes through all resources, checks if they are available for
Line 1285 sub print_resources {	Line 1415 sub print_resources {
($curresline!~ m/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/)) ) {	($curresline!~ m/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/)) ) {
my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline);	my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline);
if (&Apache::lonnet::allowed('bre',$res_url)) {	if (&Apache::lonnet::allowed('bre',$res_url)) {
my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,$ENV{'request.course.id'},'tex',$moreenv);	if ($res_url=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {
my $lonidsdir=$r->dir_config('lonIDsDir');	my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,$ENV{'request.course.id'},'tex',$moreenv);
my $envfile=$ENV{'user.environment'};	my $lonidsdir=$r->dir_config('lonIDsDir');
$envfile=~/\/([^\/]+)\.id$/;	my $envfile=$ENV{'user.environment'};
$envfile=$1;	$envfile=~/\/([^\/]+)\.id$/;
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$envfile);	$envfile=$1;
my $current_counter=$ENV{'form.counter'};	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$envfile);
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|	my $current_counter=$ENV{'form.counter'};
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {	if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|
my %form;	($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
$form{'answer_output_mode'}='tex';	$moreenv->{'answer_output_mode'}='tex';
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$moreenv->{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%form);	my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%{$moreenv});
&Apache::lonnet::appenv(('form.counter' => $current_counter));	&Apache::lonnet::appenv(('form.counter' => $current_counter));
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {	if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
$rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;	$rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;
	} else {
	$rendered=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
	$rendered.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($curresline).'}\vskip 0 mm ';
	$rendered.=&path_to_problem ($curresline,$LaTeXwidth);
	$rendered.='\vskip 1 mm '.$ansrendered;
	}
	}
	if ($remove_latex_header eq 'YES') {
	$rendered = &latex_header_footer_remove($rendered);
} else {	} else {
$rendered=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});	$rendered =~ s/\\end{document}//;
$rendered.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($curresline).'}\vskip 0 mm ';
$rendered.=&path_to_problem ($curresline,$LaTeXwidth);
$rendered.='\vskip 1 mm '.$ansrendered;
}	}
}	$current_output .= $rendered;
if ($remove_latex_header eq 'YES') {	} elsif ($res_url=~/\/(smppg\|syllabus\|aboutme\|bulletinboard)$/) {
$rendered = &latex_header_footer_remove($rendered);	my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,$ENV{'request.course.id'},'tex',$moreenv);
	my $lonidsdir=$r->dir_config('lonIDsDir');
	my $envfile=$ENV{'user.environment'};
	$envfile=~/\/([^\/]+)\.id$/;
	$envfile=$1;
	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$envfile);
	my $current_counter=$ENV{'form.counter'};
	if ($remove_latex_header eq 'YES') {
	$rendered = &latex_header_footer_remove($rendered);
	} else {
	$rendered =~ s/\\end{document}//;
	}
	$current_output .= $rendered.'\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\strut \vskip 0 mm \strut ';
} else {	} else {
$rendered =~ s/\\end{document}//;	my $rendered = &unsupported($res_url,$helper->{'VARS'}->{'LATEX_TYPE'});
	if ($remove_latex_header ne 'NO') {
	$rendered = &latex_header_footer_remove($rendered);
	} else {
	$rendered =~ s/\\end{document}//;
	}
	$current_output .= $rendered;
}	}
$current_output .= $rendered;
}	}
$remove_latex_header = 'YES';	$remove_latex_header = 'YES';
}	}
	if (&Apache::loncommon::connection_aborted($r)) { last; }
}	}
my $courseidinfo = &get_course();	my $courseidinfo = &get_course();
if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }	if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
if ($usersection ne '') {$courseidinfo.=' - Sec. '.$usersection}	if ($usersection ne '') {$courseidinfo.=' - Sec. '.$usersection}
my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');	my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
if ($current_output=~/\\documentclass/) {	if ($current_output=~/\\documentclass/) {
$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}}$courseidinfo \\hfill \\thepage \\\\ \\textit{$currentassignment}}\\vskip 3 mm /;	$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent\\lhead{\\textit{\\textbf{$fullname}}$courseidinfo \\hfill \\thepage \\\\ \\textit{$currentassignment}$namepostfix}}\\vskip 5 mm /;
} else {	} else {
my $blankpages = '';	my $blankpages = '';
for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blankpages.='\clearpage\strut\clearpage';}	for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blankpages.='\clearpage\strut\clearpage';}
$current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage '.$blankpages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$currentassignment.'}}} \vskip -5 mm '.$current_output;	$current_output = '\strut\vspace{-6 mm}\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\vspace{-2 mm}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage '.$blankpages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$currentassignment.'}'.$namepostfix.'}} \vskip 5 mm '.$current_output;
}	}
return ($current_output,$fullname);	return ($current_output,$fullname);

Line 1386 use Data::Dumper;	Line 1540 use Data::Dumper;
sub printHelper {	sub printHelper {
my $r = shift;	my $r = shift;

if ($ENV{'request.course.id'}) {
my $fn=$ENV{'request.course.fn'};
tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640);
}

if ($r->header_only) {	if ($r->header_only) {
if ($ENV{'browser.mathml'}) {	if ($ENV{'browser.mathml'}) {
&Apache::loncommon::content_type($r,'text/xml');	&Apache::loncommon::content_type($r,'text/xml');
Line 1425 sub printHelper {	Line 1574 sub printHelper {
$helper->declareVar('construction');	$helper->declareVar('construction');
$helper->declareVar('assignment');	$helper->declareVar('assignment');
$helper->declareVar('style_file');	$helper->declareVar('style_file');
	$helper->declareVar('student_sort');

# This will persistently load in the data we want from the	# This will persistently load in the data we want from the
# very first screen.	# very first screen.
Line 1452 sub printHelper {	Line 1602 sub printHelper {

}	}

my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu;	my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu($helper);
if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}	if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}


Line 1494 sub printHelper {	Line 1644 sub printHelper {
# "Delete everything after the last slash."	# "Delete everything after the last slash."
$subdir =~ s\|/[^/]+$\|\|;	$subdir =~ s\|/[^/]+$\|\|;
if (not $helper->{VARS}->{'construction'}) {	if (not $helper->{VARS}->{'construction'}) {
$subdir='/home/httpd/html/res/'.$subdir;	$subdir=$Apache::lonnet::perlvar{'lonDocRoot'}.'/res/'.$subdir;
}	}
# "Remove all duplicate slashes."	# "Remove all duplicate slashes."
$subdir =~ s\|/+\|/\|g;	$subdir =~ s\|/+\|/\|g;
Line 1566 sub printHelper {	Line 1716 sub printHelper {
</state>	</state>
HELPERFRAGMENT	HELPERFRAGMENT

&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);	&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
}	}

# If the user is priviledged, allow them to print all	# If the user is priviledged, allow them to print all
# problems in the course, optionally for selected students	# problems in the course, optionally for selected students
if ($userPriviledged && ($helper->{VARS}->{'postdata'}=~/\/res\//)) {	if ($userPriviledged &&
	($helper->{VARS}->{'postdata'}=~/\/res\// \|\| $helper->{VARS}->{'postdata'}=~/\/(syllabus\|smppg\|aboutme\|bulletinboard)$/)) {
push @{$printChoices}, ['<b>Problems</b> from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS'];	push @{$printChoices}, ['<b>Problems</b> from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS'];
&Apache::lonxml::xmlparse($r, 'helper', <<ALL_PROBLEMS);	&Apache::lonxml::xmlparse($r, 'helper', <<ALL_PROBLEMS);
<state name="ALL_PROBLEMS" title="Select Problem(s) to print">	<state name="ALL_PROBLEMS" title="Select Problem(s) to print">
Line 1612 RESOURCE_SELECTOR	Line 1763 RESOURCE_SELECTOR
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);	&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);
<state name="CHOOSE_STUDENTS" title="Select Students and Resources">	<state name="CHOOSE_STUDENTS" title="Select Students and Resources">
<student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />	<student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />
	<choices variable='student_sort'>
	<choice computer='0'>Sort by section then student</choice>
	<choice computer='1'>Sort by students across sections.</choice>
	</choices>
$resource_selector	$resource_selector
</state>	</state>
CHOOSE_STUDENTS	CHOOSE_STUDENTS
Line 1620 CHOOSE_STUDENTS	Line 1775 CHOOSE_STUDENTS
my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};	my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
my @names=&Apache::lonnet::getkeys('CODEs',$cdom,$cnum);	my @names=&Apache::lonnet::getkeys('CODEs',$cdom,$cnum);
my $namechoice='<choice></choice>';	my $namechoice='<choice></choice>';
foreach my $name (@names) {	foreach my $name (sort {uc($a) cmp uc($b)} @names) {
if ($name =~ /^error: 2 /) { next; }	if ($name =~ /^error: 2 /) { next; }
$namechoice.='<choice computer="'.$name.'">'.$name.'</choice>';	$namechoice.='<choice computer="'.$name.'">'.$name.'</choice>';
}	}
Line 1670 RESOURCE_SELECTOR	Line 1825 RESOURCE_SELECTOR
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS1);	&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS1);
<state name="CHOOSE_STUDENTS1" title="Select Students and Resources">	<state name="CHOOSE_STUDENTS1" title="Select Students and Resources">
<student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />	<student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />
	<choices variable='student_sort'>
	<choice computer='0'>Sort by section then student</choice>
	<choice computer='1'>Sort by students across sections.</choice>
	</choices>

$resource_selector	$resource_selector
</state>	</state>
CHOOSE_STUDENTS1	CHOOSE_STUDENTS1
Line 1693 CHOOSE_ANON2	Line 1853 CHOOSE_ANON2
}	}

# FIXME: That RE should come from a library somewhere.	# FIXME: That RE should come from a library somewhere.
if ((((&Apache::lonnet::allowed('bre',$subdir) eq 'F') and ($helper->{VARS}->{'postdata'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)/)) or defined $helper->{'VARS'}->{'construction'}) and $ENV{'request.role.adv'} and $subdir ne '/home/httpd/html/res/') {	if ((((&Apache::lonnet::allowed('bre',$subdir) eq 'F') and ($helper->{VARS}->{'postdata'}=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)/)) or defined $helper->{'VARS'}->{'construction'}) and $ENV{'request.role.adv'} and $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/') {
push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('from current subdirectory')." <b><i>$subdir</i></b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];	push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('from current subdirectory')." <b><i>$subdir</i></b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];

my $f = '$filename';	my $f = '$filename';
Line 1820 CHOOSE_FROM_ANY_SEQUENCE	Line 1980 CHOOSE_FROM_ANY_SEQUENCE
['Yes', 'yes'] ];	['Yes', 'yes'] ];
Apache::lonhelper::dropdown->new();	Apache::lonhelper::dropdown->new();
addMessage("</td></tr>");	addMessage("</td></tr>");
	addMessage("<tr><td align='right'>Print Discussions: </td><td>");
	$paramHash = Apache::lonhelper::getParamHash();
	$paramHash->{'variable'} = 'PRINT_DISCUSSIONS';
	$helper->declareVar('PRINT_DISCUSSIONS');
	$paramHash->{CHOICES} = [
	['No', 'no'],
	['Yes', 'yes'] ];
	Apache::lonhelper::dropdown->new();
	addMessage("</td></tr>");
}	}

if ($helper->{'VARS'}->{'construction'}) {	if ($helper->{'VARS'}->{'construction'}) {
Line 1865 RNDSEED	Line 2034 RNDSEED

$r->print($helper->display());	$r->print($helper->display());

Apache::lonhelper::unregisterHelperTags();	&Apache::lonhelper::unregisterHelperTags();

untie %hash;

return OK;	return OK;
}	}
Line 1908 use strict;	Line 2075 use strict;
use Apache::lonlocal;	use Apache::lonlocal;

my $maxColumns = 2;	my $maxColumns = 2;
my @paperSize = ("Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]",	my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",
"Ledger/Tabloid [11x17 in]", "Executive [7 1/2x10 in]",	"tabloid (ledger) [11x17 in]", "executive [7 1/2x10 in]",
"A2 [420x594 mm]", "A3 [297x420 mm]", "A4 [210x297 mm]",	"a2 [420x594 mm]", "a3 [297x420 mm]", "a4 [210x297 mm]",
"A5 [148x210 mm]", "A6 [105x148 mm]" );	"a5 [148x210 mm]", "a6 [105x148 mm]" );

# Tentative format: Orientation (L = Landscape, P = portrait) \| Colnum \|	# Tentative format: Orientation (L = Landscape, P = portrait) \| Colnum \|
# Paper type	# Paper type
Line 1966 STATEHTML	Line 2133 STATEHTML
$result .= "</select></td><td>\n";	$result .= "</select></td><td>\n";
$result .= "<select name='${var}.paper'>\n";	$result .= "<select name='${var}.paper'>\n";

	my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});
	my $DefaultPaperSize=$parmhash{'default_paper_size'};
	if ($DefaultPaperSize eq '') {$DefaultPaperSize='letter';}
$i = 0;	$i = 0;
foreach (@paperSize) {	foreach (@paperSize) {
if ($i == 0) {	$_=~/(\w+)/;
$result .= "<option selected value='$i'>" . $paperSize[$i] . "</option>\n";	my $papersize=$1;
	if ($paperSize[$i]=~/$DefaultPaperSize/) {
	$result .= "<option selected value='$papersize'>" . $paperSize[$i] . "</option>\n";
} else {	} else {
$result .= "<option value='$i'>" . $paperSize[$i] . "</option>\n";	$result .= "<option value='$papersize'>" . $paperSize[$i] . "</option>\n";
}	}
$i++;	$i++;
}	}

$result .= "</select></td></tr></table>";	$result .= "</select></td></tr></table>";
return $result;	return $result;
}	}

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

Removed from v.1.301
changed lines
	Added in v.1.341