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.568.2.1 and 1.604

version 1.568.2.1, 2010/02/14 17:41:39	version 1.604, 2011/11/07 13:41:43
Line 1	Line 1
#
# The LearningOnline Network	# The LearningOnline Network
# Printout	# Printout
#	#
Line 45 use Apache::londefdef;	Line 45 use Apache::londefdef;
use File::Basename;	use File::Basename;

use HTTP::Response;	use HTTP::Response;

use LONCAPA::map();	use LONCAPA::map();
use POSIX qw(strftime);	use POSIX qw(strftime);
use Apache::lonlocal;	use Apache::lonlocal;
use Carp;	use Carp;
use LONCAPA;	use LONCAPA;


my %perm;	my %perm;
my %parmhash;	my %parmhash;
my $resources_printed;	my $resources_printed;
Line 76 my $font_size = 'normalsize'; # Default	Line 76 my $font_size = 'normalsize'; # Default

#---------------------------- Helper helpers. -------------------------	#---------------------------- Helper helpers. -------------------------

# Returns the text needd for a student chooser.	# BZ5209:
	# Create the states needed to run the helper for incomplete problems from
	# the current folder for selected students.
	# This includes:
	# - A resource selector limited to problems (incompleteness must be
	# calculated on a student per student basis.
	# - A student selector.
	# - Tie in to the FORMAT of the print job.
	#
	# States:
	# CHOOSE_INCOMPLETE_PEOPLE_SEQ - Resource selection.
	# CHOOSE_STUDENTS_INCOMPLETE - Student selection.
	# CHOOSE_STUDENTS_INCOMPLETE_FORMAT - Format selection
	# Parameters:
	# helper - the helper which already contains info about the current folder we can
	# purloin.
	# url - Top url of the sequence
	# Return:
	# XML that can be parsed by the helper to drive the state machine.
	#
	sub create_incomplete_folder_selstud_helper($helper)
	{
	my ($helper, $map) = @_;


	my $symbFilter = '$res->shown_symb()';
	my $selFilter = '$res->is_problem()';


	my $resource_chooser = &generate_resource_chooser('CHOOSE_INCOMPLETE_PEOPLE_SEQ',
	'Select problem(s) to print',
	'multichoice="1" toponly="1" addstatus="1" closeallpages="1"',
	'RESOURCES',
	'CHOOSE_STUDENTS_INCOMPLETE',
	$map,
	$selFilter,
	'',
	$symbFilter,
	'');

	my $student_chooser = &generate_student_chooser('CHOOSE_STUDENTS_INCOMPLETE',
	'student_sort',
	'STUDENTS',
	'CHOOSE_STUDENTS_INCOMPLETE_FORMAT');

	my $format_chooser = &generate_format_selector($helper,
	'Format of the print job',
	'CHOOSE_STUDENTS_INCOMPLETE_FORMAT'); # end state.

	return $resource_chooser . $student_chooser . $format_chooser;
	}


	# BZ 5209
	# Create the states needed to run the helper for incomplete problems from
	# the current folder for selected students.
	# This includes:
	# - A resource selector limited to problems. (incompleteness must be calculated
	# on a student per student basis.
	# - A student selector.
	# - Tie in to format for the print job.
	# States:
	# INCOMPLETE_PROBLEMS_COURSE_RESOURCES - Resource selector.
	# INCOMPLETE_PROBLEMS_COURSE_STUDENTS - Student selector.
	# INCOMPLETE_PROBLEMS_COURSE_FORMAT - Format selection.
	#
	# Parameters:
	# helper - Helper we are creating states for.
	# Returns:
	# Text that can be parsed by the helper.
	#

	sub create_incomplete_course_helper {
	my $helper = shift;

	my $filter = '$res->is_problem() \|\| $res->contains_problem() \|\| $res->is_sequence() \|\| $res->is_practice())';
	my $symbfilter = '$res->shown_symb()';

	my $resource_chooser = &generate_resource_chooser('INCOMPLETE_PROBLEMS_COURSE_RESOURCES',
	'Select problem(s) to print',
	'multichoice = "1" suppressEmptySequences="0" addstatus="1" closeallpagtes="1"',
	'RESOURCES',
	'INCOMPLETE_PROBLEMS_COURSE_STUDENTS',
	'',
	$filter,
	'',
	$symbfilter,
	'');

	my $people_chooser = &generate_student_chooser('INCOMPLETE_PROBLEMS_COURSE_STUDENTS',
	'student_sort',
	'STUDENTS',
	'INCOMPLETE_PROBLEMS_COURSE_FORMAT');

	my $format = &generate_format_selector($helper,
	'Format of the print job',
	'INCOMPLETE_PROBLEMS_COURSE_FORMAT'); # end state.

	return $resource_chooser . $people_chooser . $format;


	}

	# BZ5209
	# Creates the states needed to run the print helper for a student
	# that wants to print his incomplete problems from the current folder.
	# Parameters:
	# $helper - helper we are generating states for.
	# $map - The map for which the student wants incomplete problems.
	# Returns:
	# XML that defines the helper states being created.
	#
	# States:
	# CHOOSE_INCOMPLETE_SEQ - Resource selector.
	#
	sub create_incomplete_folder_helper {
	my ($helper, $map) = @_;

	my $filter = '$res->is_problem()';
	$filter .= ' && $res->resprintable() ';
	$filter .= ' && $res->is_incomplete() ';

	my $symfilter = '$res->shown_symb()';

	my $resource_chooser = &generate_resource_chooser('CHOOSE_INCOMPLETE_SEQ',
	'Select problem(s) to print',
	'multichoice="1", toponly ="1", addstatus="1", closeallpages="1"',
	'RESOURCES',
	'PAGESIZE',
	$map,
	$filter, '',
	$symfilter,
	'');

	return $resource_chooser;
	}


	# Returns the text neded for a student chooser.
# that text must still be parsed by the helper xml parser.	# that text must still be parsed by the helper xml parser.
# Parameters:	# Parameters:
# this_state - State name of the chooser.	# this_state - State name of the chooser.
Line 196 sub generate_code_selector {	Line 334 sub generate_code_selector {
<message><br /><hr /> <br /></message>	<message><br /><hr /> <br /></message>
<message><h3>Generate new CODEd Assignments</h3></message>	<message><h3>Generate new CODEd Assignments</h3></message>
<message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message>	<message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message>
<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5">	<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5" noproceed="1">
<validator>	<validator>
if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&	if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&
!\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&	!\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
!\$helper->{'VARS'}{'SINGLE_CODE'} &&	!\$helper->{'VARS'}{'SINGLE_CODE'} &&
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {	!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'} ) {

return "You need to specify the number of assignments to print";	return "You need to specify the number of assignments to print";
}	}
	if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) >= 1) &&
	(\$helper->{'VARS'}{'SINGLE_CODE'} ne '') ) {
	return 'Specifying number of codes to print and a specific code is not compatible';
	}
return undef;	return undef;
</validator>	</validator>
</string>	</string>
Line 212 sub generate_code_selector {	Line 355 sub generate_code_selector {
<message></td><td></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><tr><td></message>	<message></td></tr><tr><td></message>
<message><b>Bubble sheet type:</b></message>	<message><b>Bubblesheet type:</b></message>
<message></td><td></message>	<message></td><td></message>
<dropdown variable="CODE_OPTION" multichoice="0" allowempty="0">	<dropdown variable="CODE_OPTION" multichoice="0" allowempty="0">
$bubble_types	$bubble_types
Line 228 sub generate_code_selector {	Line 371 sub generate_code_selector {
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {	!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'},	return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'},
\$helper->{'VARS'}{'CODE_OPTION'});	\$helper->{'VARS'}{'CODE_OPTION'});
	} elsif (\$helper->{'VARS'}{'SINGLE_CODE'} ne ''){
	return 'Specifying a code name is incompatible with specifying number of codes.';
} else {	} else {
return undef; # Other forces control us.	return undef; # Other forces control us.
}	}
Line 249 CHOOSE_ANON1	Line 394 CHOOSE_ANON1
return $result;	return $result;
}	}

	# Returns the XML for choosing how assignments are to be formatted
	# that text must still be parsed by the helper xml parser.
	# Parameters: 3 (required)

	# helper - The helper; $helper->{'VARS'}->{'PRINT_TYPE'} used
	# to check if splitting PDFs by section can be offered.
	# title - Title for the current state.
	# this_state - State name of the chooser.

	sub generate_format_selector {
	my ($helper,$title,$this_state) = @_;
	my $secpdfoption;
	unless (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') \|\|
	($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon_page') \|\|
	($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) {
	$secpdfoption = '<choice computer="sections">Each PDF contains exactly one section</choice>';
	}
	return <<RESOURCE_SELECTOR;
	<state name="$this_state" title="$title">
	<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
	<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='1'>Add one empty page/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>
	</choices>
	<nextstate>PAGESIZE</nextstate>
	<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>
	$secpdfoption
	<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
	}

#-----------------------------------------------------------------------	#-----------------------------------------------------------------------

	# Determine if a resource is incomplete given the map:
	# Parameters:
	# $username - Name of user for whom we are checking.
	# $domain - Domain of user we are checking.
	# $map - map name.
	# Returns:
	# 0 - map is not incomplete.
	# 1 - map is incomplete.
	#
	sub incomplete {
	my ($username, $domain, $map) = @_;


	my $navmap = Apache::lonnavmaps::navmap->new($username, $domain);


	if (defined($navmap)) {
	my $res = $navmap->getResourceByUrl($map);
	my $result = $res->is_incomplete();
	return $result;
	} else {
	return 1;
	}
	}
	#
	# When printing for students, the resoures and order of the
	# resources may need to be altered if there are folders with
	# random selectiopn or random ordering (or both) enabled.
	# This sub computes the set of resources to print for a student
	# modified both by random ordering and selection and filtered
	# to only those that are in the original set selcted to be printed.
	#
	# Parameters:
	# $helper - The helper we need $helper->{'VARS'}->{'symb'}
	# to construct the navmap and the iteration.
	# $seq - The original set of resources to print
	# (really an array of resource names (array of symb's).
	# $who - Student/domain for whome the sequence will be generated.
	#
	# Implicit inputs:
	# $
	# Returns:
	# reference to an array of resources that can be passed to
	# print_resources.
	#
	sub master_seq_to_person_seq {
	my ($helper, $seq, $who) = @_;


	my ($username, $userdomain, $usersection) = split(/:/, $who);


	# Toss the sequence up into a hash so that we have O(1) lookup time.
	# on the items that come out of the user's list of resources.
	#

	my %seq_hash = map {$_ => 1} @$seq;
	my @output_seq;

	my ($map, $id, $url) = &Apache::lonnet::decode_symb($helper->{VARS}->{'symb'});
	my $navmap = Apache::lonnavmaps::navmap->new($username, $userdomain);
	my $iterator = $navmap->getIterator($navmap->firstResource(),
	$navmap->finishResource(),
	{}, 1);
	my %nonResourceItems = (
	$iterator->BEGIN_MAP => 1,
	$iterator->BEGIN_BRANCH => 1,
	$iterator->END_BRANCH => 1,
	$iterator->END_MAP => 1,
	$iterator->FORWARD => 1,
	$iterator->BACKWARD => 1

	); # These items are not resources but appear in the midst of iteration.

	# Iterate on the resource..select the items that are randomly selected
	# and that are in the seq_has. Presumably the iterator will take care
	# of the random ordering part of the deal.
	#
	my $curres;
	while ($curres = $iterator->next()) {
	#
	# Only process resources..that are not removed by randomout...
	# and are selected for printint as well.
	#
	if (! exists $nonResourceItems{$curres} && ! $curres->randomout()) {
	my $symb = $curres->symb();
	if (exists $seq_hash{$symb}) {
	push(@output_seq, $symb);
	}
	}
	}


	return \@output_seq; # for now.

	}


# Fetch the contents of a resource, uninterpreted.	# Fetch the contents of a resource, uninterpreted.
# This is used here to fetch a latex file to be included	# This is used here to fetch a latex file to be included
Line 306 sub set_font_size {	Line 587 sub set_font_size {

my ($text) = @_;	my ($text) = @_;

$text =~ s/\\begin{document}/\\begin{document}{\\$font_size/;	# There appear to be cases where the font directive is empty.. in which
	# case the first substituion would insert a spurious \ oh happy day.
	# as this has been the cause of much mystery and hair pulling _sigh_

	if ($font_size ne '') {

	$text =~ s/\\begin{document}/\\begin{document}{\\$font_size/;
	}
$text =~ s/\\end{document}/}\\end{document}/;	$text =~ s/\\end{document}/}\\end{document}/;
return $text;	return $text;

Line 418 sub ssi_with_retries {	Line 706 sub ssi_with_retries {
$ssi_last_error_resource = $resource;	$ssi_last_error_resource = $resource;
$ssi_last_error = $response->code . " " . $response->message;	$ssi_last_error = $response->code . " " . $response->message;
$content='\section*{!!! An error occurred !!!}';	$content='\section*{!!! An error occurred !!!}';
&Apache::lonnet::logthis("Error in SSI resource: $resource Error: $ssi_last_error");
}	}

return $content;	return $content;
Line 434 sub get_student_view_with_retries {	Line 721 sub get_student_view_with_retries {
$ssi_last_error_resource = $curresline.' for user '.$username.':'.$userdomain;	$ssi_last_error_resource = $curresline.' for user '.$username.':'.$userdomain;
$ssi_last_error = $response->code . " " . $response->message;	$ssi_last_error = $response->code . " " . $response->message;
$content='\section*{!!! An error occurred !!!}';	$content='\section*{!!! An error occurred !!!}';
&Apache::lonnet::logthis("Error in SSI (student view) resource: $curresline Error: $ssi_last_error User: $username:$userdomain");
}	}
return $content;	return $content;

Line 1309 sub page_format_transformation {	Line 1595 sub page_format_transformation {
$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{}\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8cm\n\\setcounter{page}{1} \\vskip 5 mm\n /;	$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{}\\usepackage{booktabs}\\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}/;	my $papersize_text;
	if ($perm{'pav'}) {
	$papersize_text = '\\special{papersize=210mm,297mm}';
	} else {
	$papersize_text = '\special{papersize=210mm,297mm}';
	}
	$text =~ s/(\\begin{document})/$1$papersize_text/;
}	}
}	}
if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;}	if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;}
Line 1516 sub map_laystyle {	Line 1808 sub map_laystyle {

sub print_page_in_course {	sub print_page_in_course {
my ($helper, $rparmhash, $currentURL, $resources) = @_;	my ($helper, $rparmhash, $currentURL, $resources) = @_;

my %parmhash = %$rparmhash;	my %parmhash = %$rparmhash;
my @page_resources = @$resources;	my @page_resources = @$resources;
my $mode = $helper->{'VARS'}->{'LATEX_TYPE'};	my $mode = $helper->{'VARS'}->{'LATEX_TYPE'};
Line 1540 sub print_page_in_course {	Line 1833 sub print_page_in_course {
my $title=&Apache::lonnet::gettitle($symb);	my $title=&Apache::lonnet::gettitle($symb);
$title = &Apache::lonxml::latex_special_symbols($title);	$title = &Apache::lonxml::latex_special_symbols($title);
} else {	} else {
$result.=$currentURL;	my $esc_currentURL= $currentURL;
	$esc_currentURL =~ s/_/\\_/g;
	$result.=$esc_currentURL;
}	}
$result .= '\\\\';	$result .= '\\\\';

Line 1570 sub print_page_in_course {	Line 1865 sub print_page_in_course {
}	}
# these resources go through the XML transformer:	# these resources go through the XML transformer:

elsif ($resource_src =~ /\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\xhtml\|xhtm)$/) {	elsif ($resource_src =~ /\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|xml\|html\|htm\|xhtml\|xhtm)$/) {

my $urlp = &Apache::lonnet::clutter($resource_src);	my $urlp = &Apache::lonnet::clutter($resource_src);

my %form;	my %form;
my %moreenv;	my %moreenv;

Line 1581 sub print_page_in_course {	Line 1878 sub print_page_in_course {

$form{'grade_target'} = 'tex';	$form{'grade_target'} = 'tex';
$form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth);	$form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth);
$form{'pdfFormFiels'} = $pdfFormFields; #	$form{'pdfFormFields'} = $pdfFormFields; #
$form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'};	$form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'};

$form{'problem_split'}=$parmhash{'problem_stream_switch'};	$form{'problem_split'}=$parmhash{'problem_stream_switch'};
Line 1633 sub print_page_in_course {	Line 1930 sub print_page_in_course {
$texversion.='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';	$texversion.='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
$texversion.=&path_to_problem($urlp,$LaTeXwidth);	$texversion.=&path_to_problem($urlp,$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{'.
my $URLpath=$urlp;	&mt("Printing from Construction Space: No Title").'}\vskip 0 mm ';
$URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;	$texversion.=&path_to_problem($urlp,$LaTeXwidth);
$texversion.=&path_to_problem($URLpath,$LaTeXwidth);
}	}
$texversion.='\vskip 1 mm '.$answer.'\end{document}';	$texversion.='\vskip 1 mm '.$answer.'\end{document}';
}	}
Line 1685 sub print_page_in_course {	Line 1981 sub print_page_in_course {
# List of recently generated print files	# List of recently generated print files
#	#
sub recently_generated {	sub recently_generated {
my $r=shift;	my ($prtspool) = @_;
my $prtspool=$r->dir_config('lonPrtDir');	my $output;
my $zip_result;	my $zip_result;
my $pdf_result;	my $pdf_result;
opendir(DIR,$prtspool);	opendir(DIR,$prtspool);
Line 1719 sub recently_generated {	Line 2015 sub recently_generated {
if ($ext eq 'zip') { $zip_result .= $result; }	if ($ext eq 'zip') { $zip_result .= $result; }
}	}
if ($zip_result \|\| $pdf_result) {	if ($zip_result \|\| $pdf_result) {
$r->print('<hr />');	$output ='<hr />';
}	}
if ($zip_result) {	if ($zip_result) {
$r->print('<h3>'.&mt('Recently generated printout zip files')."</h3>\n"	$output .='<h3>'.&mt('Recently generated printout zip files')."</h3>\n"
.&Apache::loncommon::start_data_table()	.&Apache::loncommon::start_data_table()
.&Apache::loncommon::start_data_table_header_row()	.&Apache::loncommon::start_data_table_header_row()
.'<th>'.&mt('Download').'</th>'	.'<th>'.&mt('Download').'</th>'
Line 1730 sub recently_generated {	Line 2026 sub recently_generated {
.'<th>'.&mt('File Size (Bytes)').'</th>'	.'<th>'.&mt('File Size (Bytes)').'</th>'
.&Apache::loncommon::end_data_table_header_row()	.&Apache::loncommon::end_data_table_header_row()
.$zip_result	.$zip_result
.&Apache::loncommon::end_data_table()	.&Apache::loncommon::end_data_table();
);
}	}
if ($pdf_result) {	if ($pdf_result) {
$r->print('<h3>'.&mt('Recently generated printouts')."</h3>\n"	$output .='<h3>'.&mt('Recently generated printouts')."</h3>\n"
.&Apache::loncommon::start_data_table()	.&Apache::loncommon::start_data_table()
.&Apache::loncommon::start_data_table_header_row()	.&Apache::loncommon::start_data_table_header_row()
.'<th>'.&mt('Download').'</th>'	.'<th>'.&mt('Download').'</th>'
Line 1742 sub recently_generated {	Line 2037 sub recently_generated {
.'<th>'.&mt('File Size (Bytes)').'</th>'	.'<th>'.&mt('File Size (Bytes)').'</th>'
.&Apache::loncommon::end_data_table_header_row()	.&Apache::loncommon::end_data_table_header_row()
.$pdf_result	.$pdf_result
.&Apache::loncommon::end_data_table()	.&Apache::loncommon::end_data_table();
);
}	}
	return $output;
}	}

#	#
Line 1756 sub recently_generated {	Line 2051 sub recently_generated {
# A reference to a page break hash.	# A reference to a page break hash.
#	#
#	#
# use Data::Dumper;	use Data::Dumper;
#sub dump_helper_vars {	# sub dump_helper_vars {
# my ($helper) = @_;	# my ($helper) = @_;
# my $helpervars = Dumper($helper->{'VARS'});	# my $helpervars = Dumper($helper->{'VARS'});
# &Apache::lonnet::logthis("Dump of helper vars:\n $helpervars");	# &Apache::lonnet::logthis("Dump of helper vars:\n $helpervars");
Line 1772 sub get_page_breaks {	Line 2067 sub get_page_breaks {
}	}
return %page_breaks;	return %page_breaks;
}	}
	#
	# Returns text to insert for any extra vskip prior to the resource.
	# Parameters:
	# helper - Reference to the helper object driving the printout.
	# resource - Identifies the resource about to be printed.
	#
	# This is done as follows:
	# POSSIBLE_RESOURCES has the list of possible resources.
	# EXTRASPACE has the list of extra space values.
	# EXTRASPACE_UNITS is the set of resources for which the units are
	# mm. All others are 'in'.
	#
	# The resource is found in the POSSIBLE_RESOURCES to get the index
	# of the EXTRASPACE value.
	#
	# In order to speed this up for lengthy printouts, the first time,
	# POSSIBLE_RESOURCES is turned into a look up hash and
	# EXTRASPACE is turned into an array.
	#


	my %possible_resources;
	my %extraspace_mm;
	my @extraspace;
	my $skips_loaded = 0;

	# Function to load the skips hash and array

	sub load_skips {

	my ($helper) = @_;

	# If this is the first time, unrap the resources and extra spaces:

	if (!$skips_loaded) {
	@extraspace = (split(/\\|\\|\\|/, $helper->{'VARS'}->{'EXTRASPACE'}));
	my @resource_list = (split(/\\|\\|\\|/, $helper->{'VARS'}->{'POSSIBLE_RESOURCES'}));
	my $i = 0;
	foreach my $resource (@resource_list) {
	$possible_resources{$resource} = $i;
	$i++;
	}
	foreach my $mm_resource (split(/\\|\\|\\|/, $helper->{'VARS'}->{'EXTRASPACE_UNITS'})) {
	$extraspace_mm{$mm_resource} = 1;
	}
	$skips_loaded = 1;
	}
	}

	sub get_extra_vspaces {
	my ($helper, $resource) = @_;

	&load_skips($helper);

	# Lookup the resource in the possible resources hash.. that is the index
	# into the extraspace array that gives us either an empty string or
	# the number of mm to skip:

	my $index = $possible_resources{$resource};
	my $skip = $extraspace[$index];

	my $result = '';
	if ($skip ne '') {
	my $units = 'in';
	if (defined($extraspace_mm{$resource})) {
	$units = 'mm';
	}
	$result = '\vskip '.$skip.' '.$units;
	}


	return $result;


	}

	#
	# The resource chooser part of the helper needs more than just
	# the value of the extraspaces var to recover the value into a text
	# field option. This sub produces the required format for the saved var:
	# specifically
	# \|\|\| separated fields of the form resourcename=value
	#
	# Parameters:
	# $helper - Refers to the helper we are configuring
	# Implicit input:
	# $helper->{'VARS'}->{'EXTRASPACE'} - the spaces helper var has the text field
	# value.
	# $helper->{'VARS'}->{'EXTRASPACE_UNITS'} - units for the skips (checkboxes).
	# $helper->{'VARS'}->{'POSSIBLE_RESOURCES'} - has the list of resources. \|\|\|
	# separated of course.
	# Implicit outputs:
	# $env{'form.extraspace'}
	# $env{'form.extraspace_units'}
	#
	sub set_form_extraspace {
	my ($helper) = @_;

	# the most convenient way to do this is to drive from the skips arrays/hash.
	# may not be the fastest, but this is once per print request so it's not so
	# speed critical:

	&load_skips($helper);

	my $result = '';

	foreach my $resource (keys(%possible_resources)) {
	my $vskip = $extraspace[$possible_resources{$resource}];
	$result .= $resource .'=' . $vskip . '\|\|\|';
	}

	$env{'form.extraspace'} = $result;
	$env{'form.extraspace_units'} = $helper->{'VARS'}->{'EXTRASPACE_UNITS'};
	return $result;

	}

# Output a sequence (recursively if neeed)	# Output a sequence (recursively if neeed)
# from construction space.	# from construction space.
Line 1788 sub get_page_breaks {	Line 2199 sub get_page_breaks {
#	#
sub print_construction_sequence {	sub print_construction_sequence {
my ($currentURL, $helper, %form, $LaTeXwidth) = @_;	my ($currentURL, $helper, %form, $LaTeXwidth) = @_;


my $result;	my $result;
my $rndseed=time;	my $rndseed=time;
if ($helper->{'VARS'}->{'curseed'}) {	if ($helper->{'VARS'}->{'curseed'}) {
Line 1858 sub print_construction_sequence {	Line 2271 sub print_construction_sequence {
# IF sequence, recurse:	# IF sequence, recurse:

if ($urlp =~ /\.sequence$/) {	if ($urlp =~ /\.sequence$/) {
	#
	# FIXME: this does not work for co-authors
my $sequence_url = $urlp;	my $sequence_url = $urlp;
my $domain = $env{'user.domain'}; # Constr. space only on local	my $domain = $env{'user.domain'}; # Constr. space only on local
my $user = $env{'user.name'};	my $user = $env{'user.name'};
	# FIXME: the substitutions below do not seem to make sense

$sequence_url =~ s/^\/res\/$domain/\/home/;	$sequence_url =~ s/^\/res\/$domain/\/home/;
$sequence_url =~ s/^(\/home\/$user)/$1\/public_html/;	$sequence_url =~ s/^(\/home\/$user)/$1\/public_html/;
Line 1889 sub print_construction_sequence {	Line 2305 sub print_construction_sequence {
return $result;	return $result;
}	}

	#
	# Top level for generating print output.
	#
	# May call print_resources if multiple resources will be printed.
	#
	# The main driver is $selectionmade which reflects the type of print out
	# requested:
	# Value Print type:
	# 1 Print resource that's being looked at.
	# 2 Print problems in a map or in a page.
	# 3 Print pages in a map or resources in a page.
	# 4 Print all problems or all resources.
	# 5 Print problems for seleted students.
	# 6 Print selected problems from a folder.
	# 7 Print print selected resources from some scope.
	# 8 Print resources for selected students.
	#
	#BZ 5209
	# 2 map_incomplete_problems_seq Print incomplete problems from the current
	# folder in student context.
	# 5 map_incomplete_problems_people_seq Print incomplete problems from the
	# current folder in privileged context.
	# 5 incomplete_problems_selpeople_course Print incomplete problems for
	# selected people from the entire course.
	#
	# Item 101 has much the same processing as 8,
	#
	# Differences: Item 101, 102 require per-student filtering of the resource
	# set so that only the incomplete resources are printed.
	# For item 100, filtering was done at the helper level.

sub output_data {	sub output_data {
my ($r,$helper,$rparmhash) = @_;	my ($r,$helper,$rparmhash) = @_;

my %parmhash = %$rparmhash;	my %parmhash = %$rparmhash;
$ssi_error = 0; # This will be set nonzero by failing ssi's.	$ssi_error = 0; # This will be set nonzero by failing ssi's.
$resources_printed = '';	$resources_printed = '';
$font_size = $helper->{'VARS'}->{'fontsize'};	$font_size = $helper->{'VARS'}->{'fontsize'};
	my $print_type = $helper->{'VARS'}->{'PRINT_TYPE'}; # Allows textual simplification.
my $do_postprocessing = 1;	my $do_postprocessing = 1;
my $js = <<ENDPART;	my $js = <<ENDPART;
<script type="text/javascript">	<script type="text/javascript">
Line 1943 ENDPART	Line 2392 ENDPART
# indexed by symb and contains 1's for each break.	# indexed by symb and contains 1's for each break.

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

my %page_breaks = &get_page_breaks($helper);	my %page_breaks = &get_page_breaks($helper);

my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};	my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
Line 1992 ENDPART	Line 2443 ENDPART
&Apache::lonnet::delenv('construct.style');	&Apache::lonnet::delenv('construct.style');
}	}

	if ($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);

Line 2004 ENDPART	Line 2454 ENDPART
} 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;}
$cleanURL=$currentURL;	$cleanURL=$currentURL;
}	}
$selectionmade = 1;	$selectionmade = 1;

if ($cleanURL!~m\|^/adm/\|	if ($cleanURL!~m\|^/adm/\|
&& $cleanURL=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|xml\|html\|htm\|xhtml\|xhtm)$/) {	&& $cleanURL=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|xml\|html\|htm\|xhtml\|xhtm)$/) {
my $rndseed=time;	my $rndseed=time;
Line 2048 ENDPART	Line 2498 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')) {

$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';
Line 2069 ENDPART	Line 2520 ENDPART
$texversion.='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';	$texversion.='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
$texversion.=&path_to_problem($cleanURL,$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{'.
my $URLpath=$cleanURL;	&mt("Printing from Construction Space: No Title").'}\vskip 0 mm ';
$URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
$texversion.=&path_to_problem($URLpath,$LaTeXwidth);	$texversion.=&path_to_problem($cleanURL,$LaTeXwidth);
}	}
$texversion.='\vskip 1 mm '.$answer.'\end{document}';	$texversion.='\vskip 1 mm '.$answer.'\end{document}';
}	}
Line 2106 ENDPART	Line 2557 ENDPART
&& $currentURL=~/\.(sequence\|page)$/ && $helper->{'VARS'}->{'construction'} eq '1') {	&& $currentURL=~/\.(sequence\|page)$/ && $helper->{'VARS'}->{'construction'} eq '1') {
#printing content of sequence from the construction space	#printing content of sequence from the construction space

	# FIXME: unclear how this would work

$currentURL=~s\|\/~([^\/]+)\/\|\/home\/$1\/public_html\/\|;	$currentURL=~s\|\/~([^\/]+)\/\|\/home\/$1\/public_html\/\|;
$result .= &print_construction_sequence($currentURL, $helper, %form,	$result .= &print_construction_sequence($currentURL, $helper, %form,
Line 2155 ENDPART	Line 2607 ENDPART
$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'},	$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'},
$helper->{'VARS'}->{'symb'});	$helper->{'VARS'}->{'symb'});
}	}
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or	} elsif (($print_type eq 'map_problems') or
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_in_page') or	($print_type eq 'map_problems_in_page') or
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_resources_in_page') or	($print_type eq 'map_resources_in_page') or
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or	($print_type eq 'map_problems_pages') or
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') or	($print_type eq 'all_problems') or
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') or # BUGBUG	($print_type eq 'all_resources') or # BUGBUG
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences')	($print_type eq 'select_sequences') or
) {	($print_type eq 'map_incomplete_problems_seq')
	) {


#-- produce an output string	#-- produce an output string
if (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or	if (($print_type eq 'map_problems') or
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_in_page') ) {	($print_type eq 'map_incomplete_problems_seq') or
	($print_type eq 'map_problems_in_page') ) {
$selectionmade = 2;	$selectionmade = 2;
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or	} elsif (($print_type eq 'map_problems_pages') or
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_resources_in_page'))	($print_type eq 'map_resources_in_page'))
{	{
$selectionmade = 3;	$selectionmade = 3;
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems')	} elsif (($print_type eq 'all_problems')
) {	) {
$selectionmade = 4;	$selectionmade = 4;
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') { #BUGBUG	} elsif ($print_type eq 'all_resources') { #BUGBUG
$selectionmade = 4;	$selectionmade = 4;
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences') {	} elsif ($print_type eq 'select_sequences') {
$selectionmade = 7;	$selectionmade = 7;
}	}

$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 2211 ENDPART	Line 2666 ENDPART
$result.="\\newpage\n";	$result.="\\newpage\n";
}	}
}	}
	$result .= &get_extra_vspaces($helper, $master_seq[$i]);
my ($sequence,$middle_thingy,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);	my ($sequence,$middle_thingy,$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 2226 ENDPART	Line 2682 ENDPART
&Apache::lonxml::remember_problem_counter();	&Apache::lonxml::remember_problem_counter();
if ($flag_latex_header_remove eq 'NO') {	if ($flag_latex_header_remove eq 'NO') {
$texversion.=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); # RF	$texversion.=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); # RF
$flag_latex_header_remove = 'YES';	unless (($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only') \|\|
	(($i==0) &&
	(($urlp=~/\.page$/) \|\|
	($print_type eq 'map_problems_in_page') \|\|
	($print_type eq 'map_resources_in_page')))) {
	$flag_latex_header_remove = 'YES';
	}
}	}
$texversion.=&ssi_with_retries($urlp, $ssi_retry_count, %form);	$texversion.=&ssi_with_retries($urlp, $ssi_retry_count, %form);
if ($urlp=~/\.page$/) {	if ($urlp=~/\.page$/) {
Line 2234 ENDPART	Line 2696 ENDPART
if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}	if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}
$texversion =~ s/\\end{document}\d*/\\end{document}/;	$texversion =~ s/\\end{document}\d*/\\end{document}/;
$flag_page_in_sequence = 'YES';	$flag_page_in_sequence = 'YES';
}	}

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')) {
Line 2246 ENDPART	Line 2708 ENDPART

&Apache::lonxml::restore_problem_counter();	&Apache::lonxml::restore_problem_counter();
my $answer=&ssi_with_retries($urlp, $ssi_retry_count, %answerform);	my $answer=&ssi_with_retries($urlp, $ssi_retry_count, %answerform);
	if ($urlp =~ /\.page$/) {
	$answer =~ s/\\end{document}(\d*)$//;
	}
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {	if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;	if ($urlp =~ /\.page$/) {
	my @probs = split(/\\keephidden{ENDOFPROBLEM}/,$texversion);
	my $lastprob = pop(@probs);
	$texversion = join('\keephidden{ENDOFPROBLEM}',@probs).
	$answer.'\keephidden{ENDOFPROBLEM}'.$lastprob;
	} else {
	$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\|page)$/) {
$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});	$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
$texversion =~ s/\\begin{document}//;	# $texversion =~ s/\\begin{document}//; # FIXME
my $title = &Apache::lonnet::gettitle($master_seq[$i]);	my $title = &Apache::lonnet::gettitle($master_seq[$i]);
$title = &Apache::lonxml::latex_special_symbols($title);	$title = &Apache::lonxml::latex_special_symbols($title);
my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';	my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
Line 2318 ENDPART	Line 2789 ENDPART
if ($i > 0) {	if ($i > 0) {
$result .= '\cleardoublepage';	$result .= '\cleardoublepage';
}	}
$result .= &include_pdf($urlp);	my $texfrompdf = &include_pdf($urlp);
	if ($flag_latex_header_remove ne 'NO') {
	$texfrompdf = &latex_header_footer_remove($texfrompdf);
	}
	$result .= $texfrompdf;
if ($i != $#master_seq) {	if ($i != $#master_seq) {
if ($numberofcolumns eq '1') {	if ($numberofcolumns eq '1') {
$result .= '\newpage';	$result .= '\newpage';
Line 2341 ENDPART	Line 2816 ENDPART
}	}
$result .= $texversion;	$result .= $texversion;
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
}	}
if (&Apache::loncommon::connection_aborted($r)) {	if (&Apache::loncommon::connection_aborted($r)) {
last;	last;
}	}
Line 2351 ENDPART	Line 2826 ENDPART
$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;	$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;
}	}
$result .= '\end{document}';	$result .= '\end{document}';
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') \|\|	} elsif (($print_type eq 'problems_for_students') \|\|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students_from_page') \|\|	($print_type eq 'problems_for_students_from_page') \|\|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') \|\|	($print_type eq 'all_problems_students') \|\|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){	($print_type eq 'resources_for_students') \|\|
	($print_type eq 'incomplete_problems_selpeople_course') \|\|
	($print_type eq 'map_incomplete_problems_people_seq')){


#-- 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 (($print_type eq 'problems_for_students') \|\|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students_from_page') \|\|	($print_type eq 'problems_for_students_from_page') \|\|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') ) {	($print_type eq 'all_problems_students') \|\|
	($print_type eq 'incomplete_problems_selpeople_course') \|\|
	($print_type eq 'map_incomplete_problems_people_seq')) {
$selectionmade=5;	$selectionmade=5;
$type='problems';	$type='problems';
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students') {	} elsif ($print_type eq 'resources_for_students') {
$selectionmade=8;	$selectionmade=8;
$type='resources';	$type='resources';
}	}
Line 2418 ENDPART	Line 2897 ENDPART
my $i = 0;	my $i = 0;
my $last_section = (split(/:/,$students[0]))[2];	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);
Line 2434 ENDPART	Line 2912 ENDPART
} else {	} else {
$i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});	$i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});
}	}
	my $actual_seq = master_seq_to_person_seq($helper, \@master_seq, $person);
my ($output,$fullname, $printed)=&print_resources($r,$helper,	my ($output,$fullname, $printed)=&print_resources($r,$helper,
$person,$type,	$person,$type,
\%moreenv,\@master_seq,	\%moreenv, $actual_seq,
$flag_latex_header_remove,	$flag_latex_header_remove,
$LaTeXwidth);	$LaTeXwidth);
$resources_printed .= ":";	$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);
	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student');
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
if (&Apache::loncommon::connection_aborted($r)) { last; }	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}';
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') \|\|	} elsif (($print_type eq 'problems_for_anon') \|\|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon_page') \|\|	($print_type eq 'problems_for_anon_page') \|\|
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) {	($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'};
Line 2461 ENDPART	Line 2941 ENDPART

my $code_option=$helper->{'VARS'}->{'CODE_OPTION'};	my $code_option=$helper->{'VARS'}->{'CODE_OPTION'};
my @lines = &Apache::grades::get_scantronformat_file();	my @lines = &Apache::grades::get_scantronformat_file();
my ($code_type,$code_length)=('letter',6);	my ($code_type,$code_length,$bubbles_per_row)=('letter',6,10);
foreach my $line (@lines) {	foreach my $line (@lines) {
my ($name,$type,$length) = (split(/:/,$line))[0,2,4];	chomp($line);
	my ($name,$type,$length,$bubbles_per_item) =
	(split(/:/,$line))[0,2,4,17];
if ($name eq $code_option) {	if ($name eq $code_option) {
$code_length=$length;	$code_length=$length;
if ($type eq 'number') { $code_type = 'number'; }	if ($type eq 'number') { $code_type = 'number'; }
	chomp($bubbles_per_item);
	if (($bubbles_per_item ne '') && ($bubbles_per_item > 0)) {
	$bubbles_per_row = $bubbles_per_item;
	}
}	}
}	}
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';	$moreenv{'instructor_comments'}='hide';
	$moreenv{'bubbles_per_row'} = $bubbles_per_row;
my $seed=time+($$<<16)+($$);	my $seed=time+($$<<16)+($$);
my @allcodes;	my @allcodes;
if ($old_name) {	if ($old_name) {
Line 2512 ENDPART	Line 2999 ENDPART
@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(/_/,$print_type);
&adjust_number_to_print($helper);	&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 eq 'section') {
	$number_per_page=$num_todo > 0 ? $num_todo : 1;
}	}
my $flag_latex_header_remove = 'NO';	my $flag_latex_header_remove = 'NO';
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75');	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75');
Line 2542 ENDPART	Line 3030 ENDPART
}	}
&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}';
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') {	} elsif ($print_type eq 'problems_from_directory') {
#prints selected problems from the subdirectory	#prints selected problems from the subdirectory
$selectionmade = 6;	$selectionmade = 6;
my @list_of_files=split /\\|\\|\\|/, $helper->{'VARS'}->{'FILES'};	my @list_of_files=split /\\|\\|\\|/, $helper->{'VARS'}->{'FILES'};
Line 2561 ENDPART	Line 3049 ENDPART
if ($urlp=~/\//) {	if ($urlp=~/\//) {
$form{'problem_split'}=$parmhash{'problem_stream_switch'};	$form{'problem_split'}=$parmhash{'problem_stream_switch'};
$form{'rndseed'}=$rndseed;	$form{'rndseed'}=$rndseed;
if ($urlp =~ m\|/home/([^/]+)/public_html\|) {	$urlp =~ s\|^$Apache::lonnet::perlvar{'lonDocRoot'}\|\|;
$urlp =~ s\|/home/([^/]*)/public_html\|/~$1\|;
} else {
$urlp =~ s\|^$Apache::lonnet::perlvar{'lonDocRoot'}\|\|;
}
$resources_printed .= $urlp.':';	$resources_printed .= $urlp.':';
my $texversion=&ssi_with_retries($urlp, $ssi_retry_count, %form);	my $texversion=&ssi_with_retries($urlp, $ssi_retry_count, %form);
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|	if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|
Line 2586 ENDPART	Line 3070 ENDPART
$texversion.='\vskip 0 mm \noindent ';	$texversion.='\vskip 0 mm \noindent ';
$texversion.=&path_to_problem ($urlp,$LaTeXwidth);	$texversion.=&path_to_problem ($urlp,$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{'.
my $URLpath=$urlp;	&mt("Printing from Construction Space: No Title").'}\vskip 0 mm ';
$URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;	$texversion.=&path_to_problem ($urlp,$LaTeXwidth);
$texversion.=&path_to_problem ($URLpath,$LaTeXwidth);
}	}
$texversion.='\vskip 1 mm '.$answer.'\end{document}';	$texversion.='\vskip 1 mm '.$answer.'\end{document}';
}	}
}	}
#this chunk is responsible for printing the path to problem	#this chunk is responsible for printing the path to problem

my $newurlp=$urlp;	my $newurlp=&path_to_problem($urlp,$LaTeXwidth);
if ($newurlp=~/~/) {$newurlp=~s\|\/~([^\/]+)\/\|\/home\/$1\/public_html\/\|;}
$newurlp=&path_to_problem($newurlp,$LaTeXwidth);
$texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 $newurlp/;	$texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 $newurlp/;
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 2624 ENDPART	Line 3105 ENDPART
# Only post process if that has not been turned off e.g. by a raw latex resource.	# Only post process if that has not been turned off e.g. by a raw latex resource.

if ($do_postprocessing) {	if ($do_postprocessing) {
$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,
	$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,
$helper->{'VARS'}->{'ANSWER_TYPE'});	$helper->{'VARS'}->{'ANSWER_TYPE'});
#if ($numberofcolumns == 1) {	#if ($numberofcolumns == 1) {
Line 2781 sub print_resources {	Line 3268 sub print_resources {
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 = "\\\\"; # Both anon and not anon should get the same vspace.	my $namepostfix = "\\\\"; # Both anon and not anon should get the same vspace.
if ($person =~ 'anon') {
	#
	# Figure out if we need to filter the output by
	# the incomplete problems for that person
	#
	my $print_type = $helper->{'VARS'}->{'PRINT_TYPE'};
	my $print_incomplete = 0;
	if (($print_type eq 'map_incomplete_problems_people_seq') \|\|
	($print_type eq 'incomplete_problems_selpeople_course')) {
	$print_incomplete = 1;
	}
	if ($person eq 'anonymous') {
$namepostfix .="Name: ";	$namepostfix .="Name: ";
$fullname = "CODE - ".$moreenv->{'CODE'};	$fullname = "CODE - ".$moreenv->{'CODE'};
}	}

# Fullname may have special latex characters that need \ prefixing:	# Fullname may have special latex characters that need \ prefixing:
#	#

my $i = 0;	my $i = 0;
	my $actually_printed = 0; # Count of resources printed.
#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

Line 2805 sub print_resources {	Line 3305 sub print_resources {
# so we will just rely on prntout.pl to strip ENDOFSTUDENTSTAMP from the	# so we will just rely on prntout.pl to strip ENDOFSTUDENTSTAMP from the
# postscript. Each ENDOFSTUDENTSTAMP will go on a line by itself.	# postscript. Each ENDOFSTUDENTSTAMP will go on a line by itself.
#	#

my $syllabus_first = 0;	my $syllabus_first = 0;
foreach my $curresline (@{$master_seq}) {	foreach my $curresline (@{$master_seq}) {
if (defined $page_breaks{$curresline}) {	if (defined $page_breaks{$curresline}) {
Line 2812 sub print_resources {	Line 3313 sub print_resources {
$current_output.= "\\newpage\n";	$current_output.= "\\newpage\n";
}	}
}	}
	$current_output .= &get_extra_vspaces($helper, $curresline);
$i++;	$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\|page)$/)) ) {
my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline);	my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline);
	if ($print_incomplete && !&incomplete($username, $userdomain, $res_url)) {
	next;
	}
	$actually_printed++; # we're going to print one.
if (&Apache::lonnet::allowed('bre',$res_url)) {	if (&Apache::lonnet::allowed('bre',$res_url)) {
if ($res_url!~m\|^ext/\|	if ($res_url!~m\|^ext/\|
&& $res_url=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {	&& $res_url=~/\.(problem\|exam\|quiz\|assess\|survey\|form\|library\|page\|xml\|html\|htm\|xhtml\|xhtm)$/) {
Line 2824 sub print_resources {	Line 3329 sub print_resources {
&Apache::lonxml::remember_problem_counter();	&Apache::lonxml::remember_problem_counter();

my $rendered = &get_student_view_with_retries($curresline,$ssi_retry_count,$username,$userdomain,$env{'request.course.id'},'tex',$moreenv);	my $rendered = &get_student_view_with_retries($curresline,$ssi_retry_count,$username,$userdomain,$env{'request.course.id'},'tex',$moreenv);
	if ($res_url =~ /\.page$/) {
	if ($remove_latex_header eq 'NO') {
	if (!($rendered =~ /\\begin\{document\}/)) {
	$rendered = &print_latex_header().$rendered;
	}
	}
	;
	if ($remove_latex_header eq 'YES') {
	$rendered = &latex_header_footer_remove($rendered);
	} else {
	$rendered =~ s/\\end{document}\d*//;
	}
	}
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')) {
# Use a copy of the hash so we don't pervert it on future loop passes.	# Use a copy of the hash so we don't pervert it on future loop passes.
my %answerenv = %{$moreenv};	my %answerenv = %{$moreenv};
$answerenv{'answer_output_mode'}='tex';	$answerenv{'answer_output_mode'}='tex';


$answerenv{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};	$answerenv{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};

&Apache::lonxml::restore_problem_counter();	&Apache::lonxml::restore_problem_counter();
Line 2841 sub print_resources {	Line 3361 sub print_resources {


my $header =&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});	my $header =&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
$header =~ s/\\begin{document}//; #<<<<<	unless ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only') {
	$header =~ s/\\begin{document}//; #<<<<<
	}
my $title = &Apache::lonnet::gettitle($curresline);	my $title = &Apache::lonnet::gettitle($curresline);
$title = &Apache::lonxml::latex_special_symbols($title);	$title = &Apache::lonxml::latex_special_symbols($title);
my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';	my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
Line 2898 sub print_resources {	Line 3420 sub print_resources {
}	}
}	}
$remove_latex_header = 'YES';	$remove_latex_header = 'YES';
}	}
if (&Apache::loncommon::connection_aborted($r)) { last; }	if (&Apache::loncommon::connection_aborted($r)) { last; }
}	}
	# If we are printing incomplete it's possible we don't have
	# anything to print. The print subsystem is not so good at handling
	# that so we're going to generate a stub that says there are no
	# incomplete resources for the person.
	#

	if ($actually_printed == 0) {
	$current_output = &encapsulate_minipage("\\vskip -10mm \nNo incomplete resources\n \\vskip 100 mm { }\n");
	if ($remove_latex_header eq "NO") {
	$current_output = &print_latex_header() . $current_output;
	} else {
	$current_output = &latex_header_footer_remove($current_output);
	}
	}

	if ($syllabus_first) {
	$current_output =~ s/\\\\ Last updated:/Last updated:/
	}
my $courseidinfo = &get_course();	my $courseidinfo = &get_course();
my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');	my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
my $header_line =	my $header_line =
Line 2911 sub print_resources {	Line 3449 sub print_resources {
my $header_start = ($columns_in_format == 1) ? '\lhead'	my $header_start = ($columns_in_format == 1) ? '\lhead'
: '\fancyhead[LO]';	: '\fancyhead[LO]';
$header_line = $header_start.'{'.$header_line.'}';	$header_line = $header_start.'{'.$header_line.'}';
if ($current_output=~/\\documentclass/ && (!$syllabus_first)) {	if ($current_output=~/\\documentclass/) {
$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent$header_line$namepostfix}\\vskip 5 mm /;	$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent$header_line$namepostfix}\\vskip 5 mm /;
} elsif ($syllabus_first) {

$current_output =~ s/\\\\ Last updated:/Last updated:/
} else {	} else {
my $blankpages =	my $blankpages =
'\clearpage\strut\clearpage'x$helper->{'VARS'}->{'EMPTY_PAGES'};	'\clearpage\strut\clearpage'x$helper->{'VARS'}->{'EMPTY_PAGES'};
Line 2938 sub handler {	Line 3473 sub handler {

&init_perm();	&init_perm();



my $helper = printHelper($r);	my $helper = printHelper($r);
if (!ref($helper)) {	if (!ref($helper)) {
return $helper;	return $helper;
Line 2988 sub init_perm {	Line 3521 sub init_perm {
$perm{'pfo'}=&Apache::lonnet::allowed('pfo',	$perm{'pfo'}=&Apache::lonnet::allowed('pfo',
$env{'request.course.id'}.'/'.$env{'request.course.sec'});	$env{'request.course.id'}.'/'.$env{'request.course.sec'});
}	}
	$perm{'vgr'}=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
	if (!$perm{'vgr'}) {
	$perm{'vgr'}=&Apache::lonnet::allowed('vgr',
	$env{'request.course.id'}.'/'.$env{'request.course.sec'});
	}
}	}

sub get_randomly_ordered_warning {	sub get_randomly_ordered_warning {
Line 3059 sub printHelper {	Line 3597 sub printHelper {
$helper->declareVar('PRINT_TYPE');	$helper->declareVar('PRINT_TYPE');
$helper->declareVar("showallfoils");	$helper->declareVar("showallfoils");
$helper->declareVar("STUDENTS");	$helper->declareVar("STUDENTS");
	$helper->declareVar("EXTRASPACE");




# The page breaks can get loaded initially from the course environment:	# The page breaks and extra spaces
	# can get loaded initially from the course environment:
# But we only do this in the initial state so that they are allowed to change.	# 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',	&Apache::loncommon::restore_course_settings('print',
{'pagebreaks' => 'scalar',	{'pagebreaks' => 'scalar',
	'extraspace' => 'scalar',
	'extraspace_units' => 'scalar',
'lastprinttype' => 'scalar'});	'lastprinttype' => 'scalar'});

# This will persistently load in the data we want from the	# This will persistently load in the data we want from the
Line 3081 sub printHelper {	Line 3621 sub printHelper {
if (!defined ($env{"form.CURRENT_STATE"})) {	if (!defined ($env{"form.CURRENT_STATE"})) {

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

}	}
}	}

}	}

# 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'}=~m{^/priv}) {
$helper->{VARS}->{'filename'} = "~$1/$2";	$helper->{VARS}->{'filename'} = $env{'form.postdata'};
$helper->{VARS}->{'construction'} = 1;	$helper->{VARS}->{'construction'} = 1;
} else {	} else {
if ($env{'form.postdata'}) {	if ($env{'form.postdata'}) {
Line 3128 sub printHelper {	Line 3673 sub printHelper {
my ($map, $id, $url);	my ($map, $id, $url);
my $subdir;	my $subdir;
my $is_published=0; # True when printing from resource space.	my $is_published=0; # True when printing from resource space.
	my $res_printable = 1; # By default the current resource is printable.
	my $userCanPrint = ($perm{'pav'} \|\| $perm{'pfo'});

# Get the resource name from construction space	# Get the resource name from construction space
if ($helper->{VARS}->{'construction'}) {	if ($helper->{VARS}->{'construction'}) {
Line 3142 sub printHelper {	Line 3689 sub printHelper {
($map, $id, $url) = &Apache::lonnet::decode_symb($symb);	($map, $id, $url) = &Apache::lonnet::decode_symb($symb);
$helper->{VARS}->{'postdata'} =	$helper->{VARS}->{'postdata'} =
&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url));	&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url));
	my $navmap = Apache::lonnavmaps::navmap->new();
	my $res = $navmap->getBySymb($symb);
	$res_printable = $res->resprintable() \|\| $userCanPrint; #printability in course context
} else {	} else {
	# Resource space.

$url = $helper->{VARS}->{'postdata'};	$url = $helper->{VARS}->{'postdata'};
$is_published=1; # From resource space.	$is_published=1; # From resource space.
}	}
Line 3152 sub printHelper {	Line 3704 sub printHelper {
$resourceTitle = substr($postdata, rindex($postdata, '/') + 1);	$resourceTitle = substr($postdata, rindex($postdata, '/') + 1);
}	}
$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'};
Line 3181 sub printHelper {	Line 3735 sub printHelper {
my $printChoices = [];	my $printChoices = [];
my $paramHash;	my $paramHash;

if ($resourceTitle) {	# If there is a current resource and it is printable
	# Give that as a choice.

	if ($resourceTitle && $res_printable) {
push @{$printChoices}, ["<b><i>$resourceTitle</i></b> (".&mt('the resource you just saw on the screen').")", 'current_document', 'PAGESIZE'];	push @{$printChoices}, ["<b><i>$resourceTitle</i></b> (".&mt('the resource you just saw on the screen').")", 'current_document', 'PAGESIZE'];
}	}


# Useful filter strings	# Useful filter strings
my $isProblem = '($res->is_problem()\|\|$res->contains_problem\|\|$res->is_practice()) ';
	my $isPrintable = ' && $res->resprintable()';

	my $isProblem = '(($res->is_problem()\|\|$res->contains_problem() \|\|$res->is_practice()))';
	$isProblem .= $isPrintable unless $userCanPrint;
$isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden;	$isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden;
my $isProblemOrMap = '$res->is_problem() \|\| $res->contains_problem() \|\| $res->is_sequence() \|\| $res->is_practice()';	my $isProblemOrMap = '($res->is_problem() \|\| $res->contains_problem() \|\| $res->is_sequence() \|\| $res->is_practice())';
my $isNotMap = '!$res->is_sequence()';	$isProblemOrMap .= $isPrintable unless $userCanPrint;
	my $isNotMap = '(!$res->is_sequence())';
	$isNotMap .= $isPrintable unless $userCanPrint;
$isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;	$isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;
my $isMap = '$res->is_map()';	my $isMap = '$res->is_map()';
my $symbFilter = '$res->shown_symb()';	$isMap .= $isPrintable unless $userCanPrint;
	my $symbFilter = '$res->shown_symb() ';
my $urlValue = '$res->link()';	my $urlValue = '$res->link()';

$helper->declareVar('SEQUENCE');	$helper->declareVar('SEQUENCE');
Line 3203 sub printHelper {	Line 3768 sub printHelper {
if ($perm{'pav'}) {	if ($perm{'pav'}) {
$start_new_option =	$start_new_option =
"<option text='".&mt('Start new page<br />before selected').	"<option text='".&mt('Start new page<br />before selected').
"' variable='FINISHPAGE' />";	"' variable='FINISHPAGE' />".
	"<option text='".&mt('Extra space<br />before selected').
	"' variable='EXTRASPACE' type='text' />" .
	"<option " .
	"' variable='POSSIBLE_RESOURCES' type='hidden' />".
	"<option text='".&mt('Space units<br />check for mm').
	"' variable='EXTRASPACE_UNITS' type='checkbox' />"
	;


}	}

# If not construction space user can print the components of a page:	# If not construction space user can print the components of a page:
Line 3263 sub printHelper {	Line 3837 sub printHelper {
if (($helper->{'VAR'}->{'construction'} ne '1' ) &&	if (($helper->{'VAR'}->{'construction'} ne '1' ) &&
$helper->{VARS}->{'postdata'} &&	$helper->{VARS}->{'postdata'} &&
$helper->{VARS}->{'assignment'}) {	$helper->{VARS}->{'assignment'}) {

	# BZ 5209 - Print incomplete problems from sequence:
	# the exact form of this depends on whether or not we are privileged or a mere
	# plebe of s student:

	my $printSelector = 'map_incomplete_problems_seq';
	my $nextState = 'CHOOSE_INCOMPLETE_SEQ';
	my $textSuffix = '';

	if ($userCanPrint) {
	$printSelector = 'map_incomplete_problems_people_seq';
	$nextState = 'CHOOSE_INCOMPLETE_PEOPLE_SEQ';
	$textSuffix = ' for selected students';
	my $helperStates =
	&create_incomplete_folder_selstud_helper($helper, $map);
	&Apache::lonxml::xmlparse($r, 'helper', $helperStates);
	} else {
	my $helperStates = &create_incomplete_folder_helper($helper, $map); # Create needed states for student.
	&Apache::lonxml::xmlparse($r, 'helper', $helperStates);
	}

	push(@{$printChoices},
	[&mt('Selected [_1]Incomplete Problems[_2] from folder [_3]' . $textSuffix,
	'<b>', '</b>',
	'<b><i>'. $sequenceTitle . '</b></i>'),
	$printSelector,
	$nextState]);

# Allow problems from sequence	# Allow problems from sequence
push @{$printChoices},	push @{$printChoices},
[&mt('Selected [_1]Problems[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'),	[&mt('Selected [_1]Problems[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'),
Line 3297 sub printHelper {	Line 3899 sub printHelper {
# If the user has pfo (print for others) allow them to print all	# If the user has pfo (print for others) allow them to print all
# problems and resources in the entire course, optionally for selected students	# problems and resources in the entire course, optionally for selected students
my $post_data = $helper->{VARS}->{'postdata'};	my $post_data = $helper->{VARS}->{'postdata'};

if ($perm{'pfo'} && !$is_published &&	if ($perm{'pfo'} && !$is_published &&
($post_data=~/\/res\// \|\| $post_data =~/\/(syllabus\|smppg\|aboutme\|bulletinboard)$/)) {	($post_data=~/\/res\// \|\| $post_data =~/\/(syllabus\|smppg\|aboutme\|bulletinboard)$/)) {

	# BZ 5209 - incomplete problems from entire course:

	push(@{$printChoices},
	[&mtn('Selected <b>Incomplete Problems</b> from <b>entire course</b> for selected people'),
	'incomplete_problems_selpeople_course', 'INCOMPLETE_PROBLEMS_COURSE_RESOURCES']);
	my $helperFragment = &create_incomplete_course_helper($helper); # Create needed states.

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

	# Selected problems/resources from entire course:

push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b>'), 'all_problems', 'ALL_PROBLEMS'];	push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b>'), 'all_problems', 'ALL_PROBLEMS'];
push @{$printChoices}, [&mtn('Selected <b>Resources</b> from <b>entire course</b>'), 'all_resources', 'ALL_RESOURCES'];	push @{$printChoices}, [&mtn('Selected <b>Resources</b> from <b>entire course</b>'), 'all_resources', 'ALL_RESOURCES'];
push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b> for <b>selected people</b>'), 'all_problems_students', 'ALL_PROBLEMS_STUDENTS'];	push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b> for <b>selected people</b>'), 'all_problems_students', 'ALL_PROBLEMS_STUDENTS'];
Line 3365 ALL_PROBLEMS	Line 3979 ALL_PROBLEMS
}	}

my $randomly_ordered_warning =	my $randomly_ordered_warning =
&get_randomly_ordered_warning($helper,$map);	&get_randomly_ordered_warning($helper, $map);

# resource_selector will hold a few states that:	# resource_selector will hold a few states that:
# - Allow resources to be selected for printing.	# - Allow resources to be selected for printing.
Line 3384 ALL_PROBLEMS	Line 3998 ALL_PROBLEMS
$map,	$map,
$isProblem, '', $symbFilter,	$isProblem, '', $symbFilter,
$start_new_option);	$start_new_option);
$resource_selector .= <<RESOURCE_SELECTOR;	$resource_selector .= &generate_format_selector($helper,
<state name="PRINT_FORMATTING" title="How should results be printed?">	'How should results be printed?',
<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>	'PRINT_FORMATTING').
<choices variable="EMPTY_PAGES">	&generate_resource_chooser('CHOOSE_STUDENTS_PAGE',
<choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice>
<choice computer='1'>Add one empty page/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>
</choices>
<nextstate>PAGESIZE</nextstate>
<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 .= &generate_resource_chooser('CHOOSE_STUDENTS_PAGE',
'Select Problem(s) to print',	'Select Problem(s) to print',
"multichoice='1' addstatus='1' closeallpages ='1'",	"multichoice='1' addstatus='1' closeallpages ='1'",
'RESOURCES',	'RESOURCES',
Line 3514 RESOURCE_SELECTOR	Line 4111 RESOURCE_SELECTOR


if ($helper->{VARS}->{'assignment'}) {	if ($helper->{VARS}->{'assignment'}) {

	# Assignment printing:

push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]selected people[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_students', 'CHOOSE_STUDENTS1'];	push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]selected people[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_students', 'CHOOSE_STUDENTS1'];
push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]CODEd assignments[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_anon', 'CHOOSE_ANON2'];	push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]CODEd assignments[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_anon', 'CHOOSE_ANON2'];
}	}
Line 3532 RESOURCE_SELECTOR	Line 4132 RESOURCE_SELECTOR
$start_new_option	$start_new_option
</resource>	</resource>
</state>	</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>
<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='1'>Add one empty page/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>
</choices>
<nextstate>PAGESIZE</nextstate>
<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

	$resource_selector .= &generate_format_selector($helper,
	'Format of the print job',
	'PRINT_FORMATTING');
&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">
<choices variable='student_sort'>	<choices variable='student_sort'>
Line 3574 CHOOSE_STUDENTS1	Line 4157 CHOOSE_STUDENTS1
<message><br /><hr /> <br /></message>	<message><br /><hr /> <br /></message>
<message><h3>Generate new CODEd Assignments</h3></message>	<message><h3>Generate new CODEd Assignments</h3></message>
<message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message>	<message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message>
<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5">	<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5" noproceed="1">
<validator>	<validator>
if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&	if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&
!\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&	!\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
Line 3582 CHOOSE_STUDENTS1	Line 4165 CHOOSE_STUDENTS1
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {	!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
return "You need to specify the number of assignments to print";	return "You need to specify the number of assignments to print";
}	}
	if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) >= 1) &&
	(\$helper->{'VARS'}{'SINGLE_CODE'} ne '') ) {
	return 'Specifying number of codes to print and a specific code is not compatible';
	}
return undef;	return undef;
</validator>	</validator>
</string>	</string>
Line 3590 CHOOSE_STUDENTS1	Line 4177 CHOOSE_STUDENTS1
<message></td><td></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><tr><td></message>	<message></td></tr><tr><td></message>
<message><b>Bubble sheet type:</b></message>	<message><b>Bubblesheet type:</b></message>
<message></td><td></message>	<message></td><td></message>
<dropdown variable="CODE_OPTION" multichoice="0" allowempty="0">	<dropdown variable="CODE_OPTION" multichoice="0" allowempty="0">
$codechoice	$codechoice
Line 3605 CHOOSE_STUDENTS1	Line 4192 CHOOSE_STUDENTS1
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {	!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'},	return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'},
\$helper->{'VARS'}{'CODE_OPTION'});	\$helper->{'VARS'}{'CODE_OPTION'});
	} elsif (\$helper->{'VARS'}{'SINGLE_CODE'} ne ''){
	return 'Specifying a code name is incompatible specifying number of codes.';
} else {	} else {
return undef; # Other forces control us.	return undef; # Other forces control us.
}	}
Line 3705 CHOOSE_FROM_ANY_SEQUENCE	Line 4294 CHOOSE_FROM_ANY_SEQUENCE
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 (($perm{'pav'} and &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) or	if (($perm{'pav'} and $perm{'vgr'}) or
($helper->{VARS}->{'construction'} eq '1')) {	($helper->{VARS}->{'construction'} eq '1')) {
&addMessage('<br />'	&addMessage('<br />'
.'<h3>'.&mt('Print Options').'</h3>'	.'<h3>'.&mt('Print Options').'</h3>'
Line 3917 FONT_SELECTION	Line 4506 FONT_SELECTION
<choice computer="problem">Homework Problem</choice>	<choice computer="problem">Homework Problem</choice>
<choice computer="exam">Exam Problem</choice>	<choice computer="exam">Exam Problem</choice>
<choice computer="survey">Survey question</choice>	<choice computer="survey">Survey question</choice>
	,choice computer="anonsurvey"Anonymous survey question</choice>
</dropdown>	</dropdown>
PROBTYPE	PROBTYPE
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);	&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
Line 3951 PROBTYPE	Line 4541 PROBTYPE
return $helper;	return $helper;
}	}

$r->print($helper->display());	my $footer;
if ($helper->{STATE} eq 'START') {	if ($helper->{STATE} eq 'START') {
&recently_generated($r);	my $prtspool=$r->dir_config('lonPrtDir');
	$footer = &recently_generated($prtspool);
}	}
	$r->print($helper->display($footer));
&Apache::lonhelper::unregisterHelperTags();	&Apache::lonhelper::unregisterHelperTags();

return OK;	return OK;

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

Removed from v.1.568.2.1
changed lines
	Added in v.1.604