loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.330 and 1.368

version 1.330, 2004/09/20 15:57:11	version 1.368, 2005/03/15 00:43:06
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# Printout	# Printout
#	#
# $Id$	# $Id$
Line 41 use Apache::lonnavmaps;	Line 41 use Apache::lonnavmaps;
use Apache::lonratedt;	use Apache::lonratedt;
use POSIX qw(strftime);	use POSIX qw(strftime);
use Apache::lonlocal;	use Apache::lonlocal;
use GDBM_File;

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

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

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

my %hash;	my ($l1,$f1) = split(/,/, $n1);
my $LaTeXwidth = 0;	my ($l2,$f2) = split(/,/, $n2);

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

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

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

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

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

	# Must be the same name.

	return 0;
	}

sub latex_header_footer_remove {	sub latex_header_footer_remove {
my $text = shift;	my $text = shift;
Line 377 sub character_chart {	Line 429 sub character_chart {
my %page_formats=	my %page_formats=
('letter' => {	('letter' => {
'book' => {	'book' => {
'1' => [ '7.1 in','10.2 in', '-0.57 in','-0.57 in','0 in'],	'1' => [ '7.1 in','9.8 in', '-0.57 in','-0.57 in','0.7 cm'],
'2' => ['3.66 in','10.2 in', '-0.57 in','-0.57 in','0 in']	'2' => ['3.66 in','9.8 in', '-0.57 in','-0.57 in','0.7 cm']
},	},
'album' => {	'album' => {
'1' => [ '8.8 in', '6.8 in','-40 pt in', '-60 pt','0 in'],	'1' => [ '8.8 in', '6.8 in','-40 pt in', '-60 pt','1 cm'],
'2' => [ '4.4 in', '6.8 in','-0.5 in', '-1.5 in','3.5 in']	'2' => [ '4.4 in', '6.8 in','-0.5 in', '-1.5 in','3.5 in']
},	},
},	},
Line 519 sub page_format_transformation {	Line 571 sub page_format_transformation {
$fancypagestatement="\\rhead{}\\chead{}\\lhead{\\textbf{$name} $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}";	$fancypagestatement="\\rhead{}\\chead{}\\lhead{\\textbf{$name} $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}";
}	}
if ($layout eq 'album') {	if ($layout eq 'album') {
$text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}$topmargintoinsert\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\usepackage{fancyhdr}\\pagestyle{fancy}$fancypagestatement\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1} /;	$text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}$topmargintoinsert\n\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\n\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\usepackage{fancyhdr}\\addtolength{\\headheight}{\\baselineskip}\n\\pagestyle{fancy}$fancypagestatement\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}\n /;
} elsif ($layout eq 'book') {	} elsif ($layout eq 'book') {
if ($choice ne 'All class print') {	if ($choice ne 'All class print') {
$text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset $topmargintoinsert\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\usepackage{fancyhdr}\\pagestyle{fancy}$fancypagestatement\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}/;	$text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset $topmargintoinsert\n\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\n\\renewcommand{\\ref}{\\keephidden\}\\usepackage{fancyhdr}\\addtolength{\\headheight}{\\baselineskip}\\pagestyle{fancy}$fancypagestatement\\begin{document}\n\\voffset=-0\.8 cm\\setcounter{page}{1}\n/;
} else {	} else {
$text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset $topmargintoinsert\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\begin{document}\\voffset=-0\.8cm\\setcounter{page}{1} \\vskip 5 mm /;	$text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\n\\evensidemargin = $evenoffset $topmargintoinsert\\textwidth= $textwidth\\newlength{\\minipagewidth}\n\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\begin{document}\\voffset=-0\.8cm\n\\setcounter{page}{1} \\vskip 5 mm\n /;
}	}
if ($papersize eq 'a4') {	if ($papersize eq 'a4') {
$text =~ s/(\\begin{document})/$1\\special{papersize=210mm,297mm}/;	$text =~ s/(\\begin{document})/$1\\special{papersize=210mm,297mm}/;
Line 554 sub page_cleanup {	Line 606 sub page_cleanup {


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

}	}


Line 642 sub IndexCreation {	Line 695 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]{article}';
if ($mode eq 'batchmode') {	if (($mode eq 'batchmode') \|\| (!$ENV{'request.role.adv'})) {
$output.='\batchmode';	$output.='\batchmode';
}	}
$output.='\newcommand{\keephidden}[1]{}\renewcommand{\deg}{$^{\circ}$}'.	$output.='\newcommand{\keephidden}[1]{}\renewcommand{\deg}{$^{\circ}$}'."\n".
'\usepackage{longtable}\usepackage{textcomp}\usepackage{makeidx}'.	'\usepackage{longtable}\usepackage{textcomp}\usepackage{makeidx}'."\n".
'\usepackage[dvips]{graphicx}\usepackage{epsfig}\usepackage{calc}'.	'\usepackage[dvips]{graphicx}\usepackage{epsfig}'."\n".
'\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'.	'\usepackage{picins}\usepackage{calc}'."\n".
'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'.	'\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'."\n".
'\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}'.	'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'."\n".
'\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}'.	'\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}'."\n".
'\setlength{\abovedisplayshortskip}{-0.04in}'.	'\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}'."\n".
'\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}'.	'\setlength{\abovedisplayshortskip}{-0.04in}'."\n".
'\renewenvironment{theindex}{\begin{list}{}{{\vskip 1mm \noindent \large'.	'\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}'."\n".
'\textbf{Index}} \newline \setlength{\rightmargin}{0in}'.	'\renewenvironment{theindex}{\begin{list}{}{{\vskip 1mm \noindent \large'."\n".
'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.01in}'.	'\textbf{Index}} \newline \setlength{\rightmargin}{0in}'."\n".
'\setlength{\itemsep}{0.1in}\setlength{\parsep}{-0.02in}'.	'\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.01in}'."\n".
'\setlength{\belowdisplayskip}{0.01in}\setlength{\abovedisplayskip}{0.01in}'.	'\setlength{\itemsep}{0.1in}\setlength{\parsep}{-0.02in}'."\n".
'\setlength{\abovedisplayshortskip}{-0.04in}'.	'\setlength{\belowdisplayskip}{0.01in}\setlength{\abovedisplayskip}{0.01in}'."\n".
'\setlength{\belowdisplayshortskip}{0.01in}}}{\end{list}}\begin{document}';	'\setlength{\abovedisplayshortskip}{-0.04in}'."\n".
	'\setlength{\belowdisplayshortskip}{0.01in}}}{\end{list}}\begin{document}'."\n";
return $output;	return $output;
}	}

Line 669 sub path_to_problem {	Line 723 sub path_to_problem {
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) {
Line 690 sub path_to_problem {	Line 744 sub path_to_problem {
sub recalcto_mm {	sub recalcto_mm {
my $textwidth=shift;	my $textwidth=shift;
my $LaTeXwidth;	my $LaTeXwidth;
if ($textwidth=~/(\d+\.?\d)\scm/) {	if ($textwidth=~/(-?\d+\.?\d)\scm/) {
$LaTeXwidth = $1*10;	$LaTeXwidth = $1*10;
} elsif ($textwidth=~/(\d+\.?\d)\smm/) {	} elsif ($textwidth=~/(-?\d+\.?\d)\smm/) {
$LaTeXwidth = $1;	$LaTeXwidth = $1;
} elsif ($textwidth=~/(\d+\.?\d)\sin/) {	} elsif ($textwidth=~/(-?\d+\.?\d)\sin/) {
$LaTeXwidth = $1*25.4;	$LaTeXwidth = $1*25.4;
}	}
$LaTeXwidth.=' mm';	$LaTeXwidth.=' mm';
Line 727 sub unsupported {	Line 781 sub unsupported {
}	}


	#
	# Retrieve the hash of page breaks.
	#
	# Inputs:
	# helper - reference to helper object.
	# Outputs
	# A reference to a page break hash.
	#
	#

	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 $html=&Apache::lonxml::xmlbegin();
my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');	my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');
$r->print(<<ENDPART);	$r->print(<<ENDPART);
<html>	$html
<script type="text/javascript" language="Javascript" >	<head>
	<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 757 sub output_data {	Line 834 sub output_data {
editbrowser.focus();	editbrowser.focus();
}	}
</script>	</script>
<head>
<title>LON-CAPA output for printing</title>	<title>LON-CAPA output for printing</title>
</head>	</head>
$bodytag	$bodytag
Please stand by while processing your print request, this may take some time ...	Please stand by while processing your print request, this may take some time ...
ENDPART	ENDPART


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

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

	if (defined $page_breaks{$master_seq[$i]}) {
	if($i != 0) {
	$result.="\\newpage\n";
	}
	}
my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);	my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
$urlp=&Apache::lonnet::clutter($urlp);	$urlp=&Apache::lonnet::clutter($urlp);
$form{'symb'}=$master_seq[$i];	$form{'symb'}=$master_seq[$i];
Line 966 ENDPART	Line 1066 ENDPART
my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem	my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem
if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;}	if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;}
if ($i==0) {$prevassignment=$assignment;}	if ($i==0) {$prevassignment=$assignment;}
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
my $texversion='';	my $texversion='';
if ($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {	if ($urlp=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {
$texversion.=&Apache::lonnet::ssi($urlp,%form);	$texversion.=&Apache::lonnet::ssi($urlp,%form);
Line 984 ENDPART	Line 1083 ENDPART
my $current_counter=$ENV{'form.counter'};	my $current_counter=$ENV{'form.counter'};
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|	if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {	($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
my %form;
$form{'grade_target'}='answer';	$form{'grade_target'}='answer';
$form{'answer_output_mode'}='tex';	$form{'answer_output_mode'}='tex';
my $answer=&Apache::lonnet::ssi($urlp,%form);	my $answer=&Apache::lonnet::ssi($urlp,%form);
Line 1015 ENDPART	Line 1113 ENDPART
my $courseidinfo = &get_course();	my $courseidinfo = &get_course();
if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }	if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
$prevassignment=$assignment;	$prevassignment=$assignment;
$result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$name.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}} \vskip -5 mm ';	$result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$name.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}} \vskip 5 mm ';
}	}
$result .= $texversion;	$result .= $texversion;
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
} elsif ($urlp=~/\/(smppg\|syllabus\|aboutme\|bulletinboard)$/) {	} elsif ($urlp=~/\/(smppg\|syllabus\|aboutme\|bulletinboard)$/) {
my %form;
$form{'grade_target'}='tex';
$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
if ($urlp=~/\/syllabus$/) {$urlp=~s/\/res//;}	if ($urlp=~/\/syllabus$/) {$urlp=~s/\/res//;}
my $texversion=&Apache::lonnet::ssi($urlp,%form);	my $texversion=&Apache::lonnet::ssi($urlp,%form);
Line 1043 ENDPART	Line 1138 ENDPART
$result .= $texversion;	$result .= $texversion;
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
}	}
	if (&Apache::loncommon::connection_aborted($r)) { last; }
}	}
&Apache::lonnet::delenv('form.counter');	&Apache::lonnet::delenv('form.counter');
if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}	if ($flag_page_in_sequence eq 'YES') {
	$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;
	}
$result .= '\end{document}';	$result .= '\end{document}';
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') \|\|	} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') \|\|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){	($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){


#-- prints assignments for whole class or for selected students	#-- prints assignments for whole class or for selected students
my $type;	my $type;
if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') {	if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') {
Line 1059 ENDPART	Line 1159 ENDPART
$type='resources';	$type='resources';
}	}
my @students=split /\\|\\|\\|/, $helper->{'VARS'}->{'STUDENTS'};	my @students=split /\\|\\|\\|/, $helper->{'VARS'}->{'STUDENTS'};
	# The normal sort order is by section then by students within the
	# section. If the helper var student_sort is 1, then the user has elected
	# to override this and output the students by name.
	# Each element of the students array is of the form:
	# username:domain:section:last, first:status
	#
	#
	if ($helper->{'VARS'}->{'student_sort'} eq 1) {
	@students = sort compare_names @students;
	}
if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq '0' \|\|	if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq '0' \|\|
$helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'all' ) {	$helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'all' ) {
$helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1;	$helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1;
}	}
my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};	my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};

#loop over students	#loop over students
my $flag_latex_header_remove = 'NO';	my $flag_latex_header_remove = 'NO';
my %moreenv;	my %moreenv;
$moreenv{'instructor_comments'}='hide';	$moreenv{'instructor_comments'}='hide';
$moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);	$moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
$moreenv{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};	$moreenv{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
	$moreenv{'problem_split'} = $parmhash{'problem_stream_switch'};
if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$moreenv{'problem_split'}='yes';}	if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$moreenv{'problem_split'}='yes';}
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1,'inline','75');	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1,'inline','75');
my $student_counter=-1;	my $student_counter=-1;
foreach my $person (@students) {	foreach my $person (@students) {

my $duefile="/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.due";	my $duefile="/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.due";
if (-e $duefile) {	if (-e $duefile) {
my $temp_file = Apache::File->new('>>'.$duefile);	my $temp_file = Apache::File->new('>>'.$duefile);
Line 1081 ENDPART	Line 1194 ENDPART
}	}
$student_counter++;	$student_counter++;
my $i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});	my $i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});
my ($output,$fullname)=&print_resources($r,$helper,$person,$type,\%moreenv,\@master_seq,$flag_latex_header_remove);	my ($output,$fullname)=&print_resources($r,$helper,
	$person,$type,
	\%moreenv,\@master_seq,
	$flag_latex_header_remove,
	$LaTeXwidth);
$print_array[$i].=$output;	$print_array[$i].=$output;
$student_names[$i].=$person.':'.$fullname.'_END_';	$student_names[$i].=$person.':'.$fullname.'_END_';
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,&mt('last student').' '.$fullname);	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,&mt('last student').' '.$fullname);
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
	if (&Apache::loncommon::connection_aborted($r)) { last; }
}	}
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);	&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
$result .= $print_array[0].' \end{document}';	$result .= $print_array[0].' \end{document}';
Line 1096 ENDPART	Line 1214 ENDPART
my $num_todo=$helper->{'VARS'}->{'NUMBER_TO_PRINT_TOTAL'};	my $num_todo=$helper->{'VARS'}->{'NUMBER_TO_PRINT_TOTAL'};
my $code_name=$helper->{'VARS'}->{'ANON_CODE_STORAGE_NAME'};	my $code_name=$helper->{'VARS'}->{'ANON_CODE_STORAGE_NAME'};
my $old_name=$helper->{'VARS'}->{'REUSE_OLD_CODES'};	my $old_name=$helper->{'VARS'}->{'REUSE_OLD_CODES'};
my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};
my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'});
my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'};
if ($number_per_page eq '0' \|\| $number_per_page eq 'all') {
$number_per_page=$num_todo;
}
my $flag_latex_header_remove = 'NO';
my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));	my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75');	$moreenv{'problem_split'} = $parmhash{'problem_stream_switch'};
my $seed=time+($$<<16)+($$);	my $seed=time+($$<<16)+($$);
my @allcodes;	my @allcodes;
if ($old_name) {	if ($old_name) {
my %result=&Apache::lonnet::get('CODEs',[$old_name],$cdom,$cnum);	my %result=&Apache::lonnet::get('CODEs',[$old_name],$cdom,$cnum);
@allcodes=split(',',$result{$old_name});	@allcodes=split(',',$result{$old_name});
	$num_todo=scalar(@allcodes);
} else {	} else {
my %allcodes;	my %allcodes;
srand($seed);	srand($seed);
Line 1123 ENDPART	Line 1235 ENDPART
}	}
@allcodes=keys(%allcodes);	@allcodes=keys(%allcodes);
}	}
	my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};
	my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'});
	my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'};
	if ($number_per_page eq '0' \|\| $number_per_page eq 'all') {
	$number_per_page=$num_todo;
	}
	my $flag_latex_header_remove = 'NO';
	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75');
my $count=0;	my $count=0;
foreach my $code (sort(@allcodes)) {	foreach my $code (sort(@allcodes)) {
my $file_num=int($count/$number_per_page);	my $file_num=int($count/$number_per_page);
$moreenv{'CODE'}=&num_to_letters($code);	$moreenv{'CODE'}=&num_to_letters($code);
my ($output,$fullname)=	my ($output,$fullname)=
&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);
$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);
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
$count++;	$count++;
	if (&Apache::loncommon::connection_aborted($r)) { last; }
}	}
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);	&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
$result .= $print_array[0].' \end{document}';	$result .= $print_array[0].' \end{document}';
Line 1152 ENDPART	Line 1274 ENDPART
my $urlp = $list_of_files[$i];	my $urlp = $list_of_files[$i];
$urlp=~s\|//\|/\|;	$urlp=~s\|//\|/\|;
if ($urlp=~/\//) {	if ($urlp=~/\//) {
my %form;	$form{'problem_split'}=$parmhash{'problem_stream_switch'};
$form{'grade_target'}='tex';
$form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
$form{'rndseed'}=$rndseed;	$form{'rndseed'}=$rndseed;
if ($urlp =~ m\|/home/([^/]+)/public_html\|) {	if ($urlp =~ m\|/home/([^/]+)/public_html\|) {
$urlp =~ s\|/home/([^/]*)/public_html\|/~$1\|;	$urlp =~ s\|/home/([^/]*)/public_html\|/~$1\|;
Line 1164 ENDPART	Line 1284 ENDPART
my $texversion=&Apache::lonnet::ssi($urlp,%form);	my $texversion=&Apache::lonnet::ssi($urlp,%form);
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|	if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {	($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
my %form;
$form{'grade_target'}='answer';	$form{'grade_target'}='answer';
$form{'answer_output_mode'}='tex';	$form{'answer_output_mode'}='tex';
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
Line 1216 ENDPART	Line 1335 ENDPART
for (my $i=1;$i<=$#print_array;$i++) {$print_array[$i] = &latex_corrections($number_of_columns,$print_array[$i],$selectionmade);}	for (my $i=1;$i<=$#print_array;$i++) {$print_array[$i] = &latex_corrections($number_of_columns,$print_array[$i],$selectionmade);}
#changes page's parameters for the one column output	#changes page's parameters for the one column output
if ($numberofcolumns == 1) {	if ($numberofcolumns == 1) {
$result =~ s/\\textwidth\s=\s\d\.?\d\s*(cm\|mm\|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /;	$result =~ s/\\textwidth\s=\s-?\d\.?\d\s*(cm\|mm\|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /;
$result =~ s/\\textheight\s=\s\d\.?\d\s*(cm\|mm\|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /;	$result =~ s/\\textheight\s=\s-?\d\.?\d\s*(cm\|mm\|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /;
$result =~ s/\\evensidemargin\s=\s\d\.?\d\s*(cm\|mm\|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;	$result =~ s/\\evensidemargin\s=\s-?\d\.?\d\s*(cm\|mm\|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
$result =~ s/\\oddsidemargin\s=\s\d\.?\d\s*(cm\|mm\|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;	$result =~ s/\\oddsidemargin\s=\s-?\d\.?\d\s*(cm\|mm\|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
}	}

#-- writing .tex file in prtspool	#-- writing .tex file in prtspool
my $temp_file;	my $temp_file;
my $identifier = &Apache::loncommon::get_cgi_id();	my $identifier = &Apache::loncommon::get_cgi_id();
Line 1274 ENDPART	Line 1394 ENDPART
my $URLback=''; #link to original document	my $URLback=''; #link to original document
if ($helper->{'VARS'}->{'construction'} ne '1') {	if ($helper->{'VARS'}->{'construction'} ne '1') {
#prints published resource	#prints published resource
$URLback=$helper->{'VARS'}->{'postdata'};	$URLback=&Apache::lonnet::escape('/adm/flip?postdata=return:');
} else {	} else {
#prints resource from the construction space	#prints resource from the construction space
$URLback='/'.$helper->{'VARS'}->{'filename'};	$URLback='/'.$helper->{'VARS'}->{'filename'};
Line 1328 sub get_CODE {	Line 1448 sub get_CODE {
}	}

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 ($username,$userdomain,$usersection) = split /:/,$person;	my ($username,$userdomain,$usersection) = split /:/,$person;
my $fullname = &get_name($username,$userdomain);	my $fullname = &get_name($username,$userdomain);
Line 1337 sub print_resources {	Line 1458 sub print_resources {
$namepostfix="\\\\Name: ";	$namepostfix="\\\\Name: ";
$fullname = "CODE - ".$moreenv->{'CODE'};	$fullname = "CODE - ".$moreenv->{'CODE'};
}	}
	my $i = 0;
#goes through all resources, checks if they are available for	#goes through all resources, checks if they are available for
#current student, and produces output	#current student, and produces output
&Apache::lonnet::delenv('form.counter');	&Apache::lonnet::delenv('form.counter');
&Apache::lonxml::init_counter();	&Apache::lonxml::init_counter();

	my %page_breaks = &get_page_breaks($helper);

foreach my $curresline (@{$master_seq}) {	foreach my $curresline (@{$master_seq}) {
	if (defined $page_breaks{$curresline}) {
	if($i != 0) {
	$current_output.= "\\newpage\n";
	}
	}
	$i++;
if ( !($type eq 'problems' &&	if ( !($type eq 'problems' &&
($curresline!~ m/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/)) ) {	($curresline!~ m/\.(problem\|exam\|quiz\|assess\|survey\|form\|library)$/)) ) {
my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline);	my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline);
Line 1356 sub print_resources {	Line 1487 sub print_resources {
my $current_counter=$ENV{'form.counter'};	my $current_counter=$ENV{'form.counter'};
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|	if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {	($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
my %form;	$moreenv->{'answer_output_mode'}='tex';
$form{'answer_output_mode'}='tex';	$moreenv->{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%{$moreenv});
my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%form);
&Apache::lonnet::appenv(('form.counter' => $current_counter));	&Apache::lonnet::appenv(('form.counter' => $current_counter));
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {	if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
$rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;	$rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;
Line 1402 sub print_resources {	Line 1532 sub print_resources {
}	}
$remove_latex_header = 'YES';	$remove_latex_header = 'YES';
}	}
	if (&Apache::loncommon::connection_aborted($r)) { last; }
}	}
my $courseidinfo = &get_course();	my $courseidinfo = &get_course();
if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }	if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
if ($usersection ne '') {$courseidinfo.=' - Sec. '.$usersection}	if ($usersection ne '') {$courseidinfo.=' - Sec. '.$usersection}
my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');	my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
if ($current_output=~/\\documentclass/) {	if ($current_output=~/\\documentclass/) {
$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}}$courseidinfo \\hfill \\thepage \\\\ \\textit{$currentassignment}$namepostfix}\\vskip 3 mm /;	$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent\\lhead{\\textit{\\textbf{$fullname}}$courseidinfo \\hfill \\thepage \\\\ \\textit{$currentassignment}$namepostfix}}\\vskip 5 mm /;
} else {	} else {
my $blankpages = '';	my $blankpages = '';
for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blankpages.='\clearpage\strut\clearpage';}	for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blankpages.='\clearpage\strut\clearpage';}
$current_output = '\strut\vspace{-6 mm}\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\vspace{-2 mm}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage '.$blankpages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$currentassignment.'}'.$namepostfix.'}} \vskip -5 mm '.$current_output;	$current_output = '\strut\vspace{-6 mm}\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\vspace{-2 mm}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage '.$blankpages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$currentassignment.'}'.$namepostfix.'}} \vskip 5 mm '.$current_output;
}	}
return ($current_output,$fullname);	return ($current_output,$fullname);

Line 1446 sub handler {	Line 1577 sub handler {
# return OK;	# return OK;

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

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


	# 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 1471 use Data::Dumper;	Line 1611 use Data::Dumper;
sub printHelper {	sub printHelper {
my $r = shift;	my $r = shift;

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

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

	# The page breaks can get loaded initially from the course environment:

	if((!defined($ENV{"form.CURRENT_STATE"})) \|\|
	($ENV{'form.CURRENT_STATE'} == "START")) {
	$helper->{VARS}->{FINISHPAGE} = ""; # In case they did a back e.g.
	}



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


	if("$helper->{VARS}->{PRINT_TYPE}" eq "$ENV{'form.lastprinttype'}") {
	$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.
Line 1536 sub printHelper {	Line 1693 sub printHelper {
$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});	$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});

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


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

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

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

# Useful for debugging: Dump the help vars	# Useful for debugging: Dump the help vars
#$r->print(Dumper($helper->{VARS}));	# $r->print(Dumper($helper->{VARS}));
#$r->print($map);	# $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') &&

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

Line 1647 sub printHelper {	Line 1808 sub printHelper {
<filterfunc>return $isNotMap;</filterfunc>	<filterfunc>return $isNotMap;</filterfunc>
<mapurl>$map</mapurl>	<mapurl>$map</mapurl>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
	<option text='Newpage' variable='FINISHPAGE' />
</resource>	</resource>
</state>	</state>
HELPERFRAGMENT	HELPERFRAGMENT
Line 1654 HELPERFRAGMENT	Line 1816 HELPERFRAGMENT
&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);	&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
}	}

# If the user is priviledged, allow them to print all	# If the user is privileged, allow them to print all
# problems in the course, optionally for selected students	# problems and resources in the entier course, optionally for selected students
if ($userPriviledged &&	if ($userPriviledged &&
($helper->{VARS}->{'postdata'}=~/\/res\// \|\| $helper->{VARS}->{'postdata'}=~/\/(syllabus\|smppg\|aboutme\|bulletinboard)$/)) {	($helper->{VARS}->{'postdata'}=~/\/res\// \|\| $helper->{VARS}->{'postdata'}=~/\/(syllabus\|smppg\|aboutme\|bulletinboard)$/)) {

push @{$printChoices}, ['<b>Problems</b> from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS'];	push @{$printChoices}, ['<b>Problems</b> from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS'];
	push @{$printChoices}, ['<b>Resources</b> from <b>entire course</b>', 'all_resources', 'ALL_RESOURCES'];
&Apache::lonxml::xmlparse($r, 'helper', <<ALL_PROBLEMS);	&Apache::lonxml::xmlparse($r, 'helper', <<ALL_PROBLEMS);
<state name="ALL_PROBLEMS" title="Select Problem(s) to print">	<state name="ALL_PROBLEMS" title="Select Problem(s) to print">
<message>(mark them then click "next" button) <br /></message>	<message>(mark them then click "next" button) <br /></message>
Line 1668 HELPERFRAGMENT	Line 1832 HELPERFRAGMENT
<filterfunc>return $isProblemOrMap;</filterfunc>	<filterfunc>return $isProblemOrMap;</filterfunc>
<choicefunc>return $isNotMap;</choicefunc>	<choicefunc>return $isNotMap;</choicefunc>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
	<option text='Newpage' variable='FINISHPAGE' />
	</resource>
	</state>
	<state name="ALL_RESOURCES" title="Select Resource(s) to print">
	<message>(Mark them then click "next" button) <br /> </message>
	<resource variable="RESOURCES" toponly='0' multichoice='1'
	suppressEmptySequences='0' addstatus='1' closeallpages='1'>
	<nextstate>PAGESIZE</nextstate>
	<filterfunc>return $isNotMap; </filterfunc>
	<valuefunc>return $symbFilter;</valuefunc>
	<option text='NewPage' variable='FINISHPAGE' />
</resource>	</resource>
</state>	</state>
ALL_PROBLEMS	ALL_PROBLEMS
Line 1683 ALL_PROBLEMS	Line 1858 ALL_PROBLEMS
<filterfunc>return $isProblem;</filterfunc>	<filterfunc>return $isProblem;</filterfunc>
<mapurl>$map</mapurl>	<mapurl>$map</mapurl>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
	<option text='New Page' variable='FINISHPAGE' />
</resource>	</resource>
<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>	<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
<choices variable="EMPTY_PAGES">	<choices variable="EMPTY_PAGES">
Line 1698 RESOURCE_SELECTOR	Line 1874 RESOURCE_SELECTOR
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);	&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);
<state name="CHOOSE_STUDENTS" title="Select Students and Resources">	<state name="CHOOSE_STUDENTS" title="Select Students and Resources">
<student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />	<student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />
	<message><b>Select sort order</b> </message>
	<choices variable='student_sort'>
	<choice computer='0'>Sort by section then student</choice>
	<choice computer='1'>Sort by students across sections.</choice>
	</choices>
$resource_selector	$resource_selector
</state>	</state>
CHOOSE_STUDENTS	CHOOSE_STUDENTS
Line 1706 CHOOSE_STUDENTS	Line 1887 CHOOSE_STUDENTS
my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};	my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
my @names=&Apache::lonnet::getkeys('CODEs',$cdom,$cnum);	my @names=&Apache::lonnet::getkeys('CODEs',$cdom,$cnum);
my $namechoice='<choice></choice>';	my $namechoice='<choice></choice>';
foreach my $name (@names) {	foreach my $name (sort {uc($a) cmp uc($b)} @names) {
if ($name =~ /^error: 2 /) { next; }	if ($name =~ /^error: 2 /) { next; }
$namechoice.='<choice computer="'.$name.'">'.$name.'</choice>';	$namechoice.='<choice computer="'.$name.'">'.$name.'</choice>';
}	}
&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>PAGESIZE</nextstate>
<message><hr width='33%' /><b>Number of anonymous assignments to print?</b></message>	<message><hr width='33%' /></message>
<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"></string>	<message><table><tr><td><b>Number of anonymous assignments to print?</b></td><td></message>
<message><br /><b>Names to store the CODEs under for later:</b></message>	<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5">
	<validator>
	if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&
	!\$helper->{'VARS'}{'REUSE_OLD_CODES'}) {
	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></td></tr></table></message>
<message><hr width='33%' /></message>	<message><hr width='33%' /></message>
<message><b>Reprint a set of saved CODEs:</b></message>	<message><b>Reprint a set of saved CODEs:</b></message>
<dropdown variable="REUSE_OLD_CODES">	<dropdown variable="REUSE_OLD_CODES">
Line 1741 CHOOSE_ANON1	Line 1934 CHOOSE_ANON1
<filterfunc>return $isNotMap;</filterfunc>	<filterfunc>return $isNotMap;</filterfunc>
<mapurl>$map</mapurl>	<mapurl>$map</mapurl>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
	<option text='Newpage' variable='FINISHPAGE' />
</resource>	</resource>
<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>	<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
<choices variable="EMPTY_PAGES">	<choices variable="EMPTY_PAGES">
Line 1756 RESOURCE_SELECTOR	Line 1950 RESOURCE_SELECTOR
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS1);	&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS1);
<state name="CHOOSE_STUDENTS1" title="Select Students and Resources">	<state name="CHOOSE_STUDENTS1" title="Select Students and Resources">
<student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />	<student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />
	<choices variable='student_sort'>
	<choice computer='0'>Sort by section then student</choice>
	<choice computer='1'>Sort by students across sections.</choice>
	</choices>

$resource_selector	$resource_selector
</state>	</state>
CHOOSE_STUDENTS1	CHOOSE_STUDENTS1
Line 1763 CHOOSE_STUDENTS1	Line 1962 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>PAGESIZE</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'}) {
	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></td></tr></table></message>
<message><hr width='33%' /></message>	<message><hr width='33%' /></message>
<message><b>Reprint a set of saved CODEs:</b></message>	<message><b>Reprint a set of saved CODEs:</b></message>
<dropdown variable="REUSE_OLD_CODES">	<dropdown variable="REUSE_OLD_CODES">
Line 1819 CHOOSE_FROM_SUBDIR	Line 2029 CHOOSE_FROM_SUBDIR
<nextstate>CHOOSE_FROM_ANY_SEQUENCE</nextstate>	<nextstate>CHOOSE_FROM_ANY_SEQUENCE</nextstate>
<filterfunc>return \$res->is_sequence;</filterfunc>	<filterfunc>return \$res->is_sequence;</filterfunc>
<valuefunc>return $urlValue;</valuefunc>	<valuefunc>return $urlValue;</valuefunc>
	<option text='Newpage' variable='FINISHPAGE' />
</resource>	</resource>
</state>	</state>
<state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">	<state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">
Line 1829 CHOOSE_FROM_SUBDIR	Line 2040 CHOOSE_FROM_SUBDIR
<filterfunc>return $isProblem</filterfunc>	<filterfunc>return $isProblem</filterfunc>
<mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>	<mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>
<valuefunc>return $symbFilter;</valuefunc>	<valuefunc>return $symbFilter;</valuefunc>
	<option text='Newpage' variable='FINISHPAGE' />
</resource>	</resource>
</state>	</state>
CHOOSE_FROM_ANY_SEQUENCE	CHOOSE_FROM_ANY_SEQUENCE
Line 1841 CHOOSE_FROM_ANY_SEQUENCE	Line 2053 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();

Line 1857 CHOOSE_FROM_ANY_SEQUENCE	Line 2068 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>");
Line 1960 RNDSEED	Line 2170 RNDSEED

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

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

untie %hash;

return OK;	return OK;
}	}

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

Removed from v.1.330
changed lines
	Added in v.1.368