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.323 and 1.358

version 1.323, 2004/08/13 17:40:55	version 1.358, 2005/02/07 17:12:46
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# Printout	# Printout
#	#
# $Id$	# $Id$
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','9.8 in', '-0.57 in','-0.57 in','0.7 cm'],
	'2' => ['3.66 in','9.8 in', '-0.57 in','-0.57 in','0.7 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';
}
}
<<<<<<< lonprintout.pm
} elsif($papersize eq '1') {
if ($layout eq 'book') {
if ($numberofcolumns == 1) {
$textwidth = '7.1 in';
$textheight = '13 in';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
$topmargin = '-0.5 in';
} elsif ($numberofcolumns == 2) {
$textwidth = '3.66 in';
$textheight = '13 in';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
$topmargin = '-0.5 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 '2') {
if ($layout eq 'book') {
if ($numberofcolumns == 1) {
$textwidth = '9.8 in';
$textheight = '16 in';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
$topmargin = '-0.5 in';
} elsif ($numberofcolumns == 2) {
$textwidth = '4.9 in';
$textheight = '16 in';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
$topmargin = '-0.5 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 '3') {
if ($layout eq 'book') {
if ($numberofcolumns == 1) {
$textwidth = '7 in';
$textheight = '9 in';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
$topmargin = '-0.5 in';
} elsif ($numberofcolumns == 2) {
$textwidth = '3.5 in';
$textheight = '9 in';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
$topmargin = '-0.5 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 '6') {
if ($layout eq 'book') {
if ($numberofcolumns == 1) {
$textwidth = '176 mm';
$textheight = '272 mm';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
$topmargin = '-0.5 in';
} elsif ($numberofcolumns == 2) {
$textwidth = '91 mm';
$textheight = '272 mm';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
$topmargin = '-0.5 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 572 sub page_format_transformation {	Line 567 sub page_format_transformation {
if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }	if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
my $topmargintoinsert = '';	my $topmargintoinsert = '';
if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';}	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') {
$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} /;	$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 /;
} 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 $topmargintoinsert\\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 $topmargintoinsert\\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 '6') {	if ($papersize eq 'a4') {
$text =~ s/(\\begin{document})/$1\\special{papersize=210mm,297mm}/;	$text =~ s/(\\begin{document})/$1\\special{papersize=210mm,297mm}/;
}	}
}	}
Line 609 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 624 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);

}	}


Line 700 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}'."\n".
'\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'.	'\usepackage{picins}\usepackage{calc}'."\n".
'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'.	'\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'."\n".
'\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}'.	'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'."\n".
'\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}'.	'\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}'."\n".
'\setlength{\abovedisplayshortskip}{-0.04in}'.	'\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}'."\n".
'\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}'.	'\setlength{\abovedisplayshortskip}{-0.04in}'."\n".
'\renewenvironment{theindex}{\begin{list}{}{{\vskip 1mm \noindent \large'.	'\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}'."\n".
'\textbf{Index}} \newline \setlength{\rightmargin}{0in}'.	'\renewenvironment{theindex}{\begin{list}{}{{\vskip 1mm \noindent \large'."\n".
'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.01in}'.	'\textbf{Index}} \newline \setlength{\rightmargin}{0in}'."\n".
'\setlength{\itemsep}{0.1in}\setlength{\parsep}{-0.02in}'.	'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.01in}'."\n".
'\setlength{\belowdisplayskip}{0.01in}\setlength{\abovedisplayskip}{0.01in}'.	'\setlength{\itemsep}{0.1in}\setlength{\parsep}{-0.02in}'."\n".
'\setlength{\abovedisplayshortskip}{-0.04in}'.	'\setlength{\belowdisplayskip}{0.01in}\setlength{\abovedisplayskip}{0.01in}'."\n".
'\setlength{\belowdisplayshortskip}{0.01in}}}{\end{list}}\begin{document}';	'\setlength{\abovedisplayshortskip}{-0.04in}'."\n".
	'\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 748 sub path_to_problem {	Line 747 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 790 sub output_data {	Line 789 sub output_data {
my %parmhash = %$rparmhash;	my %parmhash = %$rparmhash;
my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');	my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');
$r->print(<<ENDPART);	$r->print(<<ENDPART);



<html>	<html>
<script type="text/javascript" language="Javascript" >	<script type="text/javascript" language="Javascript" >
var editbrowser;	var editbrowser;
Line 822 $bodytag	Line 824 $bodytag
Please stand by while processing your print request, this may take some time ...	Please stand by while processing your print request, this may take some time ...
ENDPART	ENDPART

	# Common settings for the %form has:
	# In some cases these settings get overriddent by specific cases, but the
	# settings are common enough to make it worthwhile factoring them out
	# here.
	#
	my %form;
	$form{'grade_target'} = 'tex';
	$form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth);

my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};	my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
my ($result,$selectionmade) = ('','');	my ($result,$selectionmade) = ('','');
my $number_of_columns = 1; #used only for pages to determine the width of the cell	my $number_of_columns = 1; #used only for pages to determine the width of the cell
Line 840 ENDPART	Line 851 ENDPART

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;	my ($currentURL,$cleanURL);
if ($helper->{'VARS'}->{'construction'} ne '1') {	if ($helper->{'VARS'}->{'construction'} ne '1') {
#prints published resource	#prints published resource
$currentURL=$helper->{'VARS'}->{'postdata'};	$currentURL=$helper->{'VARS'}->{'postdata'};
	$cleanURL=&Apache::lonenc::check_decrypt($currentURL);
} else {	} else {
#prints resource from the construction space	#prints resource from the construction space
$currentURL='/'.$helper->{'VARS'}->{'filename'};	$currentURL='/'.$helper->{'VARS'}->{'filename'};
if ($currentURL=~/([^?]+)/) {$currentURL=$1;}	if ($currentURL=~/([^?]+)/) {$currentURL=$1;}
	$cleanURL=$currentURL;
}	}
$selectionmade = 1;	$selectionmade = 1;
if ($currentURL=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {	if ($cleanURL=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {
my $rndseed=time;	my $rndseed=time;
my $texversion='';	my $texversion='';
if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {	if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
my %moreenv;	my %moreenv;
$moreenv{'request.filename'}=$currentURL;	$moreenv{'request.filename'}=$cleanURL;
if ($helper->{'VARS'}->{'style_file'}=~/\w/) {	if ($helper->{'VARS'}->{'style_file'}=~/\w/) {
$moreenv{'construct.style'}=$helper->{'VARS'}->{'style_file'};	$moreenv{'construct.style'}=$helper->{'VARS'}->{'style_file'};
my $dom = $ENV{'user.domain'};	my $dom = $ENV{'user.domain'};
my $user = $ENV{'user.name'};	my $user = $ENV{'user.name'};
my $put_result = &Apache::lonnet::put('environment',{'construct.style'=>$helper->{'VARS'}->{'style_file'}},$dom,$user);	my $put_result = &Apache::lonnet::put('environment',{'construct.style'=>$helper->{'VARS'}->{'style_file'}},$dom,$user);
}	}
my %form;
if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {$form{'problemtype'}='exam';}	if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {$form{'problemtype'}='exam';}
$form{'grade_target'}='tex';
$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{'suppress_tries'}=$parmhash{'suppress_tries'};
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
Line 884 ENDPART	Line 894 ENDPART
}	}
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|	if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {	($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
my %form;	$form{'problem_split'}=$parmhash{'problem_stream_switch'};
$form{'grade_target'}='answer';	$form{'grade_target'}='answer';
$form{'answer_output_mode'}='tex';	$form{'answer_output_mode'}='tex';
$form{'rndseed'}=$rndseed;	$form{'rndseed'}=$rndseed;
Line 895 ENDPART	Line 905 ENDPART
$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});	$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
if ($helper->{'VARS'}->{'construction'} ne '1') {	if ($helper->{'VARS'}->{'construction'} ne '1') {
$texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm ';	$texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm ';
$texversion.=&path_to_problem ($currentURL,$LaTeXwidth);	$texversion.=&path_to_problem($cleanURL,$LaTeXwidth);
} else {	} else {
$texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';	$texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
my $URLpath=$currentURL;	my $URLpath=$cleanURL;
$URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;	$URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
$texversion.=&path_to_problem ($URLpath,$LaTeXwidth);	$texversion.=&path_to_problem ($URLpath,$LaTeXwidth);
}	}
Line 931 ENDPART	Line 941 ENDPART
if ($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|xml\|html\|htm\|xhtml\|xhtm)$/) {	if ($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|xml\|html\|htm\|xhtml\|xhtm)$/) {
my $texversion='';	my $texversion='';
if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {	if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
my %form;
$form{'grade_target'}='tex';
$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{'suppress_tries'}=$parmhash{'suppress_tries'};
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
Line 943 ENDPART	Line 950 ENDPART
if((($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|	if((($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) &&	($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) &&
($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page)$/)) {	($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page)$/)) {
my %form;
$form{'grade_target'}='answer';	$form{'grade_target'}='answer';
$form{'answer_output_mode'}='tex';	$form{'answer_output_mode'}='tex';
$form{'rndseed'}=$rndseed;	$form{'rndseed'}=$rndseed;
	$form{'problem_split'}=$parmhash{'problem_stream_switch'};
if ($urlp=~/\/res\//) {$ENV{'request.state'}='published';}	if ($urlp=~/\/res\//) {$ENV{'request.state'}='published';}
my $answer=&Apache::lonnet::ssi($urlp,%form);	my $answer=&Apache::lonnet::ssi($urlp,%form);
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {	if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
Line 977 ENDPART	Line 984 ENDPART
}	}
if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}	if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}
$result .= '\end{document}';	$result .= '\end{document}';
} elsif ($currentURL=~/\/(smppg\|syllabus\|aboutme\|bulletinboard)$/) {	} elsif ($cleanURL=~/\/(smppg\|syllabus\|aboutme\|bulletinboard)$/) {
my %form;
$form{'grade_target'}='tex';
$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
if ($currentURL=~/\/syllabus$/) {$currentURL=~s/\/res//;}	if ($currentURL=~/\/syllabus$/) {$currentURL=~s/\/res//;}
my $texversion=&Apache::lonnet::ssi($currentURL,%form);	my $texversion=&Apache::lonnet::ssi($currentURL,%form);
Line 988 ENDPART	Line 992 ENDPART
} else {	} else {
$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'});	$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
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') or	($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') or
	($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') or # BUGBUG
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences')) {	($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences')) {
#-- produce an output string	#-- produce an output string
if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') {	if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') {
Line 999 ENDPART	Line 1004 ENDPART
$selectionmade = 3;	$selectionmade = 3;
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') {	} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') {
$selectionmade = 4;	$selectionmade = 4;
	} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') { #BUGBUG
	$selectionmade = 4;
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences') {	} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences') {
$selectionmade = 7;	$selectionmade = 7;
}	}
my %form=();
$form{'grade_target'}='tex';
$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{'suppress_tries'}=$parmhash{'suppress_tries'};
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
Line 1013 ENDPART	Line 1017 ENDPART
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'};
	my %page_breaks;
	foreach my $break (split /\\|\\|\\|/, $helper->{'VARS'}->{'FINISHPAGE'}) {
	$page_breaks{$break} = 1;
	}
my $prevassignment='';	my $prevassignment='';
&Apache::lonnet::delenv('form.counter');	&Apache::lonnet::delenv('form.counter');
&Apache::lonxml::init_counter();	&Apache::lonxml::init_counter();
for (my $i=0;$i<=$#master_seq;$i++) {	for (my $i=0;$i<=$#master_seq;$i++) {

	# Note due to document structure, not allowed to put \newpage
	# prior to the first resource

	if (defined $page_breaks{$master_seq[$i]}) {
	if($i != 0) {
	$result.="\\newpage\n";
	}
	}
my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);	my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
$urlp=&Apache::lonnet::clutter($urlp);	$urlp=&Apache::lonnet::clutter($urlp);
$form{'symb'}=$master_seq[$i];	$form{'symb'}=$master_seq[$i];
Line 1024 ENDPART	Line 1041 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 1042 ENDPART	Line 1058 ENDPART
my $current_counter=$ENV{'form.counter'};	my $current_counter=$ENV{'form.counter'};
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|	if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {	($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
my %form;
$form{'grade_target'}='answer';	$form{'grade_target'}='answer';
$form{'answer_output_mode'}='tex';	$form{'answer_output_mode'}='tex';
my $answer=&Apache::lonnet::ssi($urlp,%form);	my $answer=&Apache::lonnet::ssi($urlp,%form);
Line 1073 ENDPART	Line 1088 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';
} elsif ($urlp=~/\/(smppg\|syllabus\|aboutme\|bulletinboard)$/) {	} elsif ($urlp=~/\/(smppg\|syllabus\|aboutme\|bulletinboard)$/) {
my %form;
$form{'grade_target'}='tex';
$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
if ($urlp=~/\/syllabus$/) {$urlp=~s/\/res//;}	if ($urlp=~/\/syllabus$/) {$urlp=~s/\/res//;}
my $texversion=&Apache::lonnet::ssi($urlp,%form);	my $texversion=&Apache::lonnet::ssi($urlp,%form);
Line 1101 ENDPART	Line 1113 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}/;
	}
$result .= '\end{document}';	$result .= '\end{document}';
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') \|\|	} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') \|\|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){	($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){


#-- prints assignments for whole class or for selected students	#-- prints assignments for whole class or for selected students
my $type;	my $type;
if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') {	if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') {
Line 1117 ENDPART	Line 1134 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;
}	}
my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};	my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};

#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);
$moreenv{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};	$moreenv{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
	$moreenv{'problem_split'} = $parmhash{'problem_stream_switch'};
if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$moreenv{'problem_split'}='yes';}	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 %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";	my $duefile="/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.due";
if (-e $duefile) {	if (-e $duefile) {
my $temp_file = Apache::File->new('>>'.$duefile);	my $temp_file = Apache::File->new('>>'.$duefile);
Line 1138 ENDPART	Line 1169 ENDPART
}	}
$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);
$print_array[$i].=$output;	$print_array[$i].=$output;
$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 1153 ENDPART	Line 1188 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');	$moreenv{'problem_split'} = $parmhash{'problem_stream_switch'};
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 1180 ENDPART	Line 1209 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 1192 ENDPART	Line 1229 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 1209 ENDPART	Line 1247 ENDPART
my $urlp = $list_of_files[$i];	my $urlp = $list_of_files[$i];
$urlp=~s\|//\|/\|;	$urlp=~s\|//\|/\|;
if ($urlp=~/\//) {	if ($urlp=~/\//) {
my %form;	$form{'problem_split'}=$parmhash{'problem_stream_switch'};
$form{'grade_target'}='tex';
$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
$form{'rndseed'}=$rndseed;	$form{'rndseed'}=$rndseed;
if ($urlp =~ m\|/home/([^/]+)/public_html\|) {	if ($urlp =~ m\|/home/([^/]+)/public_html\|) {
$urlp =~ s\|/home/([^/]*)/public_html\|/~$1\|;	$urlp =~ s\|/home/([^/]*)/public_html\|/~$1\|;
Line 1221 ENDPART	Line 1257 ENDPART
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') \|\|
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {	($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
my %form;
$form{'grade_target'}='answer';	$form{'grade_target'}='answer';
$form{'answer_output_mode'}='tex';	$form{'answer_output_mode'}='tex';
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
Line 1273 ENDPART	Line 1308 ENDPART
for (my $i=1;$i<=$#print_array;$i++) {$print_array[$i] = &latex_corrections($number_of_columns,$print_array[$i],$selectionmade);}	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 1331 ENDPART	Line 1366 ENDPART
my $URLback=''; #link to original document	my $URLback=''; #link to original document
if ($helper->{'VARS'}->{'construction'} ne '1') {	if ($helper->{'VARS'}->{'construction'} ne '1') {
#prints published resource	#prints published resource
$URLback=$helper->{'VARS'}->{'postdata'};	$URLback=&Apache::lonnet::escape('/adm/flip?postdata=return:');
} else {	} else {
#prints resource from the construction space	#prints resource from the construction space
$URLback='/'.$helper->{'VARS'}->{'filename'};	$URLback='/'.$helper->{'VARS'}->{'filename'};
Line 1394 sub print_resources {	Line 1429 sub print_resources {
$namepostfix="\\\\Name: ";	$namepostfix="\\\\Name: ";
$fullname = "CODE - ".$moreenv->{'CODE'};	$fullname = "CODE - ".$moreenv->{'CODE'};
}	}
	my %page_breaks;
	foreach my $break (split /\\|\\|\\|/,$helper->{'VARS'}->{'FINISHPAGE'}) {
	$page_breaks{$break} = 1;
	}
	my $i = 0;
#goes through all resources, checks if they are available for	#goes through all resources, checks if they are available for
#current student, and produces output	#current student, and produces output
&Apache::lonnet::delenv('form.counter');	&Apache::lonnet::delenv('form.counter');
&Apache::lonxml::init_counter();	&Apache::lonxml::init_counter();
foreach my $curresline (@{$master_seq}) {	foreach my $curresline (@{$master_seq}) {
	if (defined $page_breaks{$curresline}) {
	if($i != 0) {
	$current_output.= "\\newpage\n";
	}
	}
	$i++;
if ( !($type eq 'problems' &&	if ( !($type eq 'problems' &&
($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);
Line 1413 sub print_resources {	Line 1459 sub print_resources {
my $current_counter=$ENV{'form.counter'};	my $current_counter=$ENV{'form.counter'};
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|	if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {	($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
my %form;	$moreenv->{'answer_output_mode'}='tex';
$form{'answer_output_mode'}='tex';	$moreenv->{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%{$moreenv});
my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%form);
&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/;
Line 1459 sub print_resources {	Line 1504 sub print_resources {
}	}
$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}$namepostfix}\\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\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;	$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 1503 sub handler {	Line 1549 sub handler {
# return OK;	# return OK;

my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});	my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});

# my $key;	# my $key;
# foreach $key (keys %parmhash) {	# foreach $key (keys %parmhash) {
# $r->print(' '.$key.'->'.$parmhash{$key}.'<-<br />');	# $r->print(' '.$key.'->'.$parmhash{$key}.'<-<br />');
# }	# }
# return OK;	#



&output_data($r,$helper,\%parmhash);	&output_data($r,$helper,\%parmhash);
return OK;	return OK;
}	}
Line 1528 use Data::Dumper;	Line 1576 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 1567 sub printHelper {	Line 1610 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 1593 sub printHelper {	Line 1637 sub printHelper {
$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});	$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});

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


Line 1611 sub printHelper {	Line 1656 sub printHelper {
0, rindex($helper->{VARS}->{'filename'}, '/') + 1);	0, rindex($helper->{VARS}->{'filename'}, '/') + 1);
} else {	} else {
($map, $id, $url) = &Apache::lonnet::decode_symb($symb);	($map, $id, $url) = &Apache::lonnet::decode_symb($symb);
$helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url);	$helper->{VARS}->{'postdata'} =
	&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url));

if (!$resourceTitle) { # if the resource doesn't have a title, use the filename	if (!$resourceTitle) { # if the resource doesn't have a title, use the filename
my $postdata = $helper->{VARS}->{'postdata'};	my $postdata = $helper->{VARS}->{'postdata'};
Line 1666 sub printHelper {	Line 1712 sub printHelper {
my $isNotMap = '!$res->is_sequence()';	my $isNotMap = '!$res->is_sequence()';
$isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;	$isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;
my $isMap = '$res->is_map()';	my $isMap = '$res->is_map()';
my $symbFilter = '$res->symb()';	my $symbFilter = '$res->shown_symb()';
my $urlValue = '$res->src()';	my $urlValue = '$res->link()';

$helper->declareVar('SEQUENCE');	$helper->declareVar('SEQUENCE');

Line 1677 sub printHelper {	Line 1723 sub printHelper {

# If we're in a sequence...	# If we're in a sequence...
if (($helper->{'VARS'}->{'construction'} ne '1') &&	if (($helper->{'VARS'}->{'construction'} ne '1') &&

$helper->{VARS}->{'postdata'} &&	$helper->{VARS}->{'postdata'} &&
$helper->{VARS}->{'assignment'}) {	$helper->{VARS}->{'assignment'}) {
# Allow problems from sequence	# Allow problems from sequence
Line 1693 sub printHelper {	Line 1740 sub printHelper {
<filterfunc>return $isProblem;</filterfunc>	<filterfunc>return $isProblem;</filterfunc>
<mapurl>$map</mapurl>	<mapurl>$map</mapurl>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
	<option text='Newpage' variable='FINISHPAGE' />
</resource>	</resource>
</state>	</state>

Line 1704 sub printHelper {	Line 1752 sub printHelper {
<filterfunc>return $isNotMap;</filterfunc>	<filterfunc>return $isNotMap;</filterfunc>
<mapurl>$map</mapurl>	<mapurl>$map</mapurl>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
	<option text='Newpage' variable='FINISHPAGE' />
</resource>	</resource>
</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 privileged, allow them to print all
# problems in the course, optionally for selected students	# problems and resources in the entier course, optionally for selected students
if ($userPriviledged &&	if ($userPriviledged &&
($helper->{VARS}->{'postdata'}=~/\/res\// \|\| $helper->{VARS}->{'postdata'}=~/\/(syllabus\|smppg\|aboutme\|bulletinboard)$/)) {	($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'];
	push @{$printChoices}, ['<b>Resources</b> from <b>entire course</b>', 'all_resources', 'ALL_RESOURCES'];
&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">
<message>(mark them then click "next" button) <br /></message>	<message>(mark them then click "next" button) <br /></message>
Line 1725 HELPERFRAGMENT	Line 1776 HELPERFRAGMENT
<filterfunc>return $isProblemOrMap;</filterfunc>	<filterfunc>return $isProblemOrMap;</filterfunc>
<choicefunc>return $isNotMap;</choicefunc>	<choicefunc>return $isNotMap;</choicefunc>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
	<option text='Newpage' variable='FINISHPAGE' />
	</resource>
	</state>
	<state name="ALL_RESOURCES" title="Select Resource(s) to print">
	<message>(Mark them then click "next" button) <br /> </message>
	<resource variable="RESOURCES" toponly='0' multichoice='1'
	suppressEmptySequences='0' addstatus='1' closeallpages='1'>
	<nextstate>PAGESIZE</nextstate>
	<filterfunc>return $isNotMap; </filterfunc>
	<mapurl> $map</mapursl>
	<valuefunc>return $symbFilter;</valuefunc>
	<option text='NewPage' variable='FINISHPAGE' />
</resource>	</resource>
</state>	</state>
ALL_PROBLEMS	ALL_PROBLEMS
Line 1740 ALL_PROBLEMS	Line 1803 ALL_PROBLEMS
<filterfunc>return $isProblem;</filterfunc>	<filterfunc>return $isProblem;</filterfunc>
<mapurl>$map</mapurl>	<mapurl>$map</mapurl>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
	<option text='New Page' variable='FINISHPAGE' />
</resource>	</resource>
<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>	<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
<choices variable="EMPTY_PAGES">	<choices variable="EMPTY_PAGES">
Line 1755 RESOURCE_SELECTOR	Line 1819 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" />
	<message><b>Select sort order</b> </message>
	<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 1763 CHOOSE_STUDENTS	Line 1832 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 1798 CHOOSE_ANON1	Line 1867 CHOOSE_ANON1
<filterfunc>return $isNotMap;</filterfunc>	<filterfunc>return $isNotMap;</filterfunc>
<mapurl>$map</mapurl>	<mapurl>$map</mapurl>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
	<option text='Newpage' variable='FINISHPAGE' />
</resource>	</resource>
<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>	<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
<choices variable="EMPTY_PAGES">	<choices variable="EMPTY_PAGES">
Line 1813 RESOURCE_SELECTOR	Line 1883 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 1876 CHOOSE_FROM_SUBDIR	Line 1951 CHOOSE_FROM_SUBDIR
<nextstate>CHOOSE_FROM_ANY_SEQUENCE</nextstate>	<nextstate>CHOOSE_FROM_ANY_SEQUENCE</nextstate>
<filterfunc>return \$res->is_sequence;</filterfunc>	<filterfunc>return \$res->is_sequence;</filterfunc>
<valuefunc>return $urlValue;</valuefunc>	<valuefunc>return $urlValue;</valuefunc>
	<option text='Newpage' variable='FINISHPAGE' />
</resource>	</resource>
</state>	</state>
<state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">	<state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">
Line 1886 CHOOSE_FROM_SUBDIR	Line 1962 CHOOSE_FROM_SUBDIR
<filterfunc>return $isProblem</filterfunc>	<filterfunc>return $isProblem</filterfunc>
<mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>	<mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
	<option text='Newpage' variable='FINISHPAGE' />
</resource>	</resource>
</state>	</state>
CHOOSE_FROM_ANY_SEQUENCE	CHOOSE_FROM_ANY_SEQUENCE
Line 2017 RNDSEED	Line 2094 RNDSEED

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

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

untie %hash;

return OK;	return OK;
}	}
Line 2060 use strict;	Line 2135 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 2123 STATEHTML	Line 2198 STATEHTML
if ($DefaultPaperSize eq '') {$DefaultPaperSize='letter';}	if ($DefaultPaperSize eq '') {$DefaultPaperSize='letter';}
$i = 0;	$i = 0;
foreach (@paperSize) {	foreach (@paperSize) {
	$_=~/(\w+)/;
	my $papersize=$1;
if ($paperSize[$i]=~/$DefaultPaperSize/) {	if ($paperSize[$i]=~/$DefaultPaperSize/) {
$result .= "<option selected value='$i'>" . $paperSize[$i] . "</option>\n";	$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.323
changed lines
	Added in v.1.358