|
version 1.549, 2009/02/18 07:06:15
|
version 1.557.2.4, 2009/07/23 10:42:41
|
|
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. |
| # |
# |
| # ssi_with_retries - Does the server side include of a resource. |
# Parameters: |
| |
# pdf_uri - URI of the PDF file to include. |
| |
# |
| |
# Returns: |
| |
# The LaTeX to include. |
| |
# |
| |
# 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{lmodern}'."\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 1254 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 1424 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 1443 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 1454 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 1506 ENDPART
|
Line 1751 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 1564 ENDPART
|
Line 1806 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 1634 ENDPART
|
Line 1876 ENDPART
|
| |
|
| |
|
| |
|
| |
|
| } |
} |
| # Print annotations. |
# Print annotations. |
| |
|
|
Line 1656 ENDPART
|
Line 1899 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 1677 ENDPART
|
Line 1922 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 1690 ENDPART
|
Line 1935 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 1761 ENDPART
|
Line 2020 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 1783 ENDPART
|
Line 2043 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 1818 ENDPART
|
Line 2079 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 1838 ENDPART
|
Line 2100 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 1854 ENDPART
|
Line 2133 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 1908 ENDPART
|
Line 2189 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 2154 ENDPART
|
Line 2435 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 2238 ENDPART
|
Line 2524 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 2323 sub print_resources {
|
Line 2609 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 2345 sub print_resources {
|
Line 2630 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 2380 sub print_resources {
|
Line 2666 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 2392 sub print_resources {
|
Line 2684 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 2403 sub print_resources {
|
Line 2697 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 2501 sub get_randomly_ordered_warning {
|
Line 2794 sub get_randomly_ordered_warning {
|
| return '<message type="warning">'.$message.'</message>'; |
return '<message type="warning">'.$message.'</message>'; |
| } |
} |
| } else { |
} else { |
| &Apache::lonnet::logthis('Retrieval of resources to check for folders set to be randomly ordered failed - could not create navmap object'); |
|
| $message = "Retrieval of information about ordering of resources failed."; |
$message = "Retrieval of information about ordering of resources failed."; |
| return '<message type="warning">'.$message.'</message>'; |
return '<message type="warning">'.$message.'</message>'; |
| } |
} |
|
Line 2581 sub printHelper {
|
Line 2873 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 2698 sub printHelper {
|
Line 2989 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 |
|
Line 3085 CHOOSE_ANON2
|
Line 3375 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 [_1]Problems[_2] from current subdirectory [_3]','<b>','</b>','<b><i>'.$pretty_dir.'</i></b>','<b>','</b>'), '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; |
|
Line 3160 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3449 CHOOSE_FROM_ANY_SEQUENCE
|
| &addMessage('<br />' |
&addMessage('<br />' |
| .'<h3>'.&mt('Print Options').'</h3>' |
.'<h3>'.&mt('Print Options').'</h3>' |
| .&Apache::lonhtmlcommon::start_pick_box() |
.&Apache::lonhtmlcommon::start_pick_box() |
| # .&Apache::lonhtmlcommon::row_headline() |
|
| # .'<h3>'.&mt('Print Options').'</h3>' |
|
| # .&Apache::lonhtmlcommon::row_closure() |
|
| .&Apache::lonhtmlcommon::row_title( |
.&Apache::lonhtmlcommon::row_title( |
| '<label for="ANSWER_TYPE_forminput">' |
'<label for="ANSWER_TYPE_forminput">' |
| .&mt('Print Answers') |
.&mt('Print Answers') |
|
Line 3180 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3466 CHOOSE_FROM_ANY_SEQUENCE
|
| Apache::lonhelper::dropdown->new(); |
Apache::lonhelper::dropdown->new(); |
| &addMessage(&Apache::lonhtmlcommon::row_closure()); |
&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 3279 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3593 CHOOSE_FROM_ANY_SEQUENCE
|
| $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(&Apache::lonhtmlcommon::row_closure(1)); |
&addMessage(&Apache::lonhtmlcommon::row_closure(1)); |
| } |
} |
|
Line 3316 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3630 CHOOSE_FROM_ANY_SEQUENCE
|
| .qq|<a href="javascript:openbrowser('helpform','style_file_forminput','sty')">| |
.qq|<a href="javascript:openbrowser('helpform','style_file_forminput','sty')">| |
| .$selectfiletext.'</a>' |
.$selectfiletext.'</a>' |
| .&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
| .&Apache::lonhtmlcommon::row_title(&mt('Show all foils')) |
.&Apache::lonhtmlcommon::row_title(&mt('Show All Foils')) |
| .'</message> |
.'</message> |
| <choices allowempty="1" multichoice="true" variable="showallfoils"> |
<choices allowempty="1" multichoice="true" variable="showallfoils"> |
| <choice computer="1"> </choice> |
<choice computer="1"> </choice> |
|
Line 3345 CHOOSE_FROM_ANY_SEQUENCE
|
Line 3659 CHOOSE_FROM_ANY_SEQUENCE
|
| </dropdown> |
</dropdown> |
| PROBTYPE |
PROBTYPE |
| &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); |
| |
|
| &addMessage(&Apache::lonhtmlcommon::row_closure(1)); |
&addMessage(&Apache::lonhtmlcommon::row_closure(1)); |
| |
|
| |
|
| |
|
| } |
} |
| } |
} |
| |
|
|
Line 3457 sub render {
|
Line 3772 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.='<h3>'.&mt('Layout Options').'</h3>' |
$result.='<h3>'.&mt('Layout Options').'</h3>' |
| .&Apache::loncommon::start_data_table() |
.&Apache::loncommon::start_data_table() |
| .&Apache::loncommon::start_data_table_header_row() |
.&Apache::loncommon::start_data_table_header_row() |
|
Line 3477 sub render {
|
Line 3794 sub render {
|
| 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 3495 sub render {
|
Line 3812 sub render {
|
| $_=~/(\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 3506 sub render {
|
Line 3823 sub render {
|
| </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> |
| HTML |
HTML |
|
Line 3602 sub render {
|
Line 3919 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 3688 sub preprocess {
|
Line 4001 sub preprocess {
|
| ($papersize) = split(/ /, $papersize); |
($papersize) = split(/ /, $papersize); |
| |
|
| |
|
| if ($laystyle eq 'L') { |
$laystyle = &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