|
version 1.570, 2010/01/12 11:49:46
|
version 1.590, 2011/06/06 10:53:09
|
|
Line 1
|
Line 1
|
| # |
|
| # The LearningOnline Network |
# The LearningOnline Network |
| # Printout |
# Printout |
| # |
# |
|
Line 45 use Apache::londefdef;
|
Line 45 use Apache::londefdef;
|
| use File::Basename; |
use File::Basename; |
| |
|
| use HTTP::Response; |
use HTTP::Response; |
| |
|
| use LONCAPA::map(); |
use LONCAPA::map(); |
| use POSIX qw(strftime); |
use POSIX qw(strftime); |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| use Carp; |
use Carp; |
| use LONCAPA; |
use LONCAPA; |
| |
|
| |
|
| my %perm; |
my %perm; |
| my %parmhash; |
my %parmhash; |
| my $resources_printed; |
my $resources_printed; |
|
Line 76 my $font_size = 'normalsize'; # Default
|
Line 76 my $font_size = 'normalsize'; # Default
|
| |
|
| #---------------------------- Helper helpers. ------------------------- |
#---------------------------- Helper helpers. ------------------------- |
| |
|
| # Returns the text needd for a student chooser. |
# BZ5209: |
| |
# Create the states needed to run the helper for incomplete problems from |
| |
# the current folder for selected students. |
| |
# This includes: |
| |
# - A resource selector limited to problems (incompleteness must be |
| |
# calculated on a student per student basis. |
| |
# - A student selector. |
| |
# - Tie in to the FORMAT of the print job. |
| |
# |
| |
# States: |
| |
# CHOOSE_INCOMPLETE_PEOPLE_SEQ - Resource selection. |
| |
# CHOOSE_STUDENTS_INCOMPLETE - Student selection. |
| |
# CHOOSE_STUDENTS_INCOMPLETE_FORMAT - Format selection |
| |
# Parameters: |
| |
# helper - the helper which already contains info about the current folder we can |
| |
# purloin. |
| |
# url - Top url of the sequence |
| |
# Return: |
| |
# XML that can be parsed by the helper to drive the state machine. |
| |
# |
| |
sub create_incomplete_folder_selstud_helper($helper) |
| |
{ |
| |
my ($helper, $map) = @_; |
| |
|
| |
|
| |
my $symbFilter = '$res->shown_symb()'; |
| |
my $selFilter = '$res->is_problem()'; |
| |
|
| |
|
| |
my $resource_chooser = &generate_resource_chooser('CHOOSE_INCOMPLETE_PEOPLE_SEQ', |
| |
'Select problem(s) to print', |
| |
'multichoice="1" toponly="1" addstatus="1" closeallpages="1"', |
| |
'RESOURCES', |
| |
'CHOOSE_STUDENTS_INCOMPLETE', |
| |
$map, |
| |
$selFilter, |
| |
'', |
| |
$symbFilter, |
| |
''); |
| |
|
| |
my $student_chooser = &generate_student_chooser('CHOOSE_STUDENTS_INCOMPLETE', |
| |
'student_sort', |
| |
'STUDENTS', |
| |
'CHOOSE_STUDENTS_INCOMPLETE_FORMAT'); |
| |
|
| |
my $format_chooser = &generate_format_selector($helper, |
| |
'Format of the print job', |
| |
'','CHOOSE_STUDENTS_INCOMPLETE_FORMAT'); # end state. |
| |
|
| |
return $resource_chooser . $student_chooser . $format_chooser; |
| |
} |
| |
|
| |
|
| |
# BZ 5209 |
| |
# Create the states needed to run the helper for incomplete problems from |
| |
# the current folder for selected students. |
| |
# This includes: |
| |
# - A resource selector limited to problems. (incompleteness must be calculated |
| |
# on a student per student basis. |
| |
# - A student selector. |
| |
# - Tie in to format for the print job. |
| |
# States: |
| |
# INCOMPLETE_PROBLEMS_COURSE_RESOURCES - Resource selector. |
| |
# INCOMPLETE_PROBLEMS_COURSE_STUDENTS - Student selector. |
| |
# INCOMPLETE_PROBLEMS_COURSE_FORMAT - Format selection. |
| |
# |
| |
# Parameters: |
| |
# helper - Helper we are creating states for. |
| |
# Returns: |
| |
# Text that can be parsed by the helper. |
| |
# |
| |
|
| |
sub create_incomplete_course_helper { |
| |
my $helper = shift; |
| |
|
| |
my $filter = '$res->is_problem() || $res->contains_problem() || $res->is_sequence() || $res->is_practice())'; |
| |
my $symbfilter = '$res->shown_symb()'; |
| |
|
| |
my $resource_chooser = &generate_resource_chooser('INCOMPLETE_PROBLEMS_COURSE_RESOURCES', |
| |
'Select problem(s) to print', |
| |
'multichoice = "1" suppressEmptySequences="0" addstatus="1" closeallpagtes="1"', |
| |
'RESOURCES', |
| |
'INCOMPLETE_PROBLEMS_COURSE_STUDENTS', |
| |
'', |
| |
$filter, |
| |
'', |
| |
$symbfilter, |
| |
''); |
| |
|
| |
my $people_chooser = &generate_student_chooser('INCOMPLETE_PROBLEMS_COURSE_STUDENTS', |
| |
'student_sort', |
| |
'STUDENTS', |
| |
'INCOMPLETE_PROBLEMS_COURSE_FORMAT'); |
| |
|
| |
my $format = &generate_format_selector($helper, |
| |
'Format of the print job', |
| |
'', |
| |
'INCOMPLETE_PROBLEMS_COURSE_FORMAT'); # end state. |
| |
|
| |
return $resource_chooser . $people_chooser . $format; |
| |
|
| |
|
| |
} |
| |
|
| |
# BZ5209 |
| |
# Creates the states needed to run the print helper for a student |
| |
# that wants to print his incomplete problems from the current folder. |
| |
# Parameters: |
| |
# $helper - helper we are generating states for. |
| |
# $map - The map for which the student wants incomplete problems. |
| |
# Returns: |
| |
# XML that defines the helper states being created. |
| |
# |
| |
# States: |
| |
# CHOOSE_INCOMPLETE_SEQ - Resource selector. |
| |
# |
| |
sub create_incomplete_folder_helper { |
| |
my ($helper, $map) = @_; |
| |
|
| |
my $filter = '$res->is_problem()'; |
| |
$filter .= ' && $res->resprintable() '; |
| |
$filter .= ' && $res->is_incomplete() '; |
| |
|
| |
my $symfilter = '$res->shown_symb()'; |
| |
|
| |
my $resource_chooser = &generate_resource_chooser('CHOOSE_INCOMPLETE_SEQ', |
| |
'Select problem(s) to print', |
| |
'multichoice="1", toponly ="1", addstatus="1", closeallpages="1"', |
| |
'RESOURCES', |
| |
'PAGESIZE', |
| |
$map, |
| |
$filter, '', |
| |
$symfilter, |
| |
''); |
| |
|
| |
return $resource_chooser; |
| |
} |
| |
|
| |
|
| |
# Returns the text neded for a student chooser. |
| # that text must still be parsed by the helper xml parser. |
# that text must still be parsed by the helper xml parser. |
| # Parameters: |
# Parameters: |
| # this_state - State name of the chooser. |
# this_state - State name of the chooser. |
|
Line 196 sub generate_code_selector {
|
Line 335 sub generate_code_selector {
|
| <message><br /><hr /> <br /></message> |
<message><br /><hr /> <br /></message> |
| <message><h3>Generate new CODEd Assignments</h3></message> |
<message><h3>Generate new CODEd Assignments</h3></message> |
| <message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message> |
<message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message> |
| <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"> |
<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5" noproceed="1"> |
| <validator> |
<validator> |
| if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) && |
if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) && |
| !\$helper->{'VARS'}{'REUSE_OLD_CODES'} && |
!\$helper->{'VARS'}{'REUSE_OLD_CODES'} && |
| !\$helper->{'VARS'}{'SINGLE_CODE'} && |
!\$helper->{'VARS'}{'SINGLE_CODE'} && |
| !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) { |
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'} ) { |
| |
|
| return "You need to specify the number of assignments to print"; |
return "You need to specify the number of assignments to print"; |
| } |
} |
| |
if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) >= 1) && |
| |
(\$helper->{'VARS'}{'SINGLE_CODE'} ne '') ) { |
| |
return 'Specifying number of codes to print and a specific code is not compatible'; |
| |
} |
| return undef; |
return undef; |
| </validator> |
</validator> |
| </string> |
</string> |
|
Line 228 sub generate_code_selector {
|
Line 372 sub generate_code_selector {
|
| !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) { |
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) { |
| return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'}, |
return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'}, |
| \$helper->{'VARS'}{'CODE_OPTION'}); |
\$helper->{'VARS'}{'CODE_OPTION'}); |
| |
} elsif (\$helper->{'VARS'}{'SINGLE_CODE'} ne ''){ |
| |
return 'Specifying a code name is incompatible with specifying number of codes.'; |
| } else { |
} else { |
| return undef; # Other forces control us. |
return undef; # Other forces control us. |
| } |
} |
|
Line 249 CHOOSE_ANON1
|
Line 395 CHOOSE_ANON1
|
| return $result; |
return $result; |
| } |
} |
| |
|
| |
sub generate_format_selector { |
| |
my ($helper,$title,$nextstate, $thisstate) = @_; |
| |
my $secpdfoption; |
| |
my $state = 'PRINT_FORMATTING'; |
| |
if ($thisstate) { |
| |
$state = $thisstate; |
| |
} |
| |
unless (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') || |
| |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon_page') || |
| |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) { |
| |
$secpdfoption = '<choice computer="sections">Each PDF contains exactly one section</choice>'; |
| |
} |
| |
return <<RESOURCE_SELECTOR; |
| |
<state name="$state" title="$title"> |
| |
$nextstate |
| |
<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message> |
| |
<choices variable="EMPTY_PAGES"> |
| |
<choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice> |
| |
<choice computer='1'>Add one empty page/column after each student\'s assignment</choice> |
| |
<choice computer='2'>Add two empty pages/column after each student\'s assignment</choice> |
| |
<choice computer='3'>Add three empty pages/column after each student\'s assignment</choice> |
| |
</choices> |
| |
<nextstate>PAGESIZE</nextstate> |
| |
<message><hr width='33%' /><b>How do you want assignments split into PDF files? </b></message> |
| |
<choices variable="SPLIT_PDFS"> |
| |
<choice computer="all">All assignments in a single PDF file</choice> |
| |
$secpdfoption |
| |
<choice computer="oneper">Each PDF contains exactly one assignment</choice> |
| |
<choice computer="usenumber" relatedvalue="NUMBER_TO_PRINT"> |
| |
Specify the number of assignments per PDF:</choice> |
| |
</choices> |
| |
</state> |
| |
RESOURCE_SELECTOR |
| |
} |
| |
|
| #----------------------------------------------------------------------- |
#----------------------------------------------------------------------- |
| |
|
| |
|
|
Line 306 sub set_font_size {
|
Line 487 sub set_font_size {
|
| |
|
| my ($text) = @_; |
my ($text) = @_; |
| |
|
| $text =~ s/\\begin{document}/\\begin{document}{\\$font_size/; |
# There appear to be cases where the font directive is empty.. in which |
| |
# case the first substituion would insert a spurious \ oh happy day. |
| |
# as this has been the cause of much mystery and hair pulling _sigh_ |
| |
|
| |
if ($font_size ne '') { |
| |
|
| |
$text =~ s/\\begin{document}/\\begin{document}{\\$font_size/; |
| |
} |
| $text =~ s/\\end{document}/}\\end{document}/; |
$text =~ s/\\end{document}/}\\end{document}/; |
| return $text; |
return $text; |
| |
|
|
Line 1309 sub page_format_transformation {
|
Line 1497 sub page_format_transformation {
|
| $text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\n\\evensidemargin = $evenoffset $topmargintoinsert\\textwidth= $textwidth\\newlength{\\minipagewidth}\n\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8cm\n\\setcounter{page}{1} \\vskip 5 mm\n /; |
$text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\n\\evensidemargin = $evenoffset $topmargintoinsert\\textwidth= $textwidth\\newlength{\\minipagewidth}\n\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8cm\n\\setcounter{page}{1} \\vskip 5 mm\n /; |
| } |
} |
| if ($papersize eq 'a4') { |
if ($papersize eq 'a4') { |
| $text =~ s/(\\begin{document})/$1\\special{papersize=210mm,297mm}/; |
my $papersize_text; |
| |
if ($perm{'pav'}) { |
| |
$papersize_text = '\\special{papersize=210mm,297mm}'; |
| |
} else { |
| |
$papersize_text = '\special{papersize=210mm,297mm}'; |
| |
} |
| |
$text =~ s/(\\begin{document})/$1$papersize_text/; |
| } |
} |
| } |
} |
| if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;} |
if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;} |
|
Line 1540 sub print_page_in_course {
|
Line 1734 sub print_page_in_course {
|
| my $title=&Apache::lonnet::gettitle($symb); |
my $title=&Apache::lonnet::gettitle($symb); |
| $title = &Apache::lonxml::latex_special_symbols($title); |
$title = &Apache::lonxml::latex_special_symbols($title); |
| } else { |
} else { |
| $result.=$currentURL; |
my $esc_currentURL= $currentURL; |
| |
$esc_currentURL =~ s/_/\\_/g; |
| |
$result.=$esc_currentURL; |
| } |
} |
| $result .= '\\\\'; |
$result .= '\\\\'; |
| |
|
|
Line 1570 sub print_page_in_course {
|
Line 1766 sub print_page_in_course {
|
| } |
} |
| # these resources go through the XML transformer: |
# these resources go through the XML transformer: |
| |
|
| elsif ($resource_src =~ /\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm\xhtml|xhtm)$/) { |
elsif ($resource_src =~ /\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) { |
| my $urlp = &Apache::lonnet::clutter($resource_src); |
my $urlp = &Apache::lonnet::clutter($resource_src); |
| my %form; |
my %form; |
| my %moreenv; |
my %moreenv; |
|
Line 1581 sub print_page_in_course {
|
Line 1777 sub print_page_in_course {
|
| |
|
| $form{'grade_target'} = 'tex'; |
$form{'grade_target'} = 'tex'; |
| $form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth); |
$form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth); |
| $form{'pdfFormFiels'} = $pdfFormFields; # |
$form{'pdfFormFields'} = $pdfFormFields; # |
| $form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'}; |
$form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'}; |
| |
|
| $form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
|
Line 1685 sub print_page_in_course {
|
Line 1881 sub print_page_in_course {
|
| # List of recently generated print files |
# List of recently generated print files |
| # |
# |
| sub recently_generated { |
sub recently_generated { |
| my $r=shift; |
my ($prtspool) = @_; |
| my $prtspool=$r->dir_config('lonPrtDir'); |
my $output; |
| my $zip_result; |
my $zip_result; |
| my $pdf_result; |
my $pdf_result; |
| opendir(DIR,$prtspool); |
opendir(DIR,$prtspool); |
|
Line 1719 sub recently_generated {
|
Line 1915 sub recently_generated {
|
| if ($ext eq 'zip') { $zip_result .= $result; } |
if ($ext eq 'zip') { $zip_result .= $result; } |
| } |
} |
| if ($zip_result || $pdf_result) { |
if ($zip_result || $pdf_result) { |
| $r->print('<hr />'); |
$output ='<hr />'; |
| } |
} |
| if ($zip_result) { |
if ($zip_result) { |
| $r->print('<h3>'.&mt('Recently generated printout zip files')."</h3>\n" |
$output .='<h3>'.&mt('Recently generated printout zip files')."</h3>\n" |
| .&Apache::loncommon::start_data_table() |
.&Apache::loncommon::start_data_table() |
| .&Apache::loncommon::start_data_table_header_row() |
.&Apache::loncommon::start_data_table_header_row() |
| .'<th>'.&mt('Download').'</th>' |
.'<th>'.&mt('Download').'</th>' |
|
Line 1730 sub recently_generated {
|
Line 1926 sub recently_generated {
|
| .'<th>'.&mt('File Size (Bytes)').'</th>' |
.'<th>'.&mt('File Size (Bytes)').'</th>' |
| .&Apache::loncommon::end_data_table_header_row() |
.&Apache::loncommon::end_data_table_header_row() |
| .$zip_result |
.$zip_result |
| .&Apache::loncommon::end_data_table() |
.&Apache::loncommon::end_data_table(); |
| ); |
|
| } |
} |
| if ($pdf_result) { |
if ($pdf_result) { |
| $r->print('<h3>'.&mt('Recently generated printouts')."</h3>\n" |
$output .='<h3>'.&mt('Recently generated printouts')."</h3>\n" |
| .&Apache::loncommon::start_data_table() |
.&Apache::loncommon::start_data_table() |
| .&Apache::loncommon::start_data_table_header_row() |
.&Apache::loncommon::start_data_table_header_row() |
| .'<th>'.&mt('Download').'</th>' |
.'<th>'.&mt('Download').'</th>' |
|
Line 1742 sub recently_generated {
|
Line 1937 sub recently_generated {
|
| .'<th>'.&mt('File Size (Bytes)').'</th>' |
.'<th>'.&mt('File Size (Bytes)').'</th>' |
| .&Apache::loncommon::end_data_table_header_row() |
.&Apache::loncommon::end_data_table_header_row() |
| .$pdf_result |
.$pdf_result |
| .&Apache::loncommon::end_data_table() |
.&Apache::loncommon::end_data_table(); |
| ); |
|
| } |
} |
| |
return $output; |
| } |
} |
| |
|
| # |
# |
|
Line 1904 sub set_form_extraspace {
|
Line 2099 sub set_form_extraspace {
|
| # |
# |
| sub print_construction_sequence { |
sub print_construction_sequence { |
| my ($currentURL, $helper, %form, $LaTeXwidth) = @_; |
my ($currentURL, $helper, %form, $LaTeXwidth) = @_; |
| |
|
| |
|
| my $result; |
my $result; |
| my $rndseed=time; |
my $rndseed=time; |
| if ($helper->{'VARS'}->{'curseed'}) { |
if ($helper->{'VARS'}->{'curseed'}) { |
|
Line 2005 sub print_construction_sequence {
|
Line 2202 sub print_construction_sequence {
|
| return $result; |
return $result; |
| } |
} |
| |
|
| |
# |
| |
# Top level for generating print output. |
| |
# |
| |
# May call print_resources if multiple resources will be printed. |
| |
# |
| |
# The main driver is $selectionmade which reflects the type of print out |
| |
# requested: |
| |
# Value Print type: |
| |
# 1 Print resource that's being looked at. |
| |
# 2 Print problems in a map or in a page. |
| |
# 3 Print pages in a map or resources in a page. |
| |
# 4 Print all problems or all resources. |
| |
# 5 Print problems for seleted students. |
| |
# 6 Print selected problems from a folder. |
| |
# 7 Print print selected resources from some scope. |
| |
# 8 Print resources for selected students. |
| |
# |
| |
#BZ 5209 |
| |
# 2 map_incomplete_problems_seq Print incomplete problems from the current |
| |
# folder in student context. |
| |
# 101 map_incomplete_problems_people_seq Print incomplete problems from the |
| |
# current folder in privileged context. |
| |
# 102 incomplete_problems_selpeople_course Print incomplete problems for |
| |
# selected people from the entire course. |
| |
# |
| |
# Item 101 has much the same processing as 8, |
| |
# Item 102 has much the same processing as 8. |
| |
# |
| |
# Differences: Item 101, 102 require per-student filtering of the resource |
| |
# set so that only the incomplete resources are printed. |
| |
# For item 100, filtering was done at the helper level. |
| |
|
| sub output_data { |
sub output_data { |
| my ($r,$helper,$rparmhash) = @_; |
my ($r,$helper,$rparmhash) = @_; |
| my %parmhash = %$rparmhash; |
my %parmhash = %$rparmhash; |
| $ssi_error = 0; # This will be set nonzero by failing ssi's. |
$ssi_error = 0; # This will be set nonzero by failing ssi's. |
| $resources_printed = ''; |
$resources_printed = ''; |
| $font_size = $helper->{'VARS'}->{'fontsize'}; |
$font_size = $helper->{'VARS'}->{'fontsize'}; |
| |
my $print_type = $helper->{'VARS'}->{'PRINT_TYPE'}; # Allows textual simplification. |
| my $do_postprocessing = 1; |
my $do_postprocessing = 1; |
| my $js = <<ENDPART; |
my $js = <<ENDPART; |
| <script type="text/javascript"> |
<script type="text/javascript"> |
|
Line 2060 ENDPART
|
Line 2290 ENDPART
|
| |
|
| $env{'form.pagebreaks'} = $helper->{'VARS'}->{'FINISHPAGE'}; |
$env{'form.pagebreaks'} = $helper->{'VARS'}->{'FINISHPAGE'}; |
| &set_form_extraspace($helper); |
&set_form_extraspace($helper); |
| $env{'form.lastprinttype'} = $helper->{'VARS'}->{'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 2110 ENDPART
|
Line 2340 ENDPART
|
| &Apache::lonnet::delenv('construct.style'); |
&Apache::lonnet::delenv('construct.style'); |
| } |
} |
| |
|
| |
if ($print_type eq 'current_document') { |
| if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') { |
|
| #-- single document - problem, page, html, xml, ... |
#-- single document - problem, page, html, xml, ... |
| my ($currentURL,$cleanURL); |
my ($currentURL,$cleanURL); |
| |
|
|
Line 2273 ENDPART
|
Line 2502 ENDPART
|
| $result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'}, |
$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'}, |
| $helper->{'VARS'}->{'symb'}); |
$helper->{'VARS'}->{'symb'}); |
| } |
} |
| } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or |
} elsif (($print_type eq 'map_problems') or |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_in_page') or |
($print_type eq 'map_problems_in_page') or |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_resources_in_page') or |
($print_type eq 'map_resources_in_page') or |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or |
($print_type eq 'map_problems_pages') or |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') or |
($print_type eq 'all_problems') or |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') or # BUGBUG |
($print_type eq 'all_resources') or # BUGBUG |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences') |
($print_type eq 'select_sequences') or |
| ) { |
($print_type eq 'map_incomplete_problems_seq') |
| |
) { |
| |
|
| |
|
| #-- produce an output string |
#-- produce an output string |
| if (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or |
if (($print_type eq 'map_problems') or |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_in_page') ) { |
($print_type eq 'map_incomplete_problems_seq') or |
| |
($print_type eq 'map_problems_in_page') ) { |
| $selectionmade = 2; |
$selectionmade = 2; |
| } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or |
} elsif (($print_type eq 'map_problems_pages') or |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_resources_in_page')) |
($print_type eq 'map_resources_in_page')) |
| { |
{ |
| $selectionmade = 3; |
$selectionmade = 3; |
| } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') |
} elsif (($print_type eq 'all_problems') |
| ) { |
) { |
| $selectionmade = 4; |
$selectionmade = 4; |
| } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') { #BUGBUG |
} elsif ($print_type eq 'all_resources') { #BUGBUG |
| $selectionmade = 4; |
$selectionmade = 4; |
| } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences') { |
} elsif ($print_type eq 'select_sequences') { |
| $selectionmade = 7; |
$selectionmade = 7; |
| } |
} |
| |
|
| $form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
| $form{'suppress_tries'}=$parmhash{'suppress_tries'}; |
$form{'suppress_tries'}=$parmhash{'suppress_tries'}; |
| $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; |
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; |
|
Line 2345 ENDPART
|
Line 2577 ENDPART
|
| &Apache::lonxml::remember_problem_counter(); |
&Apache::lonxml::remember_problem_counter(); |
| if ($flag_latex_header_remove eq 'NO') { |
if ($flag_latex_header_remove eq 'NO') { |
| $texversion.=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); # RF |
$texversion.=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); # RF |
| $flag_latex_header_remove = 'YES'; |
unless (($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only') || |
| |
(($i==0) && |
| |
(($urlp=~/\.page$/) || |
| |
($print_type eq 'map_problems_in_page') || |
| |
($print_type eq 'map_resources_in_page')))) { |
| |
$flag_latex_header_remove = 'YES'; |
| |
} |
| } |
} |
| $texversion.=&ssi_with_retries($urlp, $ssi_retry_count, %form); |
$texversion.=&ssi_with_retries($urlp, $ssi_retry_count, %form); |
| if ($urlp=~/\.page$/) { |
if ($urlp=~/\.page$/) { |
|
Line 2353 ENDPART
|
Line 2591 ENDPART
|
| if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} |
if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} |
| $texversion =~ s/\\end{document}\d*/\\end{document}/; |
$texversion =~ s/\\end{document}\d*/\\end{document}/; |
| $flag_page_in_sequence = 'YES'; |
$flag_page_in_sequence = 'YES'; |
| } |
} |
| |
|
| if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || |
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || |
| ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { |
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { |
|
Line 2365 ENDPART
|
Line 2603 ENDPART
|
| |
|
| &Apache::lonxml::restore_problem_counter(); |
&Apache::lonxml::restore_problem_counter(); |
| my $answer=&ssi_with_retries($urlp, $ssi_retry_count, %answerform); |
my $answer=&ssi_with_retries($urlp, $ssi_retry_count, %answerform); |
| |
if ($urlp =~ /\.page$/) { |
| |
$answer =~ s/\\end{document}(\d*)$//; |
| |
} |
| if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
| $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
if ($urlp =~ /\.page$/) { |
| |
my @probs = split(/\\keephidden{ENDOFPROBLEM}/,$texversion); |
| |
my $lastprob = pop(@probs); |
| |
$texversion = join('\keephidden{ENDOFPROBLEM}',@probs). |
| |
$answer.'\keephidden{ENDOFPROBLEM}'.$lastprob; |
| |
} else { |
| |
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
| |
} |
| } else { |
} else { |
| if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page)$/) { |
| $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
| $texversion =~ s/\\begin{document}//; |
# $texversion =~ s/\\begin{document}//; # FIXME |
| my $title = &Apache::lonnet::gettitle($master_seq[$i]); |
my $title = &Apache::lonnet::gettitle($master_seq[$i]); |
| $title = &Apache::lonxml::latex_special_symbols($title); |
$title = &Apache::lonxml::latex_special_symbols($title); |
| my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm '; |
my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm '; |
|
Line 2437 ENDPART
|
Line 2684 ENDPART
|
| if ($i > 0) { |
if ($i > 0) { |
| $result .= '\cleardoublepage'; |
$result .= '\cleardoublepage'; |
| } |
} |
| $result .= &include_pdf($urlp); |
my $texfrompdf = &include_pdf($urlp); |
| |
if ($flag_latex_header_remove ne 'NO') { |
| |
$texfrompdf = &latex_header_footer_remove($texfrompdf); |
| |
} |
| |
$result .= $texfrompdf; |
| if ($i != $#master_seq) { |
if ($i != $#master_seq) { |
| if ($numberofcolumns eq '1') { |
if ($numberofcolumns eq '1') { |
| $result .= '\newpage'; |
$result .= '\newpage'; |
|
Line 2460 ENDPART
|
Line 2711 ENDPART
|
| } |
} |
| $result .= $texversion; |
$result .= $texversion; |
| $flag_latex_header_remove = 'YES'; |
$flag_latex_header_remove = 'YES'; |
| } |
} |
| if (&Apache::loncommon::connection_aborted($r)) { |
if (&Apache::loncommon::connection_aborted($r)) { |
| last; |
last; |
| } |
} |
|
Line 2470 ENDPART
|
Line 2721 ENDPART
|
| $result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/; |
$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/; |
| } |
} |
| $result .= '\end{document}'; |
$result .= '\end{document}'; |
| } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') || |
} elsif (($print_type eq 'problems_for_students') || |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students_from_page') || |
($print_type eq 'problems_for_students_from_page') || |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') || |
($print_type eq 'all_problems_students') || |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){ |
($print_type eq 'resources_for_students')){ |
| |
|
| |
|
| #-- prints assignments for whole class or for selected students |
#-- prints assignments for whole class or for selected students |
| my $type; |
my $type; |
| if (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') || |
if (($print_type eq 'problems_for_students') || |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students_from_page') || |
($print_type eq 'problems_for_students_from_page') || |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') ) { |
($print_type eq 'all_problems_students') ) { |
| $selectionmade=5; |
$selectionmade=5; |
| $type='problems'; |
$type='problems'; |
| } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students') { |
} elsif ($print_type eq 'resources_for_students') { |
| $selectionmade=8; |
$selectionmade=8; |
| $type='resources'; |
$type='resources'; |
| } |
} |
|
Line 2561 ENDPART
|
Line 2812 ENDPART
|
| $resources_printed .= ":"; |
$resources_printed .= ":"; |
| $print_array[$i].=$output; |
$print_array[$i].=$output; |
| $student_names[$i].=$person.':'.$fullname.'_END_'; |
$student_names[$i].=$person.':'.$fullname.'_END_'; |
| &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,&mt('last student').' '.$fullname); |
# &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,&mt('last student').' '.$fullname); |
| |
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student'); |
| $flag_latex_header_remove = 'YES'; |
$flag_latex_header_remove = 'YES'; |
| if (&Apache::loncommon::connection_aborted($r)) { last; } |
if (&Apache::loncommon::connection_aborted($r)) { last; } |
| } |
} |
| &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
| $result .= $print_array[0].' \end{document}'; |
$result .= $print_array[0].' \end{document}'; |
| } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') || |
} elsif (($print_type eq 'problems_for_anon') || |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon_page') || |
($print_type eq 'problems_for_anon_page') || |
| ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) { |
($print_type eq 'resources_for_anon') ) { |
| my $cdom =$env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom =$env{'course.'.$env{'request.course.id'}.'.domain'}; |
| my $cnum =$env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum =$env{'course.'.$env{'request.course.id'}.'.num'}; |
| my $num_todo=$helper->{'VARS'}->{'NUMBER_TO_PRINT_TOTAL'}; |
my $num_todo=$helper->{'VARS'}->{'NUMBER_TO_PRINT_TOTAL'}; |
|
Line 2631 ENDPART
|
Line 2883 ENDPART
|
| @allcodes=keys(%allcodes); |
@allcodes=keys(%allcodes); |
| } |
} |
| my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; |
my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; |
| my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'}); |
my ($type) = split(/_/,$print_type); |
| &adjust_number_to_print($helper); |
&adjust_number_to_print($helper); |
| my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'}; |
my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'}; |
| if ($number_per_page eq '0' || $number_per_page eq 'all') { |
if ($number_per_page eq '0' || $number_per_page eq 'all' |
| $number_per_page=$num_todo; |
|| $number_per_page eq 'section') { |
| |
$number_per_page=$num_todo > 0 ? $num_todo : 1; |
| } |
} |
| my $flag_latex_header_remove = 'NO'; |
my $flag_latex_header_remove = 'NO'; |
| my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75'); |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75'); |
|
Line 2661 ENDPART
|
Line 2914 ENDPART
|
| } |
} |
| &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
| $result .= $print_array[0].' \end{document}'; |
$result .= $print_array[0].' \end{document}'; |
| } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') { |
} elsif ($print_type eq 'problems_from_directory') { |
| #prints selected problems from the subdirectory |
#prints selected problems from the subdirectory |
| $selectionmade = 6; |
$selectionmade = 6; |
| my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'}; |
my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'}; |
|
Line 2743 ENDPART
|
Line 2996 ENDPART
|
| # Only post process if that has not been turned off e.g. by a raw latex resource. |
# Only post process if that has not been turned off e.g. by a raw latex resource. |
| |
|
| if ($do_postprocessing) { |
if ($do_postprocessing) { |
| $result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'},$helper->{'VARS'}->{'TABLE_CONTENTS'},$helper->{'VARS'}->{'TABLE_INDEX'},$selectionmade); |
$result = &page_format_transformation($papersize, |
| |
$laystyle,$numberofcolumns, |
| |
$print_type,$result, |
| |
$helper->{VARS}->{'assignment'}, |
| |
$helper->{'VARS'}->{'TABLE_CONTENTS'}, |
| |
$helper->{'VARS'}->{'TABLE_INDEX'}, |
| |
$selectionmade); |
| $result = &latex_corrections($number_of_columns,$result,$selectionmade, |
$result = &latex_corrections($number_of_columns,$result,$selectionmade, |
| $helper->{'VARS'}->{'ANSWER_TYPE'}); |
$helper->{'VARS'}->{'ANSWER_TYPE'}); |
| #if ($numberofcolumns == 1) { |
#if ($numberofcolumns == 1) { |
|
Line 2904 sub print_resources {
|
Line 3163 sub print_resources {
|
| $namepostfix .="Name: "; |
$namepostfix .="Name: "; |
| $fullname = "CODE - ".$moreenv->{'CODE'}; |
$fullname = "CODE - ".$moreenv->{'CODE'}; |
| } |
} |
| |
|
| # Fullname may have special latex characters that need \ prefixing: |
# Fullname may have special latex characters that need \ prefixing: |
| # |
# |
| |
|
|
Line 2933 sub print_resources {
|
Line 3193 sub print_resources {
|
| } |
} |
| $current_output .= &get_extra_vspaces($helper, $curresline); |
$current_output .= &get_extra_vspaces($helper, $curresline); |
| $i++; |
$i++; |
| |
|
| if ( !($type eq 'problems' && |
if ( !($type eq 'problems' && |
| ($curresline!~ m/\.(problem|exam|quiz|assess|survey|form|library)$/)) ) { |
($curresline!~ m/\.(problem|exam|quiz|assess|survey|form|library|page)$/)) ) { |
| my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline); |
my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline); |
| if (&Apache::lonnet::allowed('bre',$res_url)) { |
if (&Apache::lonnet::allowed('bre',$res_url)) { |
| if ($res_url!~m|^ext/| |
if ($res_url!~m|^ext/| |
|
Line 2944 sub print_resources {
|
Line 3203 sub print_resources {
|
| &Apache::lonxml::remember_problem_counter(); |
&Apache::lonxml::remember_problem_counter(); |
| |
|
| my $rendered = &get_student_view_with_retries($curresline,$ssi_retry_count,$username,$userdomain,$env{'request.course.id'},'tex',$moreenv); |
my $rendered = &get_student_view_with_retries($curresline,$ssi_retry_count,$username,$userdomain,$env{'request.course.id'},'tex',$moreenv); |
| |
if ($res_url =~ /\.page$/) { |
| |
if ($remove_latex_header eq 'NO') { |
| |
if (!($rendered =~ /\\begin\{document\}/)) { |
| |
$rendered = &print_latex_header().$rendered; |
| |
} |
| |
} |
| |
if ($remove_latex_header eq 'YES') { |
| |
$rendered = &latex_header_footer_remove($rendered); |
| |
} else { |
| |
$rendered =~ s/\\end{document}\d*//; |
| |
} |
| |
} |
| if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || |
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || |
| ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { |
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { |
| # Use a copy of the hash so we don't pervert it on future loop passes. |
# Use a copy of the hash so we don't pervert it on future loop passes. |
|
Line 2961 sub print_resources {
|
Line 3232 sub print_resources {
|
| |
|
| |
|
| my $header =&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
my $header =&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
| $header =~ s/\\begin{document}//; #<<<<< |
unless ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only') { |
| |
$header =~ s/\\begin{document}//; #<<<<< |
| |
} |
| my $title = &Apache::lonnet::gettitle($curresline); |
my $title = &Apache::lonnet::gettitle($curresline); |
| $title = &Apache::lonxml::latex_special_symbols($title); |
$title = &Apache::lonxml::latex_special_symbols($title); |
| my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm '; |
my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm '; |
|
Line 3018 sub print_resources {
|
Line 3291 sub print_resources {
|
| } |
} |
| } |
} |
| $remove_latex_header = 'YES'; |
$remove_latex_header = 'YES'; |
| } |
} |
| if (&Apache::loncommon::connection_aborted($r)) { last; } |
if (&Apache::loncommon::connection_aborted($r)) { last; } |
| } |
} |
| |
|
| |
if ($syllabus_first) { |
| |
$current_output =~ s/\\\\ Last updated:/Last updated:/ |
| |
} |
| my $courseidinfo = &get_course(); |
my $courseidinfo = &get_course(); |
| my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header'); |
my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header'); |
| my $header_line = |
my $header_line = |
|
Line 3031 sub print_resources {
|
Line 3306 sub print_resources {
|
| my $header_start = ($columns_in_format == 1) ? '\lhead' |
my $header_start = ($columns_in_format == 1) ? '\lhead' |
| : '\fancyhead[LO]'; |
: '\fancyhead[LO]'; |
| $header_line = $header_start.'{'.$header_line.'}'; |
$header_line = $header_start.'{'.$header_line.'}'; |
| if ($current_output=~/\\documentclass/ && (!$syllabus_first)) { |
if ($current_output=~/\\documentclass/) { |
| $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent$header_line$namepostfix}\\vskip 5 mm /; |
$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent$header_line$namepostfix}\\vskip 5 mm /; |
| } elsif ($syllabus_first) { |
|
| |
|
| $current_output =~ s/\\\\ Last updated:/Last updated:/ |
|
| } else { |
} else { |
| my $blankpages = |
my $blankpages = |
| '\clearpage\strut\clearpage'x$helper->{'VARS'}->{'EMPTY_PAGES'}; |
'\clearpage\strut\clearpage'x$helper->{'VARS'}->{'EMPTY_PAGES'}; |
|
Line 3108 sub init_perm {
|
Line 3380 sub init_perm {
|
| $perm{'pfo'}=&Apache::lonnet::allowed('pfo', |
$perm{'pfo'}=&Apache::lonnet::allowed('pfo', |
| $env{'request.course.id'}.'/'.$env{'request.course.sec'}); |
$env{'request.course.id'}.'/'.$env{'request.course.sec'}); |
| } |
} |
| |
$perm{'vgr'}=&Apache::lonnet::allowed('vgr',$env{'request.course.id'}); |
| |
if (!$perm{'vgr'}) { |
| |
$perm{'vgr'}=&Apache::lonnet::allowed('vgr', |
| |
$env{'request.course.id'}.'/'.$env{'request.course.sec'}); |
| |
} |
| } |
} |
| |
|
| sub get_randomly_ordered_warning { |
sub get_randomly_ordered_warning { |
|
Line 3255 sub printHelper {
|
Line 3532 sub printHelper {
|
| my ($map, $id, $url); |
my ($map, $id, $url); |
| my $subdir; |
my $subdir; |
| my $is_published=0; # True when printing from resource space. |
my $is_published=0; # True when printing from resource space. |
| |
my $res_printable = 1; # By default the current resource is printable. |
| |
my $userCanPrint = ($perm{'pav'} || $perm{'pfo'}); |
| |
|
| # Get the resource name from construction space |
# Get the resource name from construction space |
| if ($helper->{VARS}->{'construction'}) { |
if ($helper->{VARS}->{'construction'}) { |
|
Line 3269 sub printHelper {
|
Line 3548 sub printHelper {
|
| ($map, $id, $url) = &Apache::lonnet::decode_symb($symb); |
($map, $id, $url) = &Apache::lonnet::decode_symb($symb); |
| $helper->{VARS}->{'postdata'} = |
$helper->{VARS}->{'postdata'} = |
| &Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url)); |
&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url)); |
| |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| |
my $res = $navmap->getBySymb($symb); |
| |
$res_printable = $res->resprintable() || $userCanPrint; #printability in course context |
| } else { |
} else { |
| |
# Resource space. |
| |
|
| $url = $helper->{VARS}->{'postdata'}; |
$url = $helper->{VARS}->{'postdata'}; |
| $is_published=1; # From resource space. |
$is_published=1; # From resource space. |
| } |
} |
|
Line 3279 sub printHelper {
|
Line 3563 sub printHelper {
|
| $resourceTitle = substr($postdata, rindex($postdata, '/') + 1); |
$resourceTitle = substr($postdata, rindex($postdata, '/') + 1); |
| } |
} |
| $subdir = &Apache::lonnet::filelocation("", $url); |
$subdir = &Apache::lonnet::filelocation("", $url); |
| |
|
| |
|
| } |
} |
| if (!$helper->{VARS}->{'curseed'} && $env{'form.curseed'}) { |
if (!$helper->{VARS}->{'curseed'} && $env{'form.curseed'}) { |
| $helper->{VARS}->{'curseed'}=$env{'form.curseed'}; |
$helper->{VARS}->{'curseed'}=$env{'form.curseed'}; |
|
Line 3308 sub printHelper {
|
Line 3594 sub printHelper {
|
| my $printChoices = []; |
my $printChoices = []; |
| my $paramHash; |
my $paramHash; |
| |
|
| if ($resourceTitle) { |
# If there is a current resource and it is printable |
| |
# Give that as a choice. |
| |
|
| |
if ($resourceTitle && $res_printable) { |
| push @{$printChoices}, ["<b><i>$resourceTitle</i></b> (".&mt('the resource you just saw on the screen').")", 'current_document', 'PAGESIZE']; |
push @{$printChoices}, ["<b><i>$resourceTitle</i></b> (".&mt('the resource you just saw on the screen').")", 'current_document', 'PAGESIZE']; |
| } |
} |
| |
|
| |
|
| # Useful filter strings |
# Useful filter strings |
| my $isProblem = '($res->is_problem()||$res->contains_problem||$res->is_practice()) '; |
|
| |
my $isPrintable = ' && $res->resprintable()'; |
| |
|
| |
my $isProblem = '(($res->is_problem()||$res->contains_problem() ||$res->is_practice()))'; |
| |
$isProblem .= $isPrintable unless $userCanPrint; |
| $isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden; |
$isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden; |
| my $isProblemOrMap = '$res->is_problem() || $res->contains_problem() || $res->is_sequence() || $res->is_practice()'; |
my $isProblemOrMap = '($res->is_problem() || $res->contains_problem() || $res->is_sequence() || $res->is_practice())'; |
| my $isNotMap = '!$res->is_sequence()'; |
$isProblemOrMap .= $isPrintable unless $userCanPrint; |
| |
my $isNotMap = '(!$res->is_sequence())'; |
| |
$isNotMap .= $isPrintable unless $userCanPrint; |
| $isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden; |
$isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden; |
| my $isMap = '$res->is_map()'; |
my $isMap = '$res->is_map()'; |
| my $symbFilter = '$res->shown_symb()'; |
$isMap .= $isPrintable unless $userCanPrint; |
| |
my $symbFilter = '$res->shown_symb() '; |
| my $urlValue = '$res->link()'; |
my $urlValue = '$res->link()'; |
| |
|
| $helper->declareVar('SEQUENCE'); |
$helper->declareVar('SEQUENCE'); |
|
Line 3399 sub printHelper {
|
Line 3696 sub printHelper {
|
| if (($helper->{'VAR'}->{'construction'} ne '1' ) && |
if (($helper->{'VAR'}->{'construction'} ne '1' ) && |
| $helper->{VARS}->{'postdata'} && |
$helper->{VARS}->{'postdata'} && |
| $helper->{VARS}->{'assignment'}) { |
$helper->{VARS}->{'assignment'}) { |
| |
|
| |
# BZ 5209 - Print incomplete problems from sequence: |
| |
# the exact form of this depends on whether or not we are privileged or a mere |
| |
# plebe of s student: |
| |
|
| |
my $printSelector = 'map_incomplete_problems_seq'; |
| |
my $nextState = 'CHOOSE_INCOMPLETE_SEQ'; |
| |
my $textSuffix = ''; |
| |
|
| |
if ($userCanPrint) { |
| |
$printSelector = 'map_incomplete_problems_people_seq'; |
| |
$nextState = 'CHOOSE_INCOMPLETE_PEOPLE_SEQ'; |
| |
$textSuffix = ' for selected students'; |
| |
my $helperStates = |
| |
&create_incomplete_folder_selstud_helper($helper, $map); |
| |
&Apache::lonxml::xmlparse($r, 'helper', $helperStates); |
| |
} else { |
| |
my $helperStates = &create_incomplete_folder_helper($helper, $map); # Create needed states for student. |
| |
&Apache::lonxml::xmlparse($r, 'helper', $helperStates); |
| |
} |
| |
|
| |
push(@{$printChoices}, |
| |
[&mt('Selected Incomplete [_1]Problems[_2] from folder [_3]' . $textSuffix, |
| |
'<b>', '</b>', |
| |
'<b><i>'. $sequenceTitle . '</b></i>'), |
| |
$printSelector, |
| |
$nextState]); |
| |
|
| # Allow problems from sequence |
# Allow problems from sequence |
| push @{$printChoices}, |
push @{$printChoices}, |
| [&mt('Selected [_1]Problems[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'), |
[&mt('Selected [_1]Problems[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'), |
|
Line 3433 sub printHelper {
|
Line 3758 sub printHelper {
|
| # If the user has pfo (print for others) allow them to print all |
# If the user has pfo (print for others) allow them to print all |
| # problems and resources in the entire course, optionally for selected students |
# problems and resources in the entire course, optionally for selected students |
| my $post_data = $helper->{VARS}->{'postdata'}; |
my $post_data = $helper->{VARS}->{'postdata'}; |
| |
|
| if ($perm{'pfo'} && !$is_published && |
if ($perm{'pfo'} && !$is_published && |
| ($post_data=~/\/res\// || $post_data =~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) { |
($post_data=~/\/res\// || $post_data =~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) { |
| |
|
| |
# BZ 5209 - incomplete problems from entire course: |
| |
|
| |
push(@{$printChoices}, |
| |
[&mtn('Selected incomplete <b>Problems</b> from <b>entire course</b> for selected people'), |
| |
'incomplete_problems_selpeople_course', 'INCOMPLETE_PROBLEMS_COURSE_RESOURCES']); |
| |
my $helperFragment = &create_incomplete_course_helper($helper); # Create needed states. |
| |
|
| |
&Apache::lonxml::xmlparse($r, 'helper', $helperFragment); |
| |
|
| |
# Selected problems/resources from entire course: |
| |
|
| push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b>'), 'all_problems', 'ALL_PROBLEMS']; |
push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b>'), 'all_problems', 'ALL_PROBLEMS']; |
| push @{$printChoices}, [&mtn('Selected <b>Resources</b> from <b>entire course</b>'), 'all_resources', 'ALL_RESOURCES']; |
push @{$printChoices}, [&mtn('Selected <b>Resources</b> from <b>entire course</b>'), 'all_resources', 'ALL_RESOURCES']; |
| push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b> for <b>selected people</b>'), 'all_problems_students', 'ALL_PROBLEMS_STUDENTS']; |
push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b> for <b>selected people</b>'), 'all_problems_students', 'ALL_PROBLEMS_STUDENTS']; |
|
Line 3517 ALL_PROBLEMS
|
Line 3854 ALL_PROBLEMS
|
| 'multichoice="1" addstatus="1" closeallpages="1"', |
'multichoice="1" addstatus="1" closeallpages="1"', |
| 'RESOURCES', |
'RESOURCES', |
| 'PRINT_FORMATTING', |
'PRINT_FORMATTING', |
| '', |
$map, |
| $isProblem, '', $symbFilter, |
$isProblem, '', $symbFilter, |
| $start_new_option); |
$start_new_option); |
| $resource_selector .= <<RESOURCE_SELECTOR; |
my $secpdfoption; |
| <state name="PRINT_FORMATTING" title="How should results be printed?"> |
unless (($helper->{'VARS'} eq 'problems_for_anon') || |
| <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message> |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon_page') || |
| <choices variable="EMPTY_PAGES"> |
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) { |
| <choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice> |
$secpdfoption = '<choice computer="sections">Each PDF contains exactly one section</choice>'; |
| <choice computer='1'>Add one empty page/column after each student\'s assignment</choice> |
} |
| <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice> |
$resource_selector .= &generate_format_selector($helper, |
| <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice> |
'How should results be printed?'). |
| </choices> |
&generate_resource_chooser('CHOOSE_STUDENTS_PAGE', |
| <nextstate>PAGESIZE</nextstate> |
|
| <message><hr width='33%' /><b>How do you want assignments split into PDF files? </b></message> |
|
| <choices variable="SPLIT_PDFS"> |
|
| <choice computer="all">All assignments in a single PDF file</choice> |
|
| <choice computer="sections">Each PDF contains exactly one section</choice> |
|
| <choice computer="oneper">Each PDF contains exactly one assignment</choice> |
|
| <choice computer="usenumber" relatedvalue="NUMBER_TO_PRINT"> |
|
| Specify the number of assignments per PDF:</choice> |
|
| </choices> |
|
| </state> |
|
| RESOURCE_SELECTOR |
|
| $resource_selector .= &generate_resource_chooser('CHOOSE_STUDENTS_PAGE', |
|
| 'Select Problem(s) to print', |
'Select Problem(s) to print', |
| "multichoice='1' addstatus='1' closeallpages ='1'", |
"multichoice='1' addstatus='1' closeallpages ='1'", |
| 'RESOURCES', |
'RESOURCES', |
|
Line 3650 RESOURCE_SELECTOR
|
Line 3975 RESOURCE_SELECTOR
|
| |
|
| |
|
| if ($helper->{VARS}->{'assignment'}) { |
if ($helper->{VARS}->{'assignment'}) { |
| |
|
| |
# Assignment printing: |
| |
|
| push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]selected people[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_students', 'CHOOSE_STUDENTS1']; |
push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]selected people[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_students', 'CHOOSE_STUDENTS1']; |
| push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]CODEd assignments[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_anon', 'CHOOSE_ANON2']; |
push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]CODEd assignments[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_anon', 'CHOOSE_ANON2']; |
| } |
} |
|
Line 3668 RESOURCE_SELECTOR
|
Line 3996 RESOURCE_SELECTOR
|
| $start_new_option |
$start_new_option |
| </resource> |
</resource> |
| </state> |
</state> |
| |
|
| <state name="PRINT_FORMATTING" title="Format of the print job"> |
|
| <nextstate>NUMBER_PER_PDF</nextstate> |
|
| <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message> |
|
| <choices variable="EMPTY_PAGES"> |
|
| <choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice> |
|
| <choice computer='1'>Add one empty page/column after each student\'s assignment</choice> |
|
| <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice> |
|
| <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice> |
|
| </choices> |
|
| <nextstate>PAGESIZE</nextstate> |
|
| <message><hr width='33%' /><b>How do you want assignments split into PDF files? </b></message> |
|
| <choices variable="SPLIT_PDFS"> |
|
| <choice computer="all">All assignments in a single PDF file</choice> |
|
| <choice computer="sections">Each PDF contains exactly one section</choice> |
|
| <choice computer="oneper">Each PDF contains exactly one assignment</choice> |
|
| <choice computer="usenumber" relatedvalue="NUMBER_TO_PRINT"> |
|
| Specify the number of assignments per PDF:</choice> |
|
| </choices> |
|
| </state> |
|
| RESOURCE_SELECTOR |
RESOURCE_SELECTOR |
| |
|
| |
my $nextstate = '<nextstate>NUMBER_PER_PDF</nextstate>'; |
| |
$resource_selector .= &generate_format_selector($helper, |
| |
'Format of the print job', |
| |
$nextstate); |
| &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS1); |
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS1); |
| <state name="CHOOSE_STUDENTS1" title="Select Students and Resources"> |
<state name="CHOOSE_STUDENTS1" title="Select Students and Resources"> |
| <choices variable='student_sort'> |
<choices variable='student_sort'> |
|
Line 3710 CHOOSE_STUDENTS1
|
Line 4022 CHOOSE_STUDENTS1
|
| <message><br /><hr /> <br /></message> |
<message><br /><hr /> <br /></message> |
| <message><h3>Generate new CODEd Assignments</h3></message> |
<message><h3>Generate new CODEd Assignments</h3></message> |
| <message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message> |
<message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message> |
| <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"> |
<string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5" noproceed="1"> |
| <validator> |
<validator> |
| if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) && |
if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) && |
| !\$helper->{'VARS'}{'REUSE_OLD_CODES'} && |
!\$helper->{'VARS'}{'REUSE_OLD_CODES'} && |
|
Line 3718 CHOOSE_STUDENTS1
|
Line 4030 CHOOSE_STUDENTS1
|
| !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) { |
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) { |
| return "You need to specify the number of assignments to print"; |
return "You need to specify the number of assignments to print"; |
| } |
} |
| |
if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) >= 1) && |
| |
(\$helper->{'VARS'}{'SINGLE_CODE'} ne '') ) { |
| |
return 'Specifying number of codes to print and a specific code is not compatible'; |
| |
} |
| return undef; |
return undef; |
| </validator> |
</validator> |
| </string> |
</string> |
|
Line 3741 CHOOSE_STUDENTS1
|
Line 4057 CHOOSE_STUDENTS1
|
| !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) { |
!\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) { |
| return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'}, |
return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'}, |
| \$helper->{'VARS'}{'CODE_OPTION'}); |
\$helper->{'VARS'}{'CODE_OPTION'}); |
| |
} elsif (\$helper->{'VARS'}{'SINGLE_CODE'} ne ''){ |
| |
return 'Specifying a code name is incompatible specifying number of codes.'; |
| } else { |
} else { |
| return undef; # Other forces control us. |
return undef; # Other forces control us. |
| } |
} |
|
Line 3841 CHOOSE_FROM_ANY_SEQUENCE
|
Line 4159 CHOOSE_FROM_ANY_SEQUENCE
|
| my $startedTable = 0; # have we started an HTML table yet? (need |
my $startedTable = 0; # have we started an HTML table yet? (need |
| # to close it later) |
# to close it later) |
| |
|
| if (($perm{'pav'} and &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) or |
if (($perm{'pav'} and $perm{'vgr'}) or |
| ($helper->{VARS}->{'construction'} eq '1')) { |
($helper->{VARS}->{'construction'} eq '1')) { |
| &addMessage('<br />' |
&addMessage('<br />' |
| .'<h3>'.&mt('Print Options').'</h3>' |
.'<h3>'.&mt('Print Options').'</h3>' |
|
Line 4053 FONT_SELECTION
|
Line 4371 FONT_SELECTION
|
| <choice computer="problem">Homework Problem</choice> |
<choice computer="problem">Homework Problem</choice> |
| <choice computer="exam">Exam Problem</choice> |
<choice computer="exam">Exam Problem</choice> |
| <choice computer="survey">Survey question</choice> |
<choice computer="survey">Survey question</choice> |
| |
,choice computer="anonsurvey"Anonymous survey question</choice> |
| </dropdown> |
</dropdown> |
| PROBTYPE |
PROBTYPE |
| &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
|
Line 4087 PROBTYPE
|
Line 4406 PROBTYPE
|
| return $helper; |
return $helper; |
| } |
} |
| |
|
| $r->print($helper->display()); |
my $footer; |
| if ($helper->{STATE} eq 'START') { |
if ($helper->{STATE} eq 'START') { |
| &recently_generated($r); |
my $prtspool=$r->dir_config('lonPrtDir'); |
| |
$footer = &recently_generated($prtspool); |
| } |
} |
| |
$r->print($helper->display($footer)); |
| &Apache::lonhelper::unregisterHelperTags(); |
&Apache::lonhelper::unregisterHelperTags(); |
| |
|
| return OK; |
return OK; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonprintout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface