Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.354 and 1.457

version 1.354, 2005/01/31 12:03:08	version 1.457, 2006/07/11 10:12:44
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 Carp;
	use lib '/home/httpd/lib/perl/';
	use LONCAPA;

my $LaTeXwidth = 0;	my %perm;
	my %parmhash;


	# Format a header according to a format.
	#

	# Substitutions:
	# %a - Assignment name.
	# %c - Course name.
	# %n - Student name.
	#
	sub format_page_header {
	my ($format, $assignment, $course, $student) = @_;

	# Default format?

	if ($format eq '') {
	$format = "\\textbf{$student} $course \\hfill \\thepage \\\\ \\textit{$assignment}";

	} else {
	$format =~ s/%a/$assignment/g;
	$format =~ s/%c/$course/g;
	$format =~ s/%n/$student/g;
	}


	return $format;

	}

	#
	# Convert a numeric code to letters
	#
	sub num_to_letters {
	my ($num) = @_;
	my @nums= split('',$num);
	my @num_to_let=('A'..'Z');
	my $word;
	foreach my $digit (@nums) { $word.=$num_to_let[$digit]; }
	return $word;
	}
	# Convert a letter code to numeric.
	#
	sub letters_to_num {
	my ($letters) = @_;
	my @letters = split('', uc($letters));
	my %substitution;
	my $digit = 0;
	foreach my $letter ('A'..'J') {
	$substitution{$letter} = $digit;
	$digit++;
	}
	# The substitution is done as below to preserve leading
	# zeroes which are needed to keep the code size exact
	#
	my $result ="";
	foreach my $letter (@letters) {
	$result.=$substitution{$letter};
	}
	return $result;
	}

	# Determine if a code is a valid numeric code. Valid
	# numeric codes must be comprised entirely of digits and
	# have a correct number of digits.
	#
	# Parameters:
	# value - proposed code value.
	# num_digits - Number of digits required.
	#
	sub is_valid_numeric_code {
	my ($value, $num_digits) = @_;
	# Remove leading/trailing whitespace;
	$value =~ s/^\s*//g;
	$value =~ s/\s*$//g;

	# All digits?
	if ($value !~ /^[0-9]+$/) {
	return "Numeric code $value has invalid characters - must only be digits";
	}
	if (length($value) != $num_digits) {
	return "Numeric code $value incorrect number of digits (correct = $num_digits)";
	}
	return undef;
	}
	# Determines if a code is a valid alhpa code. Alpha codes
	# are ciphers that map [A-J,a-j] -> 0..9 0..9.
	# They also have a correct digit count.
	# Parameters:
	# value - Proposed code value.
	# num_letters - correct number of letters.
	# Note:
	# leading and trailing whitespace are ignored.
	#
	sub is_valid_alpha_code {
	my ($value, $num_letters) = @_;

	# strip leading and trailing spaces.

	$value =~ s/^\s*//g;
	$value =~ s/\s*$//g;

	# All alphas in the right range?
	if ($value !~ /^[A-J,a-j]+$/) {
	return "Invalid letter code $value must only contain A-J";
	}
	if (length($value) != $num_letters) {
	return "Letter code $value has incorrect number of letters (correct = $num_letters)";
	}
	return undef;
	}

	# Determine if a code entered by the user in a helper is valid.
	# valid depends on the code type and the type of code selected.
	# The type of code selected can either be numeric or
	# Alphabetic. If alphabetic, the code, in fact is a simple
	# substitution cipher for the actual numeric code: 0->A, 1->B ...
	# We'll be nice and be case insensitive for alpha codes.
	# Parameters:
	# code_value - the value of the code the user typed in.
	# code_option - The code type selected from the set in the scantron format
	# table.
	# Returns:
	# undef - The code is valid.
	# other - An error message indicating what's wrong.
	#
	sub is_code_valid {
	my ($code_value, $code_option) = @_;
	my ($code_type, $code_length) = ('letter', 6); # defaults.
	open(FG, $Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
	foreach my $line (<FG>) {
	my ($name, $type, $length) = (split(/:/, $line))[0,2,4];
	if($name eq $code_option) {
	$code_length = $length;
	if($type eq 'number') {
	$code_type = 'number';
	}
	}
	}
	my $valid;
	if ($code_type eq 'number') {
	return &is_valid_numeric_code($code_value, $code_length);
	} else {
	return &is_valid_alpha_code($code_value, $code_length);
	}

	}

# Compare two students by name. The students are in the form	# Compare two students by name. The students are in the form
# returned by the helper:	# returned by the helper:
# user:domain:section:last, first:status	# user:domain:section:last, first:status
Line 109 sub latex_header_footer_remove {	Line 258 sub latex_header_footer_remove {
$text =~ s/\\documentclass([^&]*)\\begin{document}//;	$text =~ s/\\documentclass([^&]*)\\begin{document}//;
return $text;	return $text;
}	}
	#
	# If necessary, encapsulate text inside
	# a minipage env.
	# necessity is determined by the problem_split param.
	#
	sub encapsulate_minipage {
	my ($text) = @_;
	if (!($env{'form.problem.split'} =~ /yes/i)) {
	$text = '\begin{minipage}{\textwidth}'.$text.'\end{minipage}';
	}
	return $text;
	}
	#
	# The NUMBER_TO_PRINT and SPLIT_PDFS
	# variables interact, this sub looks at these two parameters
	# and comes up with a final value for NUMBER_TO_PRINT which can be:
	# all - if SPLIT_PDFS eq 'all'.
	# 1 - if SPLIT_PDFS eq 'oneper'
	# section - if SPLIT_PDFS eq 'sections'
	# <unchanged> - if SPLIT_PDFS eq 'usenumber'
	#
	sub adjust_number_to_print {
	my $helper = shift;

	my $split_pdf = $helper->{'VARS'}->{'SPLIT_PDFS'};

	if ($split_pdf eq 'all') {
	$helper->{'VARS'}->{'NUMBER_TO_PRINT'} = 'all';
	} elsif ($split_pdf eq 'oneper') {
	$helper->{'VARS'}->{'NUMBER_TO_PRINT'} = 1;
	} elsif ($split_pdf eq 'sections') {
	$helper->{'VARS'}->{'NUMBER_TO_PRINT'} = 'section';
	} elsif ($split_pdf eq 'usenumber') {
	# Unmodified.
	} else {
	# Error!!!!

	croak "bad SPLIT_PDFS: $split_pdf in lonprintout::adjust_number_to_print";
	}
	}

sub character_chart {	sub character_chart {
my $result = shift;	my $result = shift;
Line 316 sub character_chart {	Line 504 sub character_chart {
$result =~ s/&(\#252\|uuml);/\\\"{u}/g;	$result =~ s/&(\#252\|uuml);/\\\"{u}/g;
$result =~ s/&(\#253\|yacute);/\\\'{y}/g;	$result =~ s/&(\#253\|yacute);/\\\'{y}/g;
$result =~ s/&(\#255\|yuml);/\\\"{y}/g;	$result =~ s/&(\#255\|yuml);/\\\"{y}/g;
	$result =~ s/&\#295;/\\ensuremath\{\\hbar\}/g;
$result =~ s/&\#952;/\\ensuremath\{\\theta\}/g;	$result =~ s/&\#952;/\\ensuremath\{\\theta\}/g;
#Greek Alphabet	#Greek Alphabet
$result =~ s/&(alpha\|\#945);/\\ensuremath\{\\alpha\}/g;	$result =~ s/&(alpha\|\#945);/\\ensuremath\{\\alpha\}/g;
Line 391 sub character_chart {	Line 580 sub character_chart {
$result =~ s/&(prod\|\#8719);/\\ensuremath\{\\prod\}/g;	$result =~ s/&(prod\|\#8719);/\\ensuremath\{\\prod\}/g;
$result =~ s/&(sum\|\#8721);/\\ensuremath\{\\sum\}/g;	$result =~ s/&(sum\|\#8721);/\\ensuremath\{\\sum\}/g;
$result =~ s/&(minus\|\#8722);/\\ensuremath\{-\}/g;	$result =~ s/&(minus\|\#8722);/\\ensuremath\{-\}/g;
	$result =~ s/–/\\ensuremath\{-\}/g;
$result =~ s/&(lowast\|\#8727);/\\ensuremath\{*\}/g;	$result =~ s/&(lowast\|\#8727);/\\ensuremath\{*\}/g;
$result =~ s/&(radic\|\#8730);/\\ensuremath\{\\surd\}/g;	$result =~ s/&(radic\|\#8730);/\\ensuremath\{\\surd\}/g;
$result =~ s/&(prop\|\#8733);/\\ensuremath\{\\propto\}/g;	$result =~ s/&(prop\|\#8733);/\\ensuremath\{\\propto\}/g;
Line 446 my %page_formats=	Line 636 my %page_formats=
'2' => ['3.16 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' => {	'album' => {
'1' => [],	'1' => ['12 in','7.1 in',,'-0.57 in','-0.57 in','-0.5 in'],
'2' => []	'2' => ['6.0 in','7.1 in','-1 in','-1 in','5 in']
},	},
},	},
'tabloid' => {	'tabloid' => {
Line 456 my %page_formats=	Line 646 my %page_formats=
'2' => ['4.9 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' => {	'album' => {
'1' => [],	'1' => ['16 in','9.8 in','-0.57 in','-0.57 in','-0.5 in'],
'2' => []	'2' => ['16 in','4.9 in','-0.57 in','-0.57 in','-0.5 in']
},	},
},	},
'executive' => {	'executive' => {
Line 537 sub page_format {	Line 727 sub page_format {

sub get_name {	sub get_name {
my ($uname,$udom)=@_;	my ($uname,$udom)=@_;
if (!defined($uname)) { $uname=$ENV{'user.name'}; }	if (!defined($uname)) { $uname=$env{'user.name'}; }
if (!defined($udom)) { $udom=$ENV{'user.domain'}; }	if (!defined($udom)) { $udom=$env{'user.domain'}; }
my $plainname=&Apache::loncommon::plainname($uname,$udom);	my $plainname=&Apache::loncommon::plainname($uname,$udom);
if ($plainname=~/^\s*$/) { $plainname=$uname.'@'.$udom; }	if ($plainname=~/^\s*$/) { $plainname=$uname.'@'.$udom; }
$plainname=&Apache::lonxml::latex_special_symbols($plainname,'header');	$plainname=&Apache::lonxml::latex_special_symbols($plainname,'header');
return $plainname;	return $plainname;
}	}

sub get_course {	sub get_course {
my $courseidinfo;	my $courseidinfo;
if (defined($ENV{'request.course.id'})) {	if (defined($env{'request.course.id'})) {
$courseidinfo = &Apache::lonxml::latex_special_symbols(&Apache::lonnet::unescape($ENV{'course.'.$ENV{'request.course.id'}.'.description'}),'header');	$courseidinfo = &Apache::lonxml::latex_special_symbols(&unescape($env{'course.'.$env{'request.course.id'}.'.description'}),'header');
}	}
return $courseidinfo;	return $courseidinfo;
}	}
Line 556 sub get_course {	Line 746 sub get_course {
sub page_format_transformation {	sub page_format_transformation {
my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment,$tableofcontents,$indexlist,$selectionmade) = @_;	my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment,$tableofcontents,$indexlist,$selectionmade) = @_;
my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin);	my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin);

if ($selectionmade eq '4') {	if ($selectionmade eq '4') {
$assignment='Problems from the Whole Course';	$assignment='Problems from the Whole Course';
} else {	} else {
$assignment=&Apache::lonxml::latex_special_symbols($assignment,'header');	$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 $header_text = $parmhash{'print_header_format'};
	$header_text = &format_page_header($header_text, $assignment,
	$courseidinfo, $name);
my $topmargintoinsert = '';	my $topmargintoinsert = '';
if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';}	if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';}
my $fancypagestatement='';	my $fancypagestatement='';
if ($numberofcolumns eq '2') {	if ($numberofcolumns eq '2') {
$fancypagestatement="\\fancyhead{}\\fancyhead[LO]{\\textbf{$name} $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}";	$fancypagestatement="\\fancyhead{}\\fancyhead[LO]{$header_text}";
} else {	} else {
$fancypagestatement="\\rhead{}\\chead{}\\lhead{\\textbf{$name} $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}";	$fancypagestatement="\\rhead{}\\chead{}\\lhead{$header_text}";
}	}
if ($layout eq 'album') {	if ($layout eq 'album') {
$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 /;	$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 /;
Line 610 sub page_cleanup {	Line 806 sub page_cleanup {

sub details_for_menu {	sub details_for_menu {
my ($helper)=@_;	my ($helper)=@_;
my $postdata=$ENV{'form.postdata'};	my $postdata=$env{'form.postdata'};
if (!$postdata) { $postdata=$helper->{VARS}{'postdata'}; }	if (!$postdata) { $postdata=$helper->{VARS}{'postdata'}; }
my $name_of_resource = &Apache::lonnet::gettitle($postdata);	my $name_of_resource = &Apache::lonnet::gettitle($postdata);
my $symbolic = &Apache::lonnet::symbread($postdata);	my $symbolic = &Apache::lonnet::symbread($postdata);
Line 621 sub details_for_menu {	Line 817 sub details_for_menu {
$map =~ m\|([^/]+)$\|;	$map =~ m\|([^/]+)$\|;
$name_of_sequence = $1;	$name_of_sequence = $1;
}	}
my $name_of_map = &Apache::lonnet::gettitle($ENV{'request.course.uri'});	my $name_of_map = &Apache::lonnet::gettitle($env{'request.course.uri'});
if ($name_of_map =~ /^\s*$/) {	if ($name_of_map =~ /^\s*$/) {
$ENV{'request.course.uri'} =~ m\|([^/]+)$\|;	$env{'request.course.uri'} =~ m\|([^/]+)$\|;
$name_of_map = $1;	$name_of_map = $1;
}	}
return ($name_of_resource,$name_of_sequence,$name_of_map);	return ($name_of_resource,$name_of_sequence,$name_of_map);
Line 631 sub details_for_menu {	Line 827 sub details_for_menu {


sub latex_corrections {	sub latex_corrections {
	my ($number_of_columns,$result,$selectionmade,$answer_mode) = @_;
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;
if ($selectionmade ne '1') {	if ($selectionmade eq '1' \|\| $answer_mode eq 'only') {
$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/;	$result =~ s/(\\end{document})/\\strut\\vskip 0 mm\\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 {	} 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{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/;
}	}
$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;
Line 651 sub latex_corrections {	Line 845 sub latex_corrections {
$first_comment = index($result,'<!--',$first_comment);	$first_comment = index($result,'<!--',$first_comment);
}	}
$result =~ s/^\s+$//gm; #remove empty lines	$result =~ s/^\s+$//gm; #remove empty lines
$result =~ s/(\s)(\s+)/$1/g; #removes more than one empty space	#removes more than one empty space
	$result =~ s\|(\s\s+)\|($1=~/[\n\r]/)?"\n":" "\|ge;
$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;
Line 662 sub latex_corrections {	Line 857 sub latex_corrections {
}	}
$result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;	$result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;
$result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;	$result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;

return $result;	return $result;
}	}

Line 697 sub IndexCreation {	Line 891 sub IndexCreation {

sub print_latex_header {	sub print_latex_header {
my $mode=shift;	my $mode=shift;
my $output='\documentclass[letterpaper]{article}';	my $output='\documentclass[letterpaper,twoside]{article}';
if ($mode eq 'batchmode') {	if (($mode eq 'batchmode') \|\| (!$perm{'pav'})) {
$output.='\batchmode';	$output.='\batchmode';
}	}
$output.='\newcommand{\keephidden}[1]{}\renewcommand{\deg}{$^{\circ}$}'."\n".	$output.='\newcommand{\keephidden}[1]{}\renewcommand{\deg}{$^{\circ}$}'."\n".
	'\usepackage{multirow}'."\n".
'\usepackage{longtable}\usepackage{textcomp}\usepackage{makeidx}'."\n".	'\usepackage{longtable}\usepackage{textcomp}\usepackage{makeidx}'."\n".
'\usepackage[dvips]{graphicx}\usepackage{epsfig}'."\n".	'\usepackage[dvips]{graphicx}\usepackage{epsfig}'."\n".
	'\usepackage{wrapfig}'.
'\usepackage{picins}\usepackage{calc}'."\n".	'\usepackage{picins}\usepackage{calc}'."\n".
'\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'."\n".	'\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'."\n".
'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'."\n".	'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'."\n".
Line 723 sub print_latex_header {	Line 919 sub print_latex_header {

sub path_to_problem {	sub path_to_problem {
my ($urlp,$colwidth)=@_;	my ($urlp,$colwidth)=@_;
	$urlp=&Apache::lonnet::clutter($urlp);

my $newurlp = '';	my $newurlp = '';
$colwidth=~s/\smm\s$//;	$colwidth=~s/\smm\s$//;
#characters average about 2 mm in width	#characters average about 2 mm in width
if (length($urlp)*2 > $LaTeXwidth) {	if (length($urlp)*2 > $colwidth) {
my @elements = split '/',$urlp;	my @elements = split('/',$urlp);
my $curlength=0;	my $curlength=0;
foreach my $element (@elements) {	foreach my $element (@elements) {
	if ($element eq '') { next; }
if ($curlength+(length($element)*2) > $colwidth) {	if ($curlength+(length($element)*2) > $colwidth) {
$newurlp .= '\|\vskip -1 mm \noindent \verb\|';	$newurlp .= '\|\vskip -1 mm \verb\|';
$curlength=0;	$curlength=length($element)*2;
} else {	} else {
$curlength+=length($element)*2;	$curlength+=length($element)*2;
}	}
Line 771 sub get_textwidth {	Line 970 sub get_textwidth {


sub unsupported {	sub unsupported {
my ($currentURL,$mode)=@_;	my ($currentURL,$mode,$symb)=@_;
if ($mode ne '') {$mode='\\'.$mode}	if ($mode ne '') {$mode='\\'.$mode}
my $result.= &print_latex_header($mode);	my $result.= &print_latex_header($mode);
if ($currentURL=~/\/ext\//) {	if ($currentURL=~m\|^(/adm/wrapper/)?ext/\|) {
$result.=' \strut \\\\ THIS IS EXTERNAL RESOURCE WITH URL \strut \\\\ '.$currentURL.' ';	$currentURL=~s\|^(/adm/wrapper/)?ext/\|http://\|;
	my $title=&Apache::lonnet::gettitle($symb);
	$title = &Apache::lonxml::latex_special_symbols($title);
	$result.=' \strut \\\\ '.$title.' \strut \\\\ '.$currentURL.' ';
} else {	} else {
$result.=$currentURL;	$result.=$currentURL;
}	}
Line 784 sub unsupported {	Line 986 sub unsupported {
}	}


	#
	# List of recently generated print files
	#
	sub recently_generated {
	my $r=shift;
	my $prtspool=$r->dir_config('lonPrtDir');
	my $zip_result;
	my $pdf_result;
	opendir(DIR,$prtspool);

	my @files =
	grep(/^$env{'user.name'}_$env{'user.domain'}_printout_(\d+)_.*\.(pdf\|zip)$/,readdir(DIR));
	closedir(DIR);

	@files = sort {
	my ($actime) = (stat($prtspool.'/'.$a))[10];
	my ($bctime) = (stat($prtspool.'/'.$b))[10];
	return $bctime <=> $actime;
	} (@files);

	foreach my $filename (@files) {
	my ($ext) = ($filename =~ m/(pdf\|zip)$/);
	my ($cdev,$cino,$cmode,$cnlink,
	$cuid,$cgid,$crdev,$csize,
	$catime,$cmtime,$cctime,
	$cblksize,$cblocks)=stat($prtspool.'/'.$filename);
	my $result="<a href='/prtspool/$filename'>".
	&mt('Generated [_1] ([_2] bytes)',
	&Apache::lonlocal::locallocaltime($cctime),$csize).
	'</a><br />';
	if ($ext eq 'pdf') { $pdf_result .= $result; }
	if ($ext eq 'zip') { $zip_result .= $result; }
	}
	if ($zip_result) {
	$r->print('<h4>'.&mt('Recently generated printout zip files')."</h4>\n"
	.$zip_result);
	}
	if ($pdf_result) {
	$r->print('<h4>'.&mt('Recently generated printouts')."</h4>\n"
	.$pdf_result);
	}
	}

	#
	# Retrieve the hash of page breaks.
	#
	# Inputs:
	# helper - reference to helper object.
	# Outputs
	# A reference to a page break hash.
	#
	#
	#use Data::Dumper;
	#sub dump_helper_vars {
	# my ($helper) = @_;
	# my $helpervars = Dumper($helper->{'VARS'});
	# &Apache::lonnet::logthis("Dump of helper vars:\n $helpervars");
	#}

	sub get_page_breaks {
	my ($helper) = @_;
	my %page_breaks;

	foreach my $break (split /\\|\\|\\|/, $helper->{'VARS'}->{'FINISHPAGE'}) {
	$page_breaks{$break} = 1;
	}
	return %page_breaks;
	}

sub output_data {	sub output_data {
my ($r,$helper,$rparmhash) = @_;	my ($r,$helper,$rparmhash) = @_;
my %parmhash = %$rparmhash;	my %parmhash = %$rparmhash;
my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');	my $resources_printed = '';
$r->print(<<ENDPART);	my $js = <<ENDPART;
<html>	<script type="text/javascript">
<script type="text/javascript" language="Javascript" >
var editbrowser;	var editbrowser;
function openbrowser(formname,elementname,only,omit) {	function openbrowser(formname,elementname,only,omit) {
var url = '/res/?';	var url = '/res/?';
Line 814 sub output_data {	Line 1084 sub output_data {
editbrowser.focus();	editbrowser.focus();
}	}
</script>	</script>
<head>
<title>LON-CAPA output for printing</title>
</head>
$bodytag
Please stand by while processing your print request, this may take some time ...
ENDPART	ENDPART

	my $start_page = &Apache::loncommon::start_page('Preparing Printout',$js);
	my $msg = &mt('Please stand by while processing your print request, this may take some time ...');

	$r->print($start_page."\n<p>\n$msg\n</p>\n");

	# fetch the pagebreaks and store them in the course environment
	# The page breaks will be pulled into the hash %page_breaks which is
	# indexed by symb and contains 1's for each break.

	$env{'form.pagebreaks'} = $helper->{'VARS'}->{'FINISHPAGE'};
	$env{'form.lastprinttype'} = $helper->{'VARS'}->{'PRINT_TYPE'};
	&Apache::loncommon::store_course_settings('print',
	{'pagebreaks' => 'scalar',
	'lastprinttype' => 'scalar'});

	my %page_breaks = &get_page_breaks($helper);

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 832 ENDPART	Line 1114 ENDPART
$laystyle='book';	$laystyle='book';
}	}
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns);	my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns);
my $assignment = $ENV{'form.assignment'};	my $assignment = $env{'form.assignment'};
my $LaTeXwidth=&recalcto_mm($textwidth);	my $LaTeXwidth=&recalcto_mm($textwidth);
my @print_array=();	my @print_array=();
my @student_names=();	my @student_names=();

	# 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);

	# If form.showallfoils is set, then request all foils be shown:
	# privilege will be enforced both by not allowing the
	# check box selecting this option to be presnt unless it's ok,
	# and by lonresponse's priv. check.
	# The if is here because lonresponse.pm only cares that
	# showallfoils is defined, not what the value is.

	if ($helper->{'VARS'}->{'showallfoils'} eq "1") {
	$form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'};
	}

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,$cleanURL);	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'};
Line 851 ENDPART	Line 1154 ENDPART
$cleanURL=$currentURL;	$cleanURL=$currentURL;
}	}
$selectionmade = 1;	$selectionmade = 1;
if ($cleanURL=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {	if ($cleanURL!~m\|^/adm/\|
	&& $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') {
Line 859 ENDPART	Line 1163 ENDPART
$moreenv{'request.filename'}=$cleanURL;	$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 877 ENDPART	Line 1178 ENDPART
}	}
$form{'rndseed'}=$rndseed;	$form{'rndseed'}=$rndseed;
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
&Apache::lonnet::delenv('form.counter');
&Apache::lonxml::init_counter();	&Apache::lonxml::clear_problem_counter();

	$resources_printed .= $currentURL.':';
$texversion.=&Apache::lonnet::ssi($currentURL,%form);	$texversion.=&Apache::lonnet::ssi($currentURL,%form);
&Apache::lonnet::delenv('form.counter');
	&Apache::lonxml::clear_problem_counter();

&Apache::lonnet::delenv('request.filename');	&Apache::lonnet::delenv('request.filename');
}	}
	# current document with answers.. no need to encap in minipage
	# since there's only one answer.

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{'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;
	if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {
	$form{'problemtype'}='exam';
	}
	$resources_printed .= $currentURL.':';
my $answer=&Apache::lonnet::ssi($currentURL,%form);	my $answer=&Apache::lonnet::ssi($currentURL,%form);
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/;
Line 918 ENDPART	Line 1229 ENDPART
if ($currentURL=~m/\.page\s*$/) {	if ($currentURL=~m/\.page\s*$/) {
($result,$number_of_columns) = &page_cleanup($result);	($result,$number_of_columns) = &page_cleanup($result);
}	}
} elsif ($currentURL=~/\.sequence$/ && $helper->{'VARS'}->{'construction'} eq '1') {	} elsif ($cleanURL!~m\|^/adm/\|
	&& $currentURL=~/\.sequence$/ && $helper->{'VARS'}->{'construction'} eq '1') {
#printing content of sequence from the construction space	#printing content of sequence from the construction space
my $flag_latex_header_remove = 'NO';	my $flag_latex_header_remove = 'NO';
my $rndseed=time;	my $rndseed=time;
Line 933 ENDPART	Line 1245 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'};
$form{'rndseed'}=$rndseed;	$form{'rndseed'}=$rndseed;
	$resources_printed .=$urlp.':';
$texversion=&Apache::lonnet::ssi($urlp,%form);	$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')) &&
($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page)$/)) {	($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page)$/)) {
my %form;	# Don't permanently modify %$form...
$form{'grade_target'}='answer';	my %answerform = %form;
$form{'answer_output_mode'}='tex';	$answerform{'grade_target'}='answer';
$form{'rndseed'}=$rndseed;	$answerform{'answer_output_mode'}='tex';
$form{'problem_split'}=$parmhash{'problem_stream_switch'};	$answerform{'rndseed'}=$rndseed;
if ($urlp=~/\/res\//) {$ENV{'request.state'}='published';}	$answerform{'problem_split'}=$parmhash{'problem_stream_switch'};
my $answer=&Apache::lonnet::ssi($urlp,%form);	if ($urlp=~/\/res\//) {$env{'request.state'}='published';}
	$resources_printed .= $urlp.':';
	my $answer=&Apache::lonnet::ssi($urlp,%answerform);
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 necessary, encapsulate answer in minipage:

$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($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm ';	my $body ='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm ';
$texversion.=&path_to_problem ($currentURL,$LaTeXwidth);	$body.=&path_to_problem($urlp,$LaTeXwidth);
$texversion.='\vskip 1 mm '.$answer.'\end{document}';	$body.='\vskip 1 mm '.$answer.'\end{document}';
	$body = &encapsulate_minipage($body);
	$texversion.=$body;
}	}
}	}
if ($flag_latex_header_remove ne 'NO') {	if ($flag_latex_header_remove ne 'NO') {
Line 981 ENDPART	Line 1297 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 ($cleanURL=~/\/(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//;}
	$resources_printed .= $currentURL.':';
my $texversion=&Apache::lonnet::ssi($currentURL,%form);	my $texversion=&Apache::lonnet::ssi($currentURL,%form);
$result .= $texversion;	$result .= $texversion;
} else {	} else {
$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'});	$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'},
	$helper->{'VARS'}->{'symb'});
}	}
} 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 1008 ENDPART	Line 1323 ENDPART
} 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 1019 ENDPART	Line 1331 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::lonxml::init_counter();	&Apache::lonxml::clear_problem_counter();

	my $pbreakresources = keys %page_breaks;
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	# Note due to document structure, not allowed to put \newpage
Line 1036 ENDPART	Line 1346 ENDPART
$result.="\\newpage\n";	$result.="\\newpage\n";
}	}
}	}
my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);	my ($sequence,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];
my ($sequence)=&Apache::lonnet::decode_symb($master_seq[$i]);
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'); #title 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;}
my $texversion='';	my $texversion='';
if ($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {	if ($urlp!~m\|^/adm/\|
	&& $urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {
	$resources_printed .= $urlp.':';

	&Apache::lonxml::remember_problem_counter();
$texversion.=&Apache::lonnet::ssi($urlp,%form);	$texversion.=&Apache::lonnet::ssi($urlp,%form);
if ($urlp=~/\.page$/) {	if ($urlp=~/\.page$/) {
($texversion,my $number_of_columns_page) = &page_cleanup($texversion);	($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
Line 1052 ENDPART	Line 1366 ENDPART
$texversion =~ s/\\end{document}\d*/\\end{document}/;	$texversion =~ s/\\end{document}\d*/\\end{document}/;
$flag_page_in_sequence = 'YES';	$flag_page_in_sequence = 'YES';
}	}
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(($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;	# Don't permanently pervert the %form hash
$form{'grade_target'}='answer';	my %answerform = %form;
$form{'answer_output_mode'}='tex';	$answerform{'grade_target'}='answer';
my $answer=&Apache::lonnet::ssi($urlp,%form);	$answerform{'answer_output_mode'}='tex';
&Apache::lonnet::appenv(('form.counter' => $current_counter));	$resources_printed .= $urlp.':';

	&Apache::lonxml::restore_problem_counter();
	my $answer=&Apache::lonnet::ssi($urlp,%answerform);

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\|assess\|survey\|form\|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 ';	my $body ='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($master_seq[$i]).'}\vskip 0 mm ';
$texversion.=&path_to_problem ($urlp,$LaTeXwidth);	$body .= &path_to_problem ($urlp,$LaTeXwidth);
$texversion.='\vskip 1 mm '.$answer;	$body .='\vskip 1 mm '.$answer;
	$body = &encapsulate_minipage($body);
	$texversion .= $body;
} else {	} else {
$texversion='';	$texversion='';
}	}
Line 1091 ENDPART	Line 1406 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 ';	my $header_text = $parmhash{'print_header_format'};
	$header_text = &format_page_header($header_text,
	$assignment,
	$courseidinfo,
	$name);
	if ($numberofcolumns eq '1') {
	$result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{'.$header_text.'}} \vskip 5 mm ';
	} else {
	$result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\fancyhead[LO]{'.$header_text.'}} \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//;}
	$resources_printed .= $urlp.':';
my $texversion=&Apache::lonnet::ssi($urlp,%form);	my $texversion=&Apache::lonnet::ssi($urlp,%form);
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);
Line 1110 ENDPART	Line 1432 ENDPART
$result .= $texversion;	$result .= $texversion;
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
} else {	} else {
$texversion=&unsupported($urlp,$helper->{'VARS'}->{'LATEX_TYPE'});	$texversion=&unsupported($urlp,$helper->{'VARS'}->{'LATEX_TYPE'},
	$master_seq[$i]);
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 1121 ENDPART	Line 1444 ENDPART
}	}
if (&Apache::loncommon::connection_aborted($r)) { last; }	if (&Apache::loncommon::connection_aborted($r)) { last; }
}	}
&Apache::lonnet::delenv('form.counter');	&Apache::lonxml::clear_problem_counter();
if ($flag_page_in_sequence eq 'YES') {	if ($flag_page_in_sequence eq 'YES') {
$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;	$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;
}	}
Line 1146 ENDPART	Line 1469 ENDPART
# Each element of the students array is of the form:	# Each element of the students array is of the form:
# username:domain:section:last, first:status	# username:domain:section:last, first:status
#	#
	# Note that student sort is not compatible with printing
	# 1 section per pdf...so that setting overrides.
#	#
if ($helper->{'VARS'}->{'student_sort'} eq 1) {	if (($helper->{'VARS'}->{'student_sort'} eq 1) &&
	($helper->{'VARS'}->{'SPLIT_PDFS'} ne "sections")) {
@students = sort compare_names @students;	@students = sort compare_names @students;
}	}
	&adjust_number_to_print($helper);

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;
}	}
	# If we are splitting on section boundaries, we need
	# to remember that in split_on_sections and
	# print all of the students in the list.
	#
	my $split_on_sections = 0;
	if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'section') {
	$split_on_sections = 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
Line 1163 ENDPART	Line 1500 ENDPART
$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'};	$moreenv{'problem_split'} = $parmhash{'problem_stream_switch'};
	$moreenv{'suppress_tries'} = $parmhash{'suppress_tries'};
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;
	my $i = 0;
	my $last_section = (split(/:/,$students[0]))[2];
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);
print $temp_file "1969\n";	print $temp_file "1969\n";
}	}
$student_counter++;	$student_counter++;
my $i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});	if ($split_on_sections) {
my ($output,$fullname)=&print_resources($r,$helper,	my $this_section = (split(/:/,$person))[2];
	if ($this_section ne $last_section) {
	$i++;
	$last_section = $this_section;
	}
	} else {
	$i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});
	}
	my ($output,$fullname, $printed)=&print_resources($r,$helper,
$person,$type,	$person,$type,
\%moreenv,\@master_seq,	\%moreenv,\@master_seq,
$flag_latex_header_remove);	$flag_latex_header_remove,
	$LaTeXwidth);
	$resources_printed .= ":";
$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);
Line 1189 ENDPART	Line 1539 ENDPART
$result .= $print_array[0].' \end{document}';	$result .= $print_array[0].' \end{document}';
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') \|\|	} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') \|\|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) {	($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) {
my $cdom =$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};	my $cdom =$env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum =$ENV{'course.'.$ENV{'request.course.id'}.'.num'};	my $cnum =$env{'course.'.$env{'request.course.id'}.'.num'};
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 $single_code = $helper->{'VARS'}->{'SINGLE_CODE'};
	my $selected_code = $helper->{'VARS'}->{'CODE_SELECTED_FROM_LIST'};

	my $code_option=$helper->{'VARS'}->{'CODE_OPTION'};
	open(FH,$Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
	my ($code_type,$code_length)=('letter',6);
	foreach my $line (<FH>) {
	my ($name,$type,$length) = (split(/:/,$line))[0,2,4];
	if ($name eq $code_option) {
	$code_length=$length;
	if ($type eq 'number') { $code_type = 'number'; }
	}
	}
my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));	my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));
$moreenv{'problem_split'} = $parmhash{'problem_stream_switch'};	$moreenv{'problem_split'} = $parmhash{'problem_stream_switch'};
	$moreenv{'instructor_comments'}='hide';
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,"type\0$old_name"],
	$cdom,$cnum);
	$code_type=$result{"type\0$old_name"};
@allcodes=split(',',$result{$old_name});	@allcodes=split(',',$result{$old_name});
$num_todo=scalar(@allcodes);	$num_todo=scalar(@allcodes);
	} elsif ($selected_code) { # Selection value is always numeric.
	$num_todo = 1;
	@allcodes = ($selected_code);
	} elsif ($single_code) {

	$num_todo = 1; # Unconditionally one code to do.
	# If an alpha code have to convert to numbers so it can be
	# converted back to letters again :-)
	#
	if ($code_type ne 'number') {
	$single_code = &letters_to_num($single_code);
	}
	@allcodes = ($single_code);
} else {	} else {
my %allcodes;	my %allcodes;
srand($seed);	srand($seed);
for (my $i=0;$i<$num_todo;$i++) {	for (my $i=0;$i<$num_todo;$i++) {
$moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,'6');	$moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,$code_length,
	$code_type);
}	}
if ($code_name) {	if ($code_name) {
&Apache::lonnet::put('CODEs',	&Apache::lonnet::put('CODEs',
{$code_name =>join(',',keys(%allcodes))},	{
	$code_name =>join(',',keys(%allcodes)),
	"type\0$code_name" => $code_type
	},
$cdom,$cnum);	$cdom,$cnum);
}	}
@allcodes=keys(%allcodes);	@allcodes=keys(%allcodes);
}	}
my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};	my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};
my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'});	my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'});
	&adjust_number_to_print($helper);
my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'};	my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'};
if ($number_per_page eq '0' \|\| $number_per_page eq 'all') {	if ($number_per_page eq '0' \|\| $number_per_page eq 'all') {
$number_per_page=$num_todo;	$number_per_page=$num_todo;
Line 1226 ENDPART	Line 1611 ENDPART
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);
$moreenv{'CODE'}=&num_to_letters($code);	if ($code_type eq 'number') {
my ($output,$fullname)=	$moreenv{'CODE'}=$code;
	} else {
	$moreenv{'CODE'}=&num_to_letters($code);
	}
	my ($output,$fullname, $printed)=
&print_resources($r,$helper,'anonymous',$type,\%moreenv,	&print_resources($r,$helper,'anonymous',$type,\%moreenv,
\@master_seq,$flag_latex_header_remove);	\@master_seq,$flag_latex_header_remove,
	$LaTeXwidth);
	$resources_printed .= ":";
$print_array[$file_num].=$output;	$print_array[$file_num].=$output;
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
&mt('last assignment').' '.$fullname);	&mt('last assignment').' '.$fullname);
Line 1253 ENDPART	Line 1644 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{'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\|;
} else {	} else {
$urlp =~ s\|^$Apache::lonnet::perlvar{'lonDocRoot'}\|\|;	$urlp =~ s\|^$Apache::lonnet::perlvar{'lonDocRoot'}\|\|;
}	}
	$resources_printed .= $urlp.':';
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;	# Don't permanently pervert %form:
$form{'grade_target'}='answer';	my %answerform = %form;
$form{'answer_output_mode'}='tex';	$answerform{'grade_target'}='answer';
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$answerform{'answer_output_mode'}='tex';
$form{'rndseed'}=$rndseed;	$answerform{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
my $answer=&Apache::lonnet::ssi($urlp,%form);	$answerform{'rndseed'}=$rndseed;
	$resources_printed .= $urlp.':';
	my $answer=&Apache::lonnet::ssi($urlp,%answerform);
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 {
Line 1314 ENDPART	Line 1705 ENDPART
}	}
#-------------------------------------------------------- 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'},$selectionmade);	$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,$selectionmade);	$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],$selectionmade);}	$helper->{'VARS'}->{'ANSWER_TYPE'});
#changes page's parameters for the one column output	for (my $i=1;$i<=$#print_array;$i++) {
	$print_array[$i] =
	&latex_corrections($number_of_columns,$print_array[$i],
	$selectionmade,
	$helper->{'VARS'}->{'ANSWER_TYPE'});
	}
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;
my $identifier = &Apache::loncommon::get_cgi_id();	my $identifier = &Apache::loncommon::get_cgi_id();
my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".$identifier.".tex";	my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout_$identifier.tex";
if (!($#print_array>0)) {	if (!($#print_array>0)) {
unless ($temp_file = Apache::File->new('>'.$filename)) {	unless ($temp_file = Apache::File->new('>'.$filename)) {
$r->log_error("Couldn't open $filename for output $!");	$r->log_error("Couldn't open $filename for output $!");
Line 1349 ENDPART	Line 1746 ENDPART
my $temp_file;	my $temp_file;
my $newfilename=$filename;	my $newfilename=$filename;
my $num=$i+1;	my $num=$i+1;
$newfilename =~s/\.tex$/_$num\.tex/;	$newfilename =~s/\.tex$//;
	$newfilename=sprintf("%s_%03d.tex",$newfilename, $num);
unless ($temp_file = Apache::File->new('>'.$newfilename)) {	unless ($temp_file = Apache::File->new('>'.$newfilename)) {
$r->log_error("Couldn't open $newfilename for output $!");	$r->log_error("Couldn't open $newfilename for output $!");
return SERVER_ERROR;	return SERVER_ERROR;
Line 1366 ENDPART	Line 1764 ENDPART
if ($#student_names>-1) {	if ($#student_names>-1) {
$student_names=$student_names[0].'_ENDPERSON_';	$student_names=$student_names[0].'_ENDPERSON_';
} else {	} else {
my $fullname = &get_name($ENV{'user.name'},$ENV{'user.domain'});	my $fullname = &get_name($env{'user.name'},$env{'user.domain'});
$student_names=join(':',$ENV{'user.name'},$ENV{'user.domain'},	$student_names=join(':',$env{'user.name'},$env{'user.domain'},
$ENV{'request.course.sec'},$fullname).	$env{'request.course.sec'},$fullname).
'_ENDPERSON_'.'_END_';	'_ENDPERSON_'.'_END_';
}	}
}	}
Line 1376 ENDPART	Line 1774 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=&Apache::lonnet::escape('/adm/flip?postdata=return:');	$URLback=&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 1385 ENDPART	Line 1783 ENDPART
$URLback=~s\|^/~\|/priv/\|;	$URLback=~s\|^/~\|/priv/\|;
}	}
}	}
	# logic for now is too complex to trace if this has been defined
	# yet.
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
&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.'.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'},
'cgi.'.$identifier.'role' => $ENV{'request.role.adv'},	'cgi.'.$identifier.'.role' => $perm{'pav'},
'cgi.'.$identifier.'numberoffiles' => $#print_array,	'cgi.'.$identifier.'.numberoffiles' => $#print_array,
'cgi.'.$identifier.'studentnames' => $student_names,	'cgi.'.$identifier.'.studentnames' => $student_names,
'cgi.'.$identifier.'backref' => $URLback,);	'cgi.'.$identifier.'.backref' => $URLback,);
	&Apache::lonnet::appenv("cgi.$identifier.user" => $env{'user.name'},
$r->print(<<FINALEND);	"cgi.$identifier.domain" => $env{'user.domain'},
	"cgi.$identifier.courseid" => $cnum,
	"cgi.$identifier.coursedom" => $cdom,
	"cgi.$identifier.resources" => $resources_printed);

	my $end_page = &Apache::loncommon::end_page();
	$r->print(<<FINALEND);
<br />	<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>	<a href="/cgi-bin/printout.pl?$identifier">Continue</a>
</body>	$end_page
</html>
FINALEND	FINALEND
}	}

sub num_to_letters {
my ($num) = @_;
my @nums= split('',$num);
my @num_to_let=('A'..'Z');
my $word;
foreach my $digit (@nums) { $word.=$num_to_let[$digit]; }
return $word;
}

sub get_CODE {	sub get_CODE {
my ($all_codes,$num,$seed,$size)=@_;	my ($all_codes,$num,$seed,$size,$type)=@_;
my $max='1'.'0'x$size;	my $max='1'.'0'x$size;
my $newcode;	my $newcode;
while(1) {	while(1) {
$newcode=sprintf("%06d",int(rand($max)));	$newcode=sprintf("%0".$size."d",int(rand($max)));
if (!exists($$all_codes{$newcode})) {	if (!exists($$all_codes{$newcode})) {
$$all_codes{$newcode}=1;	$$all_codes{$newcode}=1;
return &num_to_letters($newcode);	if ($type eq 'number' ) {
	return $newcode;
	} else {
	return &num_to_letters($newcode);
	}
}	}
}	}
}	}

sub print_resources {	sub print_resources {
my ($r,$helper,$person,$type,$moreenv,$master_seq,$remove_latex_header)=@_;	my ($r,$helper,$person,$type,$moreenv,$master_seq,$remove_latex_header,
	$LaTeXwidth)=@_;
my $current_output = '';	my $current_output = '';
	my $printed = '';
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;	my $namepostfix;
Line 1439 sub print_resources {	Line 1843 sub print_resources {
$namepostfix="\\\\Name: ";	$namepostfix="\\\\Name: ";
$fullname = "CODE - ".$moreenv->{'CODE'};	$fullname = "CODE - ".$moreenv->{'CODE'};
}	}
my %page_breaks;	# Fullname may have special latex characters that need \ prefixing:
foreach my $break (split /\\|\\|\\|/,$helper->{'VARS'}->{'FINISHPAGE'}) {	#
$page_breaks{$break} = 1;
}
my $i = 0;	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::lonxml::init_counter();	&Apache::lonxml::clear_problem_counter();
	my %page_breaks = &get_page_breaks($helper);
	my @format_array = split(/\\|/,$helper->{'VARS'}->{'FORMAT'});
	my $columns_in_format = $format_array[1];
	#
	# end each student with a
	# Special that allows the post processor to even out the page
	# counts later. Nasty problem this... it would be really
	# nice to put the special in as a postscript comment
	# e.g. \special{ps:\ENDOFSTUDENTSTAMP} unfortunately,
	# The special gets passed the \ and dvips puts it in the output file
	# so we will just rely on prntout.pl to strip ENDOFSTUDENTSTAMP from the
	# postscript. Each ENDOFSTUDENTSTAMP will go on a line by itself.
	#

foreach my $curresline (@{$master_seq}) {	foreach my $curresline (@{$master_seq}) {
if (defined $page_breaks{$curresline}) {	if (defined $page_breaks{$curresline}) {
if($i != 0) {	if($i != 0) {
Line 1459 sub print_resources {	Line 1876 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)) {
if ($res_url=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {	if ($res_url!~m\|^ext/\|
my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,$ENV{'request.course.id'},'tex',$moreenv);	&& $res_url=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {
my $lonidsdir=$r->dir_config('lonIDsDir');	$printed .= $curresline.':';
my $envfile=$ENV{'user.environment'};
$envfile=~/\/([^\/]+)\.id$/;	&Apache::lonxml::remember_problem_counter();
$envfile=$1;
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$envfile);	my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,$env{'request.course.id'},'tex',$moreenv);
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')) {
$moreenv->{'answer_output_mode'}='tex';	# Use a copy of the hash so we don't pervert it on future loop passes.
$moreenv->{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	my %answerenv = %{$moreenv};
my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%{$moreenv});	$answerenv{'answer_output_mode'}='tex';
&Apache::lonnet::appenv(('form.counter' => $current_counter));	$answerenv{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};

	&Apache::lonxml::restore_problem_counter();

	my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$env{'request.course.id'},%answerenv);

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 {	} 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);	my $header =&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
$rendered.='\vskip 1 mm '.$ansrendered;	my $body ='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($curresline).'}\vskip 0 mm ';
	$body .=&path_to_problem($res_url,$LaTeXwidth);
	$body .='\vskip 1 mm '.$ansrendered;
	$body = &encapsulate_minipage($body);
	$rendered = $header.$body;
}	}
}	}
if ($remove_latex_header eq 'YES') {	if ($remove_latex_header eq 'YES') {
Line 1489 sub print_resources {	Line 1915 sub print_resources {
}	}
$current_output .= $rendered;	$current_output .= $rendered;
} elsif ($res_url=~/\/(smppg\|syllabus\|aboutme\|bulletinboard)$/) {	} elsif ($res_url=~/\/(smppg\|syllabus\|aboutme\|bulletinboard)$/) {
my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,$ENV{'request.course.id'},'tex',$moreenv);	$printed .= $curresline.':';
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'};
$envfile=~/\/([^\/]+)\.id$/;
$envfile=$1;
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$envfile);
my $current_counter=$ENV{'form.counter'};
if ($remove_latex_header eq 'YES') {	if ($remove_latex_header eq 'YES') {
$rendered = &latex_header_footer_remove($rendered);	$rendered = &latex_header_footer_remove($rendered);
} else {	} else {
$rendered =~ s/\\end{document}//;	$rendered =~ s/\\end{document}//;
}	}
$current_output .= $rendered.'\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\strut \vskip 0 mm \strut ';	$current_output .= $rendered.'\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\strut \vskip 0 mm \strut ';

} else {	} else {
my $rendered = &unsupported($res_url,$helper->{'VARS'}->{'LATEX_TYPE'});	my $rendered = &unsupported($res_url,$helper->{'VARS'}->{'LATEX_TYPE'},$curresline);
if ($remove_latex_header ne 'NO') {	if ($remove_latex_header ne 'NO') {
$rendered = &latex_header_footer_remove($rendered);	$rendered = &latex_header_footer_remove($rendered);
} else {	} else {
Line 1520 sub print_resources {	Line 1943 sub print_resources {
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');
	my $HeaderLine = $parmhash{'print_header_format'};
	$HeaderLine = format_page_header($HeaderLine, $currentassignment, $courseidinfo, $fullname);
if ($current_output=~/\\documentclass/) {	if ($current_output=~/\\documentclass/) {
$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 /;	if ($columns_in_format == 1) {
	$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent\\lhead{$HeaderLine$namepostfix}}\\vskip 5 mm /;
	} else {
	$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fancyhead[LO]{$HeaderLine$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;	if ($columns_in_format == 1) {
	$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{'.$HeaderLine.'}'.$namepostfix.'} \vskip 5 mm '.$current_output;
	} else {
	$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\\fancyhead[LO]{'.$HeaderLine.'}'.$namepostfix.'} \vskip 5 mm '.$current_output;
	}
}	}
return ($current_output,$fullname);	#
	# Close the student bracketing.
	#
	$current_output .= "\n\\special{ps:ENDOFSTUDENTSTAMP}\n";
	return ($current_output,$fullname, $printed);

}	}

sub handler {	sub handler {

my $r = shift;	my $r = shift;
my $helper;
	&init_perm();



# my $loaderror=&Apache::lonnet::overloaderror($r);	my $helper = printHelper($r);
# if ($loaderror) { return $loaderror; }	if (!ref($helper)) {
# $loaderror=	return $helper;
# &Apache::lonnet::overloaderror($r,
# $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
# if ($loaderror) { return $loaderror; }

my $result = printHelper($r);
if (!ref($result)) {
return $result;
}	}
$helper = $result;

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

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

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



	# If a figure conversion queue file exists for this user.domain
	# we delete it since it can only be bad (if it were good, printout.pl
	# would have deleted it the last time around.

	my $conversion_queuefile = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat";
	if(-e $conversion_queuefile) {
	unlink $conversion_queuefile;
	}
&output_data($r,$helper,\%parmhash);	&output_data($r,$helper,\%parmhash);
return OK;	return OK;
}	}
Line 1581 sub addMessage {	Line 2009 sub addMessage {
Apache::lonhelper::message->new();	Apache::lonhelper::message->new();
}	}

use Data::Dumper;

	sub init_perm {
	undef(%perm);
	$perm{'pav'}=&Apache::lonnet::allowed('pav',$env{'request.course.id'});
	if (!$perm{'pav'}) {
	$perm{'pav'}=&Apache::lonnet::allowed('pav',
	$env{'request.course.id'}.'/'.$env{'request.course.sec'});
	}
	$perm{'pfo'}=&Apache::lonnet::allowed('pav',$env{'request.course.id'});
	if (!$perm{'pfo'}) {
	$perm{'pfo'}=&Apache::lonnet::allowed('pfo',
	$env{'request.course.id'}.'/'.$env{'request.course.sec'});
	}
	}

sub printHelper {	sub printHelper {
my $r = shift;	my $r = shift;

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');
} else {	} else {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
Line 1597 sub printHelper {	Line 2039 sub printHelper {
}	}

# Send header, nocache	# Send header, nocache
if ($ENV{'browser.mathml'}) {	if ($env{'browser.mathml'}) {
&Apache::loncommon::content_type($r,'text/xml');	&Apache::loncommon::content_type($r,'text/xml');
} else {	} else {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
Line 1621 sub printHelper {	Line 2063 sub printHelper {
$helper->declareVar('assignment');	$helper->declareVar('assignment');
$helper->declareVar('style_file');	$helper->declareVar('style_file');
$helper->declareVar('student_sort');	$helper->declareVar('student_sort');
	$helper->declareVar('FINISHPAGE');
	$helper->declareVar('PRINT_TYPE');
	$helper->declareVar("showallfoils");

	# The page breaks can get loaded initially from the course environment:
	# But we only do this in the initial state so that they are allowed to change.
	#

	# $helper->{VARS}->{FINISHPAGE} = '';

	&Apache::loncommon::restore_course_settings('print',
	{'pagebreaks' => 'scalar',
	'lastprinttype' => 'scalar'});


	if($helper->{VARS}->{PRINT_TYPE} eq $env{'form.lastprinttype'}) {
	if (!defined ($env{"form.CURRENT_STATE"})) {

	$helper->{VARS}->{FINISHPAGE} = $env{'form.pagebreaks'};
	} else {
	my $state = $env{"form.CURRENT_STATE"};
	if ($state eq "START") {
	$helper->{VARS}->{FINISHPAGE} = $env{'form.pagebreaks'};
	}
	}

	}


# 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.
# Detect whether we're coming from construction space	# Detect whether we're coming from construction space
if ($ENV{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/\|\/\|)\~([^\/]+)\/(.*)$/) {	if ($env{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/\|\/\|)\~([^\/]+)\/(.*)$/) {
$helper->{VARS}->{'filename'} = "~$1/$2";	$helper->{VARS}->{'filename'} = "~$1/$2";
$helper->{VARS}->{'construction'} = 1;	$helper->{VARS}->{'construction'} = 1;
} else {	} else {
if ($ENV{'form.postdata'}) {	if ($env{'form.postdata'}) {
$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($ENV{'form.postdata'});	$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($env{'form.postdata'});
}	}
if ($ENV{'form.symb'}) {	if ($env{'form.symb'}) {
$helper->{VARS}->{'symb'} = $ENV{'form.symb'};	$helper->{VARS}->{'symb'} = $env{'form.symb'};
}	}
if ($ENV{'form.url'}) {	if ($env{'form.url'}) {
$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});	$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
}	}

}	}

if ($ENV{'form.symb'}) {	if ($env{'form.symb'}) {
$helper->{VARS}->{'symb'} = $ENV{'form.symb'};	$helper->{VARS}->{'symb'} = $env{'form.symb'};
}	}
if ($ENV{'form.url'}) {	if ($env{'form.url'}) {
$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});	$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});

}	}
Line 1675 sub printHelper {	Line 2146 sub printHelper {
}	}
$subdir = &Apache::lonnet::filelocation("", $url);	$subdir = &Apache::lonnet::filelocation("", $url);
}	}
if (!$helper->{VARS}->{'curseed'} && $ENV{'form.curseed'}) {	if (!$helper->{VARS}->{'curseed'} && $env{'form.curseed'}) {
$helper->{VARS}->{'curseed'}=$ENV{'form.curseed'};	$helper->{VARS}->{'curseed'}=$env{'form.curseed'};
}	}
if (!$helper->{VARS}->{'probstatus'} && $ENV{'form.problemtype'}) {	if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {
$helper->{VARS}->{'probstatus'}=$ENV{'form.problemtype'};	$helper->{VARS}->{'probstatus'}=$env{'form.problemtype'};
}	}

my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();	my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();
my $userPriviledged = ($ENV{'request.role'}=~m/^cc\./ or
$ENV{'request.role'}=~m/^in\./ or
$ENV{'request.role'}=~m/^ta\./);

Apache::lonhelper::registerHelperTags();	Apache::lonhelper::registerHelperTags();

Line 1727 sub printHelper {	Line 2195 sub printHelper {

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

# Useful for debugging: Dump the help vars
#$r->print(Dumper($helper->{VARS}));
#$r->print($map);

# If we're in a sequence...	# If we're in a sequence...
if (($helper->{'VARS'}->{'construction'} ne '1') &&	if (($helper->{'VARS'}->{'construction'} ne '1') &&
Line 1770 HELPERFRAGMENT	Line 2236 HELPERFRAGMENT
&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);	&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
}	}

# If the user is privileged, allow them to print all	# If the user has pfo (print for otheres) allow them to print all
# problems and resources in the entier course, optionally for selected students	# problems and resources in the entier course, optionally for selected students
if ($userPriviledged &&	if ($perm{'pfo'} &&
($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'];
Line 1795 HELPERFRAGMENT	Line 2261 HELPERFRAGMENT
suppressEmptySequences='0' addstatus='1' closeallpages='1'>	suppressEmptySequences='0' addstatus='1' closeallpages='1'>
<nextstate>PAGESIZE</nextstate>	<nextstate>PAGESIZE</nextstate>
<filterfunc>return $isNotMap; </filterfunc>	<filterfunc>return $isNotMap; </filterfunc>
<mapurl> $map</mapursl>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
<option text='NewPage' variable='FINISHPAGE' />	<option text='NewPage' variable='FINISHPAGE' />
</resource>	</resource>
Line 1806 ALL_PROBLEMS	Line 2271 ALL_PROBLEMS
push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('from')." <b><i>$sequenceTitle</i></b> ".&mt('for')." <b>".&mt('selected students')."</b>", 'problems_for_students', 'CHOOSE_STUDENTS'];	push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('from')." <b><i>$sequenceTitle</i></b> ".&mt('for')." <b>".&mt('selected students')."</b>", 'problems_for_students', 'CHOOSE_STUDENTS'];
push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('from')." <b><i>$sequenceTitle</i></b> ".&mt('for')." <b>".&mt('anonymous students')."</b>", 'problems_for_anon', 'CHOOSE_ANON1'];	push @{$printChoices}, ["<b>".&mt('Problems')."</b> ".&mt('from')." <b><i>$sequenceTitle</i></b> ".&mt('for')." <b>".&mt('anonymous students')."</b>", 'problems_for_anon', 'CHOOSE_ANON1'];
}	}

	# resource_selector will hold a few states that:
	# - Allow resources to be selected for printing.
	# - Determine pagination between assignments.
	# - Determine how many assignments should be bundled into a single PDF.
	# TODO:
	# Probably good to do things like separate this up into several vars, each
	# with one state, and use REGEXPs at inclusion time to set state names
	# and next states for better mix and match capability
	#
my $resource_selector=<<RESOURCE_SELECTOR;	my $resource_selector=<<RESOURCE_SELECTOR;
	<state name="SELECT_PROBLEMS" title="Select resources to print">
	<nextstate>PRINT_FORMATTING</nextstate>
<message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>	<message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
<resource variable="RESOURCES" multichoice="1" addstatus="1"	<resource variable="RESOURCES" multichoice="1" addstatus="1"
closeallpages="1">	closeallpages="1">
Line 1815 ALL_PROBLEMS	Line 2292 ALL_PROBLEMS
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
<option text='New Page' variable='FINISHPAGE' />	<option text='New Page' variable='FINISHPAGE' />
</resource>	</resource>
	</state>
	<state name="PRINT_FORMATTING" title="How should results be printed?">
<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">
<choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice>	<choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice>
Line 1822 ALL_PROBLEMS	Line 2301 ALL_PROBLEMS
<choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>	<choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>
<choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>	<choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>
</choices>	</choices>
<message><hr width='33%' /><b>Number of assignments printed at the same time: </b></message>	<nextstate>PAGESIZE</nextstate>
<string variable="NUMBER_TO_PRINT" maxlength="5" size="5"><defaultvalue>"all"</defaultvalue></string>	<message><hr width='33%' /><b>How do you want assignments split into PDF files? </b></message>
	<choices variable="SPLIT_PDFS">
	<choice computer="all">All assignments in a single PDF file</choice>
	<choice computer="sections">Each PDF contains exactly one section</choice>
	<choice computer="oneper">Each PDF contains exactly one assignment</choice>
	<choice computer="usenumber" relatedvalue="NUMBER_TO_PRINT">
	Specify the number of assignments per PDF:</choice>
	</choices>
	</state>
RESOURCE_SELECTOR	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" />
<message><b>Select sort order</b> </message>	<message><b>Select sort order</b> </message>
<choices variable='student_sort'>	<choices variable='student_sort'>
<choice computer='0'>Sort by section then student</choice>	<choice computer='0'>Sort by section then student</choice>
<choice computer='1'>Sort by students across sections.</choice>	<choice computer='1'>Sort by students across sections.</choice>
</choices>	</choices>
$resource_selector	<message><br /><hr /><br /> </message>
	<student multichoice='1' variable="STUDENTS" nextstate="SELECT_PROBLEMS" coursepersonnel="1"/>
</state>	</state>
	$resource_selector
CHOOSE_STUDENTS	CHOOSE_STUDENTS

my $cdom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
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 (sort {uc($a) cmp uc($b)} @names) {	foreach my $name (sort {uc($a) cmp uc($b)} @names) {
if ($name =~ /^error: 2 /) { next; }	if ($name =~ /^error: 2 /) { next; }
	if ($name =~ /^type\0/) { next; }
$namechoice.='<choice computer="'.$name.'">'.$name.'</choice>';	$namechoice.='<choice computer="'.$name.'">'.$name.'</choice>';
}	}


	my %code_values;
	my %codes_to_print;
	foreach my $key (@names) {
	%code_values = &Apache::grades::get_codes($key, $cdom, $cnum);
	foreach my $key (keys(%code_values)) {
	$codes_to_print{$key} = 1;
	}
	}

	my $code_selection;
	foreach my $code (sort {uc($a) cmp uc($b)} (keys(%codes_to_print))) {
	my $choice = $code;
	if ($code =~ /^[A-Z]+$/) { # Alpha code
	$choice = &letters_to_num($code);
	}
	push(@{$helper->{DATA}{ALL_CODE_CHOICES}},[$code,$choice]);
	}
	if (%codes_to_print) {
	$code_selection .='
	<message><b>Choose single code from list</b></message>
	<message></td><td></message>
	<dropdown variable="CODE_SELECTED_FROM_LIST" multichoice="0" allowempty="0">
	<choice></choice>
	<exec>
	push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
	</exec>
	</dropdown>
	<message></td></tr><tr><td colspan="2"><hr width=\'33%\' /></td></tr><tr><td></message>
	'.$/;

	}


	open(FH,$Apache::lonnet::perlvar{'lonTabDir'}.'/scantronformat.tab');
	my $codechoice='';
	foreach my $line (<FH>) {
	my ($name,$description,$code_type,$code_length)=
	(split(/:/,$line))[0,1,2,4];
	if ($code_length > 0 &&
	$code_type =~/^(letter\|number\|-1)/) {
	$codechoice.='<choice computer="'.$name.'">'.$description.'</choice>';
	}
	}
	if ($codechoice eq '') {
	$codechoice='<choice computer="default">Default</choice>';
	}
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON1);	&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON1);
<state name="CHOOSE_ANON1" title="Select Students and Resources">	<state name="CHOOSE_ANON1" title="Select Students and Resources">
<nextstate>PAGESIZE</nextstate>	<nextstate>SELECT_PROBLEMS</nextstate>
<message><hr width='33%' /><b>Number of anonymous assignments to print?</b></message>	<message><table><tr><td><b>Number of anonymous assignments to print:</b></td><td></message>
<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"></string>	<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5">
<message><br /><b>Names to store the CODEs under for later:</b></message>	<validator>
	if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&
	!\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
	!\$helper->{'VARS'}{'SINGLE_CODE'} &&
	!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
	return "You need to specify the number of assignments to print";
	}
	return undef;
	</validator>
	</string>
	<message></td></tr><tr><td></message>
	<message><b>Names to store the CODEs under for later:</b></message>
	<message></td><td></message>
<string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" />	<string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" />
<message><hr width='33%' /></message>	<message></td></tr><tr><td></message>
	<message><b>Bubble sheet type:</b></message>
	<message></td><td></message>
	<dropdown variable="CODE_OPTION" multichoice="0" allowempty="0">
	$codechoice
	</dropdown>
	<message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
	<message></td></tr><tr><td></message>
	<message><b>Enter a CODE to print:</b></td><td></message>
	<string variable="SINGLE_CODE" size="10">
	<validator>
	if(!\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'} &&
	!\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
	!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
	return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'},
	\$helper->{'VARS'}{'CODE_OPTION'});
	} else {
	return undef; # Other forces control us.
	}
	</validator>
	</string>
	<message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
	$code_selection


<message><b>Reprint a set of saved CODEs:</b></message>	<message><b>Reprint a set of saved CODEs:</b></message>
	<message></td><td></message>
<dropdown variable="REUSE_OLD_CODES">	<dropdown variable="REUSE_OLD_CODES">
$namechoice	$namechoice
</dropdown>	</dropdown>
	<message></td></tr></table></message>
<message><hr width='33%' /></message>	<message><hr width='33%' /></message>
$resource_selector
</state>	</state>
	$resource_selector
CHOOSE_ANON1	CHOOSE_ANON1


Line 1871 CHOOSE_ANON1	Line 2446 CHOOSE_ANON1


$resource_selector=<<RESOURCE_SELECTOR;	$resource_selector=<<RESOURCE_SELECTOR;
	<state name="SELECT_RESOURCES" title="Select Resources">
	<nextstate>PRINT_FORMATTING</nextstate>
<message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>	<message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
<resource variable="RESOURCES" multichoice="1" addstatus="1"	<resource variable="RESOURCES" multichoice="1" addstatus="1"
closeallpages="1">	closeallpages="1">
Line 1879 CHOOSE_ANON1	Line 2456 CHOOSE_ANON1
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
<option text='Newpage' variable='FINISHPAGE' />	<option text='Newpage' variable='FINISHPAGE' />
</resource>	</resource>
	</state>
	<state name="PRINT_FORMATTING" title="Format of the print job">
	<nextstate>NUMBER_PER_PDF</nextstate>
<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">
<choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice>	<choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice>
Line 1886 CHOOSE_ANON1	Line 2466 CHOOSE_ANON1
<choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>	<choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>
<choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>	<choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>
</choices>	</choices>
<message><hr width='33%' /><b>Number of assignments printed at the same time: </b></message>	<nextstate>PAGESIZE</nextstate>
<string variable="NUMBER_TO_PRINT" maxlength="5" size="5"><defaultvalue>"all"</defaultvalue></string>	<message><hr width='33%' /><b>How do you want assignments split into PDF files? </b></message>
	<choices variable="SPLIT_PDFS">
	<choice computer="all">All assignments in a single PDF file</choice>
	<choice computer="sections">Each PDF contains exactly one section</choice>
	<choice computer="oneper">Each PDF contains exactly one assignment</choice>
	<choice computer="usenumber" relatedvalue="NUMBER_TO_PRINT">
	Specify the number of assignments per PDF:</choice>
	</choices>
	</state>
RESOURCE_SELECTOR	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" />
<choices variable='student_sort'>	<choices variable='student_sort'>
<choice computer='0'>Sort by section then student</choice>	<choice computer='0'>Sort by section then student</choice>
<choice computer='1'>Sort by students across sections.</choice>	<choice computer='1'>Sort by students across sections.</choice>
</choices>	</choices>
	<message><br /><hr /><br /></message>
	<student multichoice='1' variable="STUDENTS" nextstate="SELECT_RESOURCES" coursepersonnel="1" />

$resource_selector
</state>	</state>
	$resource_selector
CHOOSE_STUDENTS1	CHOOSE_STUDENTS1

&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON2);	&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON2);
<state name="CHOOSE_ANON2" title="Select Students and Resources">	<state name="CHOOSE_ANON2" title="Select Students and Resources">
<nextstate>PAGESIZE</nextstate>	<nextstate>SELECT_RESOURCES</nextstate>
<message><hr width='33%' /><b>Number of anonymous assignments to print?</b></message>	<message><table><tr><td><b>Number of anonymous assignments to print:</b></td><td></message>
<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"></string>	<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5">
<message><br /><b>Names to store the CODEs under for later:</b></message>	<validator>
	if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&
	!\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
	!\$helper->{'VARS'}{'SINGLE_CODE'} &&
	!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
	return "You need to specify the number of assignments to print";
	}
	return undef;
	</validator>
	</string>
	<message></td></tr><tr><td></message>
	<message><b>Names to store the CODEs under for later:</b></message>
	<message></td><td></message>
<string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" />	<string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" />
<message><hr width='33%' /></message>	<message></td></tr><tr><td></message>
	<message><b>Bubble sheet type:</b></message>
	<message></td><td></message>
	<dropdown variable="CODE_OPTION" multichoice="0" allowempty="0">
	$codechoice
	</dropdown>
	<message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
	<message></td></tr><tr><td></message>
	<message><b>Enter a CODE to print:</b></td><td></message>
	<string variable="SINGLE_CODE" size="10">
	<validator>
	if(!\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'} &&
	!\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
	!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
	return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'},
	\$helper->{'VARS'}{'CODE_OPTION'});
	} else {
	return undef; # Other forces control us.
	}
	</validator>
	</string>
	<message></td></tr><tr><td colspan="2"><hr width='33%' /></td></tr><tr><td></message>
	$code_selection
<message><b>Reprint a set of saved CODEs:</b></message>	<message><b>Reprint a set of saved CODEs:</b></message>
	<message></td><td></message>
<dropdown variable="REUSE_OLD_CODES">	<dropdown variable="REUSE_OLD_CODES">
$namechoice	$namechoice
</dropdown>	</dropdown>
	<message></td></tr></table></message>
<message><hr width='33%' /></message>	<message><hr width='33%' /></message>
$resource_selector
</state>	</state>
	$resource_selector
CHOOSE_ANON2	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 $Apache::lonnet::perlvar{'lonDocRoot'}.'/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 $perm{'pav'} 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 1961 CHOOSE_FROM_SUBDIR	Line 2586 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' />	<choicefunc>return \$res->hasResource(\$res,sub { return !\$_[0]->is_sequence() },0,0);
	</choicefunc>
</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 1985 CHOOSE_FROM_ANY_SEQUENCE	Line 2611 CHOOSE_FROM_ANY_SEQUENCE
Apache::lonhelper::message->new();	Apache::lonhelper::message->new();
$paramHash = Apache::lonhelper::getParamHash();	$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{'variable'} = 'PRINT_TYPE';	$paramHash->{'variable'} = 'PRINT_TYPE';
$helper->declareVar('PRINT_TYPE');
$paramHash->{CHOICES} = $printChoices;	$paramHash->{CHOICES} = $printChoices;
Apache::lonhelper::choices->new();	Apache::lonhelper::choices->new();

my $startedTable = 0; # have we started an HTML table yet? (need	my $startedTable = 0; # have we started an HTML table yet? (need
# to close it later)	# to close it later)

if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or	if (($perm{'pav'} and &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) or
($helper->{VARS}->{'construction'} eq '1')) {	($helper->{VARS}->{'construction'} eq '1')) {
addMessage("<hr width='33%' /><table><tr><td align='right'>Print: </td><td>");	addMessage("<hr width='33%' /><table><tr><td align='right'>Print: </td><td>");
$paramHash = Apache::lonhelper::getParamHash();	$paramHash = Apache::lonhelper::getParamHash();
Line 2001 CHOOSE_FROM_ANY_SEQUENCE	Line 2626 CHOOSE_FROM_ANY_SEQUENCE
$paramHash->{CHOICES} = [	$paramHash->{CHOICES} = [
['Without Answers', 'yes'],	['Without Answers', 'yes'],
['With Answers', 'no'],	['With Answers', 'no'],
['Only Answers', 'only'],	['Only Answers', 'only']
['As Exam Problem', 'exam']
];	];
Apache::lonhelper::dropdown->new();	Apache::lonhelper::dropdown->new();
addMessage("</td></tr>");	addMessage("</td></tr>");
$startedTable = 1;	$startedTable = 1;
}	}

if ($ENV{'request.role.adv'}) {	if ($perm{'pav'}) {
if (!$startedTable) {	if (!$startedTable) {
addMessage("<hr width='33%' /><table><tr><td align='right'>LaTeX mode: </td><td>");	addMessage("<hr width='33%' /><table><tr><td align='right'>LaTeX mode: </td><td>");
$startedTable = 1;	$startedTable = 1;
Line 2059 CHOOSE_FROM_ANY_SEQUENCE	Line 2683 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'> </td><td>");
	$paramHash = Apache::lonhelper::getParamHash();
	$paramHash->{'multichoice'} = "true";
	$paramHash->{'allowempty'} = "true";
	$paramHash->{'variable'} = "showallfoils";
	$paramHash->{'CHOICES'} = [ ["Show all foils", "1"] ];
	Apache::lonhelper::choices->new();
	addMessage("</td></tr>");
}	}

if ($helper->{'VARS'}->{'construction'}) {	if ($helper->{'VARS'}->{'construction'}) {
my $stylevalue=$ENV{'construct.style'};	my $stylevalue=$env{'construct.style'};
my $xmlfrag .= <<"RNDSEED";	my $xmlfrag .= <<"RNDSEED";
<message><tr><td align='right'>Use random seed: </td><td></message>	<message><tr><td align='right'>Use random seed: </td><td></message>
<string variable="curseed" size="15" maxlength="15">	<string variable="curseed" size="15" maxlength="15">
Line 2071 CHOOSE_FROM_ANY_SEQUENCE	Line 2704 CHOOSE_FROM_ANY_SEQUENCE
</defaultvalue>	</defaultvalue>
</string>	</string>
<message></td></tr><tr><td align="right">Use style file:</td><td></message>	<message></td></tr><tr><td align="right">Use style file:</td><td></message>
<message><input type="text" size="40" name="style_file_value" value="$stylevalue" />  <a href="javascript:openbrowser('helpform','style_file','sty')">Select style file</a> </td><td></message>	<message><input type="text" size="40" name="style_file_value" value="$stylevalue" />  <a href="javascript:openbrowser('helpform','style_file_value','sty')">Select style file</a> </td><tr><td></message>
<message></td></tr></message>	<choices allowempty="1" multichoice="true" variable="showallfoils">
	<choice computer="1">Show all foils?</choice>
	</choices>
	<message></td></tr></message>
RNDSEED	RNDSEED
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);	&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
$helper->{'VARS'}->{'style_file'}=$ENV{'form.style_file_value'};	$helper->{'VARS'}->{'style_file'}=$env{'form.style_file_value'};
}
	}
}	}


Line 2096 RNDSEED	Line 2733 RNDSEED

$helper->process();	$helper->process();


# MANUAL BAILOUT CONDITION:	# MANUAL BAILOUT CONDITION:
# If we're in the "final" state, bailout and return to handler	# If we're in the "final" state, bailout and return to handler
if ($helper->{STATE} eq 'FINAL') {	if ($helper->{STATE} eq 'FINAL') {
Line 2103 RNDSEED	Line 2741 RNDSEED
}	}

$r->print($helper->display());	$r->print($helper->display());
	if ($helper->{STATE} eq 'START') {
	&recently_generated($r);
	}
&Apache::lonhelper::unregisterHelperTags();	&Apache::lonhelper::unregisterHelperTags();

return OK;	return OK;
Line 2143 no strict;	Line 2783 no strict;
@ISA = ("Apache::lonhelper::element");	@ISA = ("Apache::lonhelper::element");
use strict;	use strict;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonnet;

my $maxColumns = 2;	my $maxColumns = 2;
	# it'd be nice if these all worked
	#my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",
	# "tabloid (ledger) [11x17 in]", "executive [7 1/2x10 in]",
	# "a2 [420x594 mm]", "a3 [297x420 mm]", "a4 [210x297 mm]",
	# "a5 [148x210 mm]", "a6 [105x148 mm]" );
my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",	my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",
"tabloid (ledger) [11x17 in]", "executive [7 1/2x10 in]",	"a4 [210x297 mm]");
"a2 [420x594 mm]", "a3 [297x420 mm]", "a4 [210x297 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 2184 sub render {	Line 2828 sub render {
</tr>	</tr>
<tr>	<tr>
<td>	<td>
<input type="radio" name="${var}.layout" value="L" /> Landscape<br />	<label><input type="radio" name="${var}.layout" value="L" /> Landscape </label><br />
<input type="radio" name="${var}.layout" value="P" checked='1' /> Portrait	<label><input type="radio" name="${var}.layout" value="P" checked='1' /> Portrait </label>
</td>	</td>
<td align="center">	<td align="center">
<select name="${var}.cols">	<select name="${var}.cols">
Line 2203 STATEHTML	Line 2847 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 %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'});
my $DefaultPaperSize=$parmhash{'default_paper_size'};	my $DefaultPaperSize=lc($parmhash{'default_paper_size'});
	$DefaultPaperSize=~s/\s//g;
if ($DefaultPaperSize eq '') {$DefaultPaperSize='letter';}	if ($DefaultPaperSize eq '') {$DefaultPaperSize='letter';}
$i = 0;	$i = 0;
foreach (@paperSize) {	foreach (@paperSize) {
Line 2227 sub postprocess {	Line 2872 sub postprocess {
my $var = $self->{'variable'};	my $var = $self->{'variable'};
my $helper = Apache::lonhelper->getHelper();	my $helper = Apache::lonhelper->getHelper();
$helper->{VARS}->{$var} =	$helper->{VARS}->{$var} =
$ENV{"form.$var.layout"} . '\|' . $ENV{"form.$var.cols"} . '\|' .	$env{"form.$var.layout"} . '\|' . $env{"form.$var.cols"} . '\|' .
$ENV{"form.$var.paper"};	$env{"form.$var.paper"};
return 1;	return 1;
}	}

Line 2258 is no tag interface. You actually pass p	Line 2903 is no tag interface. You actually pass p
=cut	=cut

use Apache::lonhelper;	use Apache::lonhelper;
	use Apache::lonnet;
no strict;	no strict;
@ISA = ("Apache::lonhelper::element");	@ISA = ("Apache::lonhelper::element");
use strict;	use strict;
Line 2296 sub render {	Line 2941 sub render {
$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br />';	$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br />';
}	}

	my $width = 18;
	my $format = $helper->{VARS}->{$self->{'formatvar'}};
	if (substr($format, 2, 1) ne '1') {
	$width = 9;
	}

$result .= <<ELEMENTHTML;	$result .= <<ELEMENTHTML;

<p>How should the column be formatted?</p>	<p>How should the column be formatted?</p>
Line 2303 sub render {	Line 2954 sub render {
<table cellpadding='3'>	<table cellpadding='3'>
<tr>	<tr>
<td align='right'><b>Width</b>:</td>	<td align='right'><b>Width</b>:</td>
<td align='left'><input type='text' name='$var.width' value='18' size='4'></td>	<td align='left'><input type='text' name='$var.width' value='$width' size='4'></td>
<td align='left'>	<td align='left'>
<select name='$var.widthunit'>	<select name='$var.widthunit'>
<option>cm</option><option>in</option>	<option>cm</option><option>in</option>
Line 2356 sub postprocess {	Line 3007 sub postprocess {

my $var = $self->{'variable'};	my $var = $self->{'variable'};
my $helper = Apache::lonhelper->getHelper();	my $helper = Apache::lonhelper->getHelper();
my $width = $helper->{VARS}->{$var .'.width'} = $ENV{"form.${var}.width"};	my $width = $helper->{VARS}->{$var .'.width'} = $env{"form.${var}.width"};
my $height = $helper->{VARS}->{$var .'.height'} = $ENV{"form.${var}.height"};	my $height = $helper->{VARS}->{$var .'.height'} = $env{"form.${var}.height"};
my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $ENV{"form.${var}.lmargin"};	my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $env{"form.${var}.lmargin"};
$helper->{VARS}->{$var .'.widthunit'} = $ENV{"form.${var}.widthunit"};	$helper->{VARS}->{$var .'.widthunit'} = $env{"form.${var}.widthunit"};
$helper->{VARS}->{$var .'.heightunit'} = $ENV{"form.${var}.heightunit"};	$helper->{VARS}->{$var .'.heightunit'} = $env{"form.${var}.heightunit"};
$helper->{VARS}->{$var .'.lmarginunit'} = $ENV{"form.${var}.lmarginunit"};	$helper->{VARS}->{$var .'.lmarginunit'} = $env{"form.${var}.lmarginunit"};

my $error = '';	my $error = '';

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.354
changed lines
	Added in v.1.457