|
version 1.542, 2008/09/23 11:57:58
|
version 1.560, 2009/08/03 11:01:14
|
|
Line 40 use Apache::lonnavmaps;
|
Line 40 use Apache::lonnavmaps;
|
| use Apache::admannotations; |
use Apache::admannotations; |
| use Apache::lonenc; |
use Apache::lonenc; |
| use Apache::entities; |
use Apache::entities; |
| |
use Apache::londefdef; |
| |
|
| |
use File::Basename; |
| |
|
| use HTTP::Response; |
use HTTP::Response; |
| |
|
|
Line 67 my $ssi_last_error; # The error text fr
|
Line 70 my $ssi_last_error; # The error text fr
|
| my $ssi_retry_count = 5; # Some arbitrary value. |
my $ssi_retry_count = 5; # Some arbitrary value. |
| |
|
| |
|
| |
# Font size: |
| |
|
| |
my $font_size = 'normalsize'; # Default is normalsize... |
| |
|
| |
|
| # Fetch the contents of a resource, uninterpreted. |
# Fetch the contents of a resource, uninterpreted. |
| # This is used here to fetch a latex file to be included |
# This is used here to fetch a latex file to be included |
|
Line 97 sub fetch_raw_resource {
|
Line 104 sub fetch_raw_resource {
|
| sub annotate { |
sub annotate { |
| my ($symb) = @_; |
my ($symb) = @_; |
| |
|
| my $annotation_text = &Apache::admannotations::get_annotation($symb, 1); |
my $annotation_text = &Apache::loncommon::get_annotation($symb, 1); |
| |
|
| |
|
| my $result = ""; |
my $result = ""; |
|
Line 111 sub annotate {
|
Line 118 sub annotate {
|
| return $result; |
return $result; |
| } |
} |
| |
|
| |
# |
| |
# Set a global document font size: |
| |
# This is done by replacing \begin{document} |
| |
# with \begin{document}{\some-font-directive |
| |
# and \end{document} with |
| |
# }\end{document |
| |
# |
| |
sub set_font_size { |
| |
|
| |
my ($text) = @_; |
| |
|
| |
$text =~ s/\\begin{document}/\\begin{document}{\\$font_size/; |
| |
$text =~ s/\\end{document}/}\\end{document}/; |
| |
return $text; |
| |
|
| |
|
| |
} |
| |
|
| |
# include_pdf - PDF files are included into the |
| |
# output as follows: |
| |
# - The PDF, if necessary, is replicated. |
| |
# - The PDF is added to the list of files to convert to postscript (along with the images). |
| |
# - The LaTeX is added to include the final converted postscript in the file as an included |
| |
# job. The assumption is that the includedpsheader.ps header will be included. |
| |
# |
| |
# Parameters: |
| |
# pdf_uri - URI of the PDF file to include. |
| |
# |
| |
# Returns: |
| |
# The LaTeX to include. |
| # |
# |
| # ssi_with_retries - Does the server side include of a resource. |
# Assumptions: |
| |
# The uri is actually a PDF file |
| |
# The postscript will have the includepsheader.ps included. |
| |
# |
| |
# |
| |
sub include_pdf { |
| |
my ($pdf_uri) = @_; |
| |
|
| |
# Where is the file? If not local we'll need to repcopy it:' |
| |
|
| |
my $file = &Apache::lonnet::filelocation('', $pdf_uri); |
| |
if (! -e $file) { |
| |
&Apache::lonnet::repcopy($file); |
| |
$file = &Apache::lonnet::filelocation('',$pdf_uri); |
| |
} |
| |
|
| |
# The file isn ow replicated locally.. or it did not exist in the first place |
| |
# (unlikely). If it did exist, add the pdf to the set of files/images that |
| |
# need tob e converted for this print job: |
| |
|
| |
$file =~ s|(.*)/res/|/home/httpd/html/res/|; |
| |
|
| |
open(FILE,">>/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat"); |
| |
print FILE ("$file\n"); |
| |
close (FILE); |
| |
|
| |
# Construct the special to put out. To do this we need to get the |
| |
# resulting filename after conversion. The file will have the same name |
| |
# but will be in the user's spool directory with converted images. |
| |
|
| |
my $dirname = "/home/httpd/prtspool/$env{'user.name'}/"; |
| |
my ( $base, $path, $ext) = &fileparse($file, '.pdf'); |
| |
# my $destname = $dirname.'/'.$base.'.eps'; # Not really an eps but easier in printout.pl |
| |
$base =~ s/ /\_/g; |
| |
|
| |
|
| |
my $output = &print_latex_header(); |
| |
$output .= '\special{ps: _begin_job_ (' |
| |
.$base.'.pdf.eps'. |
| |
')run _end_job_}'; |
| |
|
| |
return $output; |
| |
|
| |
|
| |
} |
| |
|
| |
|
| |
# |
| |
# ssi_with_retries- Does the server side include of a resource. |
| # if the ssi call returns an error we'll retry it up to |
# if the ssi call returns an error we'll retry it up to |
| # 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 |
|
Line 146 sub annotate {
|
Line 230 sub annotate {
|
| sub ssi_with_retries { |
sub ssi_with_retries { |
| my ($resource, $retries, %form) = @_; |
my ($resource, $retries, %form) = @_; |
| |
|
| |
my $target = $form{'grade_target'}; |
| |
my $aom = $form{'answer_output_mode'}; |
| |
|
| |
|
| |
|
| my ($content, $response) = &Apache::loncommon::ssi_with_retries($resource, $retries, %form); |
my ($content, $response) = &Apache::loncommon::ssi_with_retries($resource, $retries, %form); |
| if (!$response->is_success) { |
if (!$response->is_success) { |
|
Line 860 sub old_character_chart {
|
Line 948 sub old_character_chart {
|
| $result =~ s/&(rdquo|#8221);/\'\'/g; |
$result =~ s/&(rdquo|#8221);/\'\'/g; |
| |
|
| |
|
| |
|
| return $result; |
return $result; |
| } |
} |
| |
|
|
Line 1021 sub page_format_transformation {
|
Line 1110 sub page_format_transformation {
|
| $fancypagestatement="\\rhead{}\\chead{}\\lhead{$header_text}"; |
$fancypagestatement="\\rhead{}\\chead{}\\lhead{$header_text}"; |
| } |
} |
| if ($layout eq 'album') { |
if ($layout eq 'album') { |
| $text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}$topmargintoinsert\n\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\n\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\usepackage{fancyhdr}\\addtolength{\\headheight}{\\baselineskip}\n\\pagestyle{fancy}$fancypagestatement\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}\n /; |
$text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}$topmargintoinsert\n\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\n\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\usepackage{fancyhdr}\\addtolength{\\headheight}{\\baselineskip}\n\\pagestyle{fancy}$fancypagestatement\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}\n /; |
| } elsif ($layout eq 'book') { |
} elsif ($layout eq 'book') { |
| if ($choice ne 'All class print') { |
if ($choice ne 'All class print') { |
| $text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset $topmargintoinsert\n\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\n\\renewcommand{\\ref}{\\keephidden\}\\usepackage{fancyhdr}\\addtolength{\\headheight}{\\baselineskip}\\pagestyle{fancy}$fancypagestatement\\begin{document}\n\\voffset=-0\.8 cm\\setcounter{page}{1}\n/; |
$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{}\\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}/; |
$text =~ s/(\\begin{document})/$1\\special{papersize=210mm,297mm}/; |
|
Line 1149 sub IndexCreation {
|
Line 1238 sub IndexCreation {
|
| |
|
| sub print_latex_header { |
sub print_latex_header { |
| my $mode=shift; |
my $mode=shift; |
| my $output='\documentclass[letterpaper,twoside]{article}\raggedbottom'; |
|
| if (($mode eq 'batchmode') || (!$perm{'pav'})) { |
return &Apache::londefdef::latex_header($mode); |
| $output.='\batchmode'; |
|
| } |
|
| $output.='\newcommand{\keephidden}[1]{}\renewcommand{\deg}{$^{\circ}$}'."\n". |
|
| '\usepackage{multirow}'."\n". |
|
| '\usepackage{longtable}\usepackage{textcomp}\usepackage{makeidx}'."\n". |
|
| '\usepackage[dvips]{graphicx}\usepackage{epsfig}'."\n". |
|
| '\usepackage{wrapfig}'. |
|
| '\usepackage{picins}\usepackage{calc}'."\n". |
|
| '\usepackage[T1]{fontenc}'."\n". |
|
| '\usepackage[postscript]{ucs}'."\n". |
|
| '\usepackage[utf8x]{inputenc}'."\n". |
|
| '\usepackage{pifont}' . "\n". |
|
| '\usepackage{latexsym}'."\n". |
|
| '\usepackage{amsmath}'. |
|
| '\usepackage{amssymb}'. |
|
| '\usepackage{amsfonts}'. |
|
| '\usepackage{amsthm}'. |
|
| '\usepackage{amscd}'. |
|
| '\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'."\n". |
|
| '\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'."\n". |
|
| '\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}'."\n". |
|
| '\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}'."\n". |
|
| '\setlength{\abovedisplayshortskip}{-0.04in}'."\n". |
|
| '\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}'."\n". |
|
| '\renewenvironment{theindex}{\begin{list}{}{{\vskip 1mm \noindent \large'."\n". |
|
| '\textbf{Index}} \newline \setlength{\rightmargin}{0in}'."\n". |
|
| '\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.01in}'."\n". |
|
| '\setlength{\itemsep}{0.1in}\setlength{\parsep}{-0.02in}'."\n". |
|
| '\setlength{\belowdisplayskip}{0.01in}\setlength{\abovedisplayskip}{0.01in}'."\n". |
|
| '\setlength{\abovedisplayshortskip}{-0.04in}'."\n". |
|
| '\setlength{\belowdisplayshortskip}{0.01in}}}{\end{list}}\begin{document}'."\n"; |
|
| return $output; |
|
| } |
} |
| |
|
| sub path_to_problem { |
sub path_to_problem { |
|
Line 1253 sub unsupported {
|
Line 1310 sub unsupported {
|
| return $result; |
return $result; |
| } |
} |
| |
|
| |
# |
| |
# Map from helper layout style to the book/album: |
| |
# |
| |
sub map_laystyle { |
| |
my ($laystyle) = @_; |
| |
if ($laystyle eq 'L') { |
| |
$laystyle='album'; |
| |
} else { |
| |
$laystyle='book'; |
| |
} |
| |
return $laystyle; |
| |
} |
| |
|
| |
sub print_page_in_course { |
| |
my ($helper, $rparmhash, $currentURL, $resources) = @_; |
| |
my %parmhash = %$rparmhash; |
| |
my @page_resources = @$resources; |
| |
my $mode = $helper->{'VARS'}->{'LATEX_TYPE'}; |
| |
my $symb = $helper->{'VARS'}->{'symb'}; |
| |
|
| |
|
| |
my $format_from_helper = $helper->{'VARS'}->{'FORMAT'}; |
| |
|
| |
|
| |
my @temporary_array=split /\|/,$format_from_helper; |
| |
my ($laystyle,$numberofcolumns,$papersize,$pdfFormFields)=@temporary_array; |
| |
$laystyle = &map_laystyle($laystyle); |
| |
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle, |
| |
$numberofcolumns); |
| |
my $LaTeXwidth=&recalcto_mm($textwidth); |
| |
|
| |
|
| |
if ($mode ne '') {$mode='\\'.$mode} |
| |
my $result.= &print_latex_header($mode); |
| |
if ($currentURL=~m|^(/adm/wrapper/)?ext/|) { |
| |
$currentURL=~s|^(/adm/wrapper/)?ext/|http://|; |
| |
my $title=&Apache::lonnet::gettitle($symb); |
| |
$title = &Apache::lonxml::latex_special_symbols($title); |
| |
} else { |
| |
$result.=$currentURL; |
| |
} |
| |
$result .= '\\\\'; |
| |
|
| |
if ($helper->{'VARS'}->{'style_file'}=~/\w/) { |
| |
&Apache::lonnet::appenv({'construct.style' => |
| |
$helper->{'VARS'}->{'style_file'}}); |
| |
} elsif ($env{'construct.style'}) { |
| |
&Apache::lonnet::delenv('construct.style'); |
| |
} |
| |
|
| |
# First is the overall page description. This is then followed by the |
| |
# components of the page. Each of which must be printed independently. |
| |
|
| |
my $the_page = shift(@page_resources); |
| |
|
| |
foreach my $resource (@page_resources) { |
| |
my $resource_src = $resource->src(); # Essentially the URL of the resource. |
| |
$result .= $resource->title() . '\\\\'; |
| |
|
| |
# Recurse if a .page: |
| |
|
| |
if ($resource_src =~ /.page$/i) { |
| |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| |
my @page_resources = $navmap->retrieveResources($resource_src); |
| |
$result .= &print_page_in_course($helper, $rparmhash, |
| |
$resource_src, \@page_resources); |
| |
} |
| |
# these resources go through the XML transformer: |
| |
|
| |
elsif ($resource_src =~ /\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm\xhtml|xhtm)$/) { |
| |
my $urlp = &Apache::lonnet::clutter($resource_src); |
| |
my %form; |
| |
my %moreenv; |
| |
|
| |
&Apache::lonxml::remember_problem_counter(); |
| |
$moreenv{'request.filename'}=$urlp; |
| |
if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {$form{'problemtype'}='exam';} |
| |
|
| |
$form{'grade_target'} = 'tex'; |
| |
$form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth); |
| |
$form{'pdfFormFiels'} = $pdfFormFields; # |
| |
$form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'}; |
| |
|
| |
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
| |
$form{'suppress_tries'}=$parmhash{'suppress_tries'}; |
| |
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; |
| |
$form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'}; |
| |
$form{'print_annotations'}=$helper->{'VARS'}->{'PRINT_ANNOTATIONS'}; |
| |
if (($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') || |
| |
($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes')) { |
| |
$form{'problem_split'}='yes'; |
| |
} |
| |
my $rndseed = time; |
| |
if ($helper->{'VARS'}->{'curseed'}) { |
| |
$rndseed=$helper->{'VARS'}->{'curseed'}; |
| |
} |
| |
$form{'rndseed'}=$rndseed; |
| |
&Apache::lonnet::appenv(\%moreenv); |
| |
|
| |
&Apache::lonxml::clear_problem_counter(); |
| |
|
| |
my $texversion = &ssi_with_retries($urlp, $ssi_retry_count, %form); |
| |
|
| |
# There seems to be an extraneous \vskip 1mm \\\\ : |
| |
|
| |
$texversion =~ s/^\\vskip 1mm \\\\\\\\//; |
| |
|
| |
# current document with answers.. no need to encap in minipage |
| |
# since there's only one answer. |
| |
|
| |
if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || |
| |
($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { |
| |
my %answerform = %form; |
| |
|
| |
|
| |
$answerform{'problem_split'}=$parmhash{'problem_stream_switch'}; |
| |
$answerform{'grade_target'}='answer'; |
| |
$answerform{'answer_output_mode'}='tex'; |
| |
$answerform{'rndseed'}=$rndseed; |
| |
if ($helper->{'VARS'}->{'probstatus'} eq 'exam') { |
| |
$answerform{'problemtype'}='exam'; |
| |
} |
| |
$resources_printed .= $urlp.':'; |
| |
my $answer=&ssi_with_retries($urlp,$ssi_retry_count, %answerform); |
| |
|
| |
if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
| |
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
| |
} else { |
| |
$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
| |
if ($helper->{'VARS'}->{'construction'} ne '1') { |
| |
my $title = &Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}); |
| |
$title = &Apache::lonxml::latex_special_symbols($title); |
| |
$texversion.='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm '; |
| |
$texversion.=&path_to_problem($urlp,$LaTeXwidth); |
| |
} else { |
| |
$texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm '; |
| |
my $URLpath=$urlp; |
| |
$URLpath=~s/~([^\/]+)/public_html\/$1\/$1/; |
| |
$texversion.=&path_to_problem($URLpath,$LaTeXwidth); |
| |
} |
| |
$texversion.='\vskip 1 mm '.$answer.'\end{document}'; |
| |
} |
| |
|
| |
|
| |
|
| |
|
| |
|
| |
} |
| |
# Print annotations. |
| |
|
| |
|
| |
if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') { |
| |
my $annotation .= &annotate($currentURL); |
| |
$texversion =~ s/(\\keephidden{ENDOFPROBLEM})/$annotation$1/; |
| |
} |
| |
|
| |
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { |
| |
$texversion=&IndexCreation($texversion,$currentURL); |
| |
} |
| |
if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') { |
| |
$texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$currentURL| \\strut\\\\\\strut /; |
| |
|
| |
} |
| |
$result .= $texversion; |
| |
if ($currentURL=~m/\.page\s*$/) { |
| |
($result,$numberofcolumns) = &page_cleanup($result); |
| |
} |
| |
} |
| |
} |
| |
|
| |
$result.= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill} \end{document}'; |
| |
return $result; |
| |
} |
| |
|
| |
|
| # |
# |
| # List of recently generated print files |
# List of recently generated print files |
|
Line 1280 sub recently_generated {
|
Line 1511 sub recently_generated {
|
| $cuid,$cgid,$crdev,$csize, |
$cuid,$cgid,$crdev,$csize, |
| $catime,$cmtime,$cctime, |
$catime,$cmtime,$cctime, |
| $cblksize,$cblocks)=stat($prtspool.'/'.$filename); |
$cblksize,$cblocks)=stat($prtspool.'/'.$filename); |
| my $result="<a href='/prtspool/$filename'>". |
my $ext_text = 'pdf' ? &mt('PDF File'):&mt('Zip File'); |
| &mt('Generated [_1] ([_2] bytes)', |
my $result=&Apache::loncommon::start_data_table_row() |
| &Apache::lonlocal::locallocaltime($cctime),$csize). |
.'<td>' |
| '</a><br />'; |
.'<a href="/prtspool/'.$filename.'">'.$ext_text.'</a>' |
| |
.'</td>' |
| |
.'<td>'.&Apache::lonlocal::locallocaltime($cctime).'</td>' |
| |
.'<td align="right">'.$csize.'</td>' |
| |
.&Apache::loncommon::end_data_table_row(); |
| if ($ext eq 'pdf') { $pdf_result .= $result; } |
if ($ext eq 'pdf') { $pdf_result .= $result; } |
| if ($ext eq 'zip') { $zip_result .= $result; } |
if ($ext eq 'zip') { $zip_result .= $result; } |
| } |
} |
| |
if ($zip_result || $pdf_result) { |
| |
$r->print('<hr />'); |
| |
} |
| if ($zip_result) { |
if ($zip_result) { |
| $r->print('<h4>'.&mt('Recently generated printout zip files')."</h4>\n" |
$r->print('<h3>'.&mt('Recently generated printout zip files')."</h3>\n" |
| .$zip_result); |
.&Apache::loncommon::start_data_table() |
| |
.&Apache::loncommon::start_data_table_header_row() |
| |
.'<th>'.&mt('Download').'</th>' |
| |
.'<th>'.&mt('Creation Date').'</th>' |
| |
.'<th>'.&mt('File Size (Bytes)').'</th>' |
| |
.&Apache::loncommon::end_data_table_header_row() |
| |
.$zip_result |
| |
.&Apache::loncommon::end_data_table() |
| |
); |
| } |
} |
| if ($pdf_result) { |
if ($pdf_result) { |
| $r->print('<h4>'.&mt('Recently generated printouts')."</h4>\n" |
$r->print('<h3>'.&mt('Recently generated printouts')."</h3>\n" |
| .$pdf_result); |
.&Apache::loncommon::start_data_table() |
| |
.&Apache::loncommon::start_data_table_header_row() |
| |
.'<th>'.&mt('Download').'</th>' |
| |
.'<th>'.&mt('Creation Date').'</th>' |
| |
.'<th>'.&mt('File Size (Bytes)').'</th>' |
| |
.&Apache::loncommon::end_data_table_header_row() |
| |
.$pdf_result |
| |
.&Apache::loncommon::end_data_table() |
| |
); |
| } |
} |
| } |
} |
| |
|
|
Line 1400 sub print_construction_sequence {
|
Line 1654 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 '; |
|
Line 1419 sub print_construction_sequence {
|
Line 1673 sub print_construction_sequence {
|
| $helper, %form, |
$helper, %form, |
| $LaTeXwidth); |
$LaTeXwidth); |
| } |
} |
| } |
} |
| |
elsif ($urlp =~ /\.pdf$/i) { |
| |
my $texversion; |
| |
if ($member != 0) { |
| |
$texversion .= '\cleardoublepage'; |
| |
} |
| |
|
| |
$texversion .= &include_pdf($urlp); |
| |
$texversion = &latex_header_footer_remove($texversion); |
| |
if ($member != $#order) { |
| |
$texversion .= '\\ \cleardoublepage'; |
| |
} |
| |
|
| |
$result .= $texversion; |
| |
} |
| } |
} |
| if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;} |
if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;} |
| return $result; |
return $result; |
|
Line 1430 sub output_data {
|
Line 1698 sub output_data {
|
| 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'}; |
| my $do_postprocessing = 1; |
my $do_postprocessing = 1; |
| my $js = <<ENDPART; |
my $js = <<ENDPART; |
| <script type="text/javascript"> |
<script type="text/javascript"> |
|
Line 1459 sub output_data {
|
Line 1728 sub output_data {
|
| ENDPART |
ENDPART |
| |
|
| |
|
| |
# Breadcrumbs |
| my $start_page = &Apache::loncommon::start_page('Preparing Printout',$js); |
#FIXME: Choose better/different breadcrumbs?!? Links? |
| |
my $brcrum = [{'href' => '', |
| |
'text' => 'Helper'}, #FIXME: Different origin possible than print out helper? |
| |
{'href' => '', |
| |
'text' => 'Preparing Printout'}]; |
| |
|
| |
my $start_page = &Apache::loncommon::start_page('Preparing Printout', |
| |
$js, |
| |
{'bread_crumbs' => $brcrum,}); |
| my $msg = &mt('Please stand by while processing your print request, this may take some time ...'); |
my $msg = &mt('Please stand by while processing your print request, this may take some time ...'); |
| |
|
| $r->print($start_page."\n<p>\n$msg\n</p>\n"); |
$r->print($start_page."\n<p>\n$msg\n</p>\n"); |
|
Line 1482 ENDPART
|
Line 1759 ENDPART
|
| my $number_of_columns = 1; #used only for pages to determine the width of the cell |
my $number_of_columns = 1; #used only for pages to determine the width of the cell |
| my @temporary_array=split /\|/,$format_from_helper; |
my @temporary_array=split /\|/,$format_from_helper; |
| my ($laystyle,$numberofcolumns,$papersize,$pdfFormFields)=@temporary_array; |
my ($laystyle,$numberofcolumns,$papersize,$pdfFormFields)=@temporary_array; |
| if ($laystyle eq 'L') { |
|
| $laystyle='album'; |
$laystyle = &map_laystyle($laystyle); |
| } else { |
|
| $laystyle='book'; |
|
| } |
|
| my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns); |
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns); |
| my $assignment = $env{'form.assignment'}; |
my $assignment = $env{'form.assignment'}; |
| my $LaTeXwidth=&recalcto_mm($textwidth); |
my $LaTeXwidth=&recalcto_mm($textwidth); |
|
Line 1519 ENDPART
|
Line 1793 ENDPART
|
| &Apache::lonnet::appenv({'construct.style' => |
&Apache::lonnet::appenv({'construct.style' => |
| $helper->{'VARS'}->{'style_file'}}); |
$helper->{'VARS'}->{'style_file'}}); |
| } elsif ($env{'construct.style'}) { |
} elsif ($env{'construct.style'}) { |
| &Apache::lonnet::delenv('construct\\.style'); |
&Apache::lonnet::delenv('construct.style'); |
| } |
} |
| |
|
| |
|
|
Line 1540 ENDPART
|
Line 1814 ENDPART
|
| } |
} |
| $selectionmade = 1; |
$selectionmade = 1; |
| if ($cleanURL!~m|^/adm/| |
if ($cleanURL!~m|^/adm/| |
| && $cleanURL=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) { |
&& $cleanURL=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) { |
| my $rndseed=time; |
my $rndseed=time; |
| my $texversion=''; |
my $texversion=''; |
| if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') { |
if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') { |
|
Line 1610 ENDPART
|
Line 1884 ENDPART
|
| |
|
| |
|
| |
|
| |
|
| } |
} |
| # Print annotations. |
# Print annotations. |
| |
|
|
Line 1632 ENDPART
|
Line 1907 ENDPART
|
| ($result,$number_of_columns) = &page_cleanup($result); |
($result,$number_of_columns) = &page_cleanup($result); |
| } |
} |
| } elsif ($cleanURL!~m|^/adm/| |
} elsif ($cleanURL!~m|^/adm/| |
| && $currentURL=~/\.sequence$/ && $helper->{'VARS'}->{'construction'} eq '1') { |
&& $currentURL=~/\.(sequence|page)$/ && $helper->{'VARS'}->{'construction'} eq '1') { |
| #printing content of sequence from the construction space |
#printing content of sequence from the construction space |
| |
|
| |
|
| $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|; |
$currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|; |
| $result .= &print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
# $result .= &print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
| $result .= &print_construction_sequence($currentURL, $helper, %form, |
$result .= &print_construction_sequence($currentURL, $helper, %form, |
| $LaTeXwidth); |
$LaTeXwidth); |
| $result .= '\end{document}'; |
$result .= '\end{document}'; |
|
Line 1653 ENDPART
|
Line 1930 ENDPART
|
| $texversion =~ s/(\\end{document})/$annotation$1/; |
$texversion =~ s/(\\end{document})/$annotation$1/; |
| } |
} |
| $result .= $texversion; |
$result .= $texversion; |
| } elsif ($cleanURL =~/.tex$/) { |
} elsif ($cleanURL =~/\.tex$/) { |
| # For this sort of print of a single LaTeX file, |
# For this sort of print of a single LaTeX file, |
| # We can just print the LaTeX file as it is uninterpreted in any way: |
# We can just print the LaTeX file as it is uninterpreted in any way: |
| # |
# |
|
Line 1666 ENDPART
|
Line 1943 ENDPART
|
| |
|
| $do_postprocessing = 0; # Don't massage the result. |
$do_postprocessing = 0; # Don't massage the result. |
| |
|
| |
} elsif ($cleanURL =~ /\.pdf$/i) { |
| |
$result .= &include_pdf($cleanURL); |
| |
$result .= '\end{document}'; |
| |
} elsif ($cleanURL =~ /\.page$/i) { # Print page in non construction space contexts. |
| |
|
| |
# Determine the set of resources in the map of the page: |
| |
|
| |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| |
my @page_resources = $navmap->retrieveResources($cleanURL); |
| |
$result .= &print_page_in_course($helper, $rparmhash, |
| |
$cleanURL, \@page_resources); |
| |
|
| |
|
| } else { |
} else { |
| |
&Apache::lonnet::logthis("Unsupported type handler"); |
| $result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'}, |
$result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'}, |
| $helper->{'VARS'}->{'symb'}); |
$helper->{'VARS'}->{'symb'}); |
| } |
} |
|
Line 1737 ENDPART
|
Line 2028 ENDPART
|
| &Apache::lonxml::remember_problem_counter(); |
&Apache::lonxml::remember_problem_counter(); |
| $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}/; |
|
Line 1759 ENDPART
|
Line 2051 ENDPART
|
| } else { |
} else { |
| if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { |
| $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
$texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); |
| |
$texversion =~ s/\\begin{document}//; |
| 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 1794 ENDPART
|
Line 2087 ENDPART
|
| $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 '; |
| } else { |
} else { |
|
Line 1814 ENDPART
|
Line 2108 ENDPART
|
| |
|
| if ($flag_latex_header_remove ne 'NO') { |
if ($flag_latex_header_remove ne 'NO') { |
| $texversion = &latex_header_footer_remove($texversion); |
$texversion = &latex_header_footer_remove($texversion); |
| } else { |
} else { |
| $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) { |
| |
if ($i > 0) { |
| |
$result .= '\cleardoublepage'; |
| |
} |
| |
$result .= &include_pdf($urlp); |
| |
if ($i != $#master_seq) { |
| |
if ($numberofcolumns eq '1') { |
| |
$result .= '\newpage'; |
| |
} else { |
| |
# the \\'s seem to be needed to let LaTeX know there's something |
| |
# on the page since LaTeX seems to not like to clear an empty page. |
| |
# |
| |
$result .= '\\ \cleardoublepage'; |
| |
} |
| |
} |
| |
$flag_latex_header_remove = 'YES'; |
| |
|
| } else { |
} else { |
| $texversion=&unsupported($urlp,$helper->{'VARS'}->{'LATEX_TYPE'}, |
$texversion=&unsupported($urlp,$helper->{'VARS'}->{'LATEX_TYPE'}, |
| $master_seq[$i]); |
$master_seq[$i]); |
|
Line 1830 ENDPART
|
Line 2141 ENDPART
|
| $result .= $texversion; |
$result .= $texversion; |
| $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::lonxml::clear_problem_counter(); |
&Apache::lonxml::clear_problem_counter(); |
| if ($flag_page_in_sequence eq 'YES') { |
if ($flag_page_in_sequence eq 'YES') { |
|
Line 1884 ENDPART
|
Line 2197 ENDPART
|
| my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; |
my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; |
| |
|
| #loop over students |
#loop over students |
| my $flag_latex_header_remove = 'NO'; |
my $flag_latex_header_remove = 'NO'; |
| my %moreenv; |
my %moreenv; |
| $moreenv{'instructor_comments'}='hide'; |
$moreenv{'instructor_comments'}='hide'; |
| $moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); |
$moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); |
|
Line 2130 ENDPART
|
Line 2443 ENDPART
|
| $URLback=~s|^/~|/priv/|; |
$URLback=~s|^/~|/priv/|; |
| } |
} |
| } |
} |
| |
# |
| |
# Final adjustment of the font size: |
| |
# |
| |
|
| |
$result = set_font_size($result); |
| |
|
| #-- writing .tex file in prtspool |
#-- writing .tex file in prtspool |
| my $temp_file; |
my $temp_file; |
|
Line 2214 ENDPART
|
Line 2532 ENDPART
|
| # If there's been an unrecoverable SSI error, report it to the user |
# If there's been an unrecoverable SSI error, report it to the user |
| if ($ssi_error) { |
if ($ssi_error) { |
| my $helpurl = &Apache::loncommon::top_nav_help('Helpdesk'); |
my $helpurl = &Apache::loncommon::top_nav_help('Helpdesk'); |
| $r->print('<br /><h2>'.&mt('An unrecoverable network error occurred:').'</h2><p> '. |
$r->print('<br /><p class="LC_error">'.&mt('An unrecoverable network error occurred:').'</p><p>'. |
| &mt('At least one of the resources you chose to print could not be rendered due to an unrecoverable error when communicating with a server:'). |
&mt('At least one of the resources you chose to print could not be rendered due to an unrecoverable error when communicating with a server:'). |
| '<br />'.$ssi_last_error_resource.'<br />'.$ssi_last_error. |
'<br />'.$ssi_last_error_resource.'<br />'.$ssi_last_error. |
| '</p><p>'.&mt('You can continue using the link provided below, but make sure to carefully inspect your output file! The errors will be marked in the file.').'<br />'. |
'</p><p>'.&mt('You can continue using the link provided below, but make sure to carefully inspect your output file! The errors will be marked in the file.').'<br />'. |
|
Line 2299 sub print_resources {
|
Line 2617 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); |
|
Line 2321 sub print_resources {
|
Line 2638 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}//; #<<<<< |
| 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 2356 sub print_resources {
|
Line 2674 sub print_resources {
|
| $rendered =~ s/\\end{document}//; |
$rendered =~ s/\\end{document}//; |
| } |
} |
| $current_output .= $rendered.'\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\strut \vskip 0 mm \strut '; |
$current_output .= $rendered.'\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\strut \vskip 0 mm \strut '; |
| |
} elsif($res_url = ~/\.pdf$/) { |
| |
my $url = &Apache::lonnet::clutter($res_url); |
| |
my $rendered = &include_pdf($url); |
| |
if ($remove_latex_header ne 'NO') { |
| |
$rendered = &latex_header_footer_remove($rendered); |
| |
} |
| |
$current_output .= $rendered; |
| } else { |
} else { |
| my $rendered = &unsupported($res_url,$helper->{'VARS'}->{'LATEX_TYPE'},$curresline); |
my $rendered = &unsupported($res_url,$helper->{'VARS'}->{'LATEX_TYPE'},$curresline); |
| if ($remove_latex_header ne 'NO') { |
if ($remove_latex_header ne 'NO') { |
|
Line 2368 sub print_resources {
|
Line 2692 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; } |
| } |
} |
| |
|
| |
|
| 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 2379 sub print_resources {
|
Line 2705 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/) { |
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 /; |
| } else { |
} else { |
|
Line 2463 sub get_randomly_ordered_warning {
|
Line 2788 sub get_randomly_ordered_warning {
|
| |
|
| my $postdata = $env{'form.postdata'} || $helper->{VARS}{'postdata'}; |
my $postdata = $env{'form.postdata'} || $helper->{VARS}{'postdata'}; |
| my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
| my $res = $navmap->getResourceByUrl($map); |
if (defined($navmap)) { |
| if ($res) { |
my $res = $navmap->getResourceByUrl($map); |
| my $func = |
if ($res) { |
| sub { return ($_[0]->is_map() && $_[0]->randomorder); }; |
my $func = |
| my @matches = $navmap->retrieveResources($res, $func,1,1,1); |
sub { return ($_[0]->is_map() && $_[0]->randomorder); }; |
| if (@matches) { |
my @matches = $navmap->retrieveResources($res, $func,1,1,1); |
| $message = "Some of the items below are in folders set to be randomly ordered. However, when printing the contents of these folders, they will be printed in the original order for all students, not the randomized order."; |
if (@matches) { |
| } |
$message = "Some of the items below are in folders set to be randomly ordered. However, when printing the contents of these folders, they will be printed in the original order for all students, not the randomized order."; |
| } |
} |
| if ($message) { |
} |
| return '<message type="warning">'.$message.'</message>'; |
if ($message) { |
| |
return '<message type="warning">'.$message.'</message>'; |
| |
} |
| |
} else { |
| |
$message = "Retrieval of information about ordering of resources failed."; |
| |
return '<message type="warning">'.$message.'</message>'; |
| } |
} |
| return; |
return; |
| } |
} |
|
Line 2551 sub printHelper {
|
Line 2881 sub printHelper {
|
| |
|
| } |
} |
| |
|
| |
|
| # Detect whether we're coming from construction space |
# Detect whether we're coming from construction space |
| if ($env{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) { |
if ($env{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) { |
| $helper->{VARS}->{'filename'} = "~$1/$2"; |
$helper->{VARS}->{'filename'} = "~$1/$2"; |
|
Line 2668 sub printHelper {
|
Line 2997 sub printHelper {
|
| } |
} |
| |
|
| if (($helper->{'VARS'}->{'construction'} ne '1' ) && |
if (($helper->{'VARS'}->{'construction'} ne '1' ) && |
| |
|
| $helper->{VARS}->{'postdata'} && |
$helper->{VARS}->{'postdata'} && |
| $helper->{VARS}->{'assignment'}) { |
$helper->{VARS}->{'assignment'}) { |
| # Allow problems from sequence |
# Allow problems from sequence |
| push @{$printChoices}, [&mt('Selected <b>Problems</b> in folder <b><i>[_1]</i></b>',$sequenceTitle), 'map_problems', 'CHOOSE_PROBLEMS']; |
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'), 'map_problems', 'CHOOSE_PROBLEMS']; |
| # Allow all resources from sequence |
# Allow all resources from sequence |
| push @{$printChoices}, [&mt('Selected <b>Resources</b> in folder <b><i>[_1]</i></b>',$sequenceTitle), 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML']; |
push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'), 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML']; |
| |
|
| my $helperFragment = <<HELPERFRAGMENT; |
my $helperFragment = <<HELPERFRAGMENT; |
| <state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print"> |
<state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print"> |
|
Line 2703 HELPERFRAGMENT
|
Line 3031 HELPERFRAGMENT
|
| &Apache::lonxml::xmlparse($r, 'helper', $helperFragment); |
&Apache::lonxml::xmlparse($r, 'helper', $helperFragment); |
| } |
} |
| |
|
| # If the user has pfo (print for otheres) allow them to print all |
# If the user has pfo (print for others) allow them to print all |
| # problems and resources in the entier course, optionally for selected students |
# problems and resources in the entire course, optionally for selected students |
| if ($perm{'pfo'} && !$is_published && |
if ($perm{'pfo'} && !$is_published && |
| ($helper->{VARS}->{'postdata'}=~/\/res\// || $helper->{VARS}->{'postdata'}=~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) { |
($helper->{VARS}->{'postdata'}=~/\/res\// || $helper->{VARS}->{'postdata'}=~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) { |
| |
|
|
Line 2754 HELPERFRAGMENT
|
Line 3082 HELPERFRAGMENT
|
| ALL_PROBLEMS |
ALL_PROBLEMS |
| |
|
| if ($helper->{VARS}->{'assignment'}) { |
if ($helper->{VARS}->{'assignment'}) { |
| push @{$printChoices}, [&mt("Selected <b>Problems</b> from folder <b><i>[_1]</i></b> for <b>selected people</b>",$sequenceTitle), 'problems_for_students', 'CHOOSE_STUDENTS']; |
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]selected people[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'problems_for_students', 'CHOOSE_STUDENTS']; |
| push @{$printChoices}, [&mt("Selected <b>Problems</b> from folder <b><i>[_1]</i></b> for <b>CODEd assignments</b>",$sequenceTitle), 'problems_for_anon', 'CHOOSE_ANON1']; |
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]CODEd assignments[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'problems_for_anon', 'CHOOSE_ANON1']; |
| } |
} |
| |
|
| my $randomly_ordered_warning = |
my $randomly_ordered_warning = |
|
Line 2933 CHOOSE_ANON1
|
Line 3261 CHOOSE_ANON1
|
| |
|
| |
|
| if ($helper->{VARS}->{'assignment'}) { |
if ($helper->{VARS}->{'assignment'}) { |
| push @{$printChoices}, [&mt("Selected <b>Resources</b> from folder <b><i>[_1]</i></b> for <b>selected people</b>",$sequenceTitle), '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 <b>Resources</b> from folder <b><i>[_1]</i></b> for <b>CODEd assignments</b>",$sequenceTitle), '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 3055 CHOOSE_ANON2
|
Line 3383 CHOOSE_ANON2
|
| )) |
)) |
| && $helper->{VARS}->{'assignment'} eq "" |
&& $helper->{VARS}->{'assignment'} eq "" |
| ) { |
) { |
| |
|
| my $pretty_dir = &Apache::lonnet::hreflocation($subdir); |
my $pretty_dir = &Apache::lonnet::hreflocation($subdir); |
| push @{$printChoices}, [&mt("Selected <b>Problems</b> from current subdirectory <b><i>[_1]</i></b>",$pretty_dir), 'problems_from_directory', 'CHOOSE_FROM_SUBDIR']; |
push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from current subdirectory [_3]','<b>','</b>','<b><i>'.$pretty_dir.'</i></b>','<b>','</b>'), 'problems_from_directory', 'CHOOSE_FROM_SUBDIR']; |
| my $xmlfrag = <<CHOOSE_FROM_SUBDIR; |
my $xmlfrag = <<CHOOSE_FROM_SUBDIR; |
| <state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from <b><small>$pretty_dir</small></b> to print"> |
<state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from <b><small>$pretty_dir</small></b> to print"> |
| |
|
|
Line 3127 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3454 CHOOSE_FROM_ANY_SEQUENCE
|
| |
|
| if (($perm{'pav'} and &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) or |
if (($perm{'pav'} and &Apache::lonnet::allowed('vgr',$env{'request.course.id'})) or |
| ($helper->{VARS}->{'construction'} eq '1')) { |
($helper->{VARS}->{'construction'} eq '1')) { |
| addMessage("<hr width='33%' /><table><tr><td align='right'>". |
&addMessage('<br />' |
| '<label for="ANSWER_TYPE_forminput">'. |
.'<h3>'.&mt('Print Options').'</h3>' |
| &mt('Print'). |
.&Apache::lonhtmlcommon::start_pick_box() |
| "</label>: </td><td>"); |
.&Apache::lonhtmlcommon::row_title( |
| |
'<label for="ANSWER_TYPE_forminput">' |
| |
.&mt('Print Answers') |
| |
.'</label>' |
| |
) |
| |
); |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'variable'} = 'ANSWER_TYPE'; |
$paramHash->{'variable'} = 'ANSWER_TYPE'; |
| $helper->declareVar('ANSWER_TYPE'); |
$helper->declareVar('ANSWER_TYPE'); |
|
Line 3140 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3472 CHOOSE_FROM_ANY_SEQUENCE
|
| ['Only Answers', 'only'] |
['Only Answers', 'only'] |
| ]; |
]; |
| Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
| addMessage("</td></tr>"); |
&addMessage(&Apache::lonhtmlcommon::row_closure()); |
| $startedTable = 1; |
$startedTable = 1; |
| |
|
| |
# |
| |
# Select font size. |
| |
# |
| |
|
| |
$helper->declareVar('fontsize'); |
| |
&addMessage(&Apache::lonhtmlcommon::row_title(&mt('Font Size'))); |
| |
my $xmlfrag = << "FONT_SELECTION"; |
| |
|
| |
|
| |
<dropdown variable='fontsize' multichoice='0', allowempty='0'> |
| |
<defaultvalue> |
| |
return 'normalsize'; |
| |
</defaultvalue> |
| |
<choice computer='tiny'>Tiny</choice> |
| |
<choice computer='sub/superscriptsize'>Script Size</choice> |
| |
<choice computer='footnotesize'>Footnote Size</choice> |
| |
<choice computer='small'>Small</choice> |
| |
<choice computer='normalsize'>Normal (default)</choice> |
| |
<choice computer='large'>larger than normal</choice> |
| |
<choice computer='Large'>Even larger than normal</choice> |
| |
<choice computer='LARGE'>Still larger than normal</choice> |
| |
<choice computer='huge'>huge font size</choice> |
| |
<choice computer='Huge'>Largest possible size</choice> |
| |
</dropdown> |
| |
FONT_SELECTION |
| |
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
| |
&addMessage(&Apache::lonhtmlcommon::row_closure(1)); |
| } |
} |
| |
|
| if ($perm{'pav'}) { |
if ($perm{'pav'}) { |
|
Line 3152 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3512 CHOOSE_FROM_ANY_SEQUENCE
|
| "</label>: </td><td>"); |
"</label>: </td><td>"); |
| $startedTable = 1; |
$startedTable = 1; |
| } else { |
} else { |
| addMessage("<tr><td align='right'>". |
&addMessage(&Apache::lonhtmlcommon::row_title( |
| '<label for="LATEX_TYPE_forminput">'. |
'<label for="LATEX_TYPE_forminput">' |
| &mt('LaTeX mode'). |
.&mt('LaTeX mode') |
| "</label>: </td><td>"); |
.'</label>' |
| |
) |
| |
); |
| } |
} |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'variable'} = 'LATEX_TYPE'; |
$paramHash->{'variable'} = 'LATEX_TYPE'; |
|
Line 3171 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3533 CHOOSE_FROM_ANY_SEQUENCE
|
| } |
} |
| Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
| |
|
| addMessage("</td></tr><tr><td align='right'>". |
&addMessage(&Apache::lonhtmlcommon::row_closure() |
| '<label for="TABLE_CONTENTS_forminput">'. |
.&Apache::lonhtmlcommon::row_title( |
| &mt('Print Table of Contents'). |
'<label for="TABLE_CONTENTS_forminput">' |
| "</label>: </td><td>"); |
.&mt('Print Table of Contents') |
| |
.'</label>' |
| |
) |
| |
); |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'variable'} = 'TABLE_CONTENTS'; |
$paramHash->{'variable'} = 'TABLE_CONTENTS'; |
| $helper->declareVar('TABLE_CONTENTS'); |
$helper->declareVar('TABLE_CONTENTS'); |
|
Line 3182 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3547 CHOOSE_FROM_ANY_SEQUENCE
|
| ['No', 'no'], |
['No', 'no'], |
| ['Yes', 'yes'] ]; |
['Yes', 'yes'] ]; |
| Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
| addMessage("</td></tr>"); |
&addMessage(&Apache::lonhtmlcommon::row_closure()); |
| |
|
| if (not $helper->{VARS}->{'construction'}) { |
if (not $helper->{VARS}->{'construction'}) { |
| addMessage("<tr><td align='right'>". |
&addMessage(&Apache::lonhtmlcommon::row_title( |
| '<label for="TABLE_INDEX_forminput">'. |
'<label for="TABLE_INDEX_forminput">' |
| &mt('Print Index'). |
.&mt('Print Index') |
| "</label>: </td><td>"); |
.'</label>' |
| |
) |
| |
); |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'variable'} = 'TABLE_INDEX'; |
$paramHash->{'variable'} = 'TABLE_INDEX'; |
| $helper->declareVar('TABLE_INDEX'); |
$helper->declareVar('TABLE_INDEX'); |
|
Line 3196 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3563 CHOOSE_FROM_ANY_SEQUENCE
|
| ['No', 'no'], |
['No', 'no'], |
| ['Yes', 'yes'] ]; |
['Yes', 'yes'] ]; |
| Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
| addMessage("</td></tr>"); |
&addMessage(&Apache::lonhtmlcommon::row_closure()); |
| addMessage("<tr><td align='right'>". |
&addMessage(&Apache::lonhtmlcommon::row_title( |
| '<label for="PRINT_DISCUSSIONS_forminput">'. |
'<label for="PRINT_DISCUSSIONS_forminput">' |
| &mt('Print Discussions'). |
.&mt('Print Discussions') |
| "</label>: </td><td>"); |
.'</label>' |
| |
) |
| |
); |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'variable'} = 'PRINT_DISCUSSIONS'; |
$paramHash->{'variable'} = 'PRINT_DISCUSSIONS'; |
| $helper->declareVar('PRINT_DISCUSSIONS'); |
$helper->declareVar('PRINT_DISCUSSIONS'); |
|
Line 3208 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3577 CHOOSE_FROM_ANY_SEQUENCE
|
| ['No', 'no'], |
['No', 'no'], |
| ['Yes', 'yes'] ]; |
['Yes', 'yes'] ]; |
| Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
| addMessage("</td></tr>"); |
&addMessage(&Apache::lonhtmlcommon::row_closure()); |
| |
|
| # Prompt for printing annotations too. |
# Prompt for printing annotations too. |
| |
|
| addMessage("<tr><td align='right'>". |
&addMessage(&Apache::lonhtmlcommon::row_title( |
| '<label for="PRINT_ANNOTATIONS_forminput">'. |
'<label for="PRINT_ANNOTATIONS_forminput">' |
| &mt('Print Annotations'). |
.&mt('Print Annotations') |
| "</label>:</td><td>"); |
.'</label>' |
| |
) |
| |
); |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'variable'} = "PRINT_ANNOTATIONS"; |
$paramHash->{'variable'} = "PRINT_ANNOTATIONS"; |
| $helper->declareVar("PRINT_ANNOTATIONS"); |
$helper->declareVar("PRINT_ANNOTATIONS"); |
|
Line 3223 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3594 CHOOSE_FROM_ANY_SEQUENCE
|
| ['No', 'no'], |
['No', 'no'], |
| ['Yes', 'yes']]; |
['Yes', 'yes']]; |
| Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
| addMessage("</td></tr>"); |
&addMessage(&Apache::lonhtmlcommon::row_closure()); |
| |
|
| addMessage("<tr><td align = 'right'> </td><td>"); |
&addMessage(&Apache::lonhtmlcommon::row_title(&mt('Foils'))); |
| $paramHash = Apache::lonhelper::getParamHash(); |
$paramHash = Apache::lonhelper::getParamHash(); |
| $paramHash->{'multichoice'} = "true"; |
$paramHash->{'multichoice'} = "true"; |
| $paramHash->{'allowempty'} = "true"; |
$paramHash->{'allowempty'} = "true"; |
| $paramHash->{'variable'} = "showallfoils"; |
$paramHash->{'variable'} = "showallfoils"; |
| $paramHash->{'CHOICES'} = [ ["Show all foils", "1"] ]; |
$paramHash->{'CHOICES'} = [ [&mt('Show All Foils'), "1"] ]; |
| Apache::lonhelper::choices->new(); |
Apache::lonhelper::choices->new(); |
| addMessage("</td></tr>"); |
&addMessage(&Apache::lonhtmlcommon::row_closure(1)); |
| } |
} |
| |
|
| if ($helper->{'VARS'}->{'construction'}) { |
if ($helper->{'VARS'}->{'construction'}) { |
|
Line 3241 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3612 CHOOSE_FROM_ANY_SEQUENCE
|
| my $stylefiletext=&mt("Use style file"); |
my $stylefiletext=&mt("Use style file"); |
| my $selectfiletext=&mt("Select style file"); |
my $selectfiletext=&mt("Select style file"); |
| |
|
| my $xmlfrag .= <<"RNDSEED"; |
my $xmlfrag .= '<message>' |
| <message><tr><td align='right'> |
.&Apache::lonhtmlcommon::row_title('<label for="curseed_forminput">' |
| <label for="curseed_forminput">$randseedtext</label>: |
.$randseedtext |
| </td><td></message> |
.'</label>' |
| <string variable="curseed" size="15" maxlength="15"> |
) |
| <defaultvalue> |
.'</message> |
| return $helper->{VARS}->{'curseed'}; |
<string variable="curseed" size="15" maxlength="15"> |
| </defaultvalue> |
<defaultvalue> |
| </string> |
return '.$helper->{VARS}->{'curseed'}.'; |
| <message></td></tr><tr><td align="right"> |
</defaultvalue>' |
| <label for="style_file">$stylefiletext</label>: |
.'</string>' |
| </td><td></message> |
.'<message>' |
| |
.&Apache::lonhtmlcommon::row_closure() |
| |
.&Apache::lonhtmlcommon::row_title('<label for="style_file">' |
| |
.$stylefiletext |
| |
.'</label>' |
| |
) |
| |
.'</message> |
| <string variable="style_file" size="40"> |
<string variable="style_file" size="40"> |
| <defaultvalue> |
<defaultvalue> |
| return $stylevalue; |
return '.$stylevalue.'; |
| </defaultvalue> |
</defaultvalue> |
| </string><message> <a href="javascript:openbrowser('helpform','style_file_forminput','sty')">$selectfiletext</a> </td></tr><tr><td></td><td align="left"></message> |
</string><message> ' |
| |
.qq|<a href="javascript:openbrowser('helpform','style_file_forminput','sty')">| |
| |
.$selectfiletext.'</a>' |
| |
.&Apache::lonhtmlcommon::row_closure() |
| |
.&Apache::lonhtmlcommon::row_title(&mt('Show All Foils')) |
| |
.'</message> |
| <choices allowempty="1" multichoice="true" variable="showallfoils"> |
<choices allowempty="1" multichoice="true" variable="showallfoils"> |
| <choice computer="1">Show all foils</choice> |
<choice computer="1"> </choice> |
| </choices> |
</choices>' |
| <message></td></tr></message> |
.'<message>' |
| RNDSEED |
.&Apache::lonhtmlcommon::row_closure() |
| |
.'</message>'; |
| &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
| |
|
| |
|
| addMessage("<tr><td>Problem Type:</td><td>"); |
&addMessage(&Apache::lonhtmlcommon::row_title(&mt('Problem Type'))); |
| # |
# |
| # Initial value from construction space: |
# Initial value from construction space: |
| # |
# |
|
Line 3284 RNDSEED
|
Line 3667 RNDSEED
|
| </dropdown> |
</dropdown> |
| PROBTYPE |
PROBTYPE |
| &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
| |
&addMessage(&Apache::lonhtmlcommon::row_closure(1)); |
| addMessage("</td></tr>"); |
|
| |
|
| } |
|
| |
|
| |
} |
| } |
} |
| |
|
| |
|
| |
|
| |
|
| if ($startedTable) { |
if ($startedTable) { |
| addMessage("</table>"); |
&addMessage(&Apache::lonhtmlcommon::end_pick_box()); |
| } |
} |
| |
|
| Apache::lonprintout::page_format_state->new("FORMAT"); |
Apache::lonprintout::page_format_state->new("FORMAT"); |
|
Line 3396 sub render {
|
Line 3780 sub render {
|
| my $pdfFormLabel=&mt('PDF-Formfields'); |
my $pdfFormLabel=&mt('PDF-Formfields'); |
| my $with=&mt('with Formfields'); |
my $with=&mt('with Formfields'); |
| my $without=&mt('without Formfields'); |
my $without=&mt('without Formfields'); |
| $result .= <<STATEHTML; |
|
| |
|
| <hr width="33%" /> |
$result.='<h3>'.&mt('Layout Options').'</h3>' |
| <table cellpadding="3"> |
.&Apache::loncommon::start_data_table() |
| <tr> |
.&Apache::loncommon::start_data_table_header_row() |
| <td align="center"><b>$PageLayout</b></td> |
.'<th>'.$PageLayout.'</th>' |
| <td align="center"><b>$NumberOfColumns</b></td> |
.'<th>'.$NumberOfColumns.'</th>' |
| <td align="center"><b>$PaperType</b></td> |
.'<th>'.$PaperType.'</th>' |
| <td align="center"><b>$pdfFormLabel</b></td> |
.'<th>'.$pdfFormLabel.'</th>' |
| </tr> |
.&Apache::loncommon::end_data_table_header_row() |
| <tr> |
.&Apache::loncommon::start_data_table_row() |
| <td> |
.'<td>' |
| <label><input type="radio" name="${var}.layout" value="L" /> $landscape </label><br /> |
.'<label><input type="radio" name="'.${var}.'.layout" value="L" />'.$landscape.'</label><br />' |
| <label><input type="radio" name="${var}.layout" value="P" checked='1' /> $portrait </label> |
.'<label><input type="radio" name="'.${var}.'.layout" value="P" checked="checked" />'.$portrait.'</label>' |
| </td> |
.'</td>'; |
| <td align="center"> |
|
| <select name="${var}.cols"> |
$result.='<td align="center">' |
| STATEHTML |
.'<select name="'.${var}.'.cols">'; |
| |
|
| my $i; |
my $i; |
| for ($i = 1; $i <= $maxColumns; $i++) { |
for ($i = 1; $i <= $maxColumns; $i++) { |
| if ($i == 2) { |
if ($i == 2) { |
| $result .= "<option value='$i' selected>$i</option>\n"; |
$result .= '<option value="'.$i.'" selected="selected">'.$i.'</option>'."\n"; |
| } else { |
} else { |
| $result .= "<option value='$i'>$i</option>\n"; |
$result .= '<option value="'.$i.'">'.$i.'</option>'."\n"; |
| } |
} |
| } |
} |
| |
|
|
Line 3436 STATEHTML
|
Line 3820 STATEHTML
|
| $_=~/(\w+)/; |
$_=~/(\w+)/; |
| my $papersize=$1; |
my $papersize=$1; |
| if ($paperSize[$i]=~/$DefaultPaperSize/) { |
if ($paperSize[$i]=~/$DefaultPaperSize/) { |
| $result .= "<option selected value='$papersize'>" . $paperSize[$i] . "</option>\n"; |
$result .= '<option selected="selected" value="'.$papersize.'">'.$paperSize[$i].'</option>'."\n"; |
| } else { |
} else { |
| $result .= "<option value='$papersize'>" . $paperSize[$i] . "</option>\n"; |
$result .= '<option value="'.$papersize.'">'.$paperSize[$i].'</option>'."\n"; |
| } |
} |
| $i++; |
$i++; |
| } |
} |
|
Line 3447 STATEHTML
|
Line 3831 STATEHTML
|
| </td> |
</td> |
| <td align='center'> |
<td align='center'> |
| <select name='${var}.pdfFormFields'> |
<select name='${var}.pdfFormFields'> |
| <option selected value='no'>$without</option> |
<option selected="selected" value="no">$without</option> |
| <option value='yes'>$with</option> |
<option value="yes">$with</option> |
| </select> |
</select> |
| </td> |
</td> |
| </tr></table> |
|
| HTML |
HTML |
| |
$result.=&Apache::loncommon::end_data_table_row() |
| |
.&Apache::loncommon::end_data_table(); |
| |
|
| return $result; |
return $result; |
| } |
} |
|
Line 3542 sub render {
|
Line 3927 sub render {
|
| my ($laystyle, $cols, $papersize) = split(/\|/, $format); |
my ($laystyle, $cols, $papersize) = split(/\|/, $format); |
| ($papersize) = split(/ /, $papersize); |
($papersize) = split(/ /, $papersize); |
| |
|
| |
$laystyle = &Apache::lonprintout::map_laystyle($laystyle); |
| |
|
| if ($laystyle eq 'L') { |
|
| $laystyle = 'album'; |
|
| } else { |
|
| $laystyle = 'book'; |
|
| } |
|
| |
|
| |
|
| my %size; |
my %size; |
|
Line 3576 sub render {
|
Line 3957 sub render {
|
| } else { |
} else { |
| $size{'margin'} += 2.54; |
$size{'margin'} += 2.54; |
| } |
} |
| my %text = ('format' => 'How should each column be formatted?', |
my %lt = &Apache::lonlocal::texthash( |
| 'width' => 'Width:', |
'format' => 'How should each column be formatted?', |
| 'height' => 'Height:', |
'width' => 'Width', |
| 'margin' => 'Left Margin:',); |
'height' => 'Height', |
| %text = &Apache::lonlocal::texthash(%text); |
'margin' => 'Left Margin' |
| |
); |
| $result .= <<ELEMENTHTML; |
|
| |
$result .= '<p>'.$lt{'format'}.'</p>' |
| <p>$text{'format'}</p> |
.&Apache::lonhtmlcommon::start_pick_box() |
| |
.&Apache::lonhtmlcommon::row_title($lt{'width'}) |
| <table cellpadding='3'> |
.'<input type="text" name="'.$var.'.width" value="'.$size{'width'}.'" size="4" />' |
| <tr> |
.'<select name="'.$var.'.widthunit">' |
| <td align='right'><b>$text{'width'}</b></td> |
.$size{'width_options'} |
| <td align='left'><input type='text' name='$var.width' value="$size{'width'}" size='4' /></td> |
.'</select>' |
| <td align='left'> |
.&Apache::lonhtmlcommon::row_closure() |
| <select name='$var.widthunit'> |
.&Apache::lonhtmlcommon::row_title($lt{'height'}) |
| $size{'width_options'} |
.'<input type="text" name="'.$var.'.height" value="'.$size{'height'}.'" size="4" />' |
| </select> |
.'<select name="'.$var.'.heightunit">' |
| </td> |
.$size{'height_options'} |
| </tr> |
.'</select>' |
| <tr> |
.&Apache::lonhtmlcommon::row_closure() |
| <td align='right'><b>$text{'height'}</b></td> |
.&Apache::lonhtmlcommon::row_title($lt{'margin'}) |
| <td align='left'><input type='text' name="$var.height" value="$size{'height'}" size='4' /></td> |
.'<input type="text" name="'.$var.'.lmargin" value="'.$size{'margin'}.'" size="4" />' |
| <td align='left'> |
.'<select name="'.$var.'.lmarginunit">' |
| <select name='$var.heightunit'> |
.$size{'margin_options'} |
| $size{'height_options'} |
.'</select>' |
| </select> |
.&Apache::lonhtmlcommon::row_closure(1) |
| </td> |
.&Apache::lonhtmlcommon::end_pick_box(); |
| </tr> |
# <p>Hint: Some instructors like to leave scratch space for the student by |
| <tr> |
# making the width much smaller than the width of the page.</p> |
| <td align='right'><b>$text{'margin'}</b></td> |
|
| <td align='left'><input type='text' name='$var.lmargin' value="$size{'margin'}" size='4' /></td> |
|
| <td align='left'> |
|
| <select name='$var.lmarginunit'> |
|
| $size{'margin_options'} |
|
| </select> |
|
| </td> |
|
| </tr> |
|
| </table> |
|
| |
|
| <!--<p>Hint: Some instructors like to leave scratch space for the student by |
|
| making the width much smaller than the width of the page.</p>--> |
|
| |
|
| ELEMENTHTML |
|
| |
|
| return $result; |
return $result; |
| } |
} |
|
Line 3642 sub preprocess {
|
Line 4009 sub preprocess {
|
| ($papersize) = split(/ /, $papersize); |
($papersize) = split(/ /, $papersize); |
| |
|
| |
|
| if ($laystyle eq 'L') { |
$laystyle = &Apache::lonprintout::map_laystyle($laystyle); |
| $laystyle = 'album'; |
|
| } else { |
|
| $laystyle = 'book'; |
|
| } |
|
| # Figure out some good defaults for the print out and set them: |
# Figure out some good defaults for the print out and set them: |
| |
|
| my %size; |
my %size; |
![[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