Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.82 and 1.229

-version 1.82, 2002/10/23 17:38:03
+version 1.229, 2003/09/05 19:42:00
  Line 49  use Apache::grades;
  use Apache::edit;
  use Apache::File();
  use Apache::lonnavmaps;
+ use Apache::lonratedt;
  use POSIX qw(strftime);
  use GDBM_File;
- Line 56  use GDBM_File;
+ Line 57  use GDBM_File;
  my %hash;
  my $LaTeXwidth = 0;
- sub headerform {
-     my $r = shift;
+ sub latex_header_footer_remove {
-     $r->print(<<ENDHEADER);
+     my $text = shift;
- <html>
+     $text =~ s/\\end{document}//;
- <head>
+     $text =~ s/\\documentclass([^&]*)\\begin{document}//;
- <title>LON-CAPA output for printing</title>
+     return $text;
- </head>
- <body bgcolor="FFFFFF">
- <form method="post" enctype="multipart/form-data" action="/adm/printout" name="printform">
- ENDHEADER
-     if ($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) {
-     $r->print(<<ENDHEADER1);
- <b>Path to current document: </b><tt>$ENV{'form.postdata'}</tt><p>
- ENDHEADER1
  }
+ 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/&(omicron|\#959);/o/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/&(thetasym|\#977);/\$\\vartheta \$/g;
+     $result =~ s/&(piv|\#982);/\$\\varpi \$/g;
+     $result =~ s/&(Alpha|\#913);/A/g;
+     $result =~ s/&(Beta|\#914);/B/g;
+     $result =~ s/&(Gamma|\#915);/\$\\Gamma \$/g;
+     $result =~ s/&(Delta|\#916);/\$\\Delta \$/g;
+     $result =~ s/&(Epsilon|\#917);/E/g;
+     $result =~ s/&(Zeta|\#918);/Z/g;
+     $result =~ s/&(Eta|\#919);/H/g;
+     $result =~ s/&(Theta|\#920);/\$\\Theta \$/g;
+     $result =~ s/&(Iota|\#921);/I/g;
+     $result =~ s/&(Kappa|\#922);/K/g;
+     $result =~ s/&(Lambda|\#923);/\$\\Lambda \$/g;
+     $result =~ s/&(Mu|\#924);/M/g;
+     $result =~ s/&(Nu|\#925);/N/g;
+     $result =~ s/&(Xi|\#926);/\$\\Xi \$/g;
+     $result =~ s/&(Omicron|\#927);/O/g;
+     $result =~ s/&(Pi|\#928);/\$\\Pi \$/g;
+     $result =~ s/&(Rho|\#929);/P/g;
+     $result =~ s/&(Sigma|\#931);/\$\\Sigma \$/g;
+     $result =~ s/&(Tau|\#932);/T/g;
+     $result =~ s/&(Upsilon|\#933);/\$\\Upsilon \$/g;
+     $result =~ s/&(Phi|\#934);/\$\\Phi \$/g;
+     $result =~ s/&(Chi|\#935);/X/g;
+     $result =~ s/&(Psi|\#936);/\$\\Psi \$/g;
+     $result =~ s/&(Omega|\#937);/\$\\Omega \$/g;
+ #Arrows (extended HTML 4.01)
+     $result =~ s/&(larr|\#8592);/\$\\leftarrow \$/g;
+     $result =~ s/&(uarr|\#8593);/\$\\uparrow \$/g;
+     $result =~ s/&(rarr|\#8594);/\$\\rightarrow \$/g;
+     $result =~ s/&(darr|\#8595);/\$\\downarrow \$/g;
+     $result =~ s/&(harr|\#8596);/\$\\leftrightarrow \$/g;
+     $result =~ s/&(lArr|\#8656);/\$\\Leftarrow \$/g;
+     $result =~ s/&(uArr|\#8657);/\$\\Uparrow \$/g;
+     $result =~ s/&(rArr|\#8658);/\$\\Rightarrow \$/g;
+     $result =~ s/&(dArr|\#8659);/\$\\Downarrow \$/g;
+     $result =~ s/&(hArr|\#8660);/\$\\Leftrightarrow \$/g;
+ #Mathematical Operators (extended HTML 4.01)
+     $result =~ s/&(forall|\#8704);/\$\\forall \$/g;
+     $result =~ s/&(part|\#8706);/\$\\partial \$/g;
+     $result =~ s/&(exist|\#8707);/\$\\exists \$/g;
+     $result =~ s/&(empty|\#8709);/\$\\emptyset \$/g;
+     $result =~ s/&(nabla|\#8711);/\$\\nabla \$/g;
+     $result =~ s/&(isin|\#8712);/\$\\in \$/g;
+     $result =~ s/&(notin|\#8713);/\$\\notin \$/g;
+     $result =~ s/&(ni|\#8715);/\$\\ni \$/g;
+     $result =~ s/&(prod|\#8719);/\$\\prod \$/g;
+     $result =~ s/&(sum|\#8721);/\$\\sum \$/g;
+     $result =~ s/&(minus|\#8722);/\$-\$/g;
+     $result =~ s/&(lowast|\#8727);/\$*\$/g;
+     $result =~ s/&(radic|\#8730);/\$\\surd \$/g;
+     $result =~ s/&(prop|\#8733);/\$\\propto \$/g;
+     $result =~ s/&(infin|\#8734);/\$\\infty \$/g;
+     $result =~ s/&(ang|\#8736);/\$\\angle \$/g;
+     $result =~ s/&(and|\#8743);/\$\\wedge \$/g;
+     $result =~ s/&(or|\#8744);/\$\\vee \$/g;
+     $result =~ s/&(cap|\#8745);/\$\\cap \$/g;
+     $result =~ s/&(cup|\#8746);/\$\\cup \$/g;
+     $result =~ s/&(int|\#8747);/\$\\int \$/g;
+     $result =~ s/&(sim|\#8764);/\$\\sim \$/g;
+     $result =~ s/&(cong|\#8773);/\$\\cong \$/g;
+     $result =~ s/&(asymp|\#8776);/\$\\approx \$/g;
+     $result =~ s/&(ne|\#8800);/\$\\not= \$/g;
+     $result =~ s/&(equiv|\#8801);/\$\\equiv \$/g;
+     $result =~ s/&(le|\#8804);/\$\\leq \$/g;
+     $result =~ s/&(ge|\#8805);/\$\\geq \$/g;
+     $result =~ s/&(sub|\#8834);/\$\\subset \$/g;
+     $result =~ s/&(sup|\#8835);/\$\\supset \$/g;
+     $result =~ s/&(nsub|\#8836);/\$\\not\\subset \$/g;
+     $result =~ s/&(sube|\#8838);/\$\\subseteq \$/g;
+     $result =~ s/&(supe|\#8839);/\$\\supseteq \$/g;
+     $result =~ s/&(oplus|\#8853);/\$\\oplus \$/g;
+     $result =~ s/&(otimes|\#8855);/\$\\otimes \$/g;
+     $result =~ s/&(perp|\#8869);/\$\\perp \$/g;
+     $result =~ s/&(sdot|\#8901);/\$\\cdot \$/g;
+ #Geometric Shapes (extended HTML 4.01)
+     $result =~ s/&(loz|\#9674);/\$\\Diamond \$/g;
+ #Miscellaneous Symbols (extended HTML 4.01)
+     $result =~ s/&(spades|\#9824);/\$\\spadesuit \$/g;
+     $result =~ s/&(clubs|\#9827);/\$\\clubsuit \$/g;
+     $result =~ s/&(hearts|\#9829);/\$\\heartsuit \$/g;
+     $result =~ s/&(diams|\#9830);/\$\\diamondsuit \$/g;
+     return $result;
  }
- sub menu_for_output {
+ sub page_format {
-     my $r = shift;
+ #
-     my ($title_for_single_resource,$title_for_sequence,$title_for_main_map) = &details_for_menu;
+ #Correspondence between $papersize variable and real paper format:
-     if ($title_for_single_resource ne '') {$title_for_single_resource = '"'.$title_for_single_resource.'"';}
+ # 0 - "Letter [8 1/2x11 in]"
-     if ($title_for_sequence ne '') {$title_for_sequence = '"'.$title_for_sequence.'"';}
+ # 1 - "Legal [8 1/2x14 in]"
-     if ($title_for_main_map ne '') {$title_for_main_map = '"'.$title_for_main_map.'"';}
+ # 2 - "Ledger/Tabloid [11x17 in]"
-     my $subdir_to_print = $ENV{'form.postdata'};
+ # 3 - "Executive [7 1/2x10 in]"
-     $subdir_to_print =~ m/\/([^\/]+)$/;
+ # 4 - "A2 [420x594 mm]"
-     $subdir_to_print =~ s/$1//;
+ # 5 - "A3 [297x420 mm]"
-     $r->print(<<ENDMENUOUT1);
+ # 6 - "A4 [210x297 mm]"
- <h1>What do you want to print? Make a choice.</h1><br />
+ # 7 - "A5 [148x210 mm]"
- <input type="hidden" name="phase" value="two">
+ # 8 - "A6 [105x148 mm]"
- <input type="hidden" name="url" value="$ENV{'form.postdata'}">
+ #
- <input type="radio" name="choice" value="Standard LaTeX output for current document" checked>  Current document <b>$title_for_single_resource</b>
+     my ($papersize,$layout,$numberofcolumns) = @_;
- (prints what you just saw on the screen)<br />
+     my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = (0,0,0,0,0);
- ENDMENUOUT1
+     if ($papersize eq '0') {
-     if ((not $ENV{'request.role'}=~m/^au\./) and (not $ENV{'request.role'}=~m/^ca\./)) {
+ 	if ($layout eq 'book') {
- 	$r->print(<<ENDMENUOUT2);
+ 	    if ($numberofcolumns == 1) {
- <input type="radio" name="choice" value="Standard LaTeX output for the primary sequence">  All problems from <b>$title_for_sequence</b><br />
+ 		$textwidth = '7.1 in';      #'18 cm';
- <input type="radio" name="choice" value="Standard LaTeX output for whole primary sequence">  All problems plus any pages or html/xml files from <b>$title_for_sequence</b><br />
+ 		$textheight = '10.2 in';    #'25.9 cm';
- ENDMENUOUT2
+ 		$oddoffset = '-0.57 in';
-     }
+ 		$evenoffset = '-0.57 in';
-     if ($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) {
+ 	    } elsif ($numberofcolumns == 2) {
- 	$r->print(<<ENDMENUOUT6);
+ 		$textwidth = '3.66 in';     #'93 mm';
- <input type="radio" name="choice" value="Standard LaTeX output for the top level sequence">  All problems in this course (<b>warning:</b> this may be time consuming) <br />
+ 		$textheight = '10.2 in';    #'25.9 cm';
- <br />
+ 		$oddoffset = '-0.57 in';
- <input type="radio" name="choice" value="All class print">  All problems from <b>$title_for_sequence</b> for selected students<br /><br />
+ 		$evenoffset = '-0.57 in';
- ENDMENUOUT6
+ 	    }
-     }
+ 	} elsif ($layout eq 'album') {
-       my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});
+ 	    if ($numberofcolumns eq '1') {
-       $subdirtoprint =~ s/\/[^\/]+$//;
+ 		$textwidth = '8.8 in';
-       if (&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') {
+ 		$textheight = '6.8 in';
- 	  $r->print(<<ENDMENUOUT4);
+ 		$oddoffset = '-40 pt';
-   <input type="radio" name="choice" value="Subdirectory print">  Problems from current subdirectory <b>$subdir_to_print</b><br />
+ 		$evenoffset = '-60 pt';
- ENDMENUOUT4
+ 	    } elsif ($numberofcolumns == 2) {
-       }
+ 		$textwidth = '4.4 in';
-     $r->print(<<ENDMENUOUT5);
+ 		$textheight = '6.8 in';
- <br /><hr /><br />
+ 		$oddoffset = '-0.5 in';
- <h1>And what page format do you prefer?</h1>
+ 		$evenoffset = '-1.5 in';
- <table>
+ 		$topmargin = '3.5 in';
-  <tr>
+ 	    }
-    <td>
+ 	}
-      <input type="radio" name="layout" value="CBI"> Landscape <br />
+ #    } elsif($papersize eq '1') {
-      <input type="radio" name="layout" value="CAPA" checked>  Portrait <br />
+ #    } elsif($papersize eq '2') {
-    </td>
+ #    } elsif($papersize eq '3'/) {
-    <td>&nbsp;</td>
+     } elsif($papersize eq '6') {
-    <td rawspan="2">
+ 	if ($layout eq 'book') {
-      Number of columns: <select name="numberofcolumns">
+ 	    if ($numberofcolumns == 1) {
-                          <option> 1 </option>
+ 		$textwidth = '18 cm';
-                          <option selected> 2 </option>
+ 		$textheight = '28 cm';
-                         </select>
+ 		$oddoffset = '-0.57 in';
-    </td>
+ 		$evenoffset = '-0.57 in';
-    <td rawspan="2">
+ 	    } elsif ($numberofcolumns == 2) {
-      Paper size (format [width x height]): <select name="papersize">
+ 		$textwidth = '96 mm';
-                                             <option selected> Letter [8 1/2x11 in] </option>
+ 		$textheight = '2 cm';
-                                             <option> Legal [8 1/2x14 in] </option>
+ 		$oddoffset = '-0.57 in';
-                                             <option> Ledger/Tabloid [11x17 in] </option>
+ 		$evenoffset = '-0.57 in';
-                                             <option> Executive [7 1/2x10 in] </option>
+ 	    }
-                                             <option> A2 [420x594 mm] </option>
+ 	} elsif ($layout eq 'album') {
-                                             <option> A3 [297x420 mm] </option>
+ 	    if ($numberofcolumns eq '1') {
-                                             <option> A4 [210x297 mm] </option>
+ 		$textwidth = '8.5 in';
-                                             <option> A5 [148x210 mm] </option>
+ 		$textheight = '7.7 in';
-                                             <option> A6 [105x148 mm] </option>
+ 		$oddoffset = '-40 pt';
-                                            </select>
+ 		$evenoffset = '-60 pt';
-    </td>
+ 	    } elsif ($numberofcolumns == 2) {
-  </tr>
+ 		$textwidth = '3.9 in';
- </table>
+ 		$textheight = '7.7 in';
- </br>
+ 		$oddoffset = '-40 pt';
- <input type="submit" value="Submit your choice">
+ 		$evenoffset = '-60 pt';
- ENDMENUOUT5
+ 	    }
+ 	}
+ #    } elsif($papersize eq '5') {
+ #    } elsif($papersize eq '4') {
+ #    } elsif($papersize eq '7') {
+ #    } elsif($papersize eq '8') {
+     }
+     return $textwidth,$textheight,$oddoffset,$evenoffset,$topmargin;
  }
- sub problem_choice_menu {
+ sub get_name {
-     my $r = shift;
+     my ($uname,$udom)=@_;
-     my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});
+     if (!defined($uname)) { $uname=$ENV{'user.name'}; }
-     $subdirtoprint =~ s/\/[^\/]+$//;
+     if (!defined($udom)) { $udom=$ENV{'user.domain'}; }
-     my @list_of_files = ();
+     my $plainname=&Apache::loncommon::plainname($uname,$udom);
-     if ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./) {
+     if ($plainname=~/^\s*$/) { $plainname=$uname.'@'.$udom; }
- 	$subdirtoprint =~ s/^[^~]*~(\w+)\//\/home\/$1\/public_html\//;
+     $plainname=&Apache::lonxml::latex_special_symbols($plainname,'header');
-     } else {
+     return $plainname;
- 	$subdirtoprint =~ s/.*(\/res\/)/$1/;
+ }
+ sub get_course {
+     my $courseidinfo;
+     if (defined($ENV{'request.course.id'})) {
+ 	$courseidinfo = &Apache::lonxml::latex_special_symbols(&Apache::lonnet::unescape($ENV{'course.'.$ENV{'request.course.id'}.'.description'}),'header');
      }
-     my @content_directory = ();
+     return $courseidinfo;
-     if ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./) {
+ }
- 	@content_directory = &Apache::lonnet::dirlist($subdirtoprint,$ENV{'user.domain'}, $ENV{'user.name'},'');
+ sub page_format_transformation {
+     my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment,$tableofcontents,$indexlist) = @_;
+     my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin);
+     $assignment=&Apache::lonxml::latex_special_symbols($assignment,'header');
+     if ($numberofcolumns != 1) {
+ 	($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = &page_format($papersize,$layout,$numberofcolumns,$topmargin);
      } else {
- 	@content_directory = &Apache::lonnet::dirlist($subdirtoprint);
+ 	($textwidth,$textheight,$oddoffset,$evenoffset) = ($ENV{'form.width'},$ENV{'form.height'},$ENV{'form.leftmargin'},$ENV{'form.leftmargin'});
      }
-     for (my $iy=0;$iy<=$#content_directory;$iy++) {
+     my $name = &get_name();
- 	my @tempo_array = split(/&/,$content_directory[$iy]);
+     my $courseidinfo = &get_course();
- 	if ($tempo_array[0] =~ m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/) {
+     if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
- 	    push(@list_of_files,$tempo_array[0]);
+     if ($layout eq 'album') {
+ 	my $topmargintoinsert = '';
+ 	if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';}
+ 	    $text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}$topmargintoinsert\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{}\\lhead{\\textbf{$name} $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}} \\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1} /;
+     } 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 /;
  	}
      }
-     $subdirtoprint =~ s/\/$//;
+     if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;}
-     for (my $i=0;$i<=$#list_of_files;$i++) {
+     if ($indexlist eq 'yes') {
- 	$list_of_files[$i] = $subdirtoprint.'/'.$list_of_files[$i];
+ 	$text=~s/(\\begin{document})/\\makeindex $1/;
-     }
+ 	$text=~s/(\\end{document})/\\strut\\\\\\strut\\printindex $1/;
-     $r->print(<<ENDMENUOUT1);
- <input type="hidden" name="url" value="$ENV{'form.url'}">
- <input type="hidden" name="choice" value="$ENV{'form.choice'}">
- <input type="hidden" name="layout" value="$ENV{'form.layout'}">
- <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
- <h1>Mark problems which you want to print</h1>
- <script>
-     function checkall() {
- 	for (i=0; i<document.forms.printform.elements.length; i++) {
-             if
-           (document.forms.printform.elements[i].name.indexOf('whattoprint')==0) {
- 	      document.forms.printform.elements[i].checked=true;
-             }
-         }
      }
+     return $text;
+ }
-     function uncheckall() {
+ sub page_cleanup {
- 	for (i=0; i<document.forms.printform.elements.length; i++) {
+     my $result = shift;
-             if
-           (document.forms.printform.elements[i].name.indexOf('whattoprint')==0) {
+     $result =~ m/\\end{document}(\d*)$/;
- 	      document.forms.printform.elements[i].checked=false;
+     my $number_of_columns = $1;
-             }
+     my $insert = '{';
-         }
+     for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; }
-     }
+     $insert .= '}';
- </script>
+     $result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g;
- <input type=button onClick="checkall()" value="Check All">&nbsp;
+     $result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g;
- <input type=button onClick="uncheckall()" value="Uncheck">
+     return $result,$number_of_columns;
- <p>
- ENDMENUOUT1
-     my $i=0;
-     foreach my $file (@list_of_files) {
- 	$r->print('<br /><input type=checkbox name="whattoprint'.$i.'" value="'.$file.'"> '.
-                   $file);
- 	$i++;
-     }
-     $r->print(<<ENDMENUOUT2);
- <br />
- <input type="hidden" name="numberofproblems" value="$i">
- <input type="hidden" name="phase" value="three">
- <input type="submit" value="Submit">
- ENDMENUOUT2
  }
- sub additional_class_menu {
+ sub details_for_menu {
-     my $r = shift;
-     $r->print(<<ENDMENUOUT1);
- <input type="hidden" name="url" value="$ENV{'form.url'}">
- <input type="hidden" name="choice" value="$ENV{'form.choice'}">
- <input type="hidden" name="layout" value="$ENV{'form.layout'}">
- <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
- <h1>Select student(s) whose assignment you want to print</h1>
- ENDMENUOUT1
-     my %courselist=&Apache::lonnet::dump(
-                    'classlist',
- 		   $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
- 		   $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
-     my $now=time;
-     $r->print(<<ENDDISHEADER);
- <script>
-     function checkall() {
- 	for (i=0; i<document.forms.printform.elements.length; i++) {
-             if
-           (document.forms.printform.elements[i].name.indexOf('whomtoprint')==0) {
- 	      document.forms.printform.elements[i].checked=true;
-             }
-         }
-     }
-     function checksec() {
+     my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}};
- 	for (i=0; i<document.forms.printform.elements.length; i++) {
+     my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});
-             if
+     my ($map,$id,$resource)=split(/___/,$symbolic);
-           (document.forms.printform.elements[i].value.indexOf
+     $map=&Apache::lonnet::clutter($map);
-            (document.forms.printform.chksec.value)==0) {
+     my $name_of_sequence;
- 	      document.forms.printform.elements[i].checked=true;
+     $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);
-     function uncheckall() {
+ }
- 	for (i=0; i<document.forms.printform.elements.length; i++) {
-             if
-           (document.forms.printform.elements[i].name.indexOf('whomtoprint')==0) {
+ sub latex_corrections {
- 	      document.forms.printform.elements[i].checked=false;
-             }
+     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);
      }
- </script>
+     $result =~ s/^\s+$//gm; #remove empty lines
- <input type=button onClick="checkall()" value="Check All">&nbsp;
+     $result =~ s/(\s)(\s+)/$1/g; #removes more than one empty space
- <input type=button onClick="checksec()" value="Check Section/Group">
+     $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
- <input type=text size=5 name=chksec>&nbsp;
+     $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g;
- <input type=button onClick="uncheckall()" value="Uncheck">
+     $result =~ s/{\\par }\s*\\\\/\\\\/gm;
- <p>
+ 	$result =~ s/\\\\\s+\[/ \[/g;
- ENDDISHEADER
+     $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
-     my $i = 0;
+     #conversion of html characters to LaTeX equivalents
-     foreach (sort keys %courselist) {
+     if ($result =~ m/&(\w+|#\d+);/) {
-         my ($end,$start)=split(/\:/,$courselist{$_});
+ 	$result = &character_chart($result);
-         my $active=1;
+     }
-         if (($end) && ($now>$end)) { $active=0; }
+     $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;
-         if ($active) {
+     $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;
-            my ($sname,$sdom)=split(/\:/,$_);
-            my %reply=&Apache::lonnet::get('environment',
+     return $result;
-               ['firstname','middlename','lastname','generation'],
-               $sdom,$sname);
-            my $section=&Apache::lonnet::usection
- 	       ($sdom,$sname,$ENV{'request.course.id'});
-            $r->print(
-         '<br /><input type=checkbox name="whomtoprint'.$i.'" value="'.$section.':'.$_.'"> '.
- 		      $reply{'firstname'}.' '.
-                       $reply{'middlename'}.' '.
-                       $reply{'lastname'}.' '.
-                       $reply{'generation'}.
-                       ' ('.$_.') '.$section);
- 	   $i++;
-         }
-     }
-     $r->print(<<ENDMENUOUT2);
- <br />
- <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
- <input type="hidden" name="numberofstudents" value="$i">
- <input type="hidden" name="phase" value="three">
- <input type="submit" value="Submit">
- ENDMENUOUT2
  }
- sub additional_print_menu {
+ sub index_table {
-     my $r = shift;
+     my $currentURL = shift;
-     my $what_to_print = '';
+     my $insex_string='';
-     for (my $i=0; $i<$ENV{'form.numberofstudents'};$i++) {
+     $currentURL=~s/\.([^\/+])$/\.$1\.meta/;
- 	$what_to_print .= '<input type="hidden" name="whomtoprint'.$i.'" value="'.$ENV{'form.whomtoprint'.$i}.'">';
+     $insex_string=&Apache::lonnet::metadata($currentURL,'keywords');
-     }
+     return $insex_string;
-     for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) {
+ }
- 	$what_to_print .= '<input type="hidden" name="whattoprint'.$i.'" value="'.$ENV{'form.whattoprint'.$i}.'">';
-     }
-     $r->print(<<ENDMENUOUT);
+ sub IndexCreation {
-     $what_to_print
+     my ($texversion,$currentURL)=@_;
- <input type="hidden" name="url" value="$ENV{'form.url'}">
+     my @key_words=split(/,/,&index_table($currentURL));
- <input type="hidden" name="choice" value="$ENV{'form.choice'}">
+     my $chunk='';
- <input type="hidden" name="layout" value="$ENV{'form.layout'}">
+     my $st=index $texversion,'\addcontentsline{toc}{subsection}{';
- <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
+     if ($st>0) {
- <input type="hidden" name="numberofstudents" value="$ENV{'form.numberofstudents'}">
+ 	for (my $i=0;$i<3;$i++) {$st=(index $texversion,'}',$st+1);}
- <input type="hidden" name="numberofproblems" value="$ENV{'form.numberofproblems'}">
+ 	$chunk=substr($texversion,0,$st+1);
- <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
+ 	substr($texversion,0,$st+1)=' ';
- Define one column layout parameters: <br />
+     }
- <b>Width</b>: <input type="text" name="width" width="8" value="9cm"> <br />
+     foreach my $key_word (@key_words) {
- <b>Height</b>: <input type="text" name="height" width="8" value="25.9cm"> <br />
+ 	if ($key_word=~/\S+/) {
- <b>Left margin</b>: <input type="text" name="leftmargin" width="8" value="-0.57in"> <br />
+ 	    $texversion=~s/\b($key_word)\b/$1 \\index{$key_word} /i;
- <input type="hidden" name="phase" value="four">
+ 	}
- <input type="submit" value="Submit">
+     }
- </form>
+     if ($st>0) {substr($texversion,0,1)=$chunk;}
- </body>
+     return $texversion;
- </html>
- ENDMENUOUT
  }
  sub output_data {
-     my $r = shift;
+     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>
- <body bgcolor="FFFFFF">
+ $bodytag
- <hr>
+ Please stand by while processing your print request, this may take some time ...
  ENDPART
-     my $choice = $ENV{'form.choice'};
+     my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
-     my $layout = $ENV{'form.layout'};
+     my ($result,$selectionmade) = ('','');
-     my $numberofcolumns = $ENV{'form.numberofcolumns'};
-     my $papersize = $ENV{'form.papersize'};
-     my $laystyle = 'book';
-     if ($choice eq 'Subdirectory print') {
- 	$layout = 'CAPA';
- 	$papersize = 'Letter [8 1/2x11 in]';
- 	$numberofcolumns = 2;
-     }
-     if (($choice eq 'Standard LaTeX output for current document') && ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./)) {
- 	$layout = 'CAPA';
- 	$papersize = 'Letter [8 1/2x11 in]';
- 	$numberofcolumns = 1;
-     }
-     my $result = '';
      my $number_of_columns = 1; #used only for pages to determine the width of the cell
-     my $selectionmade = '';
+     my @temporary_array=split /\|/,$format_from_helper;
-     my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);
+     my ($laystyle,$numberofcolumns,$papersize)=@temporary_array;
-     my $LaTeXwidth;
+     if ($laystyle eq 'L') {
+ 	$laystyle='album';
-     if ($textwidth=~/(\d+\s*cm)/) {
+     } 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+\s*mm)/) {
+     } elsif ($textwidth=~/(\d+\.?\d*)\s*mm/) {
  	$LaTeXwidth = $1;
+     } elsif ($textwidth=~/(\d+\.?\d*)\s*in/) {
+ 	$LaTeXwidth = $1*25.4;
      }
-     if ($choice eq 'Standard LaTeX output for current document') {
+     $LaTeXwidth.=' mm';
-       #-- single document - problem, page, html, xml
-       $selectionmade = 1;
+     if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') {
-       my %moreenv;
+       #-- single document - problem, page, html, xml, ...
-       $moreenv{'form.grade_target'}='tex';
+ 	my $currentURL;
-       if ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./) {
+ 	if ($helper->{'VARS'}->{'construction'} ne '1') {
- 	  $ENV{'form.url'}=~s/http:\/\/[^\/]+//;
+             #prints published resource
-       }
+ 	    $currentURL=$helper->{'VARS'}->{'postdata'};
-       $moreenv{'request.filename'}=$ENV{'form.url'};
+ 	} else {
-       $moreenv{'form.textwidth'}=$LaTeXwidth;
+             #prints resource from the construction space
-       &Apache::lonnet::appenv(%moreenv);
+ 	    $currentURL=$helper->{'VARS'}->{'filename'};
-       my $texversion=&Apache::lonnet::ssi($ENV{'form.url'});
+ 	    $currentURL=~s/\/home\//\/~/;
-       &Apache::lonnet::delenv('form.grade_target','form.textwidth','form.counter');
+ 	    $currentURL=~s/public_html\///;
-       $result .= $texversion;
+ 	    if ($currentURL=~/([^?]+)/) {$currentURL=$1;}
-       if ($ENV{'form.url'}=~m/\.page\s*$/) {
+ 	}
- 	  ($result,$number_of_columns) = &page_cleanup($result);
+ 	$selectionmade = 1;
-       }
+ 	if ($currentURL=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
-     } elsif ($choice eq 'Standard LaTeX output for the primary sequence' or
+ 	    my %moreenv;
-              $choice eq 'Standard LaTeX output for whole primary sequence') {
+ 	    $moreenv{'request.filename'}=$currentURL;
-       #-- minimal sequence to which the current document belongs
+ 	    my %form;
-         #-- where is the primary sequence containing file?
+ 	    $form{'grade_target'}='tex';
- 	my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'});
+ 	    $form{'textwidth'}=$LaTeXwidth;
- 	my @sequence = split('___',$symbolic);
+ 	    $form{'problem_split'}=$parmhash{'problem_stream_switch'};
- 	my $primary_sequence = '/res/'.$sequence[0];
+ 	    $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
- 	my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]);
+ 	    my $rndseed=time;
-         #-- produce an output string
+ 	    $form{'rndseed'}=$rndseed;
- 	my $flag_latex_header_remove = 'NO';
+ 	    &Apache::lonnet::appenv(%moreenv);
- 	my $flag_page_in_sequence = 'NO';
+ 	    &Apache::lonnet::delenv('form.counter');
- 	for (my $i=0;$i<=$#master_seq;$i++) {
+ 	    &Apache::lonxml::init_counter();
-             my ($urlp,$symb) = split /&&/, $master_seq[$i];
+ 	    my $texversion=&Apache::lonnet::ssi($currentURL,%form);
- 	    if ($choice eq 'Standard LaTeX output for the primary sequence') {
+ 	    &Apache::lonnet::delenv('form.counter');
-             #prints only problems
+ 	    &Apache::lonnet::delenv('request.filename');
- 		$selectionmade = 2;
+ 	    if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
-  		if ($urlp =~ m/\.(problem|exam|quiz|assess|survey|form|library)/) {
+ 		my %form;
- 		    my %moreenv;
+ 		$form{'grade_target'}='answer';
- 		    $moreenv{'form.grade_target'}='tex';
+ 		$form{'answer_output_mode'}='tex';
- 		    $moreenv{'form.textwidth'}=$LaTeXwidth;
+ 		$form{'rndseed'}=$rndseed;
- 		    &Apache::lonnet::appenv(%moreenv);
+ 		my $answer=&Apache::lonnet::ssi($currentURL,%form);
- 		    &Apache::lonnet::logthis("Trying to get $urlp with symb $symb");
+ 		$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
- 		    my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));
+ 	    }
- 		    &Apache::lonnet::delenv('form.grade_target','form.textwidth');
+ 	    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,$number_of_columns) = &page_cleanup($result);
+ 	    }
+         } elsif ($currentURL=~/\.sequence$/ && $helper->{'VARS'}->{'construction'} eq '1') {
+             #printing content of sequence from the construction space
+ 	    my $flag_latex_header_remove = 'NO';
+ 	    my $rndseed=time;
+ 	    $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
+ 	    my $errtext=&Apache::lonratedt::mapread($currentURL);
+ 	    for (my $member=0;$member<=$#Apache::lonratedt::order;$member++) {
+ 		$Apache::lonratedt::resources[$Apache::lonratedt::order[$member]]=~/^([^:]*):([^:]*):/;
+ 		my $urlp=$2;
+ 		if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) {
+ 		    my %form;
+ 		    $form{'grade_target'}='tex';
+ 		    $form{'textwidth'}=$LaTeXwidth;
+ 		    $form{'rndseed'}=$rndseed;
+ 		    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{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
+ 			$form{'rndseed'}=$rndseed;
+ 			my $answer=&Apache::lonnet::ssi($urlp,%form);
+ 			$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
+ 		    }
  		    if ($flag_latex_header_remove ne 'NO') {
  			$texversion = &latex_header_footer_remove($texversion);
  		    } else {
  			$texversion =~ s/\\end{document}//;
  		    }
- 		    $result .= $texversion;
+ 		    if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
+ 			$texversion=&IndexCreation($texversion,$urlp);
+ 		    }
+ 		    if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
+ 			$texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /;
+ 		    }
+ 		    $result.=$texversion;
  		    $flag_latex_header_remove = 'YES';
- 		}
+ 		} elsif ($urlp=~/\.(sequence|page)$/) {
- 	    } elsif ($urlp =~ /\S+/) {
+ 		    $result.='\strut\newline\noindent Sequence/page '.$urlp.'\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent ';
-               #prints problems, pages and any html/xml files
+ 		}
+ 	    }
+ 	    if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}
+ 	    $result .= '\end{document}';
+ 	} else {
+ 	  $result.='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
+ 	  if ($currentURL=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) {
+ 	      $result.=$1;
+ 	  } elsif ($currentURL=~/\/ext\//) {
+ 	      $result.=' \strut \\\\ THIS IS EXTERNAL RESOURCE WITH URL \strut \\\\ '.$currentURL.' ';
+ 	  } else {
+ 	      $result.=$currentURL;
+ 	  }
+ 	  $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 %form=();
+ 	$form{'grade_target'}='tex';
+ 	$form{'textwidth'}=$LaTeXwidth;
+ 	$form{'problem_split'}=$parmhash{'problem_stream_switch'};
+ 	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
+ 	my $flag_latex_header_remove = 'NO';
+ 	my $flag_page_in_sequence = 'NO';
+ 	my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
+ 	my $prevassignment='';
+ 	&Apache::lonnet::delenv('form.counter');
+ 	&Apache::lonxml::init_counter();
+ 	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;
- 		my %moreenv;
+ 	    } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') {
- 		$moreenv{'form.grade_target'}='tex';
+ 		$selectionmade = 4;
- 		&Apache::lonnet::appenv(%moreenv);
+ 	    }
- 		my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));
+ 	    $form{'symb'}=$master_seq[$i];
- 		&Apache::lonnet::delenv('form.grade_target');
+ 	    $master_seq[$i]=~/(.*)___\d*___/;
- 		if ($urlp =~ m/\.page/) {
+ 	    my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($1),'header'); #tittle of the assignment which contains this problem
- 		    ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
+ 	    #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
- 		    if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}
+ 	    my $texversion=&Apache::lonnet::ssi($urlp,%form);
- 		    $texversion =~ s/\\end{document}\d*/\\end{document}/;
+ 	    if ($urlp=~/\.page$/) {
- 		    $flag_page_in_sequence = 'YES';
+ 		($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 ($flag_latex_header_remove ne 'NO') {
+ 		$texversion =~ s/\\end{document}\d*/\\end{document}/;
- 		    $texversion = &latex_header_footer_remove($texversion);
+ 		$flag_page_in_sequence = 'YES';
- 		} else {
+ 	    }
- 		    $texversion =~ s/\\end{document}//;
+ 	    if ($flag_latex_header_remove ne 'NO') {
- 		}
+ 		$texversion = &latex_header_footer_remove($texversion);
- 		$result .= $texversion;
+ 	    } else {
- 		$flag_latex_header_remove = 'YES';
+ 		$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/;
  	    }
+ 	    if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
+ 		$texversion=&IndexCreation($texversion,$urlp);
+ 	    }
+ 	    if (($selectionmade == 4) and ($assignment ne $prevassignment) and ($i>=1)) {
+ 		my ($name,$courseidinfo) = &get_name;
+ 		$courseidinfo = &get_course();
+ 		if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
+ 		$prevassignment=$assignment;
+ 		$result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$name.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}} \vskip -5 mm ';
+ 	    }
+ 	    $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 ($choice eq 'Standard LaTeX output for the top level sequence') {
+      } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') {
-         # where is the main sequence of the course?
+      #-- prints assignments for whole class or for selected students
- 	$selectionmade = 4;
+ 	 $selectionmade=5;
- 	my $main_seq = '/res/'.$ENV{'request.course.uri'};
+ 	 my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'};
- 	my @file_seq = &coming_from_hash_whole($main_seq);
+ 	 my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
- 	my $flag_latex_header_remove = 'NO';
+ 	 #loop over students
-         #-- produce an output string
+ 	 my $flag_latex_header_remove = 'NO';
- 	for (my $i=0;$i<=$#file_seq;$i++) {
+ 	 my %moreenv;
-             my ($urlp,$symb) = split /&&/, $file_seq[$i];
+ 	 $moreenv{'form.textwidth'}=$LaTeXwidth;
- 	    $urlp=~s/\/home\/httpd\/html//;
+ 	 &Apache::lonnet::appenv(%moreenv);
-             if ($urlp=~m/\.(problem|exam|quiz|assess|survey|form|library)/) {
+ 	 my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1);
- 		my %moreenv;
+ 	 foreach my $person (@students) {
- 		$moreenv{'form.grade_target'}='tex';
- 		$moreenv{'form.textwidth'}=$LaTeXwidth;
- 		&Apache::lonnet::appenv(%moreenv);
- 		my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));
- 		&Apache::lonnet::delenv('form.grade_target','form.textwidth');
- 		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';
- 	    }
- 	}
- 	$result .= '\end{document}';
-     } elsif ($choice eq 'All class print') {
-     #-- prints assignments for whole class or for selected students
- 	$selectionmade = 5;
-         my @students = ();
- 	for (my $i=0; $i<$ENV{'form.numberofstudents'};$i++) {
- 	    if ($ENV{'form.whomtoprint'.$i}=~/:/) {
- 		push @students,$ENV{'form.whomtoprint'.$i};
- 	    }
- 	}
- 	#where is the primary sequence containing current resource (the same for all students)?
- 	my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'});
- 	my @sequence = split('___',$symbolic);
- 	my $primary_sequence = '/res/'.$sequence[0];
- 	my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]);
-         #loop over students
- 	my $flag_latex_header_remove = 'NO';
- 	my %moreenv;
- 	$moreenv{'form.textwidth'}=$LaTeXwidth;
- 	&Apache::lonnet::appenv(%moreenv);
- 	foreach my $person (@students) {
  	    my $current_output = '';
- 	    my ($usersection,$username,$userdomain) = split /:/,$person;
+ #	    my ($usersection,$username,$userdomain) = split /:/,$person;
- 	    my $fullname = &Apache::grades::get_fullname($username,$userdomain);
+ 	    my ($username,$userdomain) = split /:/,$person;
+ 	    my $fullname = &get_name($username,$userdomain);
+ 	    if ($parmhash{'anonymous_quiz'}=~/yes/) {$fullname=' ';} #put here something reasonable for anonymous exams or quiz
              #goes through all resources, checks if they are available for current student, and produces output
+ 	    &Apache::lonnet::delenv('form.counter');
+ 	    &Apache::lonxml::init_counter();
  	    foreach my $curresline (@master_seq)  {
- 		my ($curres,$symb) = split /&&/, $curresline;
+ 		if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) {
-                 if ($curres=~ m/\.(problem|exam|quiz|assess|survey|form|library)/) {
+ 		    my ($map,$id,$res_url) = split(/___/,$curresline);
- 		    my ($map,$id,$res_url) = split(/___/,$symb);
  		    if (&Apache::lonnet::allowed('bre',$res_url)) {
- 			my $rendered = &Apache::loncommon::get_student_view($symb,$username,$userdomain,
+ 			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';
+ 			    $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
+ 			    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 = &get_course();
+ 	    if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
+ 	    my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
  	    if ($current_output=~/\\documentclass/) {
- 		$current_output =~ s/\\begin{document}/\\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$fullname}}\\hskip 1\.4in } \\vskip 5 mm /;
+ 		$current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}}$courseidinfo \\hfill \\thepage \\\\ \\textit{$currentassignment}}\\vskip 3 mm /;
  	    } else {
- 		$current_output = '\\vskip 3mm\noindent\parbox{\minipagewidth}{\noindent\fbox{\textbf{'.$fullname.'}}\hskip 1.4in } \vskip 5 mm '.$current_output;
+ 		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{'.$currentassignment.'}}} \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 ($choice eq 'Subdirectory print') {
+     } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') {
      #prints selected problems from the subdirectory
  	$selectionmade = 6;
-         my @list_of_files = ();
+         my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'};
- 	for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) {
+ 	@list_of_files=sort @list_of_files;
- 	    if ($ENV{'form.whattoprint'.$i}=~/^\//) {
+ 	my $flag_latex_header_remove = 'NO';
- 		push @list_of_files,$ENV{'form.whattoprint'.$i};
+ 	my $rndseed=time;
- 	    }
- 	}
- 	my $flag_latex_header_remove = 'NO';
  	for (my $i=0;$i<=$#list_of_files;$i++) {
  	    my $urlp = $list_of_files[$i];
  	    if ($urlp=~/\//) {
- 		my %moreenv;
+ 		my %form;
- 		$moreenv{'form.grade_target'}='tex';
+ 		$form{'grade_target'}='tex';
- 		$moreenv{'form.textwidth'}=$LaTeXwidth;
+ 		$form{'textwidth'}=$LaTeXwidth;
- 		&Apache::lonnet::appenv(%moreenv);
+ 		$form{'rndseed'}=$rndseed;
- 		if ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./) {
+ 		if ($urlp =~ m|/home/([^/]+)/public_html|) {
- 		    $urlp =~ s/\/home\/([^\/]*)\/public_html/\/~$1/;
+ 		    $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{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
+ 		    $form{'rndseed'}=$rndseed;
+ 		    my $answer=&Apache::lonnet::ssi($urlp,%form);
+ 		    $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
  		}
- 		my $texversion=&Apache::lonnet::ssi($urlp);
+                 #this chunck is responsible for printing the path to problem
- 		&Apache::lonnet::delenv('form.grade_target','form.textwidth');
+ 		my $newurlp = '';
- 		$texversion =~ s/(\\begin{document})/$1 {\\tiny\\begin{verbatim}$urlp\\end{verbatim}}/;
+ 		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}//;
  		}
+ 		if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
+ 		    $texversion=&IndexCreation($texversion,$urlp);
+ 		}
+ 		if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
+ 		    $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /;
+ 		}
  		$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,$layout,$numberofcolumns,$choice,$result);
+     $result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'},$helper->{'VARS'}->{'TABLE_CONTENTS'},$helper->{'VARS'}->{'TABLE_INDEX'});
-     if ($layout eq 'CBI') {
-         $laystyle = 'album';
-     }
      $result = &latex_corrections($number_of_columns,$result);
      #changes page's parameters for the one column output
-     if ($ENV{'form.numberofcolumns'} == 1) {
+     if ($numberofcolumns == 1) {
- 	$result =~ s/\\textwidth= 9cm/\\textwidth= $ENV{'form.width'}/;
+ 	$result =~ s/\\textwidth= 9cm/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /;
- 	$result =~ s/\\textheight 25\.9cm/\\textheight $ENV{'form.height'}/;
+ 	$result =~ s/\\textheight 25\.9cm/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /;
- 	$result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $ENV{'form.leftmargin'}/;
+ 	$result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
- 	$result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $ENV{'form.leftmargin'}/;
+ 	$result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
+     }
+     if ($helper->{'VARS'}->{'TABLE_CONTENTS'} eq 'yes') {$selectionmade*=10;}
+     if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
+ 	if ($selectionmade<10) {$selectionmade*=100;} else {$selectionmade*=10;}
      }
+     if ($ENV{'request.role.adv'}) {$selectionmade*=10000;}
  #-- writing .tex file in prtspool
      my $temp_file;
      my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex";
- Line 576  ENDPART
+ Line 968  ENDPART
  	return SERVER_ERROR;
      }
      print $temp_file $result;
  $r->print(<<FINALEND);
  <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">
  </body>
- Line 584  FINALEND
+ Line 977  FINALEND
  }
- sub coming_from_hash_whole {
-     my $mainsequence = shift;
+ sub handler {
-     my @resourcelist = ();
-     my $mapid = $hash{'map_pc_'.$mainsequence};
+     my $r = shift;
-     my $mapstart = $hash{'map_start_'.$mainsequence};
+     my $helper;
-     my $mapfinish = $hash{'map_finish_'.$mainsequence};
-     my $current_resource = $mapstart;
+ #    my $loaderror=&Apache::lonnet::overloaderror($r);
-     while ($current_resource ne $mapfinish) {
+ #    if ($loaderror) { return $loaderror; }
- 	if ($hash{'src_'.$current_resource}=~/\.sequence$/) {
+ #    $loaderror=
- 	    push @resourcelist,&coming_from_hash_whole($hash{'src_'.$current_resource});
+ #       &Apache::lonnet::overloaderror($r,
- 	} else {
+ #         $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
-             $mainsequence =~ /\/res\/(.*)$/;
+ #    if ($loaderror) { return $loaderror; }
- 	    my $presymb = $1;
- 	    my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}};
+     my $result = printHelper($r);
-             if ($rid=~/,/) {
+     if (!ref($result)) {
- 		my @rid = split /,/, $rid;
+ 	return $result;
- 		foreach my $rid_element (@rid) {
- 		    if ($rid_element =~ m/^$mapid\.(\d*)/) {
- 			$rid = $1;
- 			last;
- 		    }
- 		}
- 	    } else {
- 		$rid =~ m/^$mapid\.(\d*)/;
-                 $rid = $1;
- 	    }
- 	    $hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/;
- 	    my $symb = $presymb.'___'.$rid.'___'.$1;
- 	    push @resourcelist,$hash{'src_'.$current_resource}.'&&'.$symb;
- 	}
- 	$current_resource = $hash{'goesto_'.$hash{'to_'.$current_resource}};
      }
-     return @resourcelist;
+     $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'});
+ #	my $key;
+ #	foreach $key (keys %parmhash) {
+ #	    $r->print(' '.$key.'->'.$parmhash{$key}.'<-<br />');
+ #	}
+ #	return OK;
+     &output_data($r,$helper,\%parmhash);
+     return OK;
+ }
+ use Apache::lonhelper;
+ sub addMessage {
+     my $text = shift;
+     my $paramHash = Apache::lonhelper::getParamHash();
+     $paramHash->{MESSAGE_TEXT} = $text;
+     Apache::lonhelper::message->new();
  }
+ sub printHelper {
+     my $r = shift;
- sub coming_from_hash {
+     if ($ENV{'request.course.id'}) {
+ 	my $fn=$ENV{'request.course.fn'};
+ 	tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640);
+     }
-     my ($mainsequence,$symb) = @_;
+     if ($r->header_only) {
-     my @resourcelist = ();
+         if ($ENV{'browser.mathml'}) {
-     my $mapid = $hash{'map_pc_'.$mainsequence};
+             $r->content_type('text/xml');
-     my $mapstart = $hash{'map_start_'.$mainsequence};
+         } else {
-     my $mapfinish = $hash{'map_finish_'.$mainsequence};
+             $r->content_type('text/html');
-     my ($presymb) = split(/___/,$symb);
+         }
-     $presymb = $presymb.'___';
+         $r->send_http_header;
-     my $current_resource = $mapstart;
+         return OK;
-     while ($current_resource ne $mapfinish) {
- 	if (not $hash{'src_'.$current_resource}=~/\.sequence$/) {
- 	    my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}};
-             if ($rid=~/,/) {
- 		my @rid = split /,/, $rid;
- 		foreach my $rid_element (@rid) {
- 		    if ($rid_element =~ m/^$mapid\.(\d*)/) {
- 			$rid = $1;
- 			last;
- 		    }
- 		}
- 	    } else {
- 		$rid =~ m/^$mapid\.(\d*)/;
-                 $rid = $1;
- 	    }
- 	    $hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/;
- 	    $symb = $presymb.$rid.'___'.$1;
- 	    push @resourcelist,$hash{'src_'.$current_resource}.'&&'.$symb;
- 	} else {
- 	    push @resourcelist,&coming_from_hash($hash{'src_'.$current_resource});
- 	}
- 	$current_resource = $hash{'goesto_'.$hash{'to_'.$current_resource}};
      }
-     #needs if final resource in the map (type="finish") contains something
-     if (not $hash{'src_'.$current_resource}=~/\.sequence$/) {
+     # Send header, nocache
- 		    my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}};
+     if ($ENV{'browser.mathml'}) {
-             if ($rid=~/,/) {
+         $r->content_type('text/xml');
- 		my @rid = split /,/, $rid;
- 		foreach my $rid_element (@rid) {
- 		    if ($rid_element =~ m/^$mapid\.(\d*)/) {
- 			$rid = $1;
- 			last;
- 		    }
- 		}
- 	    } else {
- 		$rid =~ m/^$mapid\.(\d*)/;
-                 $rid = $1;
- 	    }
- 	    $hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/;
- 	    $symb = $presymb.$rid.'___'.$1;
- 	push @resourcelist,$hash{'src_'.$current_resource}.'&&'.$symb;
      } else {
- 	push @resourcelist,&coming_from_hash($hash{'src_'.$current_resource});
+         $r->content_type('text/html');
      }
-     return @resourcelist;
+     &Apache::loncommon::no_cache($r);
- }
+     $r->send_http_header;
+     $r->rflush();
+     # Unfortunately, this helper is so complicated we have to
+     # write it by hand
- sub latex_header_footer_remove {
+     Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
-     my $text = shift;
-     $text =~ s/\\end{document}//;
+     my $helper = Apache::lonhelper::helper->new("Printing Helper");
-     $text =~ s/\\documentclass([^&]*)\\begin{document}//;
+     $helper->declareVar('symb');
-     return $text;
+     $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:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) {
+         $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'});
- sub character_chart {
+     }
-     my $result = shift;
-     $result =~ s/&#0?0?7;//g;
+     my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu;
-     $result =~ s/&#0?0?9;//g;
+     if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}
-     $result =~ s/&#0?10;//g;
-     $result =~ s/&#0?13;//g;
-     $result =~ s/&#0?32;/ /g;
+     # Extract map
-     $result =~ s/&#0?33;/!/g;
+     my $symb = $helper->{VARS}->{'symb'};
-     $result =~ s/&#0?34;/"/g;
+     my ($map, $id, $url);
-     $result =~ s/&quot;/"/g;   #"
+     my $subdir;
-     $result =~ s/&#0?35;/\\#/g;
- #    $result =~ s/&#0?36;/\\\$/g;
+     # Get the resource name from construction space
-     $result =~ s/&#0?37;/\\%/g;
+     if ($helper->{VARS}->{'construction'}) {
-     $result =~ s/&#0?38;/\\&/g;
+         $resourceTitle = substr($helper->{VARS}->{'filename'},
-     $result =~ s/&amp;/\\&/g;
+                                 rindex($helper->{VARS}->{'filename'}, '/')+1);
-     $result =~ s/&#0?39;/'/g;
+         $subdir = substr($helper->{VARS}->{'filename'},
-     $result =~ s/&#0?40;/(/g;
+, rindex($helper->{VARS}->{'filename'}, '/') + 1);
-     $result =~ s/&#0?41;/)/g;
+     } else {
-     $result =~ s/&#0?42;/\*/g;
+         ($map, $id, $url) = split(/___/, $symb);
-     $result =~ s/&#0?43;/\+/g;
+         $helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url);
-     $result =~ s/&#0?44;/,/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;/\$<\$/g;
-     $result =~ s/&lt;/\$<\$/g;
-     $result =~ s/&#0?61;/\$=\$/g;
-     $result =~ s/&#0?62;/\$>\$/g;
-     $result =~ s/&gt;/\$>\$/g;
-     $result =~ s/&#0?63;/?/g;
- #    $result =~ s/&#0?64;//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;/\\/g;
-     $result =~ s/&#0?93;/]/g;
- #    $result =~ s/&#0?94;//g;
- #    $result =~ s/&#0?95;//g;
-     $result =~ s/&#0?96;/`/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/&#130;/,/g;
- #    $result =~ s/&#131;//g;
-     $result =~ s/&#132;/''/g;
-     $result =~ s/&#133;/\$\\ldots\$/g;
-     $result =~ s/&#134;/\$\\dagger\$/g;
-     $result =~ s/&#135;/\$\\ddagger\$/g;
- #    $result =~ s/&#136;//g;
- #    $result =~ s/&#137;//g;
- #    $result =~ s/&#138;//g;
-     $result =~ s/&#139;/\$<\$/g;
- #    $result =~ s/&#140;//g;
-     $result =~ s/&#145;/`/g;
-     $result =~ s/&#146;/'/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;/~/g;
- #    $result =~ s/&#153;//g;
- #    $result =~ s/&#154;//g;
-     $result =~ s/&#155;/\$>\$/g;
-     $result =~ s/&#156;/\\{\\oe\\}/g;
-     $result =~ s/&#159;/\\"\\{Y\\}/g;
-     $result =~ s/&#160;//g;
-     $result =~ s/&nbsp;//g;
-     $result =~ s/&#161;/!`/g;
-     $result =~ s/&iexcl;/!`/g; #`
- #    $result =~ s/&#162;//g;
- #    $result =~ s/&cent;//g;
-     $result =~ s/&#163;/\\pounds/g;
-     $result =~ s/&pound;/\\pounds/g;
- #    $result =~ s/&#164;//g;
- #    $result =~ s/&curren;//g;
- #    $result =~ s/&#165;//g;
- #    $result =~ s/&yen;//g;
- #    $result =~ s/&#166;//g;
- #    $result =~ s/&brvbar;//g;
- #    $result =~ s/&#167;//g;
- #    $result =~ s/&sect;//g;
- #    $result =~ s/&#168;//g;
- #    $result =~ s/&uml;//g;
-     $result =~ s/&#169;/\\copyright/g;
-     $result =~ s/&copy;/\\copyright/g;
- #    $result =~ s/&#170;//g;
- #    $result =~ s/&ordf;//g;
- #    $result =~ s/&#171;//g;
- #    $result =~ s/&laquo;//g;
-     $result =~ s/&#172;/\$\\neg\$/g;
-     $result =~ s/&not;/\$\\neg\$/g;
- #    $result =~ s/&#173;//g;
- #    $result =~ s/&shy;//g;
- #    $result =~ s/&#174;//g;
- #    $result =~ s/&reg;//g;
- #    $result =~ s/&#175;//g;
- #    $result =~ s/&macr;//g;
-     $result =~ s/&#176;/\$^{\\circ}\$/g;
-     $result =~ s/&deg;/\$^{\\circ}\$/g;
-     $result =~ s/&#177;/\$\\pm\$/g;
-     $result =~ s/&plusmn;/\$\\pm\$/g;
-     $result =~ s/&#178;/\$^2\$/g;
-     $result =~ s/&sup2;/\$^2\$/g;
-     $result =~ s/&#179;/\$^3\$/g;
-     $result =~ s/&sup3;/\$^3\$/g;
- #    $result =~ s/&#180;//g;
- #    $result =~ s/&acute;//g;
-     $result =~ s/&#181;/\$\\mu\$/g;
-     $result =~ s/&micro;/\$\\mu\$/g;
-     $result =~ s/&#182;/\\P/g;
-     $result =~ s/&para;/\\P/g;
-     $result =~ s/&#183;/\$\\cdot\$/g;
-     $result =~ s/&middot;/\$\\cdot\$/g;
- #    $result =~ s/&#184;//g;
- #    $result =~ s/&cedil;//g;
-     $result =~ s/&#185;/\$^1\$/g;
-     $result =~ s/&sup1;/\$^1\$/g;
- #    $result =~ s/&#186;//g;
- #    $result =~ s/&ordm;//g;
- #    $result =~ s/&#187;//g;
- #    $result =~ s/&raquo;//g;
- #    $result =~ s/&#188;//g;
- #    $result =~ s/&frac14;//g;
- #    $result =~ s/&#189;//g;
- #    $result =~ s/&frac12;//g;
- #    $result =~ s/&#190;//g;
- #    $result =~ s/&frac34;//g;
-     $result =~ s/&#191;/?`/g;
-     $result =~ s/&iquest;/?`/g;      #`
-     $result =~ s/&#192;/\\`{A}/g;
-     $result =~ s/&Agrave;/\\`{A}/g;  #`
-     $result =~ s/&#193;/\\'{A}/g;
-     $result =~ s/&Aacute;/\\'{A}/g;  #'
-     $result =~ s/&#194;/\\^{A}/g;
-     $result =~ s/&Acirc;/\\^{A}/g;
-     $result =~ s/&#195;/\\~{A}/g;
-     $result =~ s/&Atilde;/\\~{A}/g;
-     $result =~ s/&#196;/\\"{A}/g;
-     $result =~ s/&Auml;/\\"{A}/g;    #"
-     $result =~ s/&#197;/{\\AA}/g;
-     $result =~ s/&Aring;/{\\AA}/g;
-     $result =~ s/&#198;/{\\AE}/g;
-     $result =~ s/&AElig;/{\\AE}/g;
- #    $result =~ s/&#199;//g;
- #    $result =~ s/&Ccedil;//g;
-     $result =~ s/&#200;/\\`{E}/g;
-     $result =~ s/&Egrave;/\\`{E}/g;  #`
-     $result =~ s/&#201;/\\'{E}/g;    #'
-     $result =~ s/&Eacute;/\\'{E}/g;  #'
-     $result =~ s/&#202;/\\^{E}/g;
-     $result =~ s/&Ecirc;/\\^{E}/g;
-     $result =~ s/&#203;/\\`{E}/g;
-     $result =~ s/&Euml;/\\`{E}/g;    #`
-     $result =~ s/&#204;/\\`{I}/g;
-     $result =~ s/&Igrave;/\\`{I}/g;  #`
-     $result =~ s/&#205;/\\'{I}/g;
-     $result =~ s/&Iacute;/\\'{I}/g;  #'
-     $result =~ s/&#206;/\\^{I}/g;
-     $result =~ s/&Icirc;/\\^{I}/g;
-     $result =~ s/&#207;/\\"{I}/g;
-     $result =~ s/&Iuml;/\\"{I}/g;    #"
- #    $result =~ s/&#208;//g;
- #    $result =~ s/&ETH;//g;
-     $result =~ s/&#209;/\\~{N}/g;
-     $result =~ s/&Ntilde;/\\~{N}/g;
-     $result =~ s/&#210;/\\`{O}/g;
-     $result =~ s/&Ograve;/\\`{O}/g;  #`
-     $result =~ s/&#211;/\\'{O}/g;
-     $result =~ s/&Oacute;/\\'{O}/g;  #'
-     $result =~ s/&#212;/\\^{O}/g;
-     $result =~ s/&Ocirc;/\\^{O}/g;
-     $result =~ s/&#213;/\\~{O}/g;
-     $result =~ s/&Otilde;/\\~{O}/g;
-     $result =~ s/&#214;/\\"{O}/g;
-     $result =~ s/&Ouml;/\\"{O}/g;    #"
-     $result =~ s/&#215;/\$\\times\$/g;
-     $result =~ s/&times;/\$\\times\$/g;
-     $result =~ s/&#216;/{\\O}/g;
-     $result =~ s/&Oslash;/{\\O}/g;
-     $result =~ s/&#217;/\\`{U}/g;
-     $result =~ s/&Ugrave;/\\`{U}/g;  #`
-     $result =~ s/&#218;/\\'{U}/g;    #'
-     $result =~ s/&Uacute;/\\'{U}/g;  #'
-     $result =~ s/&#219;/\\^{U}/g;
-     $result =~ s/&Ucirc;/\\^{U}/g;
-     $result =~ s/&#220;/\\"{U}/g;    #"
-     $result =~ s/&Uuml;/\\"{U}/g;    #"
-     $result =~ s/&#221;/\\'{Y}/g;
-     $result =~ s/&Yacute;/\\'{Y}/g;  #'
- #    $result =~ s/&#222;//g;
- #    $result =~ s/&THORN;//g;
- #    $result =~ s/&#223;//g;
- #    $result =~ s/&szlig;//g;
-     $result =~ s/&#224;/\\`{a}/g;
-     $result =~ s/&agrave;/\\`{a}/g;  #`
-     $result =~ s/&#225;/\\'{a}/g;
-     $result =~ s/&aacute;/\\'{a}/g;  #'
-     $result =~ s/&#226;/\\^{a}/g;
-     $result =~ s/&acirc;/\\^{a}/g;
-     $result =~ s/&#227;/\\~{a}/g;
-     $result =~ s/&atilde;/\\~{a}/g;
-     $result =~ s/&#228;/\\"{a}/g;
-     $result =~ s/&auml;/\\"{a}/g;    #"
-     $result =~ s/&#229;/{\\aa}/g;
-     $result =~ s/&aring;/{\\aa}/g;
-     $result =~ s/&#230;/{\\ae}/g;
-     $result =~ s/&aelig;/{\\ae}/g;
- #    $result =~ s/&#231;//g;
- #    $result =~ s/&ccedil;//g;
-     $result =~ s/&#232;/\\`{e}/g;
-     $result =~ s/&egrave;/\\`{e}/g;  #`
-     $result =~ s/&#233;/\\'{e}/g;
-     $result =~ s/&eacute;/\\'{e}/g;  #'
-     $result =~ s/&#234;/\\^{e}/g;
-     $result =~ s/&ecirc;/\\^{e}/g;
-     $result =~ s/&#235;/\\"{e}/g;
-     $result =~ s/&euml;/\\"{e}/g;    #"
-     $result =~ s/&#236;/\\`{i}/g;
-     $result =~ s/&igrave;/\\`{i}/g;  #`
-     $result =~ s/&#237;/\\'{i}/g;
-     $result =~ s/&iacute;/\\'{i}/g;  #'
-     $result =~ s/&#238;/\\^{i}/g;
-     $result =~ s/&icirc;/\\^{i}/g;
-     $result =~ s/&#239;/\\"{i}/g;
-     $result =~ s/&iuml;/\\"{i}/g;    #"
- #    $result =~ s/&#240;//g;
- #    $result =~ s/&eth;//g;
-     $result =~ s/&#241;/\\~{n}/g;
-     $result =~ s/&ntilde;/\\~{n}/g;
-     $result =~ s/&#242;/\\`{o}/g;
-     $result =~ s/&ograve;/\\`{o}/g;  #`
-     $result =~ s/&#243;/\\'{o}/g;
-     $result =~ s/&oacute;/\\'{o}/g;  #'
-     $result =~ s/&#244;/\\^{o}/g;
-     $result =~ s/&ocirc;/\\^{o}/g;
-     $result =~ s/&#245;/\\~{o}/g;
-     $result =~ s/&otilde;/\\~{o}/g;
-     $result =~ s/&#246;/\\"{o}/g;
-     $result =~ s/&ouml;/\\"{o}/g;    #"
-     $result =~ s/&#247;/\$\\div\$/g;
-     $result =~ s/&divide;/\$\\div\$/g;
-     $result =~ s/&#248;/{\\o}/g;
-     $result =~ s/&oslash;/{\\o}/g;
-     $result =~ s/&#249;/\\`{u}/g;
-     $result =~ s/&ugrave;/\\`{u}/g;  #`
-     $result =~ s/&#250;/\\'{u}/g;
-     $result =~ s/&uacute;/\\'{u}/g;  #'
-     $result =~ s/&#251;/\\^{u}/g;
-     $result =~ s/&ucirc;/\\^{u}/g;
-     $result =~ s/&#252;/\\"{u}/g;
-     $result =~ s/&uuml;/\\"{u}/g;    #"
-     $result =~ s/&#253;/\\'{y}/g;
-     $result =~ s/&yacute;/\\'{y}/g;  #'
- #    $result =~ s/&#254;//g;
- #    $result =~ s/&thorn;//g;
-     $result =~ s/&#255;/\\"{y}/g;
-     $result =~ s/&yuml;/\\"{y}/g;    #"
-     $result =~ s/&#952;/\$\\theta\$/g; #converts theta from html into tex
-     return $result;
- }
+         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);
+     }
-     sub page_format {
+     my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();
- 	my ($papersize,$layout,$numberofcolumns) = @_;
- 	my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0);
+     Apache::lonhelper::registerHelperTags();
- 	if ($papersize=~/Letter/) {
- 	    if ($layout eq 'CAPA') {
+     # "Delete everything after the last slash."
- 		if ($numberofcolumns == 1) {
+     $subdir =~ s|/[^/]+$||;
- 		    $textwidth = '18 cm';
+     if (not $helper->{VARS}->{'construction'}) {
- 		    $textheight = '25.9 cm';
+ 	$subdir='/home/httpd/html/res/'.$subdir;
- 		    $oddoffset = '-0.57 in';
+     }
- 		    $evenoffset = '-0.57 in';
+     # "Remove all duplicate slashes."
- 		} elsif ($numberofcolumns == 2) {
+     $subdir =~ s|/+|/|g;
- 		    $textwidth = '93 mm';
- 		    $textheight = '25.9 cm';
+     # What can be printed is a very dynamic decision based on
- 		    $oddoffset = '-0.57 in';
+     # lots of factors. So we need to dynamically build this list.
- 		    $evenoffset = '-0.57 in';
+     # To prevent security leaks, states are only added to the wizard
- 		}
+     # if they can be reached, which ensures manipulating the form input
- 	    } elsif ($layout eq 'CBI') {
+     # won't allow anyone to reach states they shouldn't have permission
- 		if ($numberofcolumns eq '1') {
+     # to reach.
- 		    $textwidth = '8.8 in';
- 		    $textheight = '6.8 in';
+     # printChoices is tracking the kind of printing the user can
- 		    $oddoffset = '-40 pt';
+     # do, and will be used in a choices construction later.
- 		    $evenoffset = '-60 pt';
+     # In the meantime we will be adding states and elements to
- 		} elsif ($numberofcolumns == 2) {
+     # the helper by hand.
- 		    $textwidth = '4.2 in';
+     my $printChoices = [];
- 		    $textheight = '6.8 in';
+     my $paramHash;
- 		    $oddoffset = '-40 pt';
- 		    $evenoffset = '-60 pt';
+     if ($resourceTitle) {
- 		}
+         push @{$printChoices}, ["<b>$resourceTitle</b> (prints what you just saw on the screen)", 'current_document', 'PAGESIZE'];
- 	    }
+     }
- #    } elsif($papersize=~/Legal/) {
- #    } elsif($papersize=~/Ledger/) {
+ #    $r->print($helper->{VARS}->{'postdata'});
- #    } elsif($papersize=~/Executive/) {
-     } elsif($papersize=~/A4/) {
+     # If we're in a sequence...
- 	    if ($layout eq 'CAPA') {
+     if ($helper->{'VARS'}->{'construction'} ne '1') {
- 		if ($numberofcolumns == 1) {
+         # Allow problems from sequence
- 		    $textwidth = '18 cm';
+         push @{$printChoices}, ["Problem(s) from <b>$sequenceTitle</b>", 'map_problems', 'CHOOSE_PROBLEMS'];
- 		    $textheight = '28 cm';
+         # Allow all resources from sequence
- 		    $oddoffset = '-0.57 in';
+         push @{$printChoices}, ["Everything (problem(s), page(s), html/xml file(s)) from <b>$sequenceTitle</b>", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML'];
- 		    $evenoffset = '-0.57 in';
- 		} elsif ($numberofcolumns == 2) {
+         my $isProblem = '$res->is_problem()';
- 		    $textwidth = '96 mm';
+ 	$isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden;
- 		    $textheight = '2 cm';
+         my $isProblemOrMap = '$res->is_problem() || $res->is_map()';
- 		    $oddoffset = '-0.57 in';
+         my $isNotMap = '!$res->is_map()';
- 		    $evenoffset = '-0.57 in';
+ 	$isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;
- 		}
+         my $symb = '$res->symb()';
- 	    } elsif ($layout eq 'CBI') {
+         my $helperFragment = <<HELPERFRAGMENT;
- 		if ($numberofcolumns eq '1') {
+   <state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print">
- 		    $textwidth = '8.5 in';
+     <message>(mark them then click "next" button) <br /></message>
- 		    $textheight = '7.7 in';
+     <resource variable="RESOURCES" multichoice="1" toponly='1'>
- 		    $oddoffset = '-40 pt';
+       <nextstate>PAGESIZE</nextstate>
- 		    $evenoffset = '-60 pt';
+       <filterfunc>return $isProblem;</filterfunc>
- 		} elsif ($numberofcolumns == 2) {
+       <mapurl>$map</mapurl>
- 		    $textwidth = '3.9 in';
+       <valuefunc>return $symb;</valuefunc>
- 		    $textheight = '7.7 in';
+       </resource>
- 		    $oddoffset = '-40 pt';
+     </state>
- 		    $evenoffset = '-60 pt';
- 		}
+   <state name="CHOOSE_PROBLEMS_HTML" title="Select Resource(s) to print">
- 	    }
+     <message>(mark them then click "next" button) <br /></message>
- #    } elsif($papersize=~/A3/) {
+     <resource variable="RESOURCES" multichoice="1" toponly='1'>
- #    } elsif($papersize=~/A2/) {
+       <nextstate>PAGESIZE</nextstate>
- #    } elsif($papersize=~/A5/) {
+       <filterfunc>return $isNotMap;</filterfunc>
- #    } elsif($papersize=~/A6/) {
+       <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()';
+ 	$isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden;
+         my $isProblemOrMap = '($res->is_problem() || $res->is_map())';
+ 	$isProblemOrMap .= ' && !$res->randomout()' if !$userCanSeeHidden;
+         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="Select Students and Resources">
+     <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/column (add a pagefeed after each assignment)</choice>
+       <choice computer='1'>Add one empty page/column after each student\'s assignment</choice>
+       <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>
+       <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>
+       </choices>
+     </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'}) and $ENV{'request.role.adv'}) {
+         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 Apache::lonhelper::files::not_old_version($filename) &&
+ 	  $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", "Select Printing Options:");
+     $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();
+     my $startedTable = 0; # have we started an HTML table yet? (need
+                           # to close it later)
+     if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or
+ 	($helper->{VARS}->{'construction'} eq '1')) {
+ 	addMessage("<hr width='33%' /><table><tr><td align='right'>Print With Answers:</td><td>");
+         $paramHash = Apache::lonhelper::getParamHash();
+ 	$paramHash->{'variable'} = 'ANSWER_TYPE';
+ 	$helper->declareVar('ANSWER_TYPE');
+         $paramHash->{CHOICES} = [
+                                    ['No', 'yes'],
+                                    ['Yes', 'no'] ];
+         Apache::lonhelper::dropdown->new();
+ 	addMessage("</td></tr>");
+ 	$startedTable = 1;
+     }
+     if ($ENV{'request.role.adv'}) {
+ 	if (!$startedTable) {
+ 	    addMessage("<hr width='33%' /><table><tr><td align='right'>LaTeX mode: </td><td>");
+ 	    $startedTable = 1;
+ 	} else {
+ 	    addMessage("<tr><td align='right'>LaTeX mode: </td><td>");
+ 	}
+         $paramHash = Apache::lonhelper::getParamHash();
+ 	$paramHash->{'variable'} = 'LATEX_TYPE';
+ 	$helper->declareVar('LATEX_TYPE');
+ 	if ($helper->{VARS}->{'construction'} eq '1') {
+ 	    $paramHash->{CHOICES} = [
+ 				     ['standard LaTeX mode', 'standard'],
+ 				     ['LaTeX batchmode', 'batchmode'], ];
+ 	} else {
+ 	    $paramHash->{CHOICES} = [
+ 				     ['LaTeX batchmode', 'batchmode'],
+ 				     ['standard LaTeX mode', 'standard'] ];
+ 	}
+         Apache::lonhelper::dropdown->new();
+ 	addMessage("</td></tr><tr><td align='right'>Print Table of Contents: </td><td>");
+         $paramHash = Apache::lonhelper::getParamHash();
+ 	$paramHash->{'variable'} = 'TABLE_CONTENTS';
+ 	$helper->declareVar('TABLE_CONTENTS');
+         $paramHash->{CHOICES} = [
+                                    ['No', 'no'],
+                                    ['Yes', 'yes'] ];
+         Apache::lonhelper::dropdown->new();
+ 	addMessage("</td></tr>");
+ 	if (not $helper->{VARS}->{'construction'}) {
+ 	    addMessage("<tr><td align='right'>Print Index: </td><td>");
+ 	    $paramHash = Apache::lonhelper::getParamHash();
+ 	    $paramHash->{'variable'} = 'TABLE_INDEX';
+ 	    $helper->declareVar('TABLE_INDEX');
+ 	    $paramHash->{CHOICES} = [
+ 				     ['No', 'no'],
+ 				     ['Yes', 'yes'] ];
+ 	    Apache::lonhelper::dropdown->new();
+ 	    addMessage("</td></tr>");
+ 	}
+ 	if ($helper->{VARS}->{'construction'}) {
+ 	    addMessage("<tr><td align='right'>Print With URL: </td><td>");
+ 	    $paramHash = Apache::lonhelper::getParamHash();
+ 	    $paramHash->{'variable'} = 'CONSTR_RESOURSE_URL';
+ 	    $helper->declareVar('CONSTR_RESOURSE_URL');
+ 	    $paramHash->{CHOICES} = [
+ 				     ['No', 'no'],
+ 				     ['Yes', 'yes'] ];
+ 	    Apache::lonhelper::dropdown->new();
+ 	    addMessage("</td></tr>");
  	}
- 	return $textwidth,$textheight,$oddoffset,$evenoffset;
      }
+     if ($startedTable) {
+ 	addMessage("</table>");
+     }
- sub page_format_transformation {
+     Apache::lonprintout::page_format_state->new("FORMAT");
- 	my ($papersize,$layout,$numberofcolumns,$choice,$text) = @_;
- 	my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);
+     # Generate the PAGESIZE state which will offer the user the margin
- 	my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+     # choices if they select one column
- 	if ($layout eq 'CBI') {
+     Apache::lonhelper::state->new("PAGESIZE", "Set Margins");
- 	    $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{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill  $courseidinfo} \\vskip 5 mm /;
+     Apache::lonprintout::page_size_state->new('pagesize', 'FORMAT', 'FINAL');
- 	} elsif ($layout eq 'CAPA') {
-  	    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\}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill  $courseidinfo} \\vskip 5 mm /;
+     $helper->process();
- 	    } else {
- 		$text =~ s/\\begin{document}/\\setlength{\\textheight}{$textheight}\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\textwidth}{$textwidth}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1}  \\vskip 5 mm /;
+     # MANUAL BAILOUT CONDITION:
- 	    }
+     # If we're in the "final" state, bailout and return to handler
- 	}
+     if ($helper->{STATE} eq 'FINAL') {
- 	return $text;
+         return $helper;
+     }
+     $r->print($helper->display());
+     Apache::lonhelper::unregisterHelperTags();
+     untie %hash;
+     return OK;
  }
- sub page_cleanup {
+;
-     my $result = shift;
+ package Apache::lonprintout::page_format_state;
-     $result =~ m/\\end{document}(\d*)$/;
-     my $number_of_columns = $1;
+ =pod
-     my $insert = '{';
-     for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; }
+ =head1 Helper element: page_format_state
-     $insert .= '}';
-     $result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g;
+ See lonhelper.pm documentation for discussion of the helper framework.
-     $result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g;
-     return $result,$number_of_columns;
+ 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'};
- sub details_for_menu {
+     $result .= <<STATEHTML;
-     my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}};
+ <hr width="33%" />
-     my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});
+ <table cellpadding="3">
-     my ($map,$id,$resource)=split(/___/,$symbolic);
+   <tr>
-     my $name_of_sequence = $hash{'title_'.$hash{'ids_/res/'.$map}};
+     <td align="center"><b>Page layout</b></td>
-     if ($name_of_sequence =~ /^\s*$/) {
+     <td align="center"><b>Number of columns</b></td>
-       $map =~ m|([^/]+)$|;
+     <td align="center"><b>Paper type</b></td>
-       $name_of_sequence = $1;
+   </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";
+         }
      }
-     my $name_of_map = $hash{'title_'.$hash{'ids_/res/'.$ENV{'request.course.uri'}}};
-     if ($name_of_map =~ /^\s*$/) {
+     $result .= "</select></td><td>\n";
-       $ENV{'request.course.uri'} =~ m|([^/]+)$|;
+     $result .= "<select name='${var}.paper'>\n";
-       $name_of_map = $1;
+     $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++;
      }
-     return ($name_of_resourse,$name_of_sequence,$name_of_map);
+     $result .= "</select></td></tr></table>";
+     return $result;
  }
+ sub postprocess {
+     my $self = shift;
- sub latex_corrections {
+     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;
+ }
-     my ($number_of_columns,$result) = @_;
+;
-     $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g;
+ package Apache::lonprintout::page_size_state;
-     $result =~ s/\$number_of_columns/$number_of_columns/g;
-     $result =~ s/(\\end{document})/\\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/;
+ =pod
-     $result =~ s/(\\end{longtable}\s*)(\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g;
-     $result =~ s/(\\end{longtable}\s*)\\newline/$1/g;
+ =head1 Helper element: page_size_state
- #-- LaTeX corrections
-     my $first_comment = index($result,'<!--',0);
+ See lonhelper.pm documentation for discussion of the helper framework.
-     while ($first_comment != -1) {
- 	my $end_comment = index($result,'-->',$first_comment);
+ Apache::lonprintout::page_size_state is an element that gives the
- 	substr($result,$first_comment,$end_comment-$first_comment+3) = '';
+ user the opportunity to further refine the page settings if they
- 	$first_comment = index($result,'<!--',$first_comment);
+ select a single-column page.
-     }
-     $result =~ s/^\s+$//gm; #remove empty lines
+ page_size_state is always directly invoked in lonprintout.pm, so there
-     $result =~ s/(\s)+/$1/g; #removes more than one empty space
+ is no tag interface. You actually pass parameters to the constructor.
-     $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
-     $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g;
+ =over 4
-     $result =~ s/{\\par }\s*\\\\/\\\\/gm;
- 	$result =~ s/\\\\\s+\[/ \[/g;
+ =item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
-     $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
-     #conversion of html characters to LaTeX equivalents
+ =back
-     if ($result =~ m/&(\w+|#\d+);/) {
- 	$result = &character_chart($result);
+ =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 =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;
-     $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;
+     $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 handler {
+ sub postprocess {
+     my $self = shift;
-     my $r = 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 $loaderror=&Apache::lonnet::overloaderror($r);
+     my $error = '';
-     if ($loaderror) { return $loaderror; }
-     $loaderror=
-        &Apache::lonnet::overloaderror($r,
-          $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
-     if ($loaderror) { return $loaderror; }
-     $r->content_type('text/html');
+     # /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed
-     $r->send_http_header;
+     # by an optional period, followed by digits, ending the string
-     $r->print(&Apache::loncommon::bodytag("Printing"));
-     if ($ENV{'request.course.id'}) {
+     if ($width !~  /^-?[0-9]+(\.[0-9]*)?$/) {
- 	my $fn=$ENV{'request.course.fn'};
+         $error .= "Invalid width; please type only a number.<br />\n";
- 	tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640);
+     }
+     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";
      }
- #-- start form
+     if (!$error) {
-     &headerform($r);
+         Apache::lonhelper::getHelper()->changeState($self->{NEXTSTATE});
- #-- menu for output
+         return 1;
-     unless  ($ENV{'form.phase'}) {
+     } else {
- 	&menu_for_output($r);
+         $self->{ERROR_MSG} = $error;
-     }
+         return 0;
- #-- additional menu for class printing
-      if ($ENV{'form.phase'} eq 'two') {
- 	 if($ENV{'form.choice'} eq 'All class print') {
- 	     &additional_class_menu($r);
- 	 } elsif($ENV{'form.choice'} eq 'Subdirectory print') {
- 	     &problem_choice_menu($r);
- 	 } else {
- 	     $ENV{'form.phase'} = 'three';
- 	 }
-      }
- #-- additional menu for page layout (one column case)
-     if ($ENV{'form.phase'} eq 'three') {
- 	if($ENV{'form.numberofcolumns'} == 1) {
- 	    &additional_print_menu($r);
- 	} else {
- 	    $ENV{'form.phase'} = 'four';
- 	}
      }
- #-- core part
+ }
-     if ($ENV{'form.phase'} eq 'four') {
- 	&output_data($r);
-     }
-     untie %hash;
-     return OK;
- }
-;
  __END__

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.82
changed lines
	Added in v.1.229