loncom/interface/lonprintout.pm - view

File: [LON-CAPA] / loncom / interface / lonprintout.pm
Revision 1.209: download - view: text, annotated - select for diffs
Wed Aug 13 15:28:57 2003 UTC (20 years, 10 months ago) by sakharuk
Branches: MAIN
CVS tags: HEAD

Table of contents can be now printed for the subdirectories, sequences, all problems from the course. Needs some additional work to simplify the original printing starting menu (currently too overcomplicated - too many switches) and I did not check yet how the table of contents works for particular students.

1: # The LearningOnline Network 2: # Printout 3: # 4: # $Id: lonprintout.pm,v 1.209 2003/08/13 15:28:57 sakharuk Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: # (Internal Server Error Handler 29: # 30: # (Login Screen 31: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, 32: # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) 33: # 34: # 3/1/1 Gerd Kortemeyer) 35: # 36: # 3/1 Gerd Kortemeyer 37: # 38: # 9/17 Alex Sakharuk 39: # 40: package Apache::lonprintout; 41: 42: use strict; 43: use Apache::Constants qw(:common :http); 44: use Apache::lonxml; 45: use Apache::lonnet; 46: use Apache::loncommon; 47: use Apache::inputtags; 48: use Apache::grades; 49: use Apache::edit; 50: use Apache::File(); 51: use Apache::lonnavmaps; 52: use POSIX qw(strftime); 53: use GDBM_File; 54: 55: 56: my %hash; 57: my $LaTeXwidth = 0; 58: 59: 60: sub latex_header_footer_remove { 61: my $text = shift; 62: $text =~ s/\\end{document}//; 63: $text =~ s/\\documentclass([^&]*)\\begin{document}//; 64: return $text; 65: } 66: 67: 68: sub character_chart { 69: my $result = shift; 70: $result =~ s/&\#0?0?(7|9);//g; 71: $result =~ s/&\#0?(10|13);//g; 72: $result =~ s/&\#0?32;/ /g; 73: $result =~ s/&\#0?33;/!/g; 74: $result =~ s/&(\#0?34|quot);/\"/g; 75: $result =~ s/&\#0?35;/\\\#/g; 76: $result =~ s/&\#0?36;/\\\$/g; 77: $result =~ s/&\#0?37;/\\%/g; 78: $result =~ s/&(\#0?38|amp);/\\&/g; 79: $result =~ s/&\#(0?39|146);/\'/g; 80: $result =~ s/&\#0?40;/(/g; 81: $result =~ s/&\#0?41;/)/g; 82: $result =~ s/&\#0?42;/\*/g; 83: $result =~ s/&\#0?43;/\+/g; 84: $result =~ s/&\#(0?44|130);/,/g; 85: $result =~ s/&\#0?45;/-/g; 86: $result =~ s/&\#0?46;/\./g; 87: $result =~ s/&\#0?47;/\//g; 88: $result =~ s/&\#0?48;/0/g; 89: $result =~ s/&\#0?49;/1/g; 90: $result =~ s/&\#0?50;/2/g; 91: $result =~ s/&\#0?51;/3/g; 92: $result =~ s/&\#0?52;/4/g; 93: $result =~ s/&\#0?53;/5/g; 94: $result =~ s/&\#0?54;/6/g; 95: $result =~ s/&\#0?55;/7/g; 96: $result =~ s/&\#0?56;/8/g; 97: $result =~ s/&\#0?57;/9/g; 98: $result =~ s/&\#0?58;/:/g; 99: $result =~ s/&\#0?59;/;/g; 100: $result =~ s/&(\#0?60|lt|\#139);/\$<\$/g; 101: $result =~ s/&\#0?61;/\$=\$/g; 102: $result =~ s/&(\#0?62|gt|\#155);/\$>\$/g; 103: $result =~ s/&\#0?63;/\?/g; 104: $result =~ s/&\#0?65;/A/g; 105: $result =~ s/&\#0?66;/B/g; 106: $result =~ s/&\#0?67;/C/g; 107: $result =~ s/&\#0?68;/D/g; 108: $result =~ s/&\#0?69;/E/g; 109: $result =~ s/&\#0?70;/F/g; 110: $result =~ s/&\#0?71;/G/g; 111: $result =~ s/&\#0?72;/H/g; 112: $result =~ s/&\#0?73;/I/g; 113: $result =~ s/&\#0?74;/J/g; 114: $result =~ s/&\#0?75;/K/g; 115: $result =~ s/&\#0?76;/L/g; 116: $result =~ s/&\#0?77;/M/g; 117: $result =~ s/&\#0?78;/N/g; 118: $result =~ s/&\#0?79;/O/g; 119: $result =~ s/&\#0?80;/P/g; 120: $result =~ s/&\#0?81;/Q/g; 121: $result =~ s/&\#0?82;/R/g; 122: $result =~ s/&\#0?83;/S/g; 123: $result =~ s/&\#0?84;/T/g; 124: $result =~ s/&\#0?85;/U/g; 125: $result =~ s/&\#0?86;/V/g; 126: $result =~ s/&\#0?87;/W/g; 127: $result =~ s/&\#0?88;/X/g; 128: $result =~ s/&\#0?89;/Y/g; 129: $result =~ s/&\#0?90;/Z/g; 130: $result =~ s/&\#0?91;/[/g; 131: $result =~ s/&\#0?92;/\$\\setminus\$/g; 132: $result =~ s/&\#0?93;/]/g; 133: $result =~ s/&\#(0?94|136);/\$\\wedge\$/g; 134: $result =~ s/&\#(0?95|138|154);/\\underline{\\makebox[2mm]{\\strut}}/g; 135: $result =~ s/&\#(0?96|145);/\`/g; 136: $result =~ s/&\#0?97;/a/g; 137: $result =~ s/&\#0?98;/b/g; 138: $result =~ s/&\#0?99;/c/g; 139: $result =~ s/&\#100;/d/g; 140: $result =~ s/&\#101;/e/g; 141: $result =~ s/&\#102;/f/g; 142: $result =~ s/&\#103;/g/g; 143: $result =~ s/&\#104;/h/g; 144: $result =~ s/&\#105;/i/g; 145: $result =~ s/&\#106;/j/g; 146: $result =~ s/&\#107;/k/g; 147: $result =~ s/&\#108;/l/g; 148: $result =~ s/&\#109;/m/g; 149: $result =~ s/&\#110;/n/g; 150: $result =~ s/&\#111;/o/g; 151: $result =~ s/&\#112;/p/g; 152: $result =~ s/&\#113;/q/g; 153: $result =~ s/&\#114;/r/g; 154: $result =~ s/&\#115;/s/g; 155: $result =~ s/&\#116;/t/g; 156: $result =~ s/&\#117;/u/g; 157: $result =~ s/&\#118;/v/g; 158: $result =~ s/&\#119;/w/g; 159: $result =~ s/&\#120;/x/g; 160: $result =~ s/&\#121;/y/g; 161: $result =~ s/&\#122;/z/g; 162: $result =~ s/&\#123;/\\{/g; 163: $result =~ s/&\#124;/\|/g; 164: $result =~ s/&\#125;/\\}/g; 165: $result =~ s/&\#126;/\~/g; 166: $result =~ s/&\#131;/\\textflorin /g; 167: $result =~ s/&\#132;/\"/g; 168: $result =~ s/&\#133;/\$\\ldots\$/g; 169: $result =~ s/&\#134;/\$\\dagger\$/g; 170: $result =~ s/&\#135;/\$\\ddagger\$/g; 171: $result =~ s/&\#137;/\\textperthousand /g; 172: $result =~ s/&\#140;/{\\OE}/g; 173: $result =~ s/&\#147;/\`\`/g; 174: $result =~ s/&\#148;/\'\'/g; 175: $result =~ s/&\#149;/\$\\bullet\$/g; 176: $result =~ s/&\#150;/--/g; 177: $result =~ s/&\#151;/---/g; 178: $result =~ s/&\#152;/\$\\sim\$/g; 179: $result =~ s/&\#153;/\\texttrademark /g; 180: $result =~ s/&\#156;/\\oe/g; 181: $result =~ s/&\#159;/\\\"Y/g; 182: $result =~ s/&(\#160|nbsp);//g; 183: $result =~ s/&(\#161|iexcl);/!\`/g; 184: $result =~ s/&(\#162|cent);/\\textcent /g; 185: $result =~ s/&(\#163|pound);/\\pounds /g; 186: $result =~ s/&(\#164|curren);/\\textcurrency /g; 187: $result =~ s/&(\#165|yen);/\\textyen /g; 188: $result =~ s/&(\#166|brvbar);/\\textbrokenbar /g; 189: $result =~ s/&(\#167|sect);/\\textsection /g; 190: $result =~ s/&(\#168|uml);/\\texthighdieresis /g; 191: $result =~ s/&(\#169|copy);/\\copyright /g; 192: $result =~ s/&(\#170|ordf);/\\textordfeminine /g; 193: $result =~ s/&(\#172|not);/\$\\neg\$/g; 194: $result =~ s/&(\#173|shy);/ - /g; 195: $result =~ s/&(\#174|reg);/\\textregistered /g; 196: $result =~ s/&(\#175|macr);/\$^{-}\$/g; 197: $result =~ s/&(\#176|deg);/\$^{\\circ}\$/g; 198: $result =~ s/&(\#177|plusmn);/\$\\pm\$/g; 199: $result =~ s/&(\#178|sup2);/\$^2\$/g; 200: $result =~ s/&(\#179|sup3);/\$^3\$/g; 201: $result =~ s/&(\#180|acute);/\\textacute /g; 202: $result =~ s/&(\#181|micro);/\$\\mu\$/g; 203: $result =~ s/&(\#182|para);/\\P/g; 204: $result =~ s/&(\#183|middot);/\$\\cdot\$/g; 205: $result =~ s/&(\#184|cedil);/\\c{\\strut}/g; 206: $result =~ s/&(\#185|sup1);/\$^1\$/g; 207: $result =~ s/&(\#186|ordm);/\\textordmasculine /g; 208: $result =~ s/&(\#188|frac14);/\\textonequarter /g; 209: $result =~ s/&(\#189|frac12);/\\textonehalf /g; 210: $result =~ s/&(\#190|frac34);/\\textthreequarters /g; 211: $result =~ s/&(\#191|iquest);/?\`/g; 212: $result =~ s/&(\#192|Agrave);/\\\`{A}/g; 213: $result =~ s/&(\#193|Aacute);/\\\'{A}/g; 214: $result =~ s/&(\#194|Acirc);/\\^{A}/g; 215: $result =~ s/&(\#195|Atilde);/\\~{A}/g; 216: $result =~ s/&(\#196|Auml);/\\\"{A}/g; 217: $result =~ s/&(\#197|Aring);/{\\AA}/g; 218: $result =~ s/&(\#198|AElig);/{\\AE}/g; 219: $result =~ s/&(\#199|Ccedil);/\\c{c}/g; 220: $result =~ s/&(\#200|Egrave);/\\\`{E}/g; 221: $result =~ s/&(\#201|Eacute);/\\\'{E}/g; 222: $result =~ s/&(\#202|Ecirc);/\\^{E}/g; 223: $result =~ s/&(\#203|Euml);/\\\"{E}/g; 224: $result =~ s/&(\#204|Igrave);/\\\`{I}/g; 225: $result =~ s/&(\#205|Iacute);/\\\'{I}/g; 226: $result =~ s/&(\#206|Icirc);/\\^{I}/g; 227: $result =~ s/&(\#207|Iuml);/\\\"{I}/g; 228: $result =~ s/&(\#209|Ntilde);/\\~{N}/g; 229: $result =~ s/&(\#210|Ograve);/\\\`{O}/g; 230: $result =~ s/&(\#211|Oacute);/\\\'{O}/g; 231: $result =~ s/&(\#212|Ocirc);/\\^{O}/g; 232: $result =~ s/&(\#213|Otilde);/\\~{O}/g; 233: $result =~ s/&(\#214|Ouml);/\\\"{O}/g; 234: $result =~ s/&(\#215|times);/\$\\times\$/g; 235: $result =~ s/&(\#216|Oslash);/{\\O}/g; 236: $result =~ s/&(\#217|Ugrave);/\\\`{U}/g; 237: $result =~ s/&(\#218|Uacute);/\\\'{U}/g; 238: $result =~ s/&(\#219|Ucirc);/\\^{U}/g; 239: $result =~ s/&(\#220|Uuml);/\\\"{U}/g; 240: $result =~ s/&(\#221|Yacute);/\\\'{Y}/g; 241: $result =~ s/&(\#223|szlig);/\\ss/g; 242: $result =~ s/&(\#224|agrave);/\\\`{a}/g; 243: $result =~ s/&(\#225|aacute);/\\\'{a}/g; 244: $result =~ s/&(\#226|acirc);/\\^{a}/g; 245: $result =~ s/&(\#227|atilde);/\\~{a}/g; 246: $result =~ s/&(\#228|auml);/\\\"{a}/g; 247: $result =~ s/&(\#229|aring);/{\\aa}/g; 248: $result =~ s/&(\#230|aelig);/{\\ae}/g; 249: $result =~ s/&(\#231|ccedil);/\\c{c}/g; 250: $result =~ s/&(\#232|egrave);/\\\`{e}/g; 251: $result =~ s/&(\#233|eacute);/\\\'{e}/g; 252: $result =~ s/&(\#234|ecirc);/\\^{e}/g; 253: $result =~ s/&(\#235|euml);/\\\"{e}/g; 254: $result =~ s/&(\#236|igrave);/\\\`{i}/g; 255: $result =~ s/&(\#237|iacute);/\\\'{i}/g; 256: $result =~ s/&(\#238|icirc);/\\^{i}/g; 257: $result =~ s/&(\#239|iuml);/\\\"{i}/g; 258: $result =~ s/&(\#240|eth);/\$\\partial\$/g; 259: $result =~ s/&(\#241|ntilde);/\\~{n}/g; 260: $result =~ s/&(\#242|ograve);/\\\`{o}/g; 261: $result =~ s/&(\#243|oacute);/\\\'{o}/g; 262: $result =~ s/&(\#244|ocirc);/\\^{o}/g; 263: $result =~ s/&(\#245|otilde);/\\~{o}/g; 264: $result =~ s/&(\#246|ouml);/\\\"{o}/g; 265: $result =~ s/&(\#247|divide);/\$\\div\$/g; 266: $result =~ s/&(\#248|oslash);/{\\o}/g; 267: $result =~ s/&(\#249|ugrave);/\\\`{u}/g; 268: $result =~ s/&(\#250|uacute);/\\\'{u}/g; 269: $result =~ s/&(\#251|ucirc);/\\^{u}/g; 270: $result =~ s/&(\#252|uuml);/\\\"{u}/g; 271: $result =~ s/&(\#253|yacute);/\\\'{y}/g; 272: $result =~ s/&(\#255|yuml);/\\\"{y}/g; 273: $result =~ s/&\#952;/\$\\theta\$/g; 274: #Greek Alphabet 275: $result =~ s/&(alpha|\#945);/\$\\alpha \$/g; 276: $result =~ s/&(beta|\#946);/\$\\beta \$/g; 277: $result =~ s/&(gamma|\#947);/\$\\gamma \$/g; 278: $result =~ s/&(delta|\#948);/\$\\delta \$/g; 279: $result =~ s/&(epsilon|\#949);/\$\\epsilon \$/g; 280: $result =~ s/&(zeta|\#950);/\$\\zeta \$/g; 281: $result =~ s/&(eta|\#951);/\$\\eta \$/g; 282: $result =~ s/&(theta|\#952);/\$\\theta \$/g; 283: $result =~ s/&(iota|\#953);/\$\\iota \$/g; 284: $result =~ s/&(kappa|\#954);/\$\\kappa \$/g; 285: $result =~ s/&(lambda|\#955);/\$\\lambda \$/g; 286: $result =~ s/&(mu|\#956);/\$\\mu \$/g; 287: $result =~ s/&(nu|\#957);/\$\\nu \$/g; 288: $result =~ s/&(xi|\#958);/\$\\xi \$/g; 289: $result =~ s/&(omicron|\#959);/o/g; 290: $result =~ s/&(pi|\#960);/\$\\pi \$/g; 291: $result =~ s/&(rho|\#961);/\$\\rho \$/g; 292: $result =~ s/&(sigma|\#963);/\$\\sigma \$/g; 293: $result =~ s/&(tau|\#964);/\$\\tau \$/g; 294: $result =~ s/&(upsilon|\#965);/\$\\upsilon \$/g; 295: $result =~ s/&(phi|\#966);/\$\\phi \$/g; 296: $result =~ s/&(chi|\#967);/\$\\chi \$/g; 297: $result =~ s/&(psi|\#968);/\$\\psi \$/g; 298: $result =~ s/&(omega|\#969);/\$\\omega \$/g; 299: $result =~ s/&(thetasym|\#977);/\$\\vartheta \$/g; 300: $result =~ s/&(piv|\#982);/\$\\varpi \$/g; 301: $result =~ s/&(Alpha|\#913);/A/g; 302: $result =~ s/&(Beta|\#914);/B/g; 303: $result =~ s/&(Gamma|\#915);/\$\\Gamma \$/g; 304: $result =~ s/&(Delta|\#916);/\$\\Delta \$/g; 305: $result =~ s/&(Epsilon|\#917);/E/g; 306: $result =~ s/&(Zeta|\#918);/Z/g; 307: $result =~ s/&(Eta|\#919);/H/g; 308: $result =~ s/&(Theta|\#920);/\$\\Theta \$/g; 309: $result =~ s/&(Iota|\#921);/I/g; 310: $result =~ s/&(Kappa|\#922);/K/g; 311: $result =~ s/&(Lambda|\#923);/\$\\Lambda \$/g; 312: $result =~ s/&(Mu|\#924);/M/g; 313: $result =~ s/&(Nu|\#925);/N/g; 314: $result =~ s/&(Xi|\#926);/\$\\Xi \$/g; 315: $result =~ s/&(Omicron|\#927);/O/g; 316: $result =~ s/&(Pi|\#928);/\$\\Pi \$/g; 317: $result =~ s/&(Rho|\#929);/P/g; 318: $result =~ s/&(Sigma|\#931);/\$\\Sigma \$/g; 319: $result =~ s/&(Tau|\#932);/T/g; 320: $result =~ s/&(Upsilon|\#933);/\$\\Upsilon \$/g; 321: $result =~ s/&(Phi|\#934);/\$\\Phi \$/g; 322: $result =~ s/&(Chi|\#935);/X/g; 323: $result =~ s/&(Psi|\#936);/\$\\Psi \$/g; 324: $result =~ s/&(Omega|\#937);/\$\\Omega \$/g; 325: #Arrows (extended HTML 4.01) 326: $result =~ s/&(larr|\#8592);/\$\\leftarrow \$/g; 327: $result =~ s/&(uarr|\#8593);/\$\\uparrow \$/g; 328: $result =~ s/&(rarr|\#8594);/\$\\rightarrow \$/g; 329: $result =~ s/&(darr|\#8595);/\$\\downarrow \$/g; 330: $result =~ s/&(harr|\#8596);/\$\\leftrightarrow \$/g; 331: $result =~ s/&(lArr|\#8656);/\$\\Leftarrow \$/g; 332: $result =~ s/&(uArr|\#8657);/\$\\Uparrow \$/g; 333: $result =~ s/&(rArr|\#8658);/\$\\Rightarrow \$/g; 334: $result =~ s/&(dArr|\#8659);/\$\\Downarrow \$/g; 335: $result =~ s/&(hArr|\#8660);/\$\\Leftrightarrow \$/g; 336: #Mathematical Operators (extended HTML 4.01) 337: $result =~ s/&(forall|\#8704);/\$\\forall \$/g; 338: $result =~ s/&(part|\#8706);/\$\\partial \$/g; 339: $result =~ s/&(exist|\#8707);/\$\\exists \$/g; 340: $result =~ s/&(empty|\#8709);/\$\\emptyset \$/g; 341: $result =~ s/&(nabla|\#8711);/\$\\nabla \$/g; 342: $result =~ s/&(isin|\#8712);/\$\\in \$/g; 343: $result =~ s/&(notin|\#8713);/\$\\notin \$/g; 344: $result =~ s/&(ni|\#8715);/\$\\ni \$/g; 345: $result =~ s/&(prod|\#8719);/\$\\prod \$/g; 346: $result =~ s/&(sum|\#8721);/\$\\sum \$/g; 347: $result =~ s/&(minus|\#8722);/\$-\$/g; 348: $result =~ s/&(lowast|\#8727);/\$*\$/g; 349: $result =~ s/&(radic|\#8730);/\$\\surd \$/g; 350: $result =~ s/&(prop|\#8733);/\$\\propto \$/g; 351: $result =~ s/&(infin|\#8734);/\$\\infty \$/g; 352: $result =~ s/&(ang|\#8736);/\$\\angle \$/g; 353: $result =~ s/&(and|\#8743);/\$\\wedge \$/g; 354: $result =~ s/&(or|\#8744);/\$\\vee \$/g; 355: $result =~ s/&(cap|\#8745);/\$\\cap \$/g; 356: $result =~ s/&(cup|\#8746);/\$\\cup \$/g; 357: $result =~ s/&(int|\#8747);/\$\\int \$/g; 358: $result =~ s/&(sim|\#8764);/\$\\sim \$/g; 359: $result =~ s/&(cong|\#8773);/\$\\cong \$/g; 360: $result =~ s/&(asymp|\#8776);/\$\\approx \$/g; 361: $result =~ s/&(ne|\#8800);/\$\\not= \$/g; 362: $result =~ s/&(equiv|\#8801);/\$\\equiv \$/g; 363: $result =~ s/&(le|\#8804);/\$\\leq \$/g; 364: $result =~ s/&(ge|\#8805);/\$\\geq \$/g; 365: $result =~ s/&(sub|\#8834);/\$\\subset \$/g; 366: $result =~ s/&(sup|\#8835);/\$\\supset \$/g; 367: $result =~ s/&(nsub|\#8836);/\$\\not\\subset \$/g; 368: $result =~ s/&(sube|\#8838);/\$\\subseteq \$/g; 369: $result =~ s/&(supe|\#8839);/\$\\supseteq \$/g; 370: $result =~ s/&(oplus|\#8853);/\$\\oplus \$/g; 371: $result =~ s/&(otimes|\#8855);/\$\\otimes \$/g; 372: $result =~ s/&(perp|\#8869);/\$\\perp \$/g; 373: $result =~ s/&(sdot|\#8901);/\$\\cdot \$/g; 374: #Geometric Shapes (extended HTML 4.01) 375: $result =~ s/&(loz|\#9674);/\$\\Diamond \$/g; 376: #Miscellaneous Symbols (extended HTML 4.01) 377: $result =~ s/&(spades|\#9824);/\$\\spadesuit \$/g; 378: $result =~ s/&(clubs|\#9827);/\$\\clubsuit \$/g; 379: $result =~ s/&(hearts|\#9829);/\$\\heartsuit \$/g; 380: $result =~ s/&(diams|\#9830);/\$\\diamondsuit \$/g; 381: return $result; 382: } 383: 384: 385: sub page_format { 386: # 387: #Correspondence between $papersize variable and real paper format: 388: # 0 - "Letter [8 1/2x11 in]" 389: # 1 - "Legal [8 1/2x14 in]" 390: # 2 - "Ledger/Tabloid [11x17 in]" 391: # 3 - "Executive [7 1/2x10 in]" 392: # 4 - "A2 [420x594 mm]" 393: # 5 - "A3 [297x420 mm]" 394: # 6 - "A4 [210x297 mm]" 395: # 7 - "A5 [148x210 mm]" 396: # 8 - "A6 [105x148 mm]" 397: # 398: my ($papersize,$layout,$numberofcolumns) = @_; 399: my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = (0,0,0,0,0); 400: if ($papersize eq '0') { 401: if ($layout eq 'book') { 402: if ($numberofcolumns == 1) { 403: $textwidth = '7.1 in'; #'18 cm'; 404: $textheight = '10.2 in'; #'25.9 cm'; 405: $oddoffset = '-0.57 in'; 406: $evenoffset = '-0.57 in'; 407: } elsif ($numberofcolumns == 2) { 408: $textwidth = '3.66 in'; #'93 mm'; 409: $textheight = '10.2 in'; #'25.9 cm'; 410: $oddoffset = '-0.57 in'; 411: $evenoffset = '-0.57 in'; 412: } 413: } elsif ($layout eq 'album') { 414: if ($numberofcolumns eq '1') { 415: $textwidth = '8.8 in'; 416: $textheight = '6.8 in'; 417: $oddoffset = '-40 pt'; 418: $evenoffset = '-60 pt'; 419: } elsif ($numberofcolumns == 2) { 420: $textwidth = '4.4 in'; 421: $textheight = '6.8 in'; 422: $oddoffset = '-0.5 in'; 423: $evenoffset = '-1.5 in'; 424: $topmargin = '3.5 in'; 425: } 426: } 427: # } elsif($papersize eq '1') { 428: # } elsif($papersize eq '2') { 429: # } elsif($papersize eq '3'/) { 430: } elsif($papersize eq '6') { 431: if ($layout eq 'book') { 432: if ($numberofcolumns == 1) { 433: $textwidth = '18 cm'; 434: $textheight = '28 cm'; 435: $oddoffset = '-0.57 in'; 436: $evenoffset = '-0.57 in'; 437: } elsif ($numberofcolumns == 2) { 438: $textwidth = '96 mm'; 439: $textheight = '2 cm'; 440: $oddoffset = '-0.57 in'; 441: $evenoffset = '-0.57 in'; 442: } 443: } elsif ($layout eq 'album') { 444: if ($numberofcolumns eq '1') { 445: $textwidth = '8.5 in'; 446: $textheight = '7.7 in'; 447: $oddoffset = '-40 pt'; 448: $evenoffset = '-60 pt'; 449: } elsif ($numberofcolumns == 2) { 450: $textwidth = '3.9 in'; 451: $textheight = '7.7 in'; 452: $oddoffset = '-40 pt'; 453: $evenoffset = '-60 pt'; 454: } 455: } 456: # } elsif($papersize eq '5') { 457: # } elsif($papersize eq '4') { 458: # } elsif($papersize eq '7') { 459: # } elsif($papersize eq '8') { 460: } 461: return $textwidth,$textheight,$oddoffset,$evenoffset,$topmargin; 462: } 463: 464: 465: sub get_name { 466: my ($uname,$udom)=@_; 467: if (!defined($uname)) { $uname=$ENV{'user.name'}; } 468: if (!defined($udom)) { $uname=$ENV{'user.domain'}; } 469: my $plainname=&Apache::loncommon::plainname($uname,$udom); 470: if ($plainname=~/^\s*$/) { $plainname=$uname; } 471: return &Apache::lonxml::latex_special_symbols($plainname,undef,undef, 472: 'header'); 473: } 474: 475: 476: sub page_format_transformation { 477: my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment,$tableofcontents) = @_; 478: my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin); 479: $assignment=~s/_/ /g; 480: if ($numberofcolumns != 1) { 481: ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = &page_format($papersize,$layout,$numberofcolumns,$topmargin); 482: } else { 483: ($textwidth,$textheight,$oddoffset,$evenoffset) = ($ENV{'form.width'},$ENV{'form.height'},$ENV{'form.leftmargin'},$ENV{'form.leftmargin'}); 484: } 485: my $name = &get_name(); 486: if ($name =~ /^\s*$/) { 487: $name=&Apache::lonxml::latex_special_symbols($ENV{'user.name'},undef, 488: undef,'header'); 489: } 490: my $courseidinfo = &Apache::lonxml::latex_special_symbols(&Apache::lonnet::unescape($ENV{'course.'.$ENV{'request.course.id'}.'.description'}),'','','header'); 491: if ($layout eq 'album') { 492: my $topmargintoinsert = ''; 493: if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';} 494: $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} /; 495: } elsif ($layout eq 'book') { 496: if ($choice ne 'All class print') { 497: $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}/; 498: } else { 499: $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 /; 500: } 501: } 502: if ($tableofcontents eq 'yes') {$text=~s/(\\begin{document})/$1 \\tableofcontents \\vskip 0\.5mm\\noindent\\makebox\[\\textwidth\/1\]\[b\]{\\hrulefill}/;} 503: return $text; 504: } 505: 506: 507: sub page_cleanup { 508: my $result = shift; 509: 510: $result =~ m/\\end{document}(\d*)$/; 511: my $number_of_columns = $1; 512: my $insert = '{'; 513: for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; } 514: $insert .= '}'; 515: $result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g; 516: $result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g; 517: return $result,$number_of_columns; 518: } 519: 520: 521: sub details_for_menu { 522: 523: my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}}; 524: my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'}); 525: my ($map,$id,$resource)=split(/___/,$symbolic); 526: $map=&Apache::lonnet::clutter($map); 527: my $name_of_sequence; 528: $name_of_sequence = $hash{'title_'.$hash{'ids_'.$map}}; 529: if ($name_of_sequence =~ /^\s*$/) { 530: $map =~ m|([^/]+)$|; 531: $name_of_sequence = $1; 532: } 533: my $name_of_map = $hash{'title_'.$hash{'ids_'.&Apache::lonnet::clutter($ENV{'request.course.uri'})}}; 534: if ($name_of_map =~ /^\s*$/) { 535: $ENV{'request.course.uri'} =~ m|([^/]+)$|; 536: $name_of_map = $1; 537: } 538: return ($name_of_resourse,$name_of_sequence,$name_of_map); 539: 540: } 541: 542: 543: sub latex_corrections { 544: 545: my ($number_of_columns,$result) = @_; 546: 547: # $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g; 548: $result =~ s/\$number_of_columns/$number_of_columns/g; 549: $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/; 550: $result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g; 551: $result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g; 552: #-- LaTeX corrections 553: my $first_comment = index($result,'',$first_comment); 556: substr($result,$first_comment,$end_comment-$first_comment+3) = ''; 557: $first_comment = index($result,'<!--',$first_comment); 558: } 559: $result =~ s/^\s+$//gm; #remove empty lines 560: $result =~ s/(\s)(\s+)/$1/g; #removes more than one empty space 561: $result =~ s/\\\\\s*\\vskip/\\vskip/gm; 562: $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g; 563: $result =~ s/{\\par }\s*\\\\/\\\\/gm; 564: $result =~ s/\\\\\s+\[/ \[/g; 565: $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g; 566: #conversion of html characters to LaTeX equivalents 567: if ($result =~ m/&(\w+|#\d+);/) { 568: $result = &character_chart($result); 569: } 570: $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g; 571: $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g; 572: 573: return $result; 574: } 575: 576: 577: sub output_data { 578: my ($r,$helper,$rparmhash) = @_; 579: my %parmhash = %$rparmhash; 580: my $bodytag=&Apache::loncommon::bodytag('Preparing Printout'); 581: $r->print(<<ENDPART); 582: <html> 583: <head> 584: <title>LON-CAPA output for printing</title> 585: </head> 586: $bodytag 587: Please stand by while processing your print request, this may take some time ... 588: ENDPART 589: 590: my $format_from_helper = $helper->{'VARS'}->{'FORMAT'}; 591: my ($result,$selectionmade) = ('',''); 592: my $number_of_columns = 1; #used only for pages to determine the width of the cell 593: my @temporary_array=split /\|/,$format_from_helper; 594: my ($laystyle,$numberofcolumns,$papersize)=@temporary_array; 595: if ($laystyle eq 'L') { 596: $laystyle='album'; 597: } else { 598: $laystyle='book'; 599: } 600: my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns); 601: my $assignment = $ENV{'form.assignment'}; 602: my $LaTeXwidth; 603: if ($textwidth=~/(\d+\.?\d*)\s*cm/) { 604: $LaTeXwidth = $1*10; 605: } elsif ($textwidth=~/(\d+\.?\d*)\s*mm/) { 606: $LaTeXwidth = $1; 607: } elsif ($textwidth=~/(\d+\.?\d*)\s*in/) { 608: $LaTeXwidth = $1*25.4; 609: } 610: $LaTeXwidth.=' mm'; 611: 612: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') { 613: #-- single document - problem, page, html, xml, ... 614: my $currentURL; 615: if ($helper->{'VARS'}->{'construction'} ne '1') { 616: #prints published resource 617: $currentURL=$helper->{'VARS'}->{'postdata'}; 618: } else { 619: #prints resource from the construction space 620: $currentURL=$helper->{'VARS'}->{'filename'}; 621: $currentURL=~s/\/home\//\/~/; 622: $currentURL=~s/public_html\///; 623: if ($currentURL=~/([^?]+)/) {$currentURL=$1;} 624: } 625: $selectionmade = 1; 626: if ($currentURL=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) { 627: my %moreenv; 628: $moreenv{'request.filename'}=$currentURL; 629: my %form; 630: $form{'grade_target'}='tex'; 631: $form{'textwidth'}=$LaTeXwidth; 632: $form{'problem_split'}=$parmhash{'problem_stream_switch'}; 633: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; 634: my $rndseed=time; 635: $form{'rndseed'}=$rndseed; 636: &Apache::lonnet::appenv(%moreenv); 637: &Apache::lonnet::delenv('form.counter'); 638: &Apache::lonxml::init_counter(); 639: my $texversion=&Apache::lonnet::ssi($currentURL,%form); 640: &Apache::lonnet::delenv('form.counter'); 641: &Apache::lonnet::delenv('request.filename'); 642: if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { 643: my %form; 644: $form{'grade_target'}='answer'; 645: $form{'answer_output_mode'}='tex'; 646: $form{'rndseed'}=$rndseed; 647: my $answer=&Apache::lonnet::ssi($currentURL,%form); 648: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; 649: } 650: $result .= $texversion; 651: if ($currentURL=~m/\.page\s*$/) { 652: ($result,$number_of_columns) = &page_cleanup($result); 653: } 654: } else { 655: $result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: '; 656: if ($currentURL=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) { 657: $result.=$1; 658: } elsif ($currentURL=~/\/ext\//) { 659: $result.=' \strut \\\\ THIS IS EXTERNAL RESOURCE WITH URL \strut \\\\ '.$currentURL.' '; 660: } else { 661: $result.=$currentURL; 662: } 663: $result.=' \end{document}' 664: } 665: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or 666: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or 667: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems')) { 668: #-- produce an output string 669: my %form=(); 670: $form{'grade_target'}='tex'; 671: $form{'textwidth'}=$LaTeXwidth; 672: $form{'problem_split'}=$parmhash{'problem_stream_switch'}; 673: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; 674: my $flag_latex_header_remove = 'NO'; 675: my $flag_page_in_sequence = 'NO'; 676: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; 677: my $prevassignment=''; 678: &Apache::lonnet::delenv('form.counter'); 679: &Apache::lonxml::init_counter(); 680: for (my $i=0;$i<=$#master_seq;$i++) { 681: $master_seq[$i]=~/___\d+___(.*)$/; 682: my $urlp='/res/'.$1; 683: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') { 684: $selectionmade = 2; 685: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') { 686: $selectionmade = 3; 687: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') { 688: $selectionmade = 4; 689: } 690: $form{'symb'}=$master_seq[$i]; 691: $master_seq[$i]=~/(.*)___\d*___/; 692: my $assignment=&Apache::lonnet::gettitle($1); #tittle of the assignment which contains this problem 693: #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]"); 694: my $texversion=&Apache::lonnet::ssi($urlp,%form); 695: if ($urlp=~/\.page$/) { 696: ($texversion,my $number_of_columns_page) = &page_cleanup($texversion); 697: if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} 698: $texversion =~ s/\\end{document}\d*/\\end{document}/; 699: $flag_page_in_sequence = 'YES'; 700: } 701: if ($flag_latex_header_remove ne 'NO') { 702: $texversion = &latex_header_footer_remove($texversion); 703: } else { 704: $texversion =~ s/\\end{document}//; 705: } 706: if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { 707: my %form; 708: $form{'grade_target'}='answer'; 709: $form{'answer_output_mode'}='tex'; 710: my $answer=&Apache::lonnet::ssi($urlp,%form); 711: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; 712: } 713: # $result .= $texversion; 714: if (($selectionmade == 4) and ($assignment ne $prevassignment) and ($i>=1)) { 715: my $name = &get_name(); 716: if ($name =~ /^\s*$/) { 717: $name=&Apache::lonxml::latex_special_symbols($ENV{'user.name'},undef, 718: undef,'header'); 719: } 720: my $courseidinfo = &Apache::lonxml::latex_special_symbols(&Apache::lonnet::unescape($ENV{'course.'.$ENV{'request.course.id'}.'.description'}),'','','header'); 721: $prevassignment=$assignment; 722: $result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$name.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}} \vskip -5 mm '; 723: } 724: $result .= $texversion; 725: $flag_latex_header_remove = 'YES'; 726: } 727: &Apache::lonnet::delenv('form.counter'); 728: if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;} 729: $result .= '\end{document}'; 730: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') { 731: #-- prints assignments for whole class or for selected students 732: $selectionmade=5; 733: my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'}; 734: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; 735: #loop over students 736: my $flag_latex_header_remove = 'NO'; 737: my %moreenv; 738: $moreenv{'form.textwidth'}=$LaTeXwidth; 739: &Apache::lonnet::appenv(%moreenv); 740: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1); 741: foreach my $person (@students) { 742: my $current_output = ''; 743: # my ($usersection,$username,$userdomain) = split /:/,$person; 744: my ($username,$userdomain) = split /:/,$person; 745: my $fullname = &get_name($username,$userdomain); 746: 747: if ($parmhash{'anonymous_quiz'}=~/yes/) {$fullname=' ';} #put here something reasonable for anonymous exams or quiz 748: #goes through all resources, checks if they are available for current student, and produces output 749: &Apache::lonnet::delenv('form.counter'); 750: &Apache::lonxml::init_counter(); 751: foreach my $curresline (@master_seq) { 752: if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) { 753: my ($map,$id,$res_url) = split(/___/,$curresline); 754: if (&Apache::lonnet::allowed('bre',$res_url)) { 755: my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain, 756: $ENV{'request.course.id'},'tex'); 757: if ($flag_latex_header_remove eq 'YES') { 758: $rendered = &latex_header_footer_remove($rendered); 759: } else { 760: $rendered =~ s/\\end{document}//; 761: } 762: if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { 763: my %form; 764: $form{'answer_output_mode'}='tex'; 765: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; 766: my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%form); 767: $rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/; 768: } 769: $current_output .= $rendered; 770: } 771: $flag_latex_header_remove = 'YES'; 772: } 773: } 774: my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; 775: if ($current_output=~/\\documentclass/) { 776: $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$helper->{VARS}->{'assignment'}}}\\vskip 3 mm /; 777: } else { 778: my $blanspages = ''; 779: for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blanspages.='\clearpage\strut\clearpage';} 780: $current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage '.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$helper->{VARS}->{'assignment'}.'}}} \vskip -5 mm '.$current_output; 781: } 782: $result .= $current_output; 783: &Apache::lonnet::delenv('form.counter'); 784: &Apache::lonxml::init_counter(); 785: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, 786: 'last student '.$fullname); 787: } 788: &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); 789: $result .= '\end{document}'; 790: &Apache::lonnet::delenv('form.textwidth'); 791: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') { 792: #prints selected problems from the subdirectory 793: $selectionmade = 6; 794: my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'}; 795: @list_of_files=sort @list_of_files; 796: my $flag_latex_header_remove = 'NO'; 797: my $rndseed=time; 798: for (my $i=0;$i<=$#list_of_files;$i++) { 799: my $urlp = $list_of_files[$i]; 800: if ($urlp=~/\//) { 801: my %form; 802: $form{'grade_target'}='tex'; 803: $form{'textwidth'}=$LaTeXwidth; 804: $form{'rndseed'}=$rndseed; 805: if ($urlp =~ m|/home/([^/]+)/public_html|) { 806: $urlp =~ s|/home/([^/]*)/public_html|/~$1|; 807: } else { 808: $urlp =~ s|^/home/httpd/html||; 809: } 810: my $texversion=&Apache::lonnet::ssi($urlp,%form); 811: if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { 812: my %form; 813: $form{'grade_target'}='answer'; 814: $form{'answer_output_mode'}='tex'; 815: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; 816: $form{'rndseed'}=$rndseed; 817: my $answer=&Apache::lonnet::ssi($urlp,%form); 818: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; 819: } 820: #this chunck is responsible for printing the path to problem 821: my $newurlp = ''; 822: my $HowMany = length($urlp)*2; 823: if ($HowMany > $LaTeXwidth) { 824: my @temporrary = split '/',$urlp; 825: my $HowManyNew = 0; 826: for (my $ii=0;$ii<=$#temporrary;$ii++) { 827: if ($temporrary[$ii] ne '') { 828: $HowManyNew += length($temporrary[$ii])*2; 829: if ($HowManyNew < $LaTeXwidth ) { 830: $newurlp .= '/'.$temporrary[$ii]; 831: } else { 832: $HowManyNew = 0; 833: $newurlp .= '|\vskip -1 mm \noindent \verb|'; 834: $ii--; 835: } 836: } 837: } 838: } 839: $texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 {\\small\\noindent\\verb|$newurlp\|\\vskip 0 mm}/; 840: if ($flag_latex_header_remove ne 'NO') { 841: $texversion = &latex_header_footer_remove($texversion); 842: } else { 843: $texversion =~ s/\\end{document}//; 844: } 845: $result .= $texversion; 846: } 847: $flag_latex_header_remove = 'YES'; 848: } 849: if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\typeout)/ RANDOM SEED IS $rndseed $1/;} 850: $result .= '\end{document}'; 851: } 852: #-------------------------------------------------------- corrections for the different page formats 853: $result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'},$helper->{'VARS'}->{'TABLE_CONTENTS'}); 854: $result = &latex_corrections($number_of_columns,$result); 855: #changes page's parameters for the one column output 856: if ($numberofcolumns == 1) { 857: $result =~ s/\\textwidth= 9cm/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /; 858: $result =~ s/\\textheight 25\.9cm/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /; 859: $result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; 860: $result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; 861: } 862: if ($helper->{'VARS'}->{'TABLE_CONTENTS'} eq 'yes') {$selectionmade+=10;} 863: #-- writing .tex file in prtspool 864: my $temp_file; 865: my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex"; 866: unless ($temp_file = Apache::File->new('>'.$filename)) { 867: $r->log_error("Couldn't open $filename for output $!"); 868: return SERVER_ERROR; 869: } 870: print $temp_file $result; 871: 872: $r->print(<<FINALEND); 873: <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade"> 874: </body> 875: </html> 876: FINALEND 877: } 878: 879: 880: 881: sub handler { 882: 883: my $r = shift; 884: my $helper; 885: 886: # my $loaderror=&Apache::lonnet::overloaderror($r); 887: # if ($loaderror) { return $loaderror; } 888: # $loaderror= 889: # &Apache::lonnet::overloaderror($r, 890: # $ENV{'course.'.$ENV{'request.course.id'}.'.home'}); 891: # if ($loaderror) { return $loaderror; } 892: 893: my $result = printHelper($r); 894: if (!ref($result)) { 895: return $result; 896: } 897: $helper = $result; 898: 899: # my $key; 900: # foreach $key (keys %{$helper->{'VARS'}}) { 901: # $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />'); 902: # } 903: # return OK; 904: 905: my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'}); 906: 907: # my $key; 908: # foreach $key (keys %parmhash) { 909: # $r->print(' '.$key.'->'.$parmhash{$key}.'<-<br />'); 910: # } 911: # return OK; 912: 913: &output_data($r,$helper,\%parmhash); 914: return OK; 915: } 916: 917: use Apache::lonhelper; 918: 919: sub printHelper { 920: my $r = shift; 921: 922: if ($ENV{'request.course.id'}) { 923: my $fn=$ENV{'request.course.fn'}; 924: tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640); 925: } 926: 927: if ($r->header_only) { 928: if ($ENV{'browser.mathml'}) { 929: $r->content_type('text/xml'); 930: } else { 931: $r->content_type('text/html'); 932: } 933: $r->send_http_header; 934: return OK; 935: } 936: 937: # Send header, nocache 938: if ($ENV{'browser.mathml'}) { 939: $r->content_type('text/xml'); 940: } else { 941: $r->content_type('text/html'); 942: } 943: &Apache::loncommon::no_cache($r); 944: $r->send_http_header; 945: $r->rflush(); 946: 947: # Unfortunately, this helper is so complicated we have to 948: # write it by hand 949: 950: Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING}); 951: 952: my $helper = Apache::lonhelper::helper->new("Printing Helper"); 953: $helper->declareVar('symb'); 954: $helper->declareVar('postdata'); 955: $helper->declareVar('filename'); 956: $helper->declareVar('construction'); 957: $helper->declareVar('assignment'); 958: 959: # This will persistently load in the data we want from the 960: # very first screen. 961: # Detect whether we're coming from construction space 962: if ($ENV{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) { 963: $helper->{VARS}->{'filename'} = "/home/$1/public_html/$2"; 964: $helper->{VARS}->{'construction'} = 1; 965: } else { 966: if ($ENV{'form.postdata'}) { 967: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($ENV{'form.postdata'}); 968: } 969: if ($ENV{'form.symb'}) { 970: $helper->{VARS}->{'symb'} = $ENV{'form.symb'}; 971: } 972: if ($ENV{'form.url'}) { 973: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'}); 974: } 975: } 976: 977: if ($ENV{'form.symb'}) { 978: $helper->{VARS}->{'symb'} = $ENV{'form.symb'}; 979: } 980: if ($ENV{'form.url'}) { 981: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'}); 982: 983: } 984: 985: my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu; 986: if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;} 987: 988: 989: # Extract map 990: my $symb = $helper->{VARS}->{'symb'}; 991: my ($map, $id, $url); 992: my $subdir; 993: 994: # Get the resource name from construction space 995: if ($helper->{VARS}->{'construction'}) { 996: $resourceTitle = substr($helper->{VARS}->{'filename'}, 997: rindex($helper->{VARS}->{'filename'}, '/')+1); 998: $subdir = substr($helper->{VARS}->{'filename'}, 999: 0, rindex($helper->{VARS}->{'filename'}, '/') + 1); 1000: } else { 1001: ($map, $id, $url) = split(/___/, $symb); 1002: $helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url); 1003: 1004: if (!$resourceTitle) { # if the resource doesn't have a title, use the filename 1005: my $url = $helper->{VARS}->{'postdata'}; 1006: $resourceTitle = substr($url, rindex($url, '/') + 1); 1007: } 1008: $subdir = &Apache::lonnet::filelocation("", $url); 1009: } 1010: 1011: my $userCanSeeHidden = Apache::lonnavmaps::advancedUser(); 1012: 1013: Apache::lonhelper::registerHelperTags(); 1014: 1015: # "Delete everything after the last slash." 1016: $subdir =~ s|/[^/]+$||; 1017: if (not $helper->{VARS}->{'construction'}) { 1018: $subdir='/home/httpd/html/res/'.$subdir; 1019: } 1020: # "Remove all duplicate slashes." 1021: $subdir =~ s|/+|/|g; 1022: 1023: # What can be printed is a very dynamic decision based on 1024: # lots of factors. So we need to dynamically build this list. 1025: # To prevent security leaks, states are only added to the wizard 1026: # if they can be reached, which ensures manipulating the form input 1027: # won't allow anyone to reach states they shouldn't have permission 1028: # to reach. 1029: 1030: # printChoices is tracking the kind of printing the user can 1031: # do, and will be used in a choices construction later. 1032: # In the meantime we will be adding states and elements to 1033: # the helper by hand. 1034: my $printChoices = []; 1035: my $paramHash; 1036: 1037: if ($resourceTitle) { 1038: push @{$printChoices}, ["<b>$resourceTitle</b> (prints what you just saw on the screen)", 'current_document', 'PAGESIZE']; 1039: } 1040: 1041: # $r->print($helper->{VARS}->{'postdata'}); 1042: 1043: # If we're in a sequence... 1044: if ($helper->{'VARS'}->{'construction'} ne '1') { 1045: # Allow problems from sequence 1046: push @{$printChoices}, ["Problem(s) from <b>$sequenceTitle</b>", 'map_problems', 'CHOOSE_PROBLEMS']; 1047: # Allow all resources from sequence 1048: push @{$printChoices}, ["Everything (problem(s), page(s), html/xml file(s)) from <b>$sequenceTitle</b>", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML']; 1049: 1050: my $isProblem = '$res->is_problem()'; 1051: $isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden; 1052: my $isProblemOrMap = '$res->is_problem() || $res->is_map()'; 1053: my $isNotMap = '!$res->is_map()'; 1054: $isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden; 1055: my $symb = '$res->symb()'; 1056: my $helperFragment = <<HELPERFRAGMENT; 1057: <state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print"> 1058: <message>(mark them then click "next" button) <br /></message> 1059: <resource variable="RESOURCES" multichoice="1" toponly='1'> 1060: <nextstate>PAGESIZE</nextstate> 1061: <filterfunc>return $isProblem;</filterfunc> 1062: <mapurl>$map</mapurl> 1063: <valuefunc>return $symb;</valuefunc> 1064: </resource> 1065: </state> 1066: 1067: <state name="CHOOSE_PROBLEMS_HTML" title="Select Resource(s) to print"> 1068: <message>(mark them then click "next" button) <br /></message> 1069: <resource variable="RESOURCES" multichoice="1" toponly='1'> 1070: <nextstate>PAGESIZE</nextstate> 1071: <filterfunc>return $isNotMap;</filterfunc> 1072: <mapurl>$map</mapurl> 1073: <valuefunc>return $symb;</valuefunc> 1074: </resource> 1075: </state> 1076: HELPERFRAGMENT 1077: 1078: &Apache::lonxml::xmlparse($r, 'helper', $helperFragment); 1079: } 1080: 1081: # If the user is priviledged, allow them to print all 1082: # problems in the course, optionally for selected students 1083: if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($helper->{VARS}->{'postdata'}=~/\/res\//)) { 1084: push @{$printChoices}, ['<b>Problems</b> in this course', 'all_problems', 'ALL_PROBLEMS']; 1085: push @{$printChoices}, ["Problems from <b>$sequenceTitle</b> for selected students", 'problems_for_students', 'CHOOSE_STUDENTS']; 1086: 1087: my $isProblem = '$res->is_problem()'; 1088: $isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden; 1089: my $isProblemOrMap = '($res->is_problem() || $res->is_map())'; 1090: $isProblemOrMap .= ' && !$res->randomout()' if !$userCanSeeHidden; 1091: my $symb = '$res->symb()'; 1092: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS); 1093: <state name="ALL_PROBLEMS" title="Select Problem(s) to print"> 1094: <message>(mark them then click "next" button) <br /></message> 1095: <resource variable="RESOURCES" multichoice="1" suppressEmptySequences='1'> 1096: <nextstate>PAGESIZE</nextstate> 1097: <filterfunc>return $isProblemOrMap;</filterfunc> 1098: <choicefunc>return $isProblem;</choicefunc> 1099: <valuefunc>return $symb;</valuefunc> 1100: </resource> 1101: </state> 1102: 1103: <state name="CHOOSE_STUDENTS" title="Choose Students whose assignments you want to print"> 1104: <student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" /> 1105: <message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message> 1106: <resource variable="RESOURCES" multichoice="1"> 1107: <filterfunc>return $isProblem</filterfunc> 1108: <mapurl>$map</mapurl> 1109: <valuefunc>return $symb</valuefunc> 1110: </resource> 1111: <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message> 1112: <choices variable="EMPTY_PAGES"> 1113: <choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice> 1114: <choice computer='1'>Add one empty page/column after each student\'s assignment</choice> 1115: <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice> 1116: <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice> 1117: </choices> 1118: </state> 1119: CHOOSE_STUDENTS 1120: } 1121: 1122: # FIXME: That RE should come from a library somewhere. 1123: 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'}) { 1124: push @{$printChoices}, ["Problems from current subdirectory <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR']; 1125: 1126: my $f = '$filename'; 1127: my $xmlfrag = <<CHOOSE_FROM_SUBDIR; 1128: <state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from <b><small>$subdir</small></b> to print"> 1129: <message>(mark them then click "next" button) <br /></message> 1130: <files variable="FILES" multichoice='1'> 1131: <nextstate>PAGESIZE</nextstate> 1132: <filechoice>return '$subdir';</filechoice> 1133: CHOOSE_FROM_SUBDIR 1134: 1135: $xmlfrag .= <<'CHOOSE_FROM_SUBDIR'; 1136: <filefilter>return $filename =~ 1137: m/\.(problem|exam|quiz|assess|survey|form|library)$/; 1138: </filefilter> 1139: </files> 1140: </state> 1141: CHOOSE_FROM_SUBDIR 1142: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); 1143: } 1144: 1145: # Generate the first state, to select which resources get printed. 1146: Apache::lonhelper::state->new("START", "What do you want to print? Make a choice."); 1147: $paramHash = Apache::lonhelper::getParamHash(); 1148: $paramHash->{MESSAGE_TEXT} = ""; 1149: Apache::lonhelper::message->new(); 1150: $paramHash = Apache::lonhelper::getParamHash(); 1151: $paramHash->{'variable'} = 'PRINT_TYPE'; 1152: $helper->declareVar('PRINT_TYPE'); 1153: $paramHash->{CHOICES} = $printChoices; 1154: Apache::lonhelper::choices->new(); 1155: 1156: if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or 1157: ($helper->{VARS}->{'construction'} eq '1')) { 1158: $paramHash = Apache::lonhelper::getParamHash(); 1159: $paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next option is available only for advanced users:</i></b></big><br />"; 1160: Apache::lonhelper::message->new(); 1161: $paramHash = Apache::lonhelper::getParamHash(); 1162: $paramHash->{'variable'} = 'ANSWER_TYPE'; 1163: $helper->declareVar('ANSWER_TYPE'); 1164: $paramHash->{CHOICES} = [ 1165: ['Print without answer', 'yes'], 1166: ['Print with answers', 'no'] ]; 1167: Apache::lonhelper::choices->new(); 1168: } 1169: 1170: if ($ENV{'request.role.adv'}) { 1171: $paramHash = Apache::lonhelper::getParamHash(); 1172: $paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Another option available only for advanced users:</i></b></big><br />"; 1173: Apache::lonhelper::message->new(); 1174: $paramHash = Apache::lonhelper::getParamHash(); 1175: $paramHash->{'variable'} = 'LATEX_TYPE'; 1176: $helper->declareVar('LATEX_TYPE'); 1177: if ($helper->{VARS}->{'construction'} eq '1') { 1178: $paramHash->{CHOICES} = [ 1179: ['Print in standard LaTeX mode', 'standard'], 1180: ['Print in LaTeX batchmode', 'batchmode'], ]; 1181: } else { 1182: $paramHash->{CHOICES} = [ 1183: ['Print in LaTeX batchmode', 'batchmode'], 1184: ['Print in standard LaTeX mode', 'standard'] ]; 1185: } 1186: Apache::lonhelper::choices->new(); 1187: } 1188: 1189: 1190: $paramHash = Apache::lonhelper::getParamHash(); 1191: $paramHash->{MESSAGE_TEXT} = "<br /><big><b>Print with <i>Table of Contents:</i></b></big>"; 1192: Apache::lonhelper::message->new(); 1193: $paramHash = Apache::lonhelper::getParamHash(); 1194: $paramHash->{'variable'} = 'TABLE_CONTENTS'; 1195: $helper->declareVar('TABLE_CONTENTS'); 1196: $paramHash->{CHOICES} = [ 1197: ['No', 'no'], 1198: ['Yes', 'yes'] ]; 1199: Apache::lonhelper::choices->new(); 1200: 1201: 1202: Apache::lonprintout::page_format_state->new("FORMAT"); 1203: 1204: # Generate the PAGESIZE state which will offer the user the margin 1205: # choices if they select one column 1206: Apache::lonhelper::state->new("PAGESIZE", "Set Margins"); 1207: Apache::lonprintout::page_size_state->new('pagesize', 'FORMAT', 'FINAL'); 1208: 1209: 1210: $helper->process(); 1211: 1212: # MANUAL BAILOUT CONDITION: 1213: # If we're in the "final" state, bailout and return to handler 1214: if ($helper->{STATE} eq 'FINAL') { 1215: return $helper; 1216: } 1217: 1218: $r->print($helper->display()); 1219: 1220: Apache::lonhelper::unregisterHelperTags(); 1221: 1222: untie %hash; 1223: 1224: return OK; 1225: } 1226: 1227: 1228: 1; 1229: 1230: package Apache::lonprintout::page_format_state; 1231: 1232: =pod 1233: 1234: =head1 Helper element: page_format_state 1235: 1236: See lonhelper.pm documentation for discussion of the helper framework. 1237: 1238: Apache::lonprintout::page_format_state is an element that gives the 1239: user an opportunity to select the page layout they wish to print 1240: with: Number of columns, portrait/landscape, and paper size. If you 1241: want to change the paper size choices, change the @paperSize array 1242: contents in this package. 1243: 1244: page_format_state is always directly invoked in lonprintout.pm, so there 1245: is no tag interface. You actually pass parameters to the constructor. 1246: 1247: =over 4 1248: 1249: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME. 1250: 1251: =back 1252: 1253: =cut 1254: 1255: use Apache::lonhelper; 1256: 1257: no strict; 1258: @ISA = ("Apache::lonhelper::element"); 1259: use strict; 1260: 1261: my $maxColumns = 2; 1262: my @paperSize = ("Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]", 1263: "Ledger/Tabloid [11x17 in]", "Executive [7 1/2x10 in]", 1264: "A2 [420x594 mm]", "A3 [297x420 mm]", "A4 [210x297 mm]", 1265: "A5 [148x210 mm]", "A6 [105x148 mm]" ); 1266: 1267: # Tentative format: Orientation (L = Landscape, P = portrait) | Colnum | 1268: # Paper type 1269: 1270: sub new { 1271: my $self = Apache::lonhelper::element->new(); 1272: 1273: shift; 1274: 1275: $self->{'variable'} = shift; 1276: my $helper = Apache::lonhelper::getHelper(); 1277: $helper->declareVar($self->{'variable'}); 1278: bless($self); 1279: return $self; 1280: } 1281: 1282: sub render { 1283: my $self = shift; 1284: my $helper = Apache::lonhelper::getHelper(); 1285: my $result = ''; 1286: my $var = $self->{'variable'}; 1287: 1288: $result .= <<STATEHTML; 1289: 1290: <p><big><i><b>What page format do you prefer?</b></i></big></p> 1291: <table cellpadding="3"> 1292: <tr> 1293: <td align="center"><b>Page layout</b></td> 1294: <td align="center"><b>Number of columns</b></td> 1295: <td align="center"><b>Paper type</b></td> 1296: </tr> 1297: <tr> 1298: <td> 1299: <input type="radio" name="${var}.layout" value="L" /> Landscape<br /> 1300: <input type="radio" name="${var}.layout" value="P" checked='1' /> Portrait 1301: </td> 1302: <td align="center"> 1303: <select name="${var}.cols"> 1304: STATEHTML 1305: 1306: my $i; 1307: for ($i = 1; $i <= $maxColumns; $i++) { 1308: if ($i == 2) { 1309: $result .= "<option value='$i' selected>$i</option>\n"; 1310: } else { 1311: $result .= "<option value='$i'>$i</option>\n"; 1312: } 1313: } 1314: 1315: $result .= "</select></td><td>\n"; 1316: $result .= "<select name='${var}.paper'>\n"; 1317: 1318: $i = 0; 1319: foreach (@paperSize) { 1320: if ($i == 0) { 1321: $result .= "<option selected value='$i'>" . $paperSize[$i] . "</option>\n"; 1322: } else { 1323: $result .= "<option value='$i'>" . $paperSize[$i] . "</option>\n"; 1324: } 1325: $i++; 1326: } 1327: 1328: $result .= "</select></td></tr></table>"; 1329: return $result; 1330: } 1331: 1332: sub postprocess { 1333: my $self = shift; 1334: 1335: my $var = $self->{'variable'}; 1336: my $helper = Apache::lonhelper->getHelper(); 1337: $helper->{VARS}->{$var} = 1338: $ENV{"form.$var.layout"} . '|' . $ENV{"form.$var.cols"} . '|' . 1339: $ENV{"form.$var.paper"}; 1340: return 1; 1341: } 1342: 1343: 1; 1344: 1345: package Apache::lonprintout::page_size_state; 1346: 1347: =pod 1348: 1349: =head1 Helper element: page_size_state 1350: 1351: See lonhelper.pm documentation for discussion of the helper framework. 1352: 1353: Apache::lonprintout::page_size_state is an element that gives the 1354: user the opportunity to further refine the page settings if they 1355: select a single-column page. 1356: 1357: page_size_state is always directly invoked in lonprintout.pm, so there 1358: is no tag interface. You actually pass parameters to the constructor. 1359: 1360: =over 4 1361: 1362: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME. 1363: 1364: =back 1365: 1366: =cut 1367: 1368: use Apache::lonhelper; 1369: 1370: no strict; 1371: @ISA = ("Apache::lonhelper::element"); 1372: use strict; 1373: 1374: 1375: 1376: sub new { 1377: my $self = Apache::lonhelper::element->new(); 1378: 1379: shift; # disturbs me (probably prevents subclassing) but works (drops 1380: # package descriptor)... - Jeremy 1381: 1382: $self->{'variable'} = shift; 1383: my $helper = Apache::lonhelper::getHelper(); 1384: $helper->declareVar($self->{'variable'}); 1385: 1386: # The variable name of the format element, so we can look into 1387: # $helper->{VARS} to figure out whether the columns are one or two 1388: $self->{'formatvar'} = shift; 1389: 1390: # The state to transition to after selection, or after discovering 1391: # the cols are not set to 1 1392: $self->{NEXTSTATE} = shift; 1393: bless($self); 1394: return $self; 1395: } 1396: 1397: sub render { 1398: my $self = shift; 1399: my $helper = Apache::lonhelper::getHelper(); 1400: my $result = ''; 1401: my $var = $self->{'variable'}; 1402: 1403: if (defined $self->{ERROR_MSG}) { 1404: $result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br />'; 1405: } 1406: 1407: $result .= <<ELEMENTHTML; 1408: 1409: <p>How should the column be formatted?</p> 1410: 1411: <table cellpadding='3'> 1412: <tr> 1413: <td align='right'><b>Width</b>:</td> 1414: <td align='left'><input type='text' name='$var.width' value='18' size='4'></td> 1415: <td align='left'> 1416: <select name='$var.widthunit'> 1417: <option>cm</option><option>in</option> 1418: </select> 1419: </td> 1420: </tr> 1421: <tr> 1422: <td align='right'><b>Height</b>:</td> 1423: <td align='left'><input type='text' name="$var.height" value="25.9" size='4'></td> 1424: <td align='left'> 1425: <select name='$var.heightunit'> 1426: <option>cm</option><option>in</option> 1427: </select> 1428: </td> 1429: </tr> 1430: <tr> 1431: <td align='right'><b>Left margin</b>:</td> 1432: <td align='left'><input type='text' name='$var.lmargin' value='-1.5' size='4'></td> 1433: <td align='left'> 1434: <select name='$var.lmarginunit'> 1435: <option>cm</option><option>in</option> 1436: </select> 1437: </td> 1438: </tr> 1439: </table> 1440: 1441: <p>Hint: Some instructors like to leave scratch space for the student by 1442: making the width much smaller then the width of the page.</p> 1443: 1444: ELEMENTHTML 1445: 1446: return $result; 1447: } 1448: 1449: # If the user didn't select 1 column, skip this state. 1450: sub preprocess { 1451: my $self = shift; 1452: my $helper = Apache::lonhelper::getHelper(); 1453: 1454: my $format = $helper->{VARS}->{$self->{'formatvar'}}; 1455: if (substr($format, 2, 1) ne '1') { 1456: $helper->changeState($self->{NEXTSTATE}); 1457: } 1458: 1459: return 1; 1460: } 1461: 1462: sub postprocess { 1463: my $self = shift; 1464: 1465: my $var = $self->{'variable'}; 1466: my $helper = Apache::lonhelper->getHelper(); 1467: my $width = $helper->{VARS}->{$var .'.width'} = $ENV{"form.${var}.width"}; 1468: my $height = $helper->{VARS}->{$var .'.height'} = $ENV{"form.${var}.height"}; 1469: my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $ENV{"form.${var}.lmargin"}; 1470: $helper->{VARS}->{$var .'.widthunit'} = $ENV{"form.${var}.widthunit"}; 1471: $helper->{VARS}->{$var .'.heightunit'} = $ENV{"form.${var}.heightunit"}; 1472: $helper->{VARS}->{$var .'.lmarginunit'} = $ENV{"form.${var}.lmarginunit"}; 1473: 1474: my $error = ''; 1475: 1476: # /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed 1477: # by an optional period, followed by digits, ending the string 1478: 1479: if ($width !~ /^-?[0-9]+(\.[0-9]*)?$/) { 1480: $error .= "Invalid width; please type only a number.<br />\n"; 1481: } 1482: if ($height !~ /^-?[0-9]+(\.[0-9]*)?$/) { 1483: $error .= "Invalid height; please type only a number.<br />\n"; 1484: } 1485: if ($lmargin !~ /^-?[0-9]+(\.[0-9]*)?$/) { 1486: $error .= "Invalid left margin; please type only a number.<br />\n"; 1487: } 1488: 1489: if (!$error) { 1490: Apache::lonhelper::getHelper()->changeState($self->{NEXTSTATE}); 1491: return 1; 1492: } else { 1493: $self->{ERROR_MSG} = $error; 1494: return 0; 1495: } 1496: } 1497: 1498: 1499: 1500: __END__ 1501: