File:
[LON-CAPA] /
loncom /
interface /
lonprintout.pm
Revision
1.191:
download - view:
text,
annotated -
select for diffs
Thu Jun 19 15:46:42 2003 UTC (20 years, 10 months ago) by
bowersj2
Branches:
MAIN
CVS tags:
HEAD
This message is no longer necessary. If people have further trouble with
this issue the solution is not to add 'helpful' text messages that
nobody will read, the solution is to take the multiple "things to do"
out of the helper and institute a "one screen, one thing to do" policy
for helpers.
First rule of the web: People don't read. (But they will happily take
the opportunity to blame you for not having help if you don't provide
it, even though they won't use it.)
# The LearningOnline Network
# Printout
#
# $Id: lonprintout.pm,v 1.191 2003/06/19 15:46:42 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# LON-CAPA is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#
# (Internal Server Error Handler
#
# (Login Screen
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
#
# 3/1/1 Gerd Kortemeyer)
#
# 3/1 Gerd Kortemeyer
#
# 9/17 Alex Sakharuk
#
package Apache::lonprintout;
use strict;
use Apache::Constants qw(:common :http);
use Apache::lonxml;
use Apache::lonnet;
use Apache::loncommon;
use Apache::inputtags;
use Apache::grades;
use Apache::edit;
use Apache::File();
use Apache::lonnavmaps;
use POSIX qw(strftime);
use GDBM_File;
my %hash;
my $LaTeXwidth = 0;
sub latex_header_footer_remove {
my $text = shift;
$text =~ s/\\end{document}//;
$text =~ s/\\documentclass([^&]*)\\begin{document}//;
return $text;
}
sub character_chart {
my $result = shift;
$result =~ s/&\#0?0?(7|9);//g;
$result =~ s/&\#0?(10|13);//g;
$result =~ s/&\#0?32;/ /g;
$result =~ s/&\#0?33;/!/g;
$result =~ s/&(\#0?34|quot);/\"/g;
$result =~ s/&\#0?35;/\\\#/g;
$result =~ s/&\#0?36;/\\\$/g;
$result =~ s/&\#0?37;/\\%/g;
$result =~ s/&(\#0?38|amp);/\\&/g;
$result =~ s/&\#(0?39|146);/\'/g;
$result =~ s/&\#0?40;/(/g;
$result =~ s/&\#0?41;/)/g;
$result =~ s/&\#0?42;/\*/g;
$result =~ s/&\#0?43;/\+/g;
$result =~ s/&\#(0?44|130);/,/g;
$result =~ s/&\#0?45;/-/g;
$result =~ s/&\#0?46;/\./g;
$result =~ s/&\#0?47;/\//g;
$result =~ s/&\#0?48;/0/g;
$result =~ s/&\#0?49;/1/g;
$result =~ s/&\#0?50;/2/g;
$result =~ s/&\#0?51;/3/g;
$result =~ s/&\#0?52;/4/g;
$result =~ s/&\#0?53;/5/g;
$result =~ s/&\#0?54;/6/g;
$result =~ s/&\#0?55;/7/g;
$result =~ s/&\#0?56;/8/g;
$result =~ s/&\#0?57;/9/g;
$result =~ s/&\#0?58;/:/g;
$result =~ s/&\#0?59;/;/g;
$result =~ s/&(\#0?60|lt|\#139);/\$<\$/g;
$result =~ s/&\#0?61;/\$=\$/g;
$result =~ s/&(\#0?62|gt|\#155);/\$>\$/g;
$result =~ s/&\#0?63;/\?/g;
$result =~ s/&\#0?65;/A/g;
$result =~ s/&\#0?66;/B/g;
$result =~ s/&\#0?67;/C/g;
$result =~ s/&\#0?68;/D/g;
$result =~ s/&\#0?69;/E/g;
$result =~ s/&\#0?70;/F/g;
$result =~ s/&\#0?71;/G/g;
$result =~ s/&\#0?72;/H/g;
$result =~ s/&\#0?73;/I/g;
$result =~ s/&\#0?74;/J/g;
$result =~ s/&\#0?75;/K/g;
$result =~ s/&\#0?76;/L/g;
$result =~ s/&\#0?77;/M/g;
$result =~ s/&\#0?78;/N/g;
$result =~ s/&\#0?79;/O/g;
$result =~ s/&\#0?80;/P/g;
$result =~ s/&\#0?81;/Q/g;
$result =~ s/&\#0?82;/R/g;
$result =~ s/&\#0?83;/S/g;
$result =~ s/&\#0?84;/T/g;
$result =~ s/&\#0?85;/U/g;
$result =~ s/&\#0?86;/V/g;
$result =~ s/&\#0?87;/W/g;
$result =~ s/&\#0?88;/X/g;
$result =~ s/&\#0?89;/Y/g;
$result =~ s/&\#0?90;/Z/g;
$result =~ s/&\#0?91;/[/g;
$result =~ s/&\#0?92;/\$\\setminus\$/g;
$result =~ s/&\#0?93;/]/g;
$result =~ s/&\#(0?94|136);/\$\\wedge\$/g;
$result =~ s/&\#(0?95|138|154);/\\underline{\\makebox[2mm]{\\strut}}/g;
$result =~ s/&\#(0?96|145);/\`/g;
$result =~ s/&\#0?97;/a/g;
$result =~ s/&\#0?98;/b/g;
$result =~ s/&\#0?99;/c/g;
$result =~ s/&\#100;/d/g;
$result =~ s/&\#101;/e/g;
$result =~ s/&\#102;/f/g;
$result =~ s/&\#103;/g/g;
$result =~ s/&\#104;/h/g;
$result =~ s/&\#105;/i/g;
$result =~ s/&\#106;/j/g;
$result =~ s/&\#107;/k/g;
$result =~ s/&\#108;/l/g;
$result =~ s/&\#109;/m/g;
$result =~ s/&\#110;/n/g;
$result =~ s/&\#111;/o/g;
$result =~ s/&\#112;/p/g;
$result =~ s/&\#113;/q/g;
$result =~ s/&\#114;/r/g;
$result =~ s/&\#115;/s/g;
$result =~ s/&\#116;/t/g;
$result =~ s/&\#117;/u/g;
$result =~ s/&\#118;/v/g;
$result =~ s/&\#119;/w/g;
$result =~ s/&\#120;/x/g;
$result =~ s/&\#121;/y/g;
$result =~ s/&\#122;/z/g;
$result =~ s/&\#123;/\\{/g;
$result =~ s/&\#124;/\|/g;
$result =~ s/&\#125;/\\}/g;
$result =~ s/&\#126;/\~/g;
$result =~ s/&\#131;/\\textflorin /g;
$result =~ s/&\#132;/\"/g;
$result =~ s/&\#133;/\$\\ldots\$/g;
$result =~ s/&\#134;/\$\\dagger\$/g;
$result =~ s/&\#135;/\$\\ddagger\$/g;
$result =~ s/&\#137;/\\textperthousand /g;
$result =~ s/&\#140;/{\\OE}/g;
$result =~ s/&\#147;/\`\`/g;
$result =~ s/&\#148;/\'\'/g;
$result =~ s/&\#149;/\$\\bullet\$/g;
$result =~ s/&\#150;/--/g;
$result =~ s/&\#151;/---/g;
$result =~ s/&\#152;/\$\\sim\$/g;
$result =~ s/&\#153;/\\texttrademark /g;
$result =~ s/&\#156;/\\oe/g;
$result =~ s/&\#159;/\\\"Y/g;
$result =~ s/&(\#160|nbsp);//g;
$result =~ s/&(\#161|iexcl);/!\`/g;
$result =~ s/&(\#162|cent);/\\textcent /g;
$result =~ s/&(\#163|pound);/\\pounds /g;
$result =~ s/&(\#164|curren);/\\textcurrency /g;
$result =~ s/&(\#165|yen);/\\textyen /g;
$result =~ s/&(\#166|brvbar);/\\textbrokenbar /g;
$result =~ s/&(\#167|sect);/\\textsection /g;
$result =~ s/&(\#168|uml);/\\texthighdieresis /g;
$result =~ s/&(\#169|copy);/\\copyright /g;
$result =~ s/&(\#170|ordf);/\\textordfeminine /g;
$result =~ s/&(\#172|not);/\$\\neg\$/g;
$result =~ s/&(\#173|shy);/ - /g;
$result =~ s/&(\#174|reg);/\\textregistered /g;
$result =~ s/&(\#175|macr);/\$^{-}\$/g;
$result =~ s/&(\#176|deg);/\$^{\\circ}\$/g;
$result =~ s/&(\#177|plusmn);/\$\\pm\$/g;
$result =~ s/&(\#178|sup2);/\$^2\$/g;
$result =~ s/&(\#179|sup3);/\$^3\$/g;
$result =~ s/&(\#180|acute);/\\textacute /g;
$result =~ s/&(\#181|micro);/\$\\mu\$/g;
$result =~ s/&(\#182|para);/\\P/g;
$result =~ s/&(\#183|middot);/\$\\cdot\$/g;
$result =~ s/&(\#184|cedil);/\\c{\\strut}/g;
$result =~ s/&(\#185|sup1);/\$^1\$/g;
$result =~ s/&(\#186|ordm);/\\textordmasculine /g;
$result =~ s/&(\#188|frac14);/\\textonequarter /g;
$result =~ s/&(\#189|frac12);/\\textonehalf /g;
$result =~ s/&(\#190|frac34);/\\textthreequarters /g;
$result =~ s/&(\#191|iquest);/?\`/g;
$result =~ s/&(\#192|Agrave);/\\\`{A}/g;
$result =~ s/&(\#193|Aacute);/\\\'{A}/g;
$result =~ s/&(\#194|Acirc);/\\^{A}/g;
$result =~ s/&(\#195|Atilde);/\\~{A}/g;
$result =~ s/&(\#196|Auml);/\\\"{A}/g;
$result =~ s/&(\#197|Aring);/{\\AA}/g;
$result =~ s/&(\#198|AElig);/{\\AE}/g;
$result =~ s/&(\#199|Ccedil);/\\c{c}/g;
$result =~ s/&(\#200|Egrave);/\\\`{E}/g;
$result =~ s/&(\#201|Eacute);/\\\'{E}/g;
$result =~ s/&(\#202|Ecirc);/\\^{E}/g;
$result =~ s/&(\#203|Euml);/\\\"{E}/g;
$result =~ s/&(\#204|Igrave);/\\\`{I}/g;
$result =~ s/&(\#205|Iacute);/\\\'{I}/g;
$result =~ s/&(\#206|Icirc);/\\^{I}/g;
$result =~ s/&(\#207|Iuml);/\\\"{I}/g;
$result =~ s/&(\#209|Ntilde);/\\~{N}/g;
$result =~ s/&(\#210|Ograve);/\\\`{O}/g;
$result =~ s/&(\#211|Oacute);/\\\'{O}/g;
$result =~ s/&(\#212|Ocirc);/\\^{O}/g;
$result =~ s/&(\#213|Otilde);/\\~{O}/g;
$result =~ s/&(\#214|Ouml);/\\\"{O}/g;
$result =~ s/&(\#215|times);/\$\\times\$/g;
$result =~ s/&(\#216|Oslash);/{\\O}/g;
$result =~ s/&(\#217|Ugrave);/\\\`{U}/g;
$result =~ s/&(\#218|Uacute);/\\\'{U}/g;
$result =~ s/&(\#219|Ucirc);/\\^{U}/g;
$result =~ s/&(\#220|Uuml);/\\\"{U}/g;
$result =~ s/&(\#221|Yacute);/\\\'{Y}/g;
$result =~ s/&(\#223|szlig);/\\ss/g;
$result =~ s/&(\#224|agrave);/\\\`{a}/g;
$result =~ s/&(\#225|aacute);/\\\'{a}/g;
$result =~ s/&(\#226|acirc);/\\^{a}/g;
$result =~ s/&(\#227|atilde);/\\~{a}/g;
$result =~ s/&(\#228|auml);/\\\"{a}/g;
$result =~ s/&(\#229|aring);/{\\aa}/g;
$result =~ s/&(\#230|aelig);/{\\ae}/g;
$result =~ s/&(\#231|ccedil);/\\c{c}/g;
$result =~ s/&(\#232|egrave);/\\\`{e}/g;
$result =~ s/&(\#233|eacute);/\\\'{e}/g;
$result =~ s/&(\#234|ecirc);/\\^{e}/g;
$result =~ s/&(\#235|euml);/\\\"{e}/g;
$result =~ s/&(\#236|igrave);/\\\`{i}/g;
$result =~ s/&(\#237|iacute);/\\\'{i}/g;
$result =~ s/&(\#238|icirc);/\\^{i}/g;
$result =~ s/&(\#239|iuml);/\\\"{i}/g;
$result =~ s/&(\#240|eth);/\$\\partial\$/g;
$result =~ s/&(\#241|ntilde);/\\~{n}/g;
$result =~ s/&(\#242|ograve);/\\\`{o}/g;
$result =~ s/&(\#243|oacute);/\\\'{o}/g;
$result =~ s/&(\#244|ocirc);/\\^{o}/g;
$result =~ s/&(\#245|otilde);/\\~{o}/g;
$result =~ s/&(\#246|ouml);/\\\"{o}/g;
$result =~ s/&(\#247|divide);/\$\\div\$/g;
$result =~ s/&(\#248|oslash);/{\\o}/g;
$result =~ s/&(\#249|ugrave);/\\\`{u}/g;
$result =~ s/&(\#250|uacute);/\\\'{u}/g;
$result =~ s/&(\#251|ucirc);/\\^{u}/g;
$result =~ s/&(\#252|uuml);/\\\"{u}/g;
$result =~ s/&(\#253|yacute);/\\\'{y}/g;
$result =~ s/&(\#255|yuml);/\\\"{y}/g;
$result =~ s/&\#952;/\$\\theta\$/g;
#Greek Alphabet
$result =~ s/&(alpha|\#945);/\$\\alpha \$/g;
$result =~ s/&(beta|\#946);/\$\\beta \$/g;
$result =~ s/&(gamma|\#947);/\$\\gamma \$/g;
$result =~ s/&(delta|\#948);/\$\\delta \$/g;
$result =~ s/&(epsilon|\#949);/\$\\epsilon \$/g;
$result =~ s/&(zeta|\#950);/\$\\zeta \$/g;
$result =~ s/&(eta|\#951);/\$\\eta \$/g;
$result =~ s/&(theta|\#952);/\$\\theta \$/g;
$result =~ s/&(iota|\#953);/\$\\iota \$/g;
$result =~ s/&(kappa|\#954);/\$\\kappa \$/g;
$result =~ s/&(lambda|\#955);/\$\\lambda \$/g;
$result =~ s/&(mu|\#956);/\$\\mu \$/g;
$result =~ s/&(nu|\#957);/\$\\nu \$/g;
$result =~ s/&(xi|\#958);/\$\\xi \$/g;
$result =~ s/&(pi|\#960);/\$\\pi \$/g;
$result =~ s/&(rho|\#961);/\$\\rho \$/g;
$result =~ s/&(sigma|\#963);/\$\\sigma \$/g;
$result =~ s/&(tau|\#964);/\$\\tau \$/g;
$result =~ s/&(upsilon|\#965);/\$\\upsilon \$/g;
$result =~ s/&(phi|\#966);/\$\\phi \$/g;
$result =~ s/&(chi|\#967);/\$\\chi \$/g;
$result =~ s/&(psi|\#968);/\$\\psi \$/g;
$result =~ s/&(omega|\#969);/\$\\omega \$/g;
$result =~ s/&(Gamma|\#915);/\$\\Gamma \$/g;
$result =~ s/&(Delta|\#916);/\$\\Delta \$/g;
$result =~ s/&(Theta|\#920);/\$\\Theta \$/g;
$result =~ s/&(Lambda|\#923);/\$\\Lambda \$/g;
$result =~ s/&(Xi|\#926);/\$\\Xi \$/g;
$result =~ s/&(Pi|\#928);/\$\\Pi \$/g;
$result =~ s/&(Sigma|\#931);/\$\\Sigma \$/g;
$result =~ s/&(Upsilon|\#933);/\$\\Upsilon \$/g;
$result =~ s/&(Phi|\#934);/\$\\Phi \$/g;
$result =~ s/&(Psi|\#936);/\$\\Psi \$/g;
$result =~ s/&(Omega|\#937);/\$\\Omega \$/g;
return $result;
}
sub page_format {
#
#Correspondence between $papersize variable and real paper format:
# 0 - "Letter [8 1/2x11 in]"
# 1 - "Legal [8 1/2x14 in]"
# 2 - "Ledger/Tabloid [11x17 in]"
# 3 - "Executive [7 1/2x10 in]"
# 4 - "A2 [420x594 mm]"
# 5 - "A3 [297x420 mm]"
# 6 - "A4 [210x297 mm]"
# 7 - "A5 [148x210 mm]"
# 8 - "A6 [105x148 mm]"
#
my ($papersize,$layout,$numberofcolumns) = @_;
my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0);
if ($papersize eq '0') {
if ($layout eq 'book') {
if ($numberofcolumns == 1) {
$textwidth = '7.1 in'; #'18 cm';
$textheight = '10.2 in'; #'25.9 cm';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
} elsif ($numberofcolumns == 2) {
$textwidth = '3.66 in'; #'93 mm';
$textheight = '10.2 in'; #'25.9 cm';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
}
} elsif ($layout eq 'album') {
if ($numberofcolumns eq '1') {
$textwidth = '8.8 in';
$textheight = '6.8 in';
$oddoffset = '-40 pt';
$evenoffset = '-60 pt';
} elsif ($numberofcolumns == 2) {
$textwidth = '4.2 in';
$textheight = '6.8 in';
$oddoffset = '-40 pt';
$evenoffset = '-60 pt';
}
}
# } elsif($papersize eq '1') {
# } elsif($papersize eq '2') {
# } elsif($papersize eq '3'/) {
} elsif($papersize eq '6') {
if ($layout eq 'book') {
if ($numberofcolumns == 1) {
$textwidth = '18 cm';
$textheight = '28 cm';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
} elsif ($numberofcolumns == 2) {
$textwidth = '96 mm';
$textheight = '2 cm';
$oddoffset = '-0.57 in';
$evenoffset = '-0.57 in';
}
} elsif ($layout eq 'album') {
if ($numberofcolumns eq '1') {
$textwidth = '8.5 in';
$textheight = '7.7 in';
$oddoffset = '-40 pt';
$evenoffset = '-60 pt';
} elsif ($numberofcolumns == 2) {
$textwidth = '3.9 in';
$textheight = '7.7 in';
$oddoffset = '-40 pt';
$evenoffset = '-60 pt';
}
}
# } elsif($papersize eq '5') {
# } elsif($papersize eq '4') {
# } elsif($papersize eq '7') {
# } elsif($papersize eq '8') {
}
return $textwidth,$textheight,$oddoffset,$evenoffset;
}
sub get_name {
my ($uname,$udom)=@_;
if (!defined($uname)) { $uname=$ENV{'user.name'}; }
if (!defined($udom)) { $uname=$ENV{'user.domain'}; }
my $plainname=&Apache::loncommon::plainname($uname,$udom);
if ($plainname=~/^\s*$/) { $plainname=$uname; }
return &Apache::lonxml::latex_special_symbols($plainname,undef,undef,
'header');
}
sub page_format_transformation {
my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_;
my ($textwidth,$textheight,$oddoffset,$evenoffset);
$assignment=~s/_/ /g;
if ($numberofcolumns != 1) {
($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);
} else {
($textwidth,$textheight,$oddoffset,$evenoffset) = ($ENV{'form.width'},$ENV{'form.height'},$ENV{'form.leftmargin'},$ENV{'form.leftmargin'});
}
my $name = &get_name();
if ($name =~ /^\s*$/) {
$name=&Apache::lonxml::latex_special_symbols($ENV{'user.name'},undef,
undef,'header');
}
my $courseidinfo = &Apache::lonxml::latex_special_symbols(&Apache::lonnet::unescape($ENV{'course.'.$ENV{'request.course.id'}.'.description'}),'','','header');
if ($layout eq 'album') {
$text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$name}} \\hfill $courseidinfo} \\vskip 5 mm /;
} elsif ($layout eq 'book') {
if ($choice ne 'All class print') {
$text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{}\\lhead{\\textbf{$name} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}/;
} else {
$text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight = $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\begin{document}\\voffset=-0\.8cm\\setcounter{page}{1} \\vskip 5 mm /;
}
}
return $text;
}
sub page_cleanup {
my $result = shift;
$result =~ m/\\end{document}(\d*)$/;
my $number_of_columns = $1;
my $insert = '{';
for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; }
$insert .= '}';
$result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g;
$result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g;
return $result,$number_of_columns;
}
sub details_for_menu {
my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}};
my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});
my ($map,$id,$resource)=split(/___/,$symbolic);
$map=&Apache::lonnet::clutter($map);
my $name_of_sequence;
$name_of_sequence = $hash{'title_'.$hash{'ids_'.$map}};
if ($name_of_sequence =~ /^\s*$/) {
$map =~ m|([^/]+)$|;
$name_of_sequence = $1;
}
my $name_of_map = $hash{'title_'.$hash{'ids_'.&Apache::lonnet::clutter($ENV{'request.course.uri'})}};
if ($name_of_map =~ /^\s*$/) {
$ENV{'request.course.uri'} =~ m|([^/]+)$|;
$name_of_map = $1;
}
return ($name_of_resourse,$name_of_sequence,$name_of_map);
}
sub latex_corrections {
my ($number_of_columns,$result) = @_;
# $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g;
$result =~ s/\$number_of_columns/$number_of_columns/g;
$result =~ s/(\\end{document})/\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License $1/;
$result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g;
$result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g;
#-- LaTeX corrections
my $first_comment = index($result,'<!--',0);
while ($first_comment != -1) {
my $end_comment = index($result,'-->',$first_comment);
substr($result,$first_comment,$end_comment-$first_comment+3) = '';
$first_comment = index($result,'<!--',$first_comment);
}
$result =~ s/^\s+$//gm; #remove empty lines
$result =~ s/(\s)(\s+)/$1/g; #removes more than one empty space
$result =~ s/\\\\\s*\\vskip/\\vskip/gm;
$result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g;
$result =~ s/{\\par }\s*\\\\/\\\\/gm;
$result =~ s/\\\\\s+\[/ \[/g;
$result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
#conversion of html characters to LaTeX equivalents
if ($result =~ m/&(\w+|#\d+);/) {
$result = &character_chart($result);
}
$result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;
$result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;
return $result;
}
sub output_data {
my ($r,$helper,$rparmhash) = @_;
my %parmhash = %$rparmhash;
my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');
$r->print(<<ENDPART);
<html>
<head>
<title>LON-CAPA output for printing</title>
</head>
$bodytag
Please stand by while processing your print request, this may take some time ...
ENDPART
my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
my ($result,$selectionmade) = ('','');
my $number_of_columns = 1; #used only for pages to determine the width of the cell
my @temporary_array=split /\|/,$format_from_helper;
my ($laystyle,$numberofcolumns,$papersize)=@temporary_array;
if ($laystyle eq 'L') {
$laystyle='album';
} else {
$laystyle='book';
}
my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns);
my $assignment = $ENV{'form.assignment'};
my $LaTeXwidth;
if ($textwidth=~/(\d+\.?\d*)\s*cm/) {
$LaTeXwidth = $1*10;
} elsif ($textwidth=~/(\d+\.?\d*)\s*mm/) {
$LaTeXwidth = $1;
} elsif ($textwidth=~/(\d+\.?\d*)\s*in/) {
$LaTeXwidth = $1*25.4;
}
$LaTeXwidth.=' mm';
if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') {
#-- single document - problem, page, html, xml, ...
my $currentURL;
if ($helper->{'VARS'}->{'construction'} ne '1') {
#prints published resource
$currentURL=$helper->{'VARS'}->{'postdata'};
} else {
#prints resource from the construction space
$currentURL=$helper->{'VARS'}->{'filename'};
$currentURL=~s/\/home\//\/~/;
$currentURL=~s/public_html\///;
}
$selectionmade = 1;
if ($currentURL=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
my %moreenv;
$moreenv{'request.filename'}=$currentURL;
my %form;
$form{'grade_target'}='tex';
$form{'textwidth'}=$LaTeXwidth;
my $rndseed=time;
$form{'rndseed'}=$rndseed;
&Apache::lonnet::appenv(%moreenv);
my $texversion=&Apache::lonnet::ssi($currentURL,%form);
&Apache::lonnet::delenv('form.counter');
&Apache::lonnet::delenv('request.filename');
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
my %form;
$form{'grade_target'}='answer';
$form{'answer_output_mode'}='tex';
$form{'rndseed'}=$rndseed;
my $answer=&Apache::lonnet::ssi($currentURL,%form);
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
}
$result .= $texversion;
if ($currentURL=~m/\.page\s*$/) {
($result,$number_of_columns) = &page_cleanup($result);
}
} else {
# $result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
# if ($ENV{'form.url'}=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) {
# $result.=$1;
# } else {
# $result.=$ENV{'form.url'};
# }
# $result.=' \end{document}'
}
} elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or
($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems')) {
#-- produce an output string
my $flag_latex_header_remove = 'NO';
my $flag_page_in_sequence = 'NO';
my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
for (my $i=0;$i<=$#master_seq;$i++) {
$master_seq[$i]=~/___\d+___(.*)$/;
my $urlp='/res/'.$1;
if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') {
$selectionmade = 2;
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') {
$selectionmade = 3;
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') {
$selectionmade = 4;
}
my %form;
$form{'grade_target'}='tex';
$form{'textwidth'}=$LaTeXwidth;
$form{'symb'}=$master_seq[$i];
$form{'problem_split'}=$parmhash{'problem_stream_switch'};
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
my $texversion=&Apache::lonnet::ssi($urlp,%form);
if ($urlp=~/\.page$/) {
($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}
$texversion =~ s/\\end{document}\d*/\\end{document}/;
$flag_page_in_sequence = 'YES';
}
if ($flag_latex_header_remove ne 'NO') {
$texversion = &latex_header_footer_remove($texversion);
} else {
$texversion =~ s/\\end{document}//;
}
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
my %form;
$form{'grade_target'}='answer';
$form{'answer_output_mode'}='tex';
my $answer=&Apache::lonnet::ssi($urlp,%form);
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
}
$result .= $texversion;
$flag_latex_header_remove = 'YES';
}
&Apache::lonnet::delenv('form.counter');
if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}
$result .= '\end{document}';
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') {
#-- prints assignments for whole class or for selected students
$selectionmade=5;
my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'};
my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
#loop over students
my $flag_latex_header_remove = 'NO';
my %moreenv;
$moreenv{'form.textwidth'}=$LaTeXwidth;
&Apache::lonnet::appenv(%moreenv);
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1);
foreach my $person (@students) {
my $current_output = '';
# my ($usersection,$username,$userdomain) = split /:/,$person;
my ($username,$userdomain) = split /:/,$person;
my $fullname = &get_name($username,$userdomain);
#goes through all resources, checks if they are available for current student, and produces output
foreach my $curresline (@master_seq) {
if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) {
my ($map,$id,$res_url) = split(/___/,$curresline);
if (&Apache::lonnet::allowed('bre',$res_url)) {
my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,
$ENV{'request.course.id'},'tex');
if ($flag_latex_header_remove eq 'YES') {
$rendered = &latex_header_footer_remove($rendered);
} else {
$rendered =~ s/\\end{document}//;
}
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
my %form;
$form{'answer_output_mode'}='tex';
my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,
$ENV{'request.course.id'},%form);
$rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;
}
$current_output .= $rendered;
}
$flag_latex_header_remove = 'YES';
}
}
my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
if ($current_output=~/\\documentclass/) {
$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$helper->{VARS}->{'assignment'}}}\\vskip 3 mm /;
} else {
my $blanspages = '';
for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blanspages.='\clearpage\strut\clearpage';}
$current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage '.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$helper->{VARS}->{'assignment'}.'}}} \vskip -5 mm '.$current_output;
}
$result .= $current_output;
&Apache::lonnet::delenv('form.counter');
&Apache::lonxml::init_counter();
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
'last student '.$fullname);
}
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
$result .= '\end{document}';
&Apache::lonnet::delenv('form.textwidth');
} elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') {
#prints selected problems from the subdirectory
$selectionmade = 6;
my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'};
@list_of_files=sort @list_of_files;
my $flag_latex_header_remove = 'NO';
my $rndseed=time;
for (my $i=0;$i<=$#list_of_files;$i++) {
my $urlp = $list_of_files[$i];
if ($urlp=~/\//) {
my %form;
$form{'grade_target'}='tex';
$form{'textwidth'}=$LaTeXwidth;
$form{'rndseed'}=$rndseed;
if ($urlp =~ m|/home/([^/]+)/public_html|) {
$urlp =~ s|/home/([^/]*)/public_html|/~$1|;
} else {
$urlp =~ s|^/home/httpd/html||;
}
my $texversion=&Apache::lonnet::ssi($urlp,%form);
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
my %form;
$form{'grade_target'}='answer';
$form{'answer_output_mode'}='tex';
$form{'rndseed'}=$rndseed;
my $answer=&Apache::lonnet::ssi($urlp,%form);
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
}
#this chunck is responsible for printing the path to problem
my $newurlp = '';
my $HowMany = length($urlp)*2;
if ($HowMany > $LaTeXwidth) {
my @temporrary = split '/',$urlp;
my $HowManyNew = 0;
for (my $ii=0;$ii<=$#temporrary;$ii++) {
if ($temporrary[$ii] ne '') {
$HowManyNew += length($temporrary[$ii])*2;
if ($HowManyNew < $LaTeXwidth ) {
$newurlp .= '/'.$temporrary[$ii];
} else {
$HowManyNew = 0;
$newurlp .= '|\vskip -1 mm \noindent \verb|';
$ii--;
}
}
}
}
$texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 {\\small\\noindent\\verb|$newurlp\|\\vskip 0 mm}/;
if ($flag_latex_header_remove ne 'NO') {
$texversion = &latex_header_footer_remove($texversion);
} else {
$texversion =~ s/\\end{document}//;
}
$result .= $texversion;
}
$flag_latex_header_remove = 'YES';
}
if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\typeout)/ RANDOM SEED IS $rndseed $1/;}
$result .= '\end{document}';
}
#-------------------------------------------------------- corrections for the different page formats
$result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'});
$result = &latex_corrections($number_of_columns,$result);
#changes page's parameters for the one column output
# if ($numberofcolumns == 1) {
# $result =~ s/\\textwidth= 9cm/\\textwidth= $ENV{'form.width'}/;
# $result =~ s/\\textheight 25\.9cm/\\textheight $ENV{'form.height'}/;
# $result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $ENV{'form.leftmargin'}/;
# $result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $ENV{'form.leftmargin'}/;
# }
#-- writing .tex file in prtspool
my $temp_file;
my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex";
unless ($temp_file = Apache::File->new('>'.$filename)) {
$r->log_error("Couldn't open $filename for output $!");
return SERVER_ERROR;
}
print $temp_file $result;
#<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">
$r->print(<<FINALEND);
<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">
</body>
</html>
FINALEND
}
sub handler {
my $r = shift;
my $helper;
# my $loaderror=&Apache::lonnet::overloaderror($r);
# if ($loaderror) { return $loaderror; }
# $loaderror=
# &Apache::lonnet::overloaderror($r,
# $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
# if ($loaderror) { return $loaderror; }
my $result = printHelper($r);
if (!ref($result)) {
return $result;
}
$helper = $result;
# my $key;
# foreach $key (keys %{$helper->{'VARS'}}) {
# $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />');
# }
# return OK;
my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});
&output_data($r,$helper,\%parmhash);
return OK;
}
use Apache::lonhelper;
sub printHelper {
my $r = shift;
if ($ENV{'request.course.id'}) {
my $fn=$ENV{'request.course.fn'};
tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640);
}
if ($r->header_only) {
if ($ENV{'browser.mathml'}) {
$r->content_type('text/xml');
} else {
$r->content_type('text/html');
}
$r->send_http_header;
return OK;
}
# Send header, nocache
if ($ENV{'browser.mathml'}) {
$r->content_type('text/xml');
} else {
$r->content_type('text/html');
}
&Apache::loncommon::no_cache($r);
$r->send_http_header;
$r->rflush();
# Unfortunately, this helper is so complicated we have to
# write it by hand
Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
my $helper = Apache::lonhelper::helper->new("Printing Helper");
$helper->declareVar('symb');
$helper->declareVar('postdata');
$helper->declareVar('filename');
$helper->declareVar('construction');
$helper->declareVar('assignment');
# This will persistently load in the data we want from the
# very first screen.
# Detect whether we're coming from construction space
if ($ENV{'form.postdata'} =~ /http:\/\// ) {
$ENV{'form.postdata'} =~ /http:\/\/[^\/]+\/~([^\/]+)\/(.*)/;
$helper->{VARS}->{'filename'} = "/home/$1/public_html/$2";
$helper->{VARS}->{'construction'} = 1;
} else {
if ($ENV{'form.postdata'}) {
$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($ENV{'form.postdata'});
}
if ($ENV{'form.symb'}) {
$helper->{VARS}->{'symb'} = $ENV{'form.symb'};
}
if ($ENV{'form.url'}) {
$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
}
}
if ($ENV{'form.symb'}) {
$helper->{VARS}->{'symb'} = $ENV{'form.symb'};
}
if ($ENV{'form.url'}) {
$helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
}
my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu;
if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}
# Extract map
my $symb = $helper->{VARS}->{'symb'};
my ($map, $id, $url);
my $subdir;
# Get the resource name from construction space
if ($helper->{VARS}->{'construction'}) {
$resourceTitle = substr($helper->{VARS}->{'filename'},
rindex($helper->{VARS}->{'filename'}, '/')+1);
$subdir = substr($helper->{VARS}->{'filename'},
0, rindex($helper->{VARS}->{'filename'}, '/') + 1);
} else {
($map, $id, $url) = split(/___/, $symb);
$helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url);
if (!$resourceTitle) { # if the resource doesn't have a title, use the filename
my $url = $helper->{VARS}->{'postdata'};
$resourceTitle = substr($url, rindex($url, '/') + 1);
}
$subdir = &Apache::lonnet::filelocation("", $url);
}
Apache::lonhelper::registerHelperTags();
# "Delete everything after the last slash."
$subdir =~ s|/[^/]+$||;
if (not $helper->{VARS}->{'construction'}) {
$subdir='/home/httpd/html/res/'.$subdir;
}
# "Remove all duplicate slashes."
$subdir =~ s|/+|/|g;
# What can be printed is a very dynamic decision based on
# lots of factors. So we need to dynamically build this list.
# To prevent security leaks, states are only added to the wizard
# if they can be reached, which ensures manipulating the form input
# won't allow anyone to reach states they shouldn't have permission
# to reach.
# printChoices is tracking the kind of printing the user can
# do, and will be used in a choices construction later.
# In the meantime we will be adding states and elements to
# the helper by hand.
my $printChoices = [];
my $paramHash;
if ($resourceTitle) {
push @{$printChoices}, ["<b>$resourceTitle</b> (prints what you just saw on the screen)", 'current_document', 'PAGESIZE'];
}
# $r->print($helper->{VARS}->{'postdata'});
# If we're in a sequence...
if ($helper->{'VARS'}->{'construction'} ne '1') {
# Allow problems from sequence
push @{$printChoices}, ["Problem(s) from <b>$sequenceTitle</b>", 'map_problems', 'CHOOSE_PROBLEMS'];
# Allow all resources from sequence
push @{$printChoices}, ["Everything (problem(s), page(s), html/xml file(s)) from <b>$sequenceTitle</b>", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML'];
my $isProblem = '$res->is_problem();';
my $isProblemOrMap = '$res->is_problem() || $res->is_map()';
my $isNotMap = '!$res->is_map();';
my $symb = '$res->symb();';
my $helperFragment = <<HELPERFRAGMENT;
<state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print">
<message>(mark them then click "next" button) <br /></message>
<resource variable="RESOURCES" multichoice="1" toponly='1'>
<nextstate>PAGESIZE</nextstate>
<filterfunc>return $isProblem</filterfunc>
<mapurl>$map</mapurl>
<valuefunc>return $symb</valuefunc>
</resource>
</state>
<state name="CHOOSE_PROBLEMS_HTML" title="Select Resource(s) to print">
<message>(mark them then click "next" button) <br /></message>
<resource variable="RESOURCES" multichoice="1" toponly='1'>
<nextstate>PAGESIZE</nextstate>
<filterfunc>return $isNotMap;</filterfunc>
<mapurl>$map</mapurl>
<valuefunc>return $symb</valuefunc>
</resource>
</state>
HELPERFRAGMENT
&Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
}
# If the user is priviledged, allow them to print all
# problems in the course, optionally for selected students
if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($helper->{VARS}->{'postdata'}=~/\/res\//)) {
push @{$printChoices}, ['<b>Problems</b> in this course', 'all_problems', 'ALL_PROBLEMS'];
push @{$printChoices}, ["Problems from <b>$sequenceTitle</b> for selected students", 'problems_for_students', 'CHOOSE_STUDENTS'];
my $isProblem = '$res->is_problem();';
my $isProblemOrMap = '$res->is_problem() || $res->is_map()';
my $symb = '$res->symb();';
&Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);
<state name="ALL_PROBLEMS" title="Select Problem(s) to print">
<message>(mark them then click "next" button) <br /></message>
<resource variable="RESOURCES" multichoice="1" suppressEmptySequences='1'>
<nextstate>PAGESIZE</nextstate>
<filterfunc>return $isProblemOrMap</filterfunc>
<choicefunc>return $isProblem</choicefunc>
<valuefunc>return $symb</valuefunc>
</resource>
</state>
<state name="CHOOSE_STUDENTS" title="Choose Students whose assignments you want to print">
<student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />
<message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
<resource variable="RESOURCES" multichoice="1">
<filterfunc>return $isProblem</filterfunc>
<mapurl>$map</mapurl>
<valuefunc>return $symb</valuefunc>
</resource>
<message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
<choices variable="EMPTY_PAGES">
<choice computer='0'>Start each student's assignment on a new page (add a pagefeed after each assignment)</choice>
<choice computer='1'>Add one empty page after each student's assignment</choice>
<choice computer='2'>Add two empty pages after each student's assignment</choice>
</choices>
</state>
CHOOSE_STUDENTS
}
# FIXME: That RE should come from a library somewhere.
if (((&Apache::lonnet::allowed('bre',$subdir) eq 'F') and ($helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) or defined $helper->{'VARS'}->{'construction'}) {
push @{$printChoices}, ["Problems from current subdirectory <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];
my $f = '$filename';
my $xmlfrag = <<CHOOSE_FROM_SUBDIR;
<state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from <b><small>$subdir</small></b> to print">
<message>(mark them then click "next" button) <br /></message>
<files variable="FILES" multichoice='1'>
<nextstate>PAGESIZE</nextstate>
<filechoice>return '$subdir';</filechoice>
CHOOSE_FROM_SUBDIR
$xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
<filefilter>return $filename =~
m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/;
</filefilter>
</files>
</state>
CHOOSE_FROM_SUBDIR
&Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
}
# Generate the first state, to select which resources get printed.
Apache::lonhelper::state->new("START", "What do you want to print? Make a choice.");
$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{MESSAGE_TEXT} = "";
Apache::lonhelper::message->new();
$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{'variable'} = 'PRINT_TYPE';
$helper->declareVar('PRINT_TYPE');
$paramHash->{CHOICES} = $printChoices;
Apache::lonhelper::choices->new();
if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or
($helper->{VARS}->{'construction'} eq '1')) {
$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next option is available only for advanced users:</i></b></big><br />";
Apache::lonhelper::message->new();
$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{'variable'} = 'ANSWER_TYPE';
$helper->declareVar('ANSWER_TYPE');
$paramHash->{CHOICES} = [
['Print without answer', 'yes'],
['Print with answers', 'no'] ];
Apache::lonhelper::choices->new();
}
Apache::lonprintout::page_format_state->new("FORMAT");
# Generate the PAGESIZE state which will offer the user the margin
# choices if they select one column
Apache::lonhelper::state->new("PAGESIZE", "Set Margins");
Apache::lonprintout::page_size_state->new('pagesize', 'FORMAT', 'FINAL');
$helper->process();
# MANUAL BAILOUT CONDITION:
# If we're in the "final" state, bailout and return to handler
if ($helper->{STATE} eq 'FINAL') {
return $helper;
}
$r->print($helper->display());
Apache::lonhelper::unregisterHelperTags();
untie %hash;
return OK;
}
1;
package Apache::lonprintout::page_format_state;
=pod
=head1 Helper element: page_format_state
See lonhelper.pm documentation for discussion of the helper framework.
Apache::lonprintout::page_format_state is an element that gives the
user an opportunity to select the page layout they wish to print
with: Number of columns, portrait/landscape, and paper size. If you
want to change the paper size choices, change the @paperSize array
contents in this package.
page_format_state is always directly invoked in lonprintout.pm, so there
is no tag interface. You actually pass parameters to the constructor.
=over 4
=item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
=back
=cut
use Apache::lonhelper;
no strict;
@ISA = ("Apache::lonhelper::element");
use strict;
my $maxColumns = 2;
my @paperSize = ("Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]",
"Ledger/Tabloid [11x17 in]", "Executive [7 1/2x10 in]",
"A2 [420x594 mm]", "A3 [297x420 mm]", "A4 [210x297 mm]",
"A5 [148x210 mm]", "A6 [105x148 mm]" );
# Tentative format: Orientation (L = Landscape, P = portrait) | Colnum |
# Paper type
sub new {
my $self = Apache::lonhelper::element->new();
shift;
$self->{'variable'} = shift;
my $helper = Apache::lonhelper::getHelper();
$helper->declareVar($self->{'variable'});
bless($self);
return $self;
}
sub render {
my $self = shift;
my $helper = Apache::lonhelper::getHelper();
my $result = '';
my $var = $self->{'variable'};
$result .= <<STATEHTML;
<p><big><i><b>What page format do you prefer?</b></i></big></p>
<table cellpadding="3">
<tr>
<td align="center"><b>Page layout</b></td>
<td align="center"><b>Number of columns</b></td>
<td align="center"><b>Paper type</b></td>
</tr>
<tr>
<td>
<input type="radio" name="${var}.layout" value="L" /> Landscape<br />
<input type="radio" name="${var}.layout" value="P" checked='1' /> Portrait
</td>
<td align="center">
<select name="${var}.cols">
STATEHTML
my $i;
for ($i = 1; $i <= $maxColumns; $i++) {
if ($i == 2) {
$result .= "<option value='$i' selected>$i</option>\n";
} else {
$result .= "<option value='$i'>$i</option>\n";
}
}
$result .= "</select></td><td>\n";
$result .= "<select name='${var}.paper'>\n";
$i = 0;
foreach (@paperSize) {
if ($i == 0) {
$result .= "<option selected value='$i'>" . $paperSize[$i] . "</option>\n";
} else {
$result .= "<option value='$i'>" . $paperSize[$i] . "</option>\n";
}
$i++;
}
$result .= "</select></td></tr></table>";
return $result;
}
sub postprocess {
my $self = shift;
my $var = $self->{'variable'};
my $helper = Apache::lonhelper->getHelper();
$helper->{VARS}->{$var} =
$ENV{"form.$var.layout"} . '|' . $ENV{"form.$var.cols"} . '|' .
$ENV{"form.$var.paper"};
return 1;
}
1;
package Apache::lonprintout::page_size_state;
=pod
=head1 Helper element: page_size_state
See lonhelper.pm documentation for discussion of the helper framework.
Apache::lonprintout::page_size_state is an element that gives the
user the opportunity to further refine the page settings if they
select a single-column page.
page_size_state is always directly invoked in lonprintout.pm, so there
is no tag interface. You actually pass parameters to the constructor.
=over 4
=item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
=back
=cut
use Apache::lonhelper;
no strict;
@ISA = ("Apache::lonhelper::element");
use strict;
sub new {
my $self = Apache::lonhelper::element->new();
shift; # disturbs me (probably prevents subclassing) but works (drops
# package descriptor)... - Jeremy
$self->{'variable'} = shift;
my $helper = Apache::lonhelper::getHelper();
$helper->declareVar($self->{'variable'});
# The variable name of the format element, so we can look into
# $helper->{VARS} to figure out whether the columns are one or two
$self->{'formatvar'} = shift;
# The state to transition to after selection, or after discovering
# the cols are not set to 1
$self->{NEXTSTATE} = shift;
bless($self);
return $self;
}
sub render {
my $self = shift;
my $helper = Apache::lonhelper::getHelper();
my $result = '';
my $var = $self->{'variable'};
if (defined $self->{ERROR_MSG}) {
$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br />';
}
$result .= <<ELEMENTHTML;
<p>How should the column be formatted?</p>
<table cellpadding='3'>
<tr>
<td align='right'><b>Width</b>:</td>
<td align='left'><input type='text' name='$var.width' value='18' size='4'></td>
<td align='left'>
<select name='$var.widthunit'>
<option>cm</option><option>in</option>
</select>
</td>
</tr>
<tr>
<td align='right'><b>Height</b>:</td>
<td align='left'><input type='text' name="$var.height" value="25.9" size='4'></td>
<td align='left'>
<select name='$var.heightunit'>
<option>cm</option><option>in</option>
</select>
</td>
</tr>
<tr>
<td align='right'><b>Left margin</b>:</td>
<td align='left'><input type='text' name='$var.lmargin' value='-1.5' size='4'></td>
<td align='left'>
<select name='$var.lmarginunit'>
<option>cm</option><option>in</option>
</select>
</td>
</tr>
</table>
<p>Hint: Some instructors like to leave scratch space for the student by
making the width much smaller then the width of the page.</p>
ELEMENTHTML
return $result;
}
# If the user didn't select 1 column, skip this state.
sub preprocess {
my $self = shift;
my $helper = Apache::lonhelper::getHelper();
my $format = $helper->{VARS}->{$self->{'formatvar'}};
if (substr($format, 2, 1) ne '1') {
$helper->changeState($self->{NEXTSTATE});
}
return 1;
}
sub postprocess {
my $self = shift;
my $var = $self->{'variable'};
my $helper = Apache::lonhelper->getHelper();
my $width = $helper->{VARS}->{$var .'.width'} = $ENV{"form.${var}.width"};
my $height = $helper->{VARS}->{$var .'.height'} = $ENV{"form.${var}.height"};
my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $ENV{"form.${var}.lmargin"};
$helper->{VARS}->{$var .'.widthunit'} = $ENV{"form.${var}.widthunit"};
$helper->{VARS}->{$var .'.heightunit'} = $ENV{"form.${var}.heightunit"};
$helper->{VARS}->{$var .'.lmarginunit'} = $ENV{"form.${var}.lmarginunit"};
my $error = '';
# /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed
# by an optional period, followed by digits, ending the string
if ($width !~ /^-?[0-9]+(\.[0-9]*)?$/) {
$error .= "Invalid width; please type only a number.<br />\n";
}
if ($height !~ /^-?[0-9]+(\.[0-9]*)?$/) {
$error .= "Invalid height; please type only a number.<br />\n";
}
if ($lmargin !~ /^-?[0-9]+(\.[0-9]*)?$/) {
$error .= "Invalid left margin; please type only a number.<br />\n";
}
if (!$error) {
Apache::lonhelper::getHelper()->changeState($self->{NEXTSTATE});
return 1;
} else {
$self->{ERROR_MSG} = $error;
return 0;
}
}
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[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