loncom/interface/lonprintout.pm - diff - 1.699

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.698 and 1.699

version 1.698, 2024/11/01 00:08:03	version 1.699, 2024/11/08 20:37:25
Line 75 my $font_size = 'normalsize'; # Default	Line 75 my $font_size = 'normalsize'; # Default

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

##	##
# Filter function to determine if a resource is a printable sequence.	# Filter function to determine if a resource is a printable sequence.
#	#
# @param $res -Resource to check.	# @param $res -Resource to check.
Line 164 sub create_incomplete_folder_selstud_hel	Line 164 sub create_incomplete_folder_selstud_hel
$map,	$map,
$selFilter,	$selFilter,
'',	'',
$symbFilter,	$symbFilter,
'');	'');

my $student_chooser = &generate_student_chooser('CHOOSE_STUDENTS_INCOMPLETE',	my $student_chooser = &generate_student_chooser('CHOOSE_STUDENTS_INCOMPLETE',
Line 177 sub create_incomplete_folder_selstud_hel	Line 177 sub create_incomplete_folder_selstud_hel
'CHOOSE_STUDENTS_INCOMPLETE_FORMAT'); # end state.	'CHOOSE_STUDENTS_INCOMPLETE_FORMAT'); # end state.

return $resource_chooser . $student_chooser . $format_chooser;	return $resource_chooser . $student_chooser . $format_chooser;
}	}


# BZ 5209	# BZ 5209
Line 197 sub create_incomplete_folder_selstud_hel	Line 197 sub create_incomplete_folder_selstud_hel
# helper - Helper we are creating states for.	# helper - Helper we are creating states for.
# Returns:	# Returns:
# Text that can be parsed by the helper.	# Text that can be parsed by the helper.
#	#

sub create_incomplete_course_helper {	sub create_incomplete_course_helper {
my $helper = shift;	my $helper = shift;

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

my $resource_chooser = &generate_resource_chooser('INCOMPLETE_PROBLEMS_COURSE_RESOURCES',	my $resource_chooser = &generate_resource_chooser('INCOMPLETE_PROBLEMS_COURSE_RESOURCES',
'Select problem(s) to print',	'Select problem(s) to print',
'multichoice = "1" suppressEmptySequences="0" addstatus="1" closeallpagtes="1" modallink="1"',	'multichoice = "1" suppressEmptySequences="0" addstatus="1" closeallpagtes="1" modallink="1"',
Line 230 sub create_incomplete_course_helper {	Line 230 sub create_incomplete_course_helper {

}	}

# BZ5209	# BZ5209
# Creates the states needed to run the print helper for a student	# Creates the states needed to run the print helper for a student
# that wants to print his incomplete problems from the current folder.	# that wants to print his incomplete problems from the current folder.
# Parameters:	# Parameters:
Line 258 sub create_incomplete_folder_helper {	Line 258 sub create_incomplete_folder_helper {
'RESOURCES',	'RESOURCES',
'PAGESIZE',	'PAGESIZE',
$map,	$map,
$filter, '',	$filter, '',
$symfilter,	$symfilter,
'');	'');

Line 276 sub create_incomplete_folder_helper {	Line 276 sub create_incomplete_folder_helper {


sub generate_student_chooser {	sub generate_student_chooser {
my ($this_state,	my ($this_state,
$sort_choice,	$sort_choice,
$variable,	$variable,
$next_state) = @_;	$next_state) = @_;
my $result = <<CHOOSE_STUDENTS;	my $result = <<CHOOSE_STUDENTS;
<state name="$this_state" title="Select Students and Resources">	<state name="$this_state" title="Select Students and Resources">
Line 290 sub generate_student_chooser {	Line 290 sub generate_student_chooser {
</choices>	</choices>

<message><br /><hr /><br /> </message>	<message><br /><hr /><br /> </message>
<student multichoice='1'	<student multichoice='1'
variable="$variable"	variable="$variable"
nextstate="$next_state"	nextstate="$next_state"
coursepersonnel="1" />	coursepersonnel="1" />
Line 309 CHOOSE_STUDENTS	Line 309 CHOOSE_STUDENTS
# prompt_text - Text to use to prompt user.	# prompt_text - Text to use to prompt user.
# resource_options - Resource tag options e.g.	# resource_options - Resource tag options e.g.
# "multichoice='1', toponly='1', addstatus='1',	# "multichoice='1', toponly='1', addstatus='1',
# modallink='1'"	# modallink='1'"
# that control the selection and appearance of the	# that control the selection and appearance of the
# resource selector.	# resource selector.
# variable - Name of the variable to hold the choice	# variable - Name of the variable to hold the choice
Line 320 CHOOSE_STUDENTS	Line 320 CHOOSE_STUDENTS
# filter - How to filter the resources.	# filter - How to filter the resources.
# value_func - <valuefunc> function.	# value_func - <valuefunc> function.
# choice_func - If not empty generates a <choicefunc> with this function.	# choice_func - If not empty generates a <choicefunc> with this function.
# start_new_option	# start_new_option
# - Fragment appended after valuefunc.	# - Fragment appended after valuefunc.
#	#
#	#
Line 452 sub generate_common_choosers {	Line 452 sub generate_common_choosers {
my $randomly_ordered_warning =	my $randomly_ordered_warning =
&get_randomly_ordered_warning($helper, $map);	&get_randomly_ordered_warning($helper, $map);

# code for a few states used for printout launched from both	# code for a few states used for printout launched from both
# /adm/navmaps and from a resource by a privileged user:	# /adm/navmaps and from a resource by a privileged user:
# - To allow resources to be selected for printing.	# - To allow resources to be selected for printing.
# - To determine pagination between assignments.	# - To determine pagination between assignments.
Line 574 sub generate_common_choosers {	Line 574 sub generate_common_choosers {
return ($randomly_ordered_warning,$codechoice,$code_selection,$namechoice);	return ($randomly_ordered_warning,$codechoice,$code_selection,$namechoice);
}	}

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

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

sub generate_format_selector {	sub generate_format_selector {
Line 623 RESOURCE_SELECTOR	Line 623 RESOURCE_SELECTOR
# @param \@opens - reference to an array of open dates.	# @param \@opens - reference to an array of open dates.
# @param \@closes - reference to an array of close dates.	# @param \@closes - reference to an array of close dates.
#	#
# @return ($open, $close)	# @return ($open, $close)
#	#
# @note If open/close dates are not defined they will be returned as undef	# @note If open/close dates are not defined they will be returned as undef
# @note It is possible for there to be no overlap in which case -1,-1	# @note It is possible for there to be no overlap in which case -1,-1
# will be returned.	# will be returned.
# @note The algorithm used is to take the latest open date and the earliest end date.	# @note The algorithm used is to take the latest open date and the earliest end date.
#	#
Line 660 sub compute_open_window {	Line 660 sub compute_open_window {
$latest_open = -1;	$latest_open = -1;
$earliest_close = -1;	$earliest_close = -1;
}	}

return ($latest_open, $earliest_close);	return ($latest_open, $earliest_close);

}	}

##	##
Line 689 sub printable {	Line 689 sub printable {
if ($close_date && ($close_date < $now)) {	if ($close_date && ($close_date < $now)) {
return 0;	return 0;
}	}

return 1;	return 1;

}	}
Line 698 sub printable {	Line 698 sub printable {
# Returns the innermost print start/print end dates for a resource.	# Returns the innermost print start/print end dates for a resource.
# This is done by looking at the start/end dates for its parts and choosing	# This is done by looking at the start/end dates for its parts and choosing
# the intersection of those dates.	# the intersection of those dates.
#	#
# @param res - lonnvamaps::resource object that represents the resource.	# @param res - lonnvamaps::resource object that represents the resource.
#	#
# @return (opendate, closedate)	# @return (opendate, closedate)
#	#
# @note If open/close dates are not defined they will be returned as undef	# @note If open/close dates are not defined they will be returned as undef
# @note It is possible for there to be no overlap in which case -1,-1	# @note It is possible for there to be no overlap in which case -1,-1
# will be returned.	# will be returned.
# @note The algorithm used is to take the latest open date and the earliest end date.	# @note The algorithm used is to take the latest open date and the earliest end date.
# For consistency with &printable() in lonnavmaps.pm determination of start	# For consistency with &printable() in lonnavmaps.pm determination of start
Line 822 sub incomplete {	Line 822 sub incomplete {


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


if (defined($navmap)) {	if (defined($navmap)) {
my $res = $navmap->getResourceByUrl($map);	my $res = $navmap->getResourceByUrl($map);
Line 858 sub incomplete {	Line 858 sub incomplete {
# Returns:	# Returns:
# reference to an array of resources that can be passed to	# reference to an array of resources that can be passed to
# print_resources.	# print_resources.
#	#
sub master_seq_to_person_seq {	sub master_seq_to_person_seq {
my ($map, $seq, $who, $code, $nohidemap) = @_;	my ($map, $seq, $who, $code, $nohidemap) = @_;

Line 876 sub master_seq_to_person_seq {	Line 876 sub master_seq_to_person_seq {
if ($nohidemap) {	if ($nohidemap) {
$unhidden = &Apache::lonnet::clutter($map);	$unhidden = &Apache::lonnet::clutter($map);
}	}

my $navmap = Apache::lonnavmaps::navmap->new($username, $userdomain,	my $navmap = Apache::lonnavmaps::navmap->new($username, $userdomain,
$code, $unhidden);	$code, $unhidden);
my ($start,$finish);	my ($start,$finish);
Line 914 sub master_seq_to_person_seq {	Line 914 sub master_seq_to_person_seq {
}	}

return \@output_seq; # for now.	return \@output_seq; # for now.

}	}


Line 937 sub fetch_raw_resource {	Line 937 sub fetch_raw_resource {
}	}
return $contents;	return $contents;


}	}

# Fetch the annotations associated with a URL and	# Fetch the annotations associated with a URL and
# put a centered 'annotations:' title.	# put a centered 'annotations:' title.
# This is all suppressed if the annotations are empty.	# This is all suppressed if the annotations are empty.
#	#
Line 987 sub set_font_size {	Line 987 sub set_font_size {

}	}

# include_pdf - PDF files are included into the	# include_pdf - PDF files are included into the
# output as follows:	# output as follows:
# - The PDF, if necessary, is replicated.	# - The PDF, if necessary, is replicated.
# - The PDF is added to the list of files to convert to postscript (along with the images).	# - The PDF is added to the list of files to convert to postscript (along with the images).
Line 996 sub set_font_size {	Line 996 sub set_font_size {
#	#
# Parameters:	# Parameters:
# pdf_uri - URI of the PDF file to include.	# pdf_uri - URI of the PDF file to include.
#	#
# Returns:	# Returns:
# The LaTeX to include.	# The LaTeX to include.
#	#
Line 1076 sub collect_languages {	Line 1076 sub collect_languages {
# the number of times requested by the caller.	# the number of times requested by the caller.
# If we still have a proble, no text is appended to the	# If we still have a proble, no text is appended to the
# output and we set some global variables.	# output and we set some global variables.
# to indicate to the caller an SSI error occurred.	# to indicate to the caller an SSI error occurred.
# All of this is supposed to deal with the issues described	# All of this is supposed to deal with the issues described
# in LonCAPA BZ 5631 see:	# in LonCAPA BZ 5631 see:
# http://bugs.lon-capa.org/show_bug.cgi?id=5631	# http://bugs.lon-capa.org/show_bug.cgi?id=5631
Line 1086 sub collect_languages {	Line 1086 sub collect_languages {
# resource - The resource to include. This is passed directly, without	# resource - The resource to include. This is passed directly, without
# interpretation to lonnet::ssi.	# interpretation to lonnet::ssi.
# form - The form hash parameters that guide the interpretation of the resource	# form - The form hash parameters that guide the interpretation of the resource
#	#
# retries - Number of retries allowed before giving up completely.	# retries - Number of retries allowed before giving up completely.
# Returns:	# Returns:
# On success, returns the rendered resource identified by the resource parameter.	# On success, returns the rendered resource identified by the resource parameter.
Line 1137 sub get_student_view_with_retries {	Line 1137 sub get_student_view_with_retries {

#	#
# printf_style_subst item format_string repl	# printf_style_subst item format_string repl
#	#
# Does printf style substitution for a format string that	# Does printf style substitution for a format string that
# can have %[n]item in it.. wherever, %[n]item occurs,	# can have %[n]item in it.. wherever, %[n]item occurs,
# rep is substituted in format_string. Note that	# rep is substituted in format_string. Note that
# [n] is an optional integer length. If provided,	# [n] is an optional integer length. If provided,
# repl is truncated to at most [n] characters prior to	# repl is truncated to at most [n] characters prior to
# substitution.	# substitution.
#	#
sub printf_style_subst {	sub printf_style_subst {
Line 1154 sub printf_style_subst {	Line 1154 sub printf_style_subst {
my $subst = $repl;	my $subst = $repl;
if ($size ne "") {	if ($size ne "") {
$subst = substr($subst, 0, $size);	$subst = substr($subst, 0, $size);

# Here's a nice edge case ... suppose the end of the	# Here's a nice edge case ... suppose the end of the
# substring is a \. In that case may have just	# substring is a \. In that case may have just
# chopped off a TeX escape... in that case, we append	# chopped off a TeX escape... in that case, we append
# " " for the trailing character, and let the field	# " " for the trailing character, and let the field
# spill over a bit (sigh).	# spill over a bit (sigh).
# We don't just chop off the last character in order to deal	# We don't just chop off the last character in order to deal
# with one last pathology, and that would be if substr had	# with one last pathology, and that would be if substr had
# trimmed us to e.g. \\\	# trimmed us to e.g. \\\


if ($subst =~ /\\$/) {	if ($subst =~ /\\$/) {
Line 1182 sub printf_style_subst {	Line 1182 sub printf_style_subst {
}	}


# Format a header according to a format.	# Format a header according to a format.
#	#

# Substitutions:	# Substitutions:
# %a - Assignment name.	# %a - Assignment name.
Line 1207 sub format_page_header {	Line 1207 sub format_page_header {
# we assume that each character is about 2mm in width.	# we assume that each character is about 2mm in width.
# (correct for the header text size??). We ignore	# (correct for the header text size??). We ignore
# any formatting (e.g. boldfacing in this).	# any formatting (e.g. boldfacing in this).
#	#
# - Allow the student/course to be one line.	# - Allow the student/course to be one line.
# but only truncate the course.	# but only truncate the course.
# - Allow the assignment to be 2 lines (wrapped).	# - Allow the assignment to be 2 lines (wrapped).
Line 1225 sub format_page_header {	Line 1225 sub format_page_header {
}	}

$format .= '\\\\%c \\\\ %a';	$format .= '\\\\%c \\\\ %a';


}	}
# An open question is how to handle long user formatted page headers...	# An open question is how to handle long user formatted page headers...
Line 1236 sub format_page_header {	Line 1236 sub format_page_header {
$format = &printf_style_subst("c", $format, $course);	$format = &printf_style_subst("c", $format, $course);
$format = &printf_style_subst("n", $format, $student);	$format = &printf_style_subst("n", $format, $student);
$format = &printf_style_subst("s", $format, $section);	$format = &printf_style_subst("s", $format, $section);


# If the user put %'s in the format string, they must be escaped	# If the user put %'s in the format string, they must be escaped
# to \% else LaTeX will think they are comments and terminate	# to \% else LaTeX will think they are comments and terminate
# the line.. which is bad!!!	# the line.. which is bad!!!

# If the user has role author, $course and $assignment are empty so	# If the user has role author, $course and $assignment are empty so
# there is '\\ \\ ' in the page header. That's cause a error in LaTeX	# there is '\\ \\ ' in the page header. That's cause a error in LaTeX
if($format =~ /\\\\\s\\\\\s/) {	if($format =~ /\\\\\s\\\\\s/) {
Line 1264 sub format_page_header {	Line 1264 sub format_page_header {


return $format;	return $format;

}	}

#	#
Line 1312 sub is_valid_numeric_code {	Line 1312 sub is_valid_numeric_code {
# Remove leading/trailing whitespace;	# Remove leading/trailing whitespace;
$value =~ s/^\s*//g;	$value =~ s/^\s*//g;
$value =~ s/\s*$//g;	$value =~ s/\s*$//g;

# All digits?	# All digits?
if ($value !~ /^[0-9]+$/) {	if ($value !~ /^[0-9]+$/) {
return "Numeric code $value has invalid characters - must only be digits";	return "Numeric code $value has invalid characters - must only be digits";
Line 1333 sub is_valid_numeric_code {	Line 1333 sub is_valid_numeric_code {
#	#
sub is_valid_alpha_code {	sub is_valid_alpha_code {
my ($value, $num_letters) = @_;	my ($value, $num_letters) = @_;

# strip leading and trailing spaces.	# strip leading and trailing spaces.

$value =~ s/^\s*//g;	$value =~ s/^\s*//g;
Line 1351 sub is_valid_alpha_code {	Line 1351 sub is_valid_alpha_code {

# Determine if a code entered by the user in a helper is valid.	# Determine if a code entered by the user in a helper is valid.
# valid depends on the code type and the type of code selected.	# valid depends on the code type and the type of code selected.
# The type of code selected can either be numeric or	# The type of code selected can either be numeric or
# Alphabetic. If alphabetic, the code, in fact is a simple	# Alphabetic. If alphabetic, the code, in fact is a simple
# substitution cipher for the actual numeric code: 0->A, 1->B ...	# substitution cipher for the actual numeric code: 0->A, 1->B ...
# We'll be nice and be case insensitive for alpha codes.	# We'll be nice and be case insensitive for alpha codes.
Line 1388 sub is_code_valid {	Line 1388 sub is_code_valid {
#	#
# Compare two students by section (Used to sort by section).	# Compare two students by section (Used to sort by section).
#	#
# Implicit inputs,	# Implicit inputs,
# $a - The first one	# $a - The first one
# $b - The second one.	# $b - The second one.
#	#
Line 1444 sub compare_names {	Line 1444 sub compare_names {
#	#
$f1 =~ s/^\s+//; # Remove leading...	$f1 =~ s/^\s+//; # Remove leading...
$f1 =~ s/\s+$//; # Trailing spaces from first 1...	$f1 =~ s/\s+$//; # Trailing spaces from first 1...

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

Line 1454 sub compare_names {	Line 1454 sub compare_names {
if($f1 gt $f2) {	if($f1 gt $f2) {
return 1;	return 1;
}	}

# Must be the same name.	# Must be the same name.

return 0;	return 0;
Line 1467 sub latex_header_footer_remove {	Line 1467 sub latex_header_footer_remove {
return $text;	return $text;
}	}
#	#
# If necessary, encapsulate text inside	# If necessary, encapsulate text inside
# a minipage env.	# a minipage env.
# necessity is determined by the problem_split param.	# necessity is determined by the problem_split param.
#	#
Line 1491 sub adjust_number_to_print {	Line 1491 sub adjust_number_to_print {
my $helper = shift;	my $helper = shift;

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

if ($split_pdf eq 'all') {	if ($split_pdf eq 'all') {
$helper->{'VARS'}->{'NUMBER_TO_PRINT'} = 'all';	$helper->{'VARS'}->{'NUMBER_TO_PRINT'} = 'all';
} elsif ($split_pdf eq 'oneper') {	} elsif ($split_pdf eq 'oneper') {
Line 1523 sub old_character_chart {	Line 1523 sub old_character_chart {
$result =~ s/&(\#0?34\|quot);/\"/g;	$result =~ s/&(\#0?34\|quot);/\"/g;
$result =~ s/&\#0?35;/\\\#/g;	$result =~ s/&\#0?35;/\\\#/g;
$result =~ s/&\#0?36;/\\\$/g;	$result =~ s/&\#0?36;/\\\$/g;
$result =~ s/&\#0?37;/\\%/g;	$result =~ s/&\#0?37;/\\%/g;
$result =~ s/&(\#0?38\|amp);/\\&/g;	$result =~ s/&(\#0?38\|amp);/\\&/g;
$result =~ s/&\#(0?39\|146);/\'/g;	$result =~ s/&\#(0?39\|146);/\'/g;
$result =~ s/&\#0?40;/(/g;	$result =~ s/&\#0?40;/(/g;
$result =~ s/&\#0?41;/)/g;	$result =~ s/&\#0?41;/)/g;
Line 1631 sub old_character_chart {	Line 1631 sub old_character_chart {
$result =~ s/&(\#160\|nbsp);/~/g;	$result =~ s/&(\#160\|nbsp);/~/g;
$result =~ s/&(\#161\|iexcl);/!\`/g;	$result =~ s/&(\#161\|iexcl);/!\`/g;
$result =~ s/&(\#162\|cent);/\\textcent /g;	$result =~ s/&(\#162\|cent);/\\textcent /g;
$result =~ s/&(\#163\|pound);/\\pounds /g;	$result =~ s/&(\#163\|pound);/\\pounds /g;
$result =~ s/&(\#164\|curren);/\\textcurrency /g;	$result =~ s/&(\#164\|curren);/\\textcurrency /g;
$result =~ s/&(\#165\|yen);/\\textyen /g;	$result =~ s/&(\#165\|yen);/\\textyen /g;
$result =~ s/&(\#166\|brvbar);/\\textbrokenbar /g;	$result =~ s/&(\#166\|brvbar);/\\textbrokenbar /g;
Line 1657 sub old_character_chart {	Line 1657 sub old_character_chart {
$result =~ s/&(\#188\|frac14);/\\textonequarter /g;	$result =~ s/&(\#188\|frac14);/\\textonequarter /g;
$result =~ s/&(\#189\|frac12);/\\textonehalf /g;	$result =~ s/&(\#189\|frac12);/\\textonehalf /g;
$result =~ s/&(\#190\|frac34);/\\textthreequarters /g;	$result =~ s/&(\#190\|frac34);/\\textthreequarters /g;
$result =~ s/&(\#191\|iquest);/?\`/g;	$result =~ s/&(\#191\|iquest);/?\`/g;
$result =~ s/&(\#192\|Agrave);/\\\`{A}/g;	$result =~ s/&(\#192\|Agrave);/\\\`{A}/g;
$result =~ s/&(\#193\|Aacute);/\\\'{A}/g;	$result =~ s/&(\#193\|Aacute);/\\\'{A}/g;
$result =~ s/&(\#194\|Acirc);/\\^{A}/g;	$result =~ s/&(\#194\|Acirc);/\\^{A}/g;
$result =~ s/&(\#195\|Atilde);/\\~{A}/g;	$result =~ s/&(\#195\|Atilde);/\\~{A}/g;
$result =~ s/&(\#196\|Auml);/\\\"{A}/g;	$result =~ s/&(\#196\|Auml);/\\\"{A}/g;
$result =~ s/&(\#197\|Aring);/{\\AA}/g;	$result =~ s/&(\#197\|Aring);/{\\AA}/g;
$result =~ s/&(\#198\|AElig);/{\\AE}/g;	$result =~ s/&(\#198\|AElig);/{\\AE}/g;
$result =~ s/&(\#199\|Ccedil);/\\c{c}/g;	$result =~ s/&(\#199\|Ccedil);/\\c{c}/g;
$result =~ s/&(\#200\|Egrave);/\\\`{E}/g;	$result =~ s/&(\#200\|Egrave);/\\\`{E}/g;
$result =~ s/&(\#201\|Eacute);/\\\'{E}/g;	$result =~ s/&(\#201\|Eacute);/\\\'{E}/g;
$result =~ s/&(\#202\|Ecirc);/\\^{E}/g;	$result =~ s/&(\#202\|Ecirc);/\\^{E}/g;
$result =~ s/&(\#203\|Euml);/\\\"{E}/g;	$result =~ s/&(\#203\|Euml);/\\\"{E}/g;
$result =~ s/&(\#204\|Igrave);/\\\`{I}/g;	$result =~ s/&(\#204\|Igrave);/\\\`{I}/g;
$result =~ s/&(\#205\|Iacute);/\\\'{I}/g;	$result =~ s/&(\#205\|Iacute);/\\\'{I}/g;
$result =~ s/&(\#206\|Icirc);/\\^{I}/g;	$result =~ s/&(\#206\|Icirc);/\\^{I}/g;
$result =~ s/&(\#207\|Iuml);/\\\"{I}/g;	$result =~ s/&(\#207\|Iuml);/\\\"{I}/g;
$result =~ s/&(\#209\|Ntilde);/\\~{N}/g;	$result =~ s/&(\#209\|Ntilde);/\\~{N}/g;
$result =~ s/&(\#210\|Ograve);/\\\`{O}/g;	$result =~ s/&(\#210\|Ograve);/\\\`{O}/g;
$result =~ s/&(\#211\|Oacute);/\\\'{O}/g;	$result =~ s/&(\#211\|Oacute);/\\\'{O}/g;
$result =~ s/&(\#212\|Ocirc);/\\^{O}/g;	$result =~ s/&(\#212\|Ocirc);/\\^{O}/g;
$result =~ s/&(\#213\|Otilde);/\\~{O}/g;	$result =~ s/&(\#213\|Otilde);/\\~{O}/g;
$result =~ s/&(\#214\|Ouml);/\\\"{O}/g;	$result =~ s/&(\#214\|Ouml);/\\\"{O}/g;
$result =~ s/&(\#215\|times);/\\ensuremath\{\\times\}/g;	$result =~ s/&(\#215\|times);/\\ensuremath\{\\times\}/g;
$result =~ s/&(\#216\|Oslash);/{\\O}/g;	$result =~ s/&(\#216\|Oslash);/{\\O}/g;
$result =~ s/&(\#217\|Ugrave);/\\\`{U}/g;	$result =~ s/&(\#217\|Ugrave);/\\\`{U}/g;
$result =~ s/&(\#218\|Uacute);/\\\'{U}/g;	$result =~ s/&(\#218\|Uacute);/\\\'{U}/g;
$result =~ s/&(\#219\|Ucirc);/\\^{U}/g;	$result =~ s/&(\#219\|Ucirc);/\\^{U}/g;
$result =~ s/&(\#220\|Uuml);/\\\"{U}/g;	$result =~ s/&(\#220\|Uuml);/\\\"{U}/g;
Line 1713 sub old_character_chart {	Line 1713 sub old_character_chart {
$result =~ s/&(\#246\|ouml);/\\\"{o}/g;	$result =~ s/&(\#246\|ouml);/\\\"{o}/g;
$result =~ s/&(\#247\|divide);/\\ensuremath\{\\div\}/g;	$result =~ s/&(\#247\|divide);/\\ensuremath\{\\div\}/g;
$result =~ s/&(\#248\|oslash);/{\\o}/g;	$result =~ s/&(\#248\|oslash);/{\\o}/g;
$result =~ s/&(\#249\|ugrave);/\\\`{u}/g;	$result =~ s/&(\#249\|ugrave);/\\\`{u}/g;
$result =~ s/&(\#250\|uacute);/\\\'{u}/g;	$result =~ s/&(\#250\|uacute);/\\\'{u}/g;
$result =~ s/&(\#251\|ucirc);/\\^{u}/g;	$result =~ s/&(\#251\|ucirc);/\\^{u}/g;
$result =~ s/&(\#252\|uuml);/\\\"{u}/g;	$result =~ s/&(\#252\|uuml);/\\\"{u}/g;
Line 1957 sub page_format {	Line 1957 sub page_format {
# "A2 [420x594 mm]", "A3 [297x420 mm]",	# "A2 [420x594 mm]", "A3 [297x420 mm]",
# "A4 [210x297 mm]", "A5 [148x210 mm]",	# "A4 [210x297 mm]", "A5 [148x210 mm]",
# "A6 [105x148 mm]"	# "A6 [105x148 mm]"
#	#
my ($papersize,$layout,$numberofcolumns) = @_;	my ($papersize,$layout,$numberofcolumns) = @_;
return @{$page_formats{$papersize}->{$layout}->{$numberofcolumns}};	return @{$page_formats{$papersize}->{$layout}->{$numberofcolumns}};
}	}

Line 1978 sub get_course {	Line 1978 sub get_course {
if (defined($env{'request.course.id'})) {	if (defined($env{'request.course.id'})) {
$courseidinfo = &Apache::lonxml::latex_special_symbols(&unescape($env{'course.'.$env{'request.course.id'}.'.description'}),'header');	$courseidinfo = &Apache::lonxml::latex_special_symbols(&unescape($env{'course.'.$env{'request.course.id'}.'.description'}),'header');
my $sec = $env{'request.course.sec'};	my $sec = $env{'request.course.sec'};

}	}
return $courseidinfo;	return $courseidinfo;
}	}

sub page_format_transformation {	sub page_format_transformation {
my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment,$tableofcontents,$indexlist,$selectionmade) = @_;	my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment,$tableofcontents,$indexlist,$selectionmade) = @_;
my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin);	my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin);

if ($selectionmade eq '4') {	if ($selectionmade eq '4') {
Line 2028 sub page_format_transformation {	Line 2028 sub page_format_transformation {
}	}
}	}
} 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\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\\usepackage{booktabs}\\begin{document}\n\\voffset=-0\.8 cm\\setcounter{page}{1}\n/;	$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\\usepackage{booktabs}\\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\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 /;
Line 2064 sub page_format_transformation {	Line 2064 sub page_format_transformation {

sub page_cleanup {	sub page_cleanup {
my $result = shift;	my $result = shift;

$result =~ m/\\end\{document}(\d*)$/;	$result =~ m/\\end\{document}(\d*)$/;
my $number_of_columns = $1;	my $number_of_columns = $1;
my $insert = '{';	my $insert = '{';
Line 2116 sub latex_corrections {	Line 2116 sub latex_corrections {
$result =~ s/\$number_of_columns/$number_of_columns/g;	$result =~ s/\$number_of_columns/$number_of_columns/g;
$result =~ s/(\\end\{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]\{\\hrulefill})/$2$1/g;	$result =~ s/(\\end\{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]\{\\hrulefill})/$2$1/g;
$result =~ s/(\\end\{longtable}\s*)\\strut\\newline/$1/g;	$result =~ s/(\\end\{longtable}\s*)\\strut\\newline/$1/g;
#-- LaTeX corrections	#-- LaTeX corrections
my $first_comment = index($result,'<!--',0);	my $first_comment = index($result,'<!--',0);
while ($first_comment != -1) {	while ($first_comment != -1) {
my $end_comment = index($result,'-->',$first_comment);	my $end_comment = index($result,'-->',$first_comment);
Line 2285 sub print_page_in_course {	Line 2285 sub print_page_in_course {
$laystyle = &map_laystyle($laystyle);	$laystyle = &map_laystyle($laystyle);
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,	my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,
$numberofcolumns);	$numberofcolumns);
my $LaTeXwidth=&recalcto_mm($textwidth);	my $LaTeXwidth=&recalcto_mm($textwidth);

if ($mode ne '') {$mode='\\'.$mode}	if ($mode ne '') {$mode='\\'.$mode}
my $result = &print_latex_header($mode);	my $result = &print_latex_header($mode);
Line 2301 sub print_page_in_course {	Line 2301 sub print_page_in_course {
&Apache::lonnet::delenv('construct.style');	&Apache::lonnet::delenv('construct.style');
}	}

# First is the overall page description. This is then followed by the	# First is the overall page description. This is then followed by the
# components of the page. Each of which must be printed independently.	# components of the page. Each of which must be printed independently.
my $the_page = shift(@page_resources);	my $the_page = shift(@page_resources);


foreach my $resource (@page_resources) {	foreach my $resource (@page_resources) {
Line 2315 sub print_page_in_course {	Line 2315 sub print_page_in_course {
if ($resource_src =~ /.page$/i) {	if ($resource_src =~ /.page$/i) {
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my @page_resources = $navmap->retrieveResources($resource_src);	my @page_resources = $navmap->retrieveResources($resource_src);
$result .= &print_page_in_course($helper, $rparmhash,	$result .= &print_page_in_course($helper, $rparmhash,
$resource_src, \@page_resources);	$resource_src, \@page_resources);
} elsif ($resource->ext()) {	} elsif ($resource->ext()) {
$result.=&latex_header_footer_remove(&unsupported($current_url,$mode,$resource->symb));	$result.=&latex_header_footer_remove(&unsupported($current_url,$mode,$resource->symb));
Line 2334 sub print_page_in_course {	Line 2334 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{'pdfFormFields'} = $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'};
$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 2352 sub print_page_in_course {	Line 2352 sub print_page_in_course {
}	}
$form{'rndseed'}=$rndseed;	$form{'rndseed'}=$rndseed;
&Apache::lonnet::appenv(\%moreenv);	&Apache::lonnet::appenv(\%moreenv);

&Apache::lonxml::clear_problem_counter();	&Apache::lonxml::clear_problem_counter();

my $texversion = &ssi_with_retries($urlp, $ssi_retry_count, %form);	my $texversion = &ssi_with_retries($urlp, $ssi_retry_count, %form);
Line 2392 sub print_page_in_course {	Line 2392 sub print_page_in_course {
}	}
$texversion.='\vskip 1 mm '.$answer.'\end{document}';	$texversion.='\vskip 1 mm '.$answer.'\end{document}';
}	}





}	}
# Print annotations.	# Print annotations.

Line 2405 sub print_page_in_course {	Line 2400 sub print_page_in_course {
my $annotation .= &annotate($currentURL);	my $annotation .= &annotate($currentURL);
$texversion =~ s/(\\keephidden\{ENDOFPROBLEM})/$annotation$1/;	$texversion =~ s/(\\keephidden\{ENDOFPROBLEM})/$annotation$1/;
}	}

if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {	if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
$texversion=&IndexCreation($texversion,$currentURL);	$texversion=&IndexCreation($texversion,$currentURL);
}	}
Line 2443 sub recently_generated {	Line 2438 sub recently_generated {
my $pdf_result;	my $pdf_result;
opendir(DIR,$prtspool);	opendir(DIR,$prtspool);

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

Line 2523 sub get_page_breaks {	Line 2518 sub get_page_breaks {
}	}
return %page_breaks;	return %page_breaks;
}	}
#	#
# Returns text to insert for any extra vskip prior to the resource.	# Returns text to insert for any extra vskip prior to the resource.
# Parameters:	# Parameters:
# helper - Reference to the helper object driving the printout.	# helper - Reference to the helper object driving the printout.
Line 2534 sub get_page_breaks {	Line 2529 sub get_page_breaks {
# EXTRASPACE has the list of extra space values.	# EXTRASPACE has the list of extra space values.
# EXTRASPACE_UNITS is the set of resources for which the units are	# EXTRASPACE_UNITS is the set of resources for which the units are
# mm. All others are 'in'.	# mm. All others are 'in'.
#	#
# The resource is found in the POSSIBLE_RESOURCES to get the index	# The resource is found in the POSSIBLE_RESOURCES to get the index
# of the EXTRASPACE value.	# of the EXTRASPACE value.
#	#
Line 2603 sub get_extra_vspaces {	Line 2598 sub get_extra_vspaces {
# The resource chooser part of the helper needs more than just	# The resource chooser part of the helper needs more than just
# the value of the extraspaces var to recover the value into a text	# 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:	# field option. This sub produces the required format for the saved var:
# specifically	# specifically
# \|\|\| separated fields of the form resourcename=value	# \|\|\| separated fields of the form resourcename=value
#	#
# Parameters:	# Parameters:
Line 2637 sub set_form_extraspace {	Line 2632 sub set_form_extraspace {
$env{'form.extraspace'} = $result;	$env{'form.extraspace'} = $result;
$env{'form.extraspace_units'} = $helper->{'VARS'}->{'EXTRASPACE_UNITS'};	$env{'form.extraspace_units'} = $helper->{'VARS'}->{'EXTRASPACE_UNITS'};
return $result;	return $result;

}	}

# Output a sequence (recursively if neeed)	# Output a sequence (recursively if neeed)
Line 2663 sub print_construction_sequence {	Line 2658 sub print_construction_sequence {
}	}
my $errtext=&LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$currentURL));	my $errtext=&LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$currentURL));

#	#
# These make this all support recursing for subsequences.	# These make this all support recursing for subsequences.
#	#
my @order = @LONCAPA::map::order;	my @order = @LONCAPA::map::order;
my @resources = @LONCAPA::map::resources;	my @resources = @LONCAPA::map::resources;

for (my $member=0;$member<=$#order;$member++) {	for (my $member=0;$member<=$#order;$member++) {
$resources[$order[$member]]=~/^([^:]):([^:]):/;	$resources[$order[$member]]=~/^([^:]):([^:]):/;
Line 2683 sub print_construction_sequence {	Line 2678 sub print_construction_sequence {
$texversion=&ssi_with_retries($urlp, $ssi_retry_count, %form);	$texversion=&ssi_with_retries($urlp, $ssi_retry_count, %form);
}	}
if((($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|	if((($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') \|\|
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) &&	($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) &&
($urlp=~/$LONCAPA::assess_page_re/)) {	($urlp=~/$LONCAPA::assess_page_re/)) {
# Don't permanently modify %$form...	# Don't permanently modify %$form...
my %answerform = %form;	my %answerform = %form;
Line 2698 sub print_construction_sequence {	Line 2693 sub print_construction_sequence {
$texversion=~s/(\\keephidden\{ENDOFPROBLEM})/$answer$1/;	$texversion=~s/(\\keephidden\{ENDOFPROBLEM})/$answer$1/;
} else {	} else {
# If necessary, encapsulate answer in minipage:	# If necessary, encapsulate answer in minipage:

$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});	$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
my $title = &Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'});	my $title = &Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'});
$title = &Apache::lonxml::latex_special_symbols($title);	$title = &Apache::lonxml::latex_special_symbols($title);
Line 2720 sub print_construction_sequence {	Line 2715 sub print_construction_sequence {
$result.=$texversion;	$result.=$texversion;

} elsif ($urlp=~/\.(sequence\|page)$/) {	} elsif ($urlp=~/\.(sequence\|page)$/) {

# header:	# header:

$result.='\strut\newline\noindent Sequence/page '.$urlp.'\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent ';	$result.='\strut\newline\noindent Sequence/page '.$urlp.'\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent ';

# IF sequence, recurse:	# IF sequence, recurse:

if ($urlp =~ /\.sequence$/) {	if ($urlp =~ /\.sequence$/) {
$result .= &print_construction_sequence($urlp,	$result .= &print_construction_sequence($urlp,
$helper, %form,	$helper, %form,
$LaTeXwidth);	$LaTeXwidth);
}	}
}	}
Line 2744 sub print_construction_sequence {	Line 2739 sub print_construction_sequence {
if ($member != $#order) {	if ($member != $#order) {
$texversion .= '\\ \cleardoublepage';	$texversion .= '\\ \cleardoublepage';
}	}

$result .= $texversion;	$result .= $texversion;
}	}
}	}
Line 2805 sub output_data {	Line 2800 sub output_data {
url += 'form=' + formname + '&';	url += 'form=' + formname + '&';
if (only != null) {	if (only != null) {
url += 'only=' + only + '&';	url += 'only=' + only + '&';
}	}
if (omit != null) {	if (omit != null) {
url += 'omit=' + omit + '&';	url += 'omit=' + omit + '&';
}	}
Line 2840 ENDPART	Line 2835 ENDPART

$env{'form.pagebreaks'} = $helper->{'VARS'}->{'FINISHPAGE'};	$env{'form.pagebreaks'} = $helper->{'VARS'}->{'FINISHPAGE'};
&set_form_extraspace($helper);	&set_form_extraspace($helper);
$env{'form.lastprinttype'} = $print_type;	$env{'form.lastprinttype'} = $print_type;
&Apache::loncommon::store_course_settings('print',	&Apache::loncommon::store_course_settings('print',
{'pagebreaks' => 'scalar',	{'pagebreaks' => 'scalar',
'extraspace' => 'scalar',	'extraspace' => 'scalar',
Line 2857 ENDPART	Line 2852 ENDPART
$laystyle = &map_laystyle($laystyle);	$laystyle = &map_laystyle($laystyle);
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns);	my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns);
my $assignment = $env{'form.assignment'};	my $assignment = $env{'form.assignment'};
my $LaTeXwidth=&recalcto_mm($textwidth);	my $LaTeXwidth=&recalcto_mm($textwidth);
my @print_array=();	my @print_array=();
my @student_names=();	my @student_names=();


# Common settings for the %form hash:	# Common settings for the %form hash:
# In some cases these settings get overridden by specific cases, but the	# In some cases these settings get overridden by specific cases, but the
# settings are common enough to make it worthwhile factoring them out	# settings are common enough to make it worthwhile factoring them out
Line 2873 ENDPART	Line 2868 ENDPART
$form{'pdfFormFields'} = $pdfFormFields;	$form{'pdfFormFields'} = $pdfFormFields;

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

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

if ($helper->{'VARS'}->{'style_file'}=~/\w/) {	if ($helper->{'VARS'}->{'style_file'}=~/\w/) {
&Apache::lonnet::appenv({'construct.style' =>	&Apache::lonnet::appenv({'construct.style' =>
$helper->{'VARS'}->{'style_file'}});	$helper->{'VARS'}->{'style_file'}});
Line 2935 ENDPART	Line 2930 ENDPART
$texversion.=&ssi_with_retries($currentURL,$ssi_retry_count, %form);	$texversion.=&ssi_with_retries($currentURL,$ssi_retry_count, %form);

# Add annotations if required:	# Add annotations if required:

&Apache::lonxml::clear_problem_counter();	&Apache::lonxml::clear_problem_counter();

&Apache::lonnet::delenv('request.filename');	&Apache::lonnet::delenv('request.filename');
Line 2978 ENDPART	Line 2973 ENDPART




}	}
# Print annotations.	# Print annotations.

Line 3004 ENDPART	Line 2999 ENDPART
&& $currentURL=~/\.(sequence\|page)$/ && $helper->{'VARS'}->{'construction'} eq '1') {	&& $currentURL=~/\.(sequence\|page)$/ && $helper->{'VARS'}->{'construction'} eq '1') {
$result .= &print_construction_sequence($currentURL, $helper, %form,	$result .= &print_construction_sequence($currentURL, $helper, %form,
$LaTeXwidth);	$LaTeXwidth);
$result .= '\end{document}';	$result .= '\end{document}';
if (!($result =~ /\\begin\{document\}/)) {	if (!($result =~ /\\begin\{document\}/)) {
$result = &print_latex_header() . $result;	$result = &print_latex_header() . $result;
}	}
# End construction space sequence.	# End construction space sequence.
} elsif ($cleanURL=~/\/(smppg\|syllabus\|aboutme\|bulletinboard\|ext\.tool)$/) {	} elsif ($cleanURL=~/\/(smppg\|syllabus\|aboutme\|bulletinboard\|ext\.tool)$/) {
$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//;}
if ($currentURL=~/\/ext\.tool$/) {$currentURL=~s/^\/adm\/wrapper//;}	if ($currentURL=~/\/ext\.tool$/) {$currentURL=~s/^\/adm\/wrapper//;}
Line 3045 ENDPART	Line 3040 ENDPART
$result .= &print_page_in_course($helper, $rparmhash,	$result .= &print_page_in_course($helper, $rparmhash,
$cleanURL, \@page_resources);	$cleanURL, \@page_resources);


} else {	} else {
$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'},	$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'},
$helper->{'VARS'}->{'symb'});	$helper->{'VARS'}->{'symb'});
Line 3059 ENDPART	Line 3054 ENDPART
($print_type eq 'select_sequences') or	($print_type eq 'select_sequences') or
($print_type eq 'map_incomplete_problems_seq')	($print_type eq 'map_incomplete_problems_seq')
) {	) {

#-- produce an output string	#-- produce an output string
if (($print_type eq 'map_problems') or	if (($print_type eq 'map_problems') or
($print_type eq 'map_incomplete_problems_seq') or	($print_type eq 'map_incomplete_problems_seq') or
Line 3069 ENDPART	Line 3064 ENDPART
($print_type eq 'map_resources_in_page'))	($print_type eq 'map_resources_in_page'))
{	{
$selectionmade = 3;	$selectionmade = 3;
} elsif (($print_type eq 'all_problems')	} elsif (($print_type eq 'all_problems')
) {	) {
$selectionmade = 4;	$selectionmade = 4;
} elsif ($print_type eq 'all_resources') { #BUGBUG	} elsif ($print_type eq 'all_resources') { #BUGBUG
Line 3134 ENDPART	Line 3129 ENDPART
$texversion.=&ssi_with_retries($urlp, $ssi_retry_count, %form);	$texversion.=&ssi_with_retries($urlp, $ssi_retry_count, %form);
if ($urlp=~/\.page$/) {	if ($urlp=~/\.page$/) {
($texversion,my $number_of_columns_page) = &page_cleanup($texversion);	($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
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';
}	}
Line 3197 ENDPART	Line 3192 ENDPART
$prevassignment=$assignment;	$prevassignment=$assignment;
my $header_text = $parmhash{'print_header_format'};	my $header_text = $parmhash{'print_header_format'};
$header_text = &format_page_header($textwidth, $header_text,	$header_text = &format_page_header($textwidth, $header_text,
$assignment,	$assignment,
$courseidinfo,	$courseidinfo,
$name);	$name);
if ($numberofcolumns eq '1') {	if ($numberofcolumns eq '1') {
$result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{'.$header_text.'}} \vskip 5 mm ';	$result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{'.$header_text.'}} \vskip 5 mm ';
Line 3207 ENDPART	Line 3202 ENDPART
}	}
}	}
$result .= $texversion;	$result .= $texversion;
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
} elsif ($urlp=~/\/(smppg\|syllabus\|aboutme\|bulletinboard\|ext\.tool)$/) {	} elsif ($urlp=~/\/(smppg\|syllabus\|aboutme\|bulletinboard\|ext\.tool)$/) {
$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//;}
if ($urlp=~/\/ext\.tool$/) {$urlp=~s/^\/adm\/wrapper//;}	if ($urlp=~/\/ext\.tool$/) {$urlp=~s/^\/adm\/wrapper//;}
Line 3225 ENDPART	Line 3220 ENDPART
$texversion =~ s/\\end\{document}/\\vskip 0\.5mm\\noindent\\makebox\[\\textwidth\/\$number_of_columns\]\[b\]\{\\hrulefill\}/;	$texversion =~ s/\\end\{document}/\\vskip 0\.5mm\\noindent\\makebox\[\\textwidth\/\$number_of_columns\]\[b\]\{\\hrulefill\}/;
}	}
$result .= $texversion;	$result .= $texversion;
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
} elsif ($urlp=~ /\.pdf$/i) {	} elsif ($urlp=~ /\.pdf$/i) {
if ($i > 0) {	if ($i > 0) {
$result .= '\cleardoublepage';	$result .= '\cleardoublepage';
Line 3256 ENDPART	Line 3251 ENDPART
$texversion =~ s/\\end\{document}//;	$texversion =~ s/\\end\{document}//;
}	}
$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;
}	}
}	}
&Apache::lonxml::clear_problem_counter();	&Apache::lonxml::clear_problem_counter();
Line 3277 ENDPART	Line 3272 ENDPART
($print_type eq 'select_sequences_resources_for_students')) {	($print_type eq 'select_sequences_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 (($print_type eq 'problems_for_students') \|\|	if (($print_type eq 'problems_for_students') \|\|
($print_type eq 'problems_for_students_from_page') \|\|	($print_type eq 'problems_for_students_from_page') \|\|
Line 3298 ENDPART	Line 3293 ENDPART
# to override this and output the students by name.	# to override this and output the students by name.
# Each element of the students array is of the form:	# Each element of the students array is of the form:
# username:domain:section:last, first:status	# username:domain:section:last, first:status
#	#
# Note that student sort is not compatible with printing	# Note that student sort is not compatible with printing
# 1 section per pdf...so that setting overrides.	# 1 section per pdf...so that setting overrides.
#	#
if (($helper->{'VARS'}->{'student_sort'} eq 1) &&	if (($helper->{'VARS'}->{'student_sort'} eq 1) &&
($helper->{'VARS'}->{'SPLIT_PDFS'} ne "sections")) {	($helper->{'VARS'}->{'SPLIT_PDFS'} ne "sections")) {
@students = sort compare_names @students;	@students = sort compare_names @students;
} else {	} else {
@students = sort compare_sections @students;	@students = sort compare_sections @students;
}	}
&adjust_number_to_print($helper);	&adjust_number_to_print($helper);

Line 3314 ENDPART	Line 3309 ENDPART
$helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'all' ) {	$helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'all' ) {
$helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1;	$helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1;
}	}
# If we are splitting on section boundaries, we need	# If we are splitting on section boundaries, we need
# to remember that in split_on_sections and	# to remember that in split_on_sections and
# print all of the students in the list.	# print all of the students in the list.
#	#
my $split_on_sections = 0;	my $split_on_sections = 0;
Line 3409 ENDPART	Line 3404 ENDPART
my ($code_type,$code_length,$bubbles_per_row)=('letter',6,10);	my ($code_type,$code_length,$bubbles_per_row)=('letter',6,10);
foreach my $line (@lines) {	foreach my $line (@lines) {
next if (($line =~ /^\#/) \|\| ($line eq ''));	next if (($line =~ /^\#/) \|\| ($line eq ''));
my ($name,$type,$length,$bubbles_per_item) =	my ($name,$type,$length,$bubbles_per_item) =
(split(/:/,$line))[0,2,4,17];	(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);	chomp($bubbles_per_item);
if (($bubbles_per_item ne '') && ($bubbles_per_item > 0)) {	if (($bubbles_per_item ne '') && ($bubbles_per_item > 0)) {
$bubbles_per_row = $bubbles_per_item;	$bubbles_per_row = $bubbles_per_item;
}	}
}	}
}	}
Line 3481 ENDPART	Line 3476 ENDPART
\|\| $number_per_page eq 'section') {	\|\| $number_per_page eq 'section') {
$number_per_page=$num_todo > 0 ? $num_todo : 1;	$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,$num_todo);	my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,$num_todo);
my $count=0;	my $count=0;
my $nohidemap;	my $nohidemap;
Line 3490 ENDPART	Line 3485 ENDPART
}	}
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);
if ($code_type eq 'number') {	if ($code_type eq 'number') {
$moreenv{'CODE'}=$code;	$moreenv{'CODE'}=$code;
} else {	} else {
$moreenv{'CODE'}=&num_to_letters($code);	$moreenv{'CODE'}=&num_to_letters($code);
Line 3515 ENDPART	Line 3510 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 ($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'};
@list_of_files=sort @list_of_files;	@list_of_files=sort @list_of_files;
my $flag_latex_header_remove = 'NO';	my $flag_latex_header_remove = 'NO';
my $rndseed=time;	my $rndseed=time;
if ($helper->{'VARS'}->{'curseed'}) {	if ($helper->{'VARS'}->{'curseed'}) {
$rndseed=$helper->{'VARS'}->{'curseed'};	$rndseed=$helper->{'VARS'}->{'curseed'};
Line 3575 ENDPART	Line 3570 ENDPART
}	}
if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {	if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
$texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb\|$urlp\| \\strut\\\\\\strut /;	$texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb\|$urlp\| \\strut\\\\\\strut /;

}	}
$result .= $texversion;	$result .= $texversion;
}	}
$flag_latex_header_remove = 'YES';	$flag_latex_header_remove = 'YES';
}	}
if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\typeout)/ RANDOM SEED IS $rndseed $1/;}	if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\typeout)/ RANDOM SEED IS $rndseed $1/;}
$result .= '\end{document}';	$result .= '\end{document}';
Line 3628 ENDPART	Line 3623 ENDPART
}	}
}	}
if ($env{'request.enc'}) {	if ($env{'request.enc'}) {
$url = &Apache::lonenc::encrypted($url);	$url = &Apache::lonenc::encrypted($url);
}	}
if ($url ne '') {	if ($url ne '') {
my $symb = $helper->{VARS}{'symb'};	my $symb = $helper->{VARS}{'symb'};
Line 3663 ENDPART	Line 3658 ENDPART
$result = &collect_languages($result);	$result = &collect_languages($result);


#-- writing .tex file in prtspool	#-- writing .tex file in prtspool
my $temp_file;	my $temp_file;
my $identifier = &Apache::loncommon::get_cgi_id();	my $identifier = &Apache::loncommon::get_cgi_id();
my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout_$identifier.tex";	my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout_$identifier.tex";
if (!($#print_array>0)) {	if (!($#print_array>0)) {
unless ($temp_file = Apache::File->new('>'.$filename)) {	unless ($temp_file = Apache::File->new('>'.$filename)) {
$r->log_error("Couldn't open $filename for output $!");	$r->log_error("Couldn't open $filename for output $!");
return SERVER_ERROR;	return SERVER_ERROR;
}	}
print $temp_file $result;	print $temp_file $result;
my $begin=index($result,'\begin{document}',0);	my $begin=index($result,'\begin{document}',0);
my $inc=substr($result,0,$begin+16);	my $inc=substr($result,0,$begin+16);
} else {	} else {
my $begin=index($result,'\begin{document}',0);	my $begin=index($result,'\begin{document}',0);
my $inc=substr($result,0,$begin+16);	my $inc=substr($result,0,$begin+16);
Line 3683 ENDPART	Line 3678 ENDPART
$print_array[$i]=$result;	$print_array[$i]=$result;
} else {	} else {
$print_array[$i].='\end{document}';	$print_array[$i].='\end{document}';
$print_array[$i] =	$print_array[$i] =
&latex_corrections($number_of_columns,$print_array[$i],	&latex_corrections($number_of_columns,$print_array[$i],
$selectionmade,	$selectionmade,
$helper->{'VARS'}->{'ANSWER_TYPE'});	$helper->{'VARS'}->{'ANSWER_TYPE'});

my $anobegin=index($print_array[$i],'\setcounter{page}',0);	my $anobegin=index($print_array[$i],'\setcounter{page}',0);
substr($print_array[$i],0,$anobegin)='';	substr($print_array[$i],0,$anobegin)='';
$print_array[$i]=$inc.$print_array[$i];	$print_array[$i]=$inc.$print_array[$i];
Line 3695 ENDPART	Line 3690 ENDPART
my $temp_file;	my $temp_file;
my $newfilename=$filename;	my $newfilename=$filename;
my $num=$i+1;	my $num=$i+1;
$newfilename =~s/\.tex$//;	$newfilename =~s/\.tex$//;
$newfilename=sprintf("%s_%03d.tex",$newfilename, $num);	$newfilename=sprintf("%s_%03d.tex",$newfilename, $num);
unless ($temp_file = Apache::File->new('>'.$newfilename)) {	unless ($temp_file = Apache::File->new('>'.$newfilename)) {
$r->log_error("Couldn't open $newfilename for output $!");	$r->log_error("Couldn't open $newfilename for output $!");
return SERVER_ERROR;	return SERVER_ERROR;
}	}
print $temp_file $print_array[$i];	print $temp_file $print_array[$i];
}	}
Line 3737 ENDPART	Line 3732 ENDPART
'cgi.'.$identifier.'.backref' => &escape($URLback),});	'cgi.'.$identifier.'.backref' => &escape($URLback),});
&Apache::lonnet::appenv({"cgi.$identifier.user" => $env{'user.name'},	&Apache::lonnet::appenv({"cgi.$identifier.user" => $env{'user.name'},
"cgi.$identifier.domain" => $env{'user.domain'},	"cgi.$identifier.domain" => $env{'user.domain'},
"cgi.$identifier.courseid" => $cnum,	"cgi.$identifier.courseid" => $cnum,
"cgi.$identifier.coursedom" => $cdom,	"cgi.$identifier.coursedom" => $cdom,
"cgi.$identifier.resources" => $resources_printed});	"cgi.$identifier.resources" => $resources_printed});

my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();
Line 3785 sub get_CODE {	Line 3780 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)=@_;	$LaTeXwidth)=@_;
my $current_output = '';	my $current_output = '';
my $printed = '';	my $printed = '';
my ($username,$userdomain,$usersection) = split /:/,$person;	my ($username,$userdomain,$usersection) = split /:/,$person;
my $fullname = &get_name($username,$userdomain);	my $fullname = &get_name($username,$userdomain);
Line 3812 sub print_resources {	Line 3807 sub print_resources {

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

&Apache::lonxml::clear_problem_counter();	&Apache::lonxml::clear_problem_counter();
my %page_breaks = &get_page_breaks($helper);	my %page_breaks = &get_page_breaks($helper);
my $columns_in_format = (split(/\\|/,$helper->{'VARS'}->{'FORMAT'}))[1];	my $columns_in_format = (split(/\\|/,$helper->{'VARS'}->{'FORMAT'}))[1];
#	#
# end each student with a	# end each student with a
# Special that allows the post processor to even out the page	# Special that allows the post processor to even out the page
# counts later. Nasty problem this... it would be really	# counts later. Nasty problem this... it would be really
# nice to put the special in as a postscript comment	# nice to put the special in as a postscript comment
Line 3847 sub print_resources {	Line 3842 sub print_resources {

# See if we need to emit a new header:	# See if we need to emit a new header:

if ( !($type eq 'problems' &&	if ( !($type eq 'problems' &&
($curresline!~ m/$LONCAPA::assess_page_re/)) ) {	($curresline!~ m/$LONCAPA::assess_page_re/)) ) {
if ($print_incomplete && !&incomplete($username, $userdomain, $res_url)) {	if ($print_incomplete && !&incomplete($username, $userdomain, $res_url)) {
next;	next;
Line 3858 sub print_resources {	Line 3853 sub print_resources {
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)$/) {
$printed .= $curresline.':';	$printed .= $curresline.':';
&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 ($res_url =~ /\.page$/) {
Line 3890 sub print_resources {	Line 3885 sub print_resources {
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {	if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
$rendered=~s/(\\keephidden\{ENDOFPROBLEM})/$ansrendered$1/;	$rendered=~s/(\\keephidden\{ENDOFPROBLEM})/$ansrendered$1/;
} else {	} else {


my $header =&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});	my $header =&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
unless ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only') {	unless ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only') {
$header =~ s/\\begin\{document}//; #<<<<<	$header =~ s/\\begin\{document}//; #<<<<<
Line 3916 sub print_resources {	Line 3909 sub print_resources {
} else {	} else {
$rendered =~ s/\\end\{document}//;	$rendered =~ s/\\end\{document}//;
}	}
$current_output .= $rendered;	$current_output .= $rendered;
} elsif ($res_url=~/\/(smppg\|syllabus\|aboutme\|bulletinboard\|ext\.tool)$/) {	} elsif ($res_url=~/\/(smppg\|syllabus\|aboutme\|bulletinboard\|ext\.tool)$/) {
if ($i == 1) {	if ($i == 1) {
$syllabus_first = 1;	$syllabus_first = 1;
Line 3957 sub print_resources {	Line 3950 sub print_resources {
&Apache::lonnet::gettitle($map), 'header');	&Apache::lonnet::gettitle($map), 'header');
if (($assignment ne $current_assignment) && ($assignment ne "")) {	if (($assignment ne $current_assignment) && ($assignment ne "")) {
my $header_line = &format_page_header($LaTeXwidth, $parmhash{'print_header_format'},	my $header_line = &format_page_header($LaTeXwidth, $parmhash{'print_header_format'},
$assignment, $courseidinfo,	$assignment, $courseidinfo,
$fullname, $usersection);	$fullname, $usersection);
my $header_start = ($columns_in_format == 1) ? '\lhead'	my $header_start = ($columns_in_format == 1) ? '\lhead'
: '\fancyhead[LO]';	: '\fancyhead[LO]';
Line 3990 sub print_resources {	Line 3983 sub print_resources {
} elsif ($print_incomplete) {	} elsif ($print_incomplete) {
$message = &mt('No incomplete resources');	$message = &mt('No incomplete resources');
}	}
if ($message) {	if ($message) {
$current_output = &encapsulate_minipage("\\vskip -10mm \n$message\n \\vskip 100 mm { }\n",$moreenv->{'problem_split'});	$current_output = &encapsulate_minipage("\\vskip -10mm \n$message\n \\vskip 100 mm { }\n",$moreenv->{'problem_split'});
}	}
if ($remove_latex_header eq "NO") {	if ($remove_latex_header eq "NO") {
Line 4013 sub print_resources {	Line 4006 sub print_resources {
$current_output =~ s/\\begin\{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent$newheader$namepostfix}\\vskip 5 mm /;	$current_output =~ s/\\begin\{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent$newheader$namepostfix}\\vskip 5 mm /;

} else {	} else {
my $blankpages =	my $blankpages =
'\clearpage\strut\clearpage'x$helper->{'VARS'}->{'EMPTY_PAGES'};	'\clearpage\strut\clearpage'x$helper->{'VARS'}->{'EMPTY_PAGES'};

$current_output = '\strut\vspace*{-6 mm}\\newline'.	$current_output = '\strut\vspace*{-6 mm}\\newline'.
Line 4054 sub handler {	Line 4047 sub handler {
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 $clientip = &Apache::lonnet::get_requestor_ip($r);	my $clientip = &Apache::lonnet::get_requestor_ip($r);
my ($blocked,$blocktext) =	my ($blocked,$blocktext) =
&Apache::loncommon::blocking_status('printout',$clientip,$cnum,$cdom);	&Apache::loncommon::blocking_status('printout',$clientip,$cnum,$cdom);
if ($blocked) {	if ($blocked) {
my $checkrole = "cm./$cdom/$cnum";	my $checkrole = "cm./$cdom/$cnum";
if ($env{'request.course.sec'} ne '') {	if ($env{'request.course.sec'} ne '') {
$checkrole .= "/$env{'request.course.sec'}";	$checkrole .= "/$env{'request.course.sec'}";
}	}
unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&	unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&
($env{'request.role'} !~ m{^st\./$cdom/$cnum})) {	($env{'request.role'} !~ m{^st\./$cdom/$cnum})) {
&printing_blocked($r,$blocktext);	&printing_blocked($r,$blocktext);
return OK;	return OK;
}	}
}	}
}	}

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


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



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

# If a figure conversion queue file exists for this user.domain	# 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	# we delete it since it can only be bad (if it were good, printout.pl
Line 4089 sub handler {	Line 4079 sub handler {
if(-e $conversion_queuefile) {	if(-e $conversion_queuefile) {
unlink $conversion_queuefile;	unlink $conversion_queuefile;
}	}


&output_data($r,$helper,\%parmhash);	&output_data($r,$helper,\%parmhash);
return OK;	return OK;
Line 4135 sub get_randomly_ordered_warning {	Line 4124 sub get_randomly_ordered_warning {
if (defined($navmap)) {	if (defined($navmap)) {
my $res = $navmap->getResourceByUrl($map);	my $res = $navmap->getResourceByUrl($map);
if ($res) {	if ($res) {
my $func =	my $func =
sub { return ($_[0]->is_map() && $_[0]->randomorder); };	sub { return ($_[0]->is_map() && $_[0]->randomorder); };
my @matches = $navmap->retrieveResources($res, $func,1,1,1);	my @matches = $navmap->retrieveResources($res, $func,1,1,1);

}	}
} else {	} else {
$message = "Retrieval of information about ordering of resources failed.";	$message = "Retrieval of information about ordering of resources failed.";
return '<message type="warning">'.$message.'</message>';	return '<message type="warning">'.$message.'</message>';
}	}
return;	return;
Line 4174 sub printHelper {	Line 4163 sub printHelper {
# write it by hand	# write it by hand

Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});	Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});

my $helper = Apache::lonhelper::helper->new("Printing Helper");	my $helper = Apache::lonhelper::helper->new("Printing Helper");
$helper->declareVar('symb');	$helper->declareVar('symb');
$helper->declareVar('postdata');	$helper->declareVar('postdata');
$helper->declareVar('curseed');	$helper->declareVar('curseed');
$helper->declareVar('probstatus');	$helper->declareVar('probstatus');
$helper->declareVar('filename');	$helper->declareVar('filename');
$helper->declareVar('construction');	$helper->declareVar('construction');
$helper->declareVar('assignment');	$helper->declareVar('assignment');
Line 4191 sub printHelper {	Line 4180 sub printHelper {
$helper->declareVar("STUDENTS");	$helper->declareVar("STUDENTS");
$helper->declareVar("EXTRASPACE");	$helper->declareVar("EXTRASPACE");




# The page breaks and extra spaces	# The page breaks and extra spaces
Line 4199 sub printHelper {	Line 4188 sub printHelper {
# 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.
#	#


&Apache::loncommon::restore_course_settings('print',	&Apache::loncommon::restore_course_settings('print',
{'pagebreaks' => 'scalar',	{'pagebreaks' => 'scalar',
'extraspace' => 'scalar',	'extraspace' => 'scalar',
'extraspace_units' => '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
# very first screen.	# very first screen.

if($helper->{VARS}->{PRINT_TYPE} eq $env{'form.lastprinttype'}) {	if($helper->{VARS}->{PRINT_TYPE} eq $env{'form.lastprinttype'}) {
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} = $env{'form.extraspace'};
$helper->{VARS}->{EXTRASPACE_UNITS} = $env{'form.extraspace_units'};	$helper->{VARS}->{EXTRASPACE_UNITS} = $env{'form.extraspace_units'};
Line 4282 sub printHelper {	Line 4271 sub printHelper {
}	}
if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}	if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}


# Extract map	# Extract map
my $symb = $helper->{VARS}->{'symb'};	my $symb = $helper->{VARS}->{'symb'};
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 $res_printable = 1; # By default the current resource is printable.
my $res_error;	my $res_error;
my $userCanPrint = ($perm{'pav'} \|\| $perm{'pfo'});	my $userCanPrint = ($perm{'pav'} \|\| $perm{'pfo'});
my $res_printstartdate;	my $res_printstartdate;
Line 4300 sub printHelper {	Line 4288 sub printHelper {

# Get the resource name from construction space	# Get the resource name from construction space
if ($helper->{VARS}->{'construction'}) {	if ($helper->{VARS}->{'construction'}) {
$resourceTitle = substr($helper->{VARS}->{'filename'},	$resourceTitle = substr($helper->{VARS}->{'filename'},
rindex($helper->{VARS}->{'filename'}, '/')+1);	rindex($helper->{VARS}->{'filename'}, '/')+1);
$subdir = substr($helper->{VARS}->{'filename'},	$subdir = substr($helper->{VARS}->{'filename'},
0, rindex($helper->{VARS}->{'filename'}, '/') + 1);	0, rindex($helper->{VARS}->{'filename'}, '/') + 1);
Line 4309 sub printHelper {	Line 4297 sub printHelper {

if ($symb ne '') {	if ($symb ne '') {
($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));
} elsif (($helper->{VARS}->{'postdata'} eq '/adm/navmaps') &&	} elsif (($helper->{VARS}->{'postdata'} eq '/adm/navmaps') &&
($env{'request.course.id'} ne '')) {	($env{'request.course.id'} ne '')) {
Line 4335 sub printHelper {	Line 4323 sub printHelper {
($course_open, $course_close) = &course_print_dates($res);	($course_open, $course_close) = &course_print_dates($res);
($map_open, $map_close) = &map_print_dates($res);	($map_open, $map_close) = &map_print_dates($res);
} else {	} else {
$res_error = 1;	$res_error = 1;
}	}
} else {	} else {
$res_error = 1;	$res_error = 1;
Line 4394 sub printHelper {	Line 4382 sub printHelper {

if ($resourceTitle && $res_printable) {	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

Line 4419 sub printHelper {	Line 4407 sub printHelper {

my $start_new_option;	my $start_new_option;
if ($perm{'pav'}) {	if ($perm{'pav'}) {
$start_new_option =	$start_new_option =
"<option text='".&mt('Start new page[_1]before selected','<br />').	"<option text='".&mt('Start new page[_1]before selected','<br />').
"' variable='FINISHPAGE' />".	"' variable='FINISHPAGE' />".
"<option text='".&mt('Extra space[_1]before selected','<br />').	"<option text='".&mt('Extra space[_1]before selected','<br />').
Line 4429 sub printHelper {	Line 4417 sub printHelper {
"<option text='".&mt('Space units[_1]check for mm','<br />').	"<option text='".&mt('Space units[_1]check for mm','<br />').
"' variable='EXTRASPACE_UNITS' type='checkbox' />"	"' 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 4449 sub printHelper {	Line 4435 sub printHelper {
my $resourcesymb = $page_resources[0]->symb();	my $resourcesymb = $page_resources[0]->symb();
my ($pagemap, $pageid, $pageurl) = &Apache::lonnet::decode_symb($symb);	my ($pagemap, $pageid, $pageurl) = &Apache::lonnet::decode_symb($symb);
if ($page_ispage) {	if ($page_ispage) {
push @{$printChoices},	push @{$printChoices},
[&mt('Selected [_1]Problems[_2] from page [_3]', '<b>', '</b>', '<b><i>'.$page_title.'</i></b>'),	[&mt('Selected [_1]Problems[_2] from page [_3]', '<b>', '</b>', '<b><i>'.$page_title.'</i></b>'),
'map_problems_in_page',	'map_problems_in_page',
'CHOOSE_PROBLEMS_PAGE'];	'CHOOSE_PROBLEMS_PAGE'];
push @{$printChoices},	push @{$printChoices},
[&mt('Selected [_1]Resources[_2] from page [_3]', '<b>', '</b>', '<b><i>'.$page_title.'</i></b>'),	[&mt('Selected [_1]Resources[_2] from page [_3]', '<b>', '</b>', '<b><i>'.$page_title.'</i></b>'),
'map_resources_in_page',	'map_resources_in_page',
'CHOOSE_RESOURCES_PAGE'];	'CHOOSE_RESOURCES_PAGE'];
}	}
my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS_PAGE',	my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS_PAGE',
Line 4509 sub printHelper {	Line 4495 sub printHelper {
$nextState = 'CHOOSE_INCOMPLETE_PEOPLE_SEQ';	$nextState = 'CHOOSE_INCOMPLETE_PEOPLE_SEQ';
$textSuffix = ' for selected students';	$textSuffix = ' for selected students';
my $helperStates =	my $helperStates =
&create_incomplete_folder_selstud_helper($helper, $map, $nocurrloc);	&create_incomplete_folder_selstud_helper($helper, $map, $nocurrloc);
&Apache::lonxml::xmlparse($r, 'helper', $helperStates);	&Apache::lonxml::xmlparse($r, 'helper', $helperStates);
} else {	} else {
if (&printable($map_open, $map_close)) {	if (&printable($map_open, $map_close)) {
Line 4540 sub printHelper {	Line 4526 sub printHelper {
} else {	} else {
$optionText = &mt('Selected [_1]Problems[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>');	$optionText = &mt('Selected [_1]Problems[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>');
}	}
push @{$printChoices},	push @{$printChoices},
[$optionText,	[$optionText,
'map_problems',	'map_problems',
'CHOOSE_PROBLEMS'];	'CHOOSE_PROBLEMS'];
# Allow all resources from sequence	# Allow all resources from sequence
if ($helper->{VARS}->{'postdata'} eq '/adm/navmaps') {	if ($helper->{VARS}->{'postdata'} eq '/adm/navmaps') {
Line 4550 sub printHelper {	Line 4536 sub printHelper {
} else {	} else {
$optionText = &mt('Selected [_1]Resources[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>');	$optionText = &mt('Selected [_1]Resources[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>');
}	}
push @{$printChoices}, [$optionText,	push @{$printChoices}, [$optionText,
'map_problems_pages',	'map_problems_pages',
'CHOOSE_PROBLEMS_HTML'];	'CHOOSE_PROBLEMS_HTML'];
my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS',	my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS',
'Select Problem(s) to print',	'Select Problem(s) to print',
Line 4571 sub printHelper {	Line 4557 sub printHelper {
$isNotMap, '',	$isNotMap, '',
$symbFilter,	$symbFilter,
$start_new_option);	$start_new_option);

&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);	&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
} else {	} else {
# TODO: Figure out how to tell them the folder is not printable.	# TODO: Figure out how to tell them the folder is not printable.
}	}
}	}
# 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)$/)) {

Line 4610 my $suffixXml = <<ALL_PROBLEMS;	Line 4596 my $suffixXml = <<ALL_PROBLEMS;
<student multichoice='1' variable="STUDENTS" nextstate="PRINT_FORMATTING" coursepersonnel="1"/>	<student multichoice='1' variable="STUDENTS" nextstate="PRINT_FORMATTING" coursepersonnel="1"/>
</state>	</state>
ALL_PROBLEMS	ALL_PROBLEMS
&Apache::lonxml::xmlparse($r, 'helper',	&Apache::lonxml::xmlparse($r, 'helper',
&generate_resource_chooser('ALL_PROBLEMS',	&generate_resource_chooser('ALL_PROBLEMS',
'Select Problem(s) to print',	'Select Problem(s) to print',
'multichoice="1" suppressEmptySequences="0" addstatus="1" closeallpages="1" modallink="1"',	'multichoice="1" suppressEmptySequences="0" addstatus="1" closeallpages="1" modallink="1"',
Line 4653 ALL_PROBLEMS	Line 4639 ALL_PROBLEMS
'problems_for_anon_page', 'CHOOSE_ANON1_PAGE'];	'problems_for_anon_page', 'CHOOSE_ANON1_PAGE'];
}	}
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]selected people[_5]',	push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]selected people[_5]',
'<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'),	'<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'),
'problems_for_students', 'CHOOSE_STUDENTS'];	'problems_for_students', 'CHOOSE_STUDENTS'];
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]CODEd assignments[_5]',	push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]CODEd assignments[_5]',
'<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'),	'<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'),
'problems_for_anon', 'CHOOSE_ANON1'];	'problems_for_anon', 'CHOOSE_ANON1'];
}	}

Line 4686 ALL_PROBLEMS	Line 4672 ALL_PROBLEMS
$randomly_ordered_warning	$randomly_ordered_warning
<nextstate>PRINT_FORMATTING</nextstate>	<nextstate>PRINT_FORMATTING</nextstate>
<message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>	<message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
<resource variable="RESOURCES" multichoice="1" addstatus="1"	<resource variable="RESOURCES" multichoice="1" addstatus="1"
closeallpages="1" modallink="1">	closeallpages="1" modallink="1">
<filterfunc>return $isNotMap;</filterfunc>	<filterfunc>return $isNotMap;</filterfunc>
<mapurl>$map</mapurl>	<mapurl>$map</mapurl>
Line 4797 CHOOSE_ANON2	Line 4783 CHOOSE_ANON2
<nextstate>PAGESIZE</nextstate>	<nextstate>PAGESIZE</nextstate>
<filechoice>return '$subdir';</filechoice>	<filechoice>return '$subdir';</filechoice>
CHOOSE_FROM_SUBDIR	CHOOSE_FROM_SUBDIR

# this is broken up because I really want interpolation above,	# this is broken up because I really want interpolation above,
# and I really DON'T want it below	# and I really DON'T want it below
$xmlfrag .= <<'CHOOSE_FROM_SUBDIR';	$xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
Line 5023 CHOOSE_FROM_ANY_SEQUENCE	Line 5009 CHOOSE_FROM_ANY_SEQUENCE

if ($noprintmsg) {	if ($noprintmsg) {
$paramHash = Apache::lonhelper::getParamHash();	$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{MESSAGE_TEXT} =	$paramHash->{MESSAGE_TEXT} =
'<p class="LC_info">'.$noprintmsg.'</p>';	'<p class="LC_info">'.$noprintmsg.'</p>';
Apache::lonhelper::message->new();	Apache::lonhelper::message->new();
}	}
Line 5052 CHOOSE_FROM_ANY_SEQUENCE	Line 5038 CHOOSE_FROM_ANY_SEQUENCE
)	)
);	);
$paramHash = Apache::lonhelper::getParamHash();	$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{'variable'} = 'ANSWER_TYPE';	$paramHash->{'variable'} = 'ANSWER_TYPE';
$helper->declareVar('ANSWER_TYPE');	$helper->declareVar('ANSWER_TYPE');
$paramHash->{CHOICES} = [	$paramHash->{CHOICES} = [
['Without Answers', 'yes'],	['Without Answers', 'yes'],
['With Answers', 'no'],	['With Answers', 'no'],
Line 5071 CHOOSE_FROM_ANY_SEQUENCE	Line 5057 CHOOSE_FROM_ANY_SEQUENCE
&addMessage(&Apache::lonhtmlcommon::row_title(&mt('Font Size')));	&addMessage(&Apache::lonhtmlcommon::row_title(&mt('Font Size')));
my $xmlfrag = << "FONT_SELECTION";	my $xmlfrag = << "FONT_SELECTION";


<dropdown variable='fontsize' multichoice='0' allowempty='0'>	<dropdown variable='fontsize' multichoice='0' allowempty='0'>
<defaultvalue>	<defaultvalue>
return 'normalsize';	return 'normalsize';
Line 5108 FONT_SELECTION	Line 5094 FONT_SELECTION
);	);
}	}
$paramHash = Apache::lonhelper::getParamHash();	$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{'variable'} = 'LATEX_TYPE';	$paramHash->{'variable'} = 'LATEX_TYPE';
$helper->declareVar('LATEX_TYPE');	$helper->declareVar('LATEX_TYPE');
if ($helper->{VARS}->{'construction'} eq '1') {	if ($helper->{VARS}->{'construction'} eq '1') {
$paramHash->{CHOICES} = [	$paramHash->{CHOICES} = [
['standard LaTeX mode', 'standard'],	['standard LaTeX mode', 'standard'],
['LaTeX batchmode', 'batchmode'], ];	['LaTeX batchmode', 'batchmode'], ];
} else {	} else {
$paramHash->{CHOICES} = [	$paramHash->{CHOICES} = [
Line 5120 FONT_SELECTION	Line 5106 FONT_SELECTION
['standard LaTeX mode', 'standard'] ];	['standard LaTeX mode', 'standard'] ];
}	}
Apache::lonhelper::dropdown->new();	Apache::lonhelper::dropdown->new();

&addMessage(&Apache::lonhtmlcommon::row_closure()	&addMessage(&Apache::lonhtmlcommon::row_closure()
.&Apache::lonhtmlcommon::row_title(	.&Apache::lonhtmlcommon::row_title(
'<label for="TABLE_CONTENTS_forminput">'	'<label for="TABLE_CONTENTS_forminput">'
Line 5129 FONT_SELECTION	Line 5115 FONT_SELECTION
)	)
);	);
$paramHash = Apache::lonhelper::getParamHash();	$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{'variable'} = 'TABLE_CONTENTS';	$paramHash->{'variable'} = 'TABLE_CONTENTS';
$helper->declareVar('TABLE_CONTENTS');	$helper->declareVar('TABLE_CONTENTS');
$paramHash->{CHOICES} = [	$paramHash->{CHOICES} = [
['No', 'no'],	['No', 'no'],
['Yes', 'yes'] ];	['Yes', 'yes'] ];
Apache::lonhelper::dropdown->new();	Apache::lonhelper::dropdown->new();
&addMessage(&Apache::lonhtmlcommon::row_closure());	&addMessage(&Apache::lonhtmlcommon::row_closure());

if (not $helper->{VARS}->{'construction'}) {	if (not $helper->{VARS}->{'construction'}) {
&addMessage(&Apache::lonhtmlcommon::row_title(	&addMessage(&Apache::lonhtmlcommon::row_title(
'<label for="TABLE_INDEX_forminput">'	'<label for="TABLE_INDEX_forminput">'
Line 5145 FONT_SELECTION	Line 5131 FONT_SELECTION
)	)
);	);
$paramHash = Apache::lonhelper::getParamHash();	$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{'variable'} = 'TABLE_INDEX';	$paramHash->{'variable'} = 'TABLE_INDEX';
$helper->declareVar('TABLE_INDEX');	$helper->declareVar('TABLE_INDEX');
$paramHash->{CHOICES} = [	$paramHash->{CHOICES} = [
['No', 'no'],	['No', 'no'],
['Yes', 'yes'] ];	['Yes', 'yes'] ];
Line 5159 FONT_SELECTION	Line 5145 FONT_SELECTION
)	)
);	);
$paramHash = Apache::lonhelper::getParamHash();	$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{'variable'} = 'PRINT_DISCUSSIONS';	$paramHash->{'variable'} = 'PRINT_DISCUSSIONS';
$helper->declareVar('PRINT_DISCUSSIONS');	$helper->declareVar('PRINT_DISCUSSIONS');
$paramHash->{CHOICES} = [	$paramHash->{CHOICES} = [
['No', 'no'],	['No', 'no'],
['Yes', 'yes'] ];	['Yes', 'yes'] ];
Line 5194 FONT_SELECTION	Line 5180 FONT_SELECTION
&addMessage(&Apache::lonhtmlcommon::row_closure(1));	&addMessage(&Apache::lonhtmlcommon::row_closure(1));
}	}

if ($helper->{'VARS'}->{'construction'}) {	if ($helper->{'VARS'}->{'construction'}) {
my $stylevalue='$Apache::lonnet::env{"construct.style"}';	my $stylevalue='$Apache::lonnet::env{"construct.style"}';
my $randseedtext=&mt("Use random seed");	my $randseedtext=&mt("Use random seed");
my $stylefiletext=&mt("Use style file");	my $stylefiletext=&mt("Use style file");
Line 5285 PROBTYPE	Line 5271 PROBTYPE
# If we're in the "final" state, bailout and return to handler	# If we're in the "final" state, bailout and return to handler
if ($helper->{STATE} eq 'FINAL') {	if ($helper->{STATE} eq 'FINAL') {
return $helper;	return $helper;
}	}

my $footer;	my $footer;
if ($helper->{STATE} eq 'START') {	if ($helper->{STATE} eq 'START') {
my $prtspool=$r->dir_config('lonPrtDir');	my $prtspool=$r->dir_config('lonPrtDir');
$footer = &recently_generated($prtspool);	$footer = &recently_generated($prtspool);
}	}
$r->print($helper->display($footer));	$r->print($helper->display($footer));
Line 5309 package Apache::lonprintout::page_format	Line 5295 package Apache::lonprintout::page_format

See lonhelper.pm documentation for discussion of the helper framework.	See lonhelper.pm documentation for discussion of the helper framework.

Apache::lonprintout::page_format_state is an element that gives the	Apache::lonprintout::page_format_state is an element that gives the
user an opportunity to select the page layout they wish to print	user an opportunity to select the page layout they wish to print
with: Number of columns, portrait/landscape, and paper size. If you	with: Number of columns, portrait/landscape, and paper size. If you
want to change the paper size choices, change the @paperSize array	want to change the paper size choices, change the @paperSize array
contents in this package.	contents in this package.

page_format_state is always directly invoked in lonprintout.pm, so there	page_format_state is always directly invoked in lonprintout.pm, so there
Line 5336 use Apache::lonnet;	Line 5322 use Apache::lonnet;

my $maxColumns = 2;	my $maxColumns = 2;
# it'd be nice if these all worked	# it'd be nice if these all worked
#my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",	#my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",
# "tabloid (ledger) [11x17 in]", "executive [7 1/2x10 in]",	# "tabloid (ledger) [11x17 in]", "executive [7 1/2x10 in]",
# "a2 [420x594 mm]", "a3 [297x420 mm]", "a4 [210x297 mm]",	# "a2 [420x594 mm]", "a3 [297x420 mm]", "a4 [210x297 mm]",
# "a5 [148x210 mm]", "a6 [105x148 mm]" );	# "a5 [148x210 mm]", "a6 [105x148 mm]" );
my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",	my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",
"a4 [210x297 mm]");	"a4 [210x297 mm]");

# Tentative format: Orientation (L = Landscape, P = portrait) \| Colnum \|	# Tentative format: Orientation (L = Landscape, P = portrait) \| Colnum \|
# Paper type	# Paper type

sub new {	sub new {
my $self = Apache::lonhelper::element->new();	my $self = Apache::lonhelper::element->new();

shift;	shift;
Line 5371 sub render {	Line 5357 sub render {
my $pdfFormLabel=&mt('PDF Form Fields');	my $pdfFormLabel=&mt('PDF Form Fields');
my $with=&mt('with Form Fields');	my $with=&mt('with Form Fields');
my $without=&mt('without Form Fields');	my $without=&mt('without Form Fields');


$result.='<h3>'.&mt('Layout Options').'</h3>'	$result.='<h3>'.&mt('Layout Options').'</h3>'
.&Apache::loncommon::start_data_table()	.&Apache::loncommon::start_data_table()
Line 5438 sub postprocess {	Line 5424 sub postprocess {

my $var = $self->{'variable'};	my $var = $self->{'variable'};
my $helper = Apache::lonhelper->getHelper();	my $helper = Apache::lonhelper->getHelper();
$helper->{VARS}->{$var} =	$helper->{VARS}->{$var} =
$env{"form.$var.layout"} . '\|' . $env{"form.$var.cols"} . '\|' .	$env{"form.$var.layout"} . '\|' . $env{"form.$var.cols"} . '\|' .
$env{"form.$var.paper"} . '\|' . $env{"form.$var.pdfFormFields"};	$env{"form.$var.paper"} . '\|' . $env{"form.$var.pdfFormFields"};
return 1;	return 1;
Line 5454 package Apache::lonprintout::page_size_s	Line 5440 package Apache::lonprintout::page_size_s

See lonhelper.pm documentation for discussion of the helper framework.	See lonhelper.pm documentation for discussion of the helper framework.

Apache::lonprintout::page_size_state is an element that gives the	Apache::lonprintout::page_size_state is an element that gives the
user the opportunity to further refine the page settings if they	user the opportunity to further refine the page settings if they
select a single-column page.	select a single-column page.

Line 5477 use strict;	Line 5463 use strict;



sub new {	sub new {
my $self = Apache::lonhelper::element->new();	my $self = Apache::lonhelper::element->new();

shift; # disturbs me (probably prevents subclassing) but works (drops	shift; # disturbs me (probably prevents subclassing) but works (drops
Line 5487 sub new {	Line 5473 sub new {
my $helper = Apache::lonhelper::getHelper();	my $helper = Apache::lonhelper::getHelper();
$helper->declareVar($self->{'variable'});	$helper->declareVar($self->{'variable'});

# The variable name of the format element, so we can look into	# The variable name of the format element, so we can look into
# $helper->{VARS} to figure out whether the columns are one or two	# $helper->{VARS} to figure out whether the columns are one or two
$self->{'formatvar'} = shift;	$self->{'formatvar'} = shift;

Line 5527 sub render {	Line 5513 sub render {
$size{'height_and_units'},	$size{'height_and_units'},
$size{'margin_and_units'})=	$size{'margin_and_units'})=
&Apache::lonprintout::page_format($papersize, $laystyle, $cols);	&Apache::lonprintout::page_format($papersize, $laystyle, $cols);

foreach my $dimension ('width','height','margin') {	foreach my $dimension ('width','height','margin') {
($size{$dimension},$size{$dimension.'_unit'}) =	($size{$dimension},$size{$dimension.'_unit'}) =
split(/ +/, $size{$dimension.'_and_units'},2);	split(/ +/, $size{$dimension.'_and_units'},2);
Line 5612 sub preprocess {	Line 5598 sub preprocess {

foreach my $dim ('width', 'height', 'lmargin') {	foreach my $dim ('width', 'height', 'lmargin') {
my ($value, $units) = split(/ /, $size{$dim});	my ($value, $units) = split(/ /, $size{$dim});

$helper->{VARS}->{"$var.".$dim} = $value;	$helper->{VARS}->{"$var.".$dim} = $value;
$helper->{VARS}->{"$var.".$dim.'unit'} = $units;	$helper->{VARS}->{"$var.".$dim.'unit'} = $units;

}	}


Line 5623 sub preprocess {	Line 5609 sub preprocess {

$helper->changeState($self->{NEXTSTATE});	$helper->changeState($self->{NEXTSTATE});
}	}

return 1;	return 1;
}	}

Line 5632 sub postprocess {	Line 5618 sub postprocess {

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

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

# /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed	# /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed
# by an optional period, followed by digits, ending the string	# by an optional period, followed by digits, ending the string

if ($width !~ /^-?[0-9](\.[0-9])?$/) {	if ($width !~ /^-?[0-9](\.[0-9])?$/) {

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