loncom/interface/lonprintout.pm - view

File: [LON-CAPA] / loncom / interface / lonprintout.pm
Revision 1.312: download - view: text, annotated - select for diffs
Mon Jun 28 19:08:22 2004 UTC (20 years ago) by sakharuk
Branches: MAIN
CVS tags: version_1_1_99_1, HEAD

Bug 2732 (printing from mutiple sequences -- first seq misidentified in printout header) is fixed, at least partly. Instead of the title for particulat sequence I now print "Problems from the Whole Course". My first desire was to put the names of particular sequences from which the resources were printed but it's appears difficult to do this. Indeed, you can print a set of problems (each one from different sequence) and you end up with the choice: eather to print every problem from new page (a lot of paper is used) or put only one (first) title above the page content. I think the better solution - to use style file for printing info about sequence before every problem. I'll try to construct such style file as example.

1: # The LearningOnline Network 2: # Printout 3: # 4: # $Id: lonprintout.pm,v 1.312 2004/06/28 19:08:22 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: # 29: package Apache::lonprintout; 30: 31: use strict; 32: use Apache::Constants qw(:common :http); 33: use Apache::lonxml; 34: use Apache::lonnet; 35: use Apache::loncommon; 36: use Apache::inputtags; 37: use Apache::grades; 38: use Apache::edit; 39: use Apache::File(); 40: use Apache::lonnavmaps; 41: use Apache::lonratedt; 42: use POSIX qw(strftime); 43: use Apache::lonlocal; 44: use GDBM_File; 45: 46: 47: my %hash; 48: my $LaTeXwidth = 0; 49: 50: 51: sub latex_header_footer_remove { 52: my $text = shift; 53: $text =~ s/\\end{document}//; 54: $text =~ s/\\documentclass([^&]*)\\begin{document}//; 55: return $text; 56: } 57: 58: 59: sub character_chart { 60: my $result = shift; 61: $result =~ s/&\#0?0?(7|9);//g; 62: $result =~ s/&\#0?(10|13);//g; 63: $result =~ s/&\#0?32;/ /g; 64: $result =~ s/&\#0?33;/!/g; 65: $result =~ s/&(\#0?34|quot);/\"/g; 66: $result =~ s/&\#0?35;/\\\#/g; 67: $result =~ s/&\#0?36;/\\\$/g; 68: $result =~ s/&\#0?37;/\\%/g; 69: $result =~ s/&(\#0?38|amp);/\\&/g; 70: $result =~ s/&\#(0?39|146);/\'/g; 71: $result =~ s/&\#0?40;/(/g; 72: $result =~ s/&\#0?41;/)/g; 73: $result =~ s/&\#0?42;/\*/g; 74: $result =~ s/&\#0?43;/\+/g; 75: $result =~ s/&\#(0?44|130);/,/g; 76: $result =~ s/&\#0?45;/-/g; 77: $result =~ s/&\#0?46;/\./g; 78: $result =~ s/&\#0?47;/\//g; 79: $result =~ s/&\#0?48;/0/g; 80: $result =~ s/&\#0?49;/1/g; 81: $result =~ s/&\#0?50;/2/g; 82: $result =~ s/&\#0?51;/3/g; 83: $result =~ s/&\#0?52;/4/g; 84: $result =~ s/&\#0?53;/5/g; 85: $result =~ s/&\#0?54;/6/g; 86: $result =~ s/&\#0?55;/7/g; 87: $result =~ s/&\#0?56;/8/g; 88: $result =~ s/&\#0?57;/9/g; 89: $result =~ s/&\#0?58;/:/g; 90: $result =~ s/&\#0?59;/;/g; 91: $result =~ s/&(\#0?60|lt|\#139);/\$<\$/g; 92: $result =~ s/&\#0?61;/\\ensuremath\{=\}/g; 93: $result =~ s/&(\#0?62|gt|\#155);/\\ensuremath\{>\}/g; 94: $result =~ s/&\#0?63;/\?/g; 95: $result =~ s/&\#0?65;/A/g; 96: $result =~ s/&\#0?66;/B/g; 97: $result =~ s/&\#0?67;/C/g; 98: $result =~ s/&\#0?68;/D/g; 99: $result =~ s/&\#0?69;/E/g; 100: $result =~ s/&\#0?70;/F/g; 101: $result =~ s/&\#0?71;/G/g; 102: $result =~ s/&\#0?72;/H/g; 103: $result =~ s/&\#0?73;/I/g; 104: $result =~ s/&\#0?74;/J/g; 105: $result =~ s/&\#0?75;/K/g; 106: $result =~ s/&\#0?76;/L/g; 107: $result =~ s/&\#0?77;/M/g; 108: $result =~ s/&\#0?78;/N/g; 109: $result =~ s/&\#0?79;/O/g; 110: $result =~ s/&\#0?80;/P/g; 111: $result =~ s/&\#0?81;/Q/g; 112: $result =~ s/&\#0?82;/R/g; 113: $result =~ s/&\#0?83;/S/g; 114: $result =~ s/&\#0?84;/T/g; 115: $result =~ s/&\#0?85;/U/g; 116: $result =~ s/&\#0?86;/V/g; 117: $result =~ s/&\#0?87;/W/g; 118: $result =~ s/&\#0?88;/X/g; 119: $result =~ s/&\#0?89;/Y/g; 120: $result =~ s/&\#0?90;/Z/g; 121: $result =~ s/&\#0?91;/[/g; 122: $result =~ s/&\#0?92;/\\ensuremath\{\\setminus\}/g; 123: $result =~ s/&\#0?93;/]/g; 124: $result =~ s/&\#(0?94|136);/\\ensuremath\{\\wedge\}/g; 125: $result =~ s/&\#(0?95|138|154);/\\underline{\\makebox[2mm]{\\strut}}/g; 126: $result =~ s/&\#(0?96|145);/\`/g; 127: $result =~ s/&\#0?97;/a/g; 128: $result =~ s/&\#0?98;/b/g; 129: $result =~ s/&\#0?99;/c/g; 130: $result =~ s/&\#100;/d/g; 131: $result =~ s/&\#101;/e/g; 132: $result =~ s/&\#102;/f/g; 133: $result =~ s/&\#103;/g/g; 134: $result =~ s/&\#104;/h/g; 135: $result =~ s/&\#105;/i/g; 136: $result =~ s/&\#106;/j/g; 137: $result =~ s/&\#107;/k/g; 138: $result =~ s/&\#108;/l/g; 139: $result =~ s/&\#109;/m/g; 140: $result =~ s/&\#110;/n/g; 141: $result =~ s/&\#111;/o/g; 142: $result =~ s/&\#112;/p/g; 143: $result =~ s/&\#113;/q/g; 144: $result =~ s/&\#114;/r/g; 145: $result =~ s/&\#115;/s/g; 146: $result =~ s/&\#116;/t/g; 147: $result =~ s/&\#117;/u/g; 148: $result =~ s/&\#118;/v/g; 149: $result =~ s/&\#119;/w/g; 150: $result =~ s/&\#120;/x/g; 151: $result =~ s/&\#121;/y/g; 152: $result =~ s/&\#122;/z/g; 153: $result =~ s/&\#123;/\\{/g; 154: $result =~ s/&\#124;/\|/g; 155: $result =~ s/&\#125;/\\}/g; 156: $result =~ s/&\#126;/\~/g; 157: $result =~ s/&\#131;/\\textflorin /g; 158: $result =~ s/&\#132;/\"/g; 159: $result =~ s/&\#133;/\\ensuremath\{\\ldots\}/g; 160: $result =~ s/&\#134;/\\ensuremath\{\\dagger\}/g; 161: $result =~ s/&\#135;/\\ensuremath\{\\ddagger\}/g; 162: $result =~ s/&\#137;/\\textperthousand /g; 163: $result =~ s/&\#140;/{\\OE}/g; 164: $result =~ s/&\#147;/\`\`/g; 165: $result =~ s/&\#148;/\'\'/g; 166: $result =~ s/&\#149;/\\ensuremath\{\\bullet\}/g; 167: $result =~ s/&\#150;/--/g; 168: $result =~ s/&\#151;/---/g; 169: $result =~ s/&\#152;/\\ensuremath\{\\sim\}/g; 170: $result =~ s/&\#153;/\\texttrademark /g; 171: $result =~ s/&\#156;/\\oe/g; 172: $result =~ s/&\#159;/\\\"Y/g; 173: $result =~ s/&(\#160|nbsp);/~/g; 174: $result =~ s/&(\#161|iexcl);/!\`/g; 175: $result =~ s/&(\#162|cent);/\\textcent /g; 176: $result =~ s/&(\#163|pound);/\\pounds /g; 177: $result =~ s/&(\#164|curren);/\\textcurrency /g; 178: $result =~ s/&(\#165|yen);/\\textyen /g; 179: $result =~ s/&(\#166|brvbar);/\\textbrokenbar /g; 180: $result =~ s/&(\#167|sect);/\\textsection /g; 181: $result =~ s/&(\#168|uml);/\\texthighdieresis /g; 182: $result =~ s/&(\#169|copy);/\\copyright /g; 183: $result =~ s/&(\#170|ordf);/\\textordfeminine /g; 184: $result =~ s/&(\#172|not);/\\ensuremath\{\\neg\}/g; 185: $result =~ s/&(\#173|shy);/ - /g; 186: $result =~ s/&(\#174|reg);/\\textregistered /g; 187: $result =~ s/&(\#175|macr);/\\ensuremath\{^{-}\}/g; 188: $result =~ s/&(\#176|deg);/\\ensuremath\{^{\\circ}\}/g; 189: $result =~ s/&(\#177|plusmn);/\\ensuremath\{\\pm\}/g; 190: $result =~ s/&(\#178|sup2);/\\ensuremath\{^2\}/g; 191: $result =~ s/&(\#179|sup3);/\\ensuremath\{^3\}/g; 192: $result =~ s/&(\#180|acute);/\\textacute /g; 193: $result =~ s/&(\#181|micro);/\\ensuremath\{\\mu\}/g; 194: $result =~ s/&(\#182|para);/\\P/g; 195: $result =~ s/&(\#183|middot);/\\ensuremath\{\\cdot\}/g; 196: $result =~ s/&(\#184|cedil);/\\c{\\strut}/g; 197: $result =~ s/&(\#185|sup1);/\\ensuremath\{^1\}/g; 198: $result =~ s/&(\#186|ordm);/\\textordmasculine /g; 199: $result =~ s/&(\#188|frac14);/\\textonequarter /g; 200: $result =~ s/&(\#189|frac12);/\\textonehalf /g; 201: $result =~ s/&(\#190|frac34);/\\textthreequarters /g; 202: $result =~ s/&(\#191|iquest);/?\`/g; 203: $result =~ s/&(\#192|Agrave);/\\\`{A}/g; 204: $result =~ s/&(\#193|Aacute);/\\\'{A}/g; 205: $result =~ s/&(\#194|Acirc);/\\^{A}/g; 206: $result =~ s/&(\#195|Atilde);/\\~{A}/g; 207: $result =~ s/&(\#196|Auml);/\\\"{A}/g; 208: $result =~ s/&(\#197|Aring);/{\\AA}/g; 209: $result =~ s/&(\#198|AElig);/{\\AE}/g; 210: $result =~ s/&(\#199|Ccedil);/\\c{c}/g; 211: $result =~ s/&(\#200|Egrave);/\\\`{E}/g; 212: $result =~ s/&(\#201|Eacute);/\\\'{E}/g; 213: $result =~ s/&(\#202|Ecirc);/\\^{E}/g; 214: $result =~ s/&(\#203|Euml);/\\\"{E}/g; 215: $result =~ s/&(\#204|Igrave);/\\\`{I}/g; 216: $result =~ s/&(\#205|Iacute);/\\\'{I}/g; 217: $result =~ s/&(\#206|Icirc);/\\^{I}/g; 218: $result =~ s/&(\#207|Iuml);/\\\"{I}/g; 219: $result =~ s/&(\#209|Ntilde);/\\~{N}/g; 220: $result =~ s/&(\#210|Ograve);/\\\`{O}/g; 221: $result =~ s/&(\#211|Oacute);/\\\'{O}/g; 222: $result =~ s/&(\#212|Ocirc);/\\^{O}/g; 223: $result =~ s/&(\#213|Otilde);/\\~{O}/g; 224: $result =~ s/&(\#214|Ouml);/\\\"{O}/g; 225: $result =~ s/&(\#215|times);/\\ensuremath\{\\times\}/g; 226: $result =~ s/&(\#216|Oslash);/{\\O}/g; 227: $result =~ s/&(\#217|Ugrave);/\\\`{U}/g; 228: $result =~ s/&(\#218|Uacute);/\\\'{U}/g; 229: $result =~ s/&(\#219|Ucirc);/\\^{U}/g; 230: $result =~ s/&(\#220|Uuml);/\\\"{U}/g; 231: $result =~ s/&(\#221|Yacute);/\\\'{Y}/g; 232: $result =~ s/&(\#223|szlig);/\\ss/g; 233: $result =~ s/&(\#224|agrave);/\\\`{a}/g; 234: $result =~ s/&(\#225|aacute);/\\\'{a}/g; 235: $result =~ s/&(\#226|acirc);/\\^{a}/g; 236: $result =~ s/&(\#227|atilde);/\\~{a}/g; 237: $result =~ s/&(\#228|auml);/\\\"{a}/g; 238: $result =~ s/&(\#229|aring);/{\\aa}/g; 239: $result =~ s/&(\#230|aelig);/{\\ae}/g; 240: $result =~ s/&(\#231|ccedil);/\\c{c}/g; 241: $result =~ s/&(\#232|egrave);/\\\`{e}/g; 242: $result =~ s/&(\#233|eacute);/\\\'{e}/g; 243: $result =~ s/&(\#234|ecirc);/\\^{e}/g; 244: $result =~ s/&(\#235|euml);/\\\"{e}/g; 245: $result =~ s/&(\#236|igrave);/\\\`{i}/g; 246: $result =~ s/&(\#237|iacute);/\\\'{i}/g; 247: $result =~ s/&(\#238|icirc);/\\^{i}/g; 248: $result =~ s/&(\#239|iuml);/\\\"{i}/g; 249: $result =~ s/&(\#240|eth);/\\ensuremath\{\\partial\}/g; 250: $result =~ s/&(\#241|ntilde);/\\~{n}/g; 251: $result =~ s/&(\#242|ograve);/\\\`{o}/g; 252: $result =~ s/&(\#243|oacute);/\\\'{o}/g; 253: $result =~ s/&(\#244|ocirc);/\\^{o}/g; 254: $result =~ s/&(\#245|otilde);/\\~{o}/g; 255: $result =~ s/&(\#246|ouml);/\\\"{o}/g; 256: $result =~ s/&(\#247|divide);/\\ensuremath\{\\div\}/g; 257: $result =~ s/&(\#248|oslash);/{\\o}/g; 258: $result =~ s/&(\#249|ugrave);/\\\`{u}/g; 259: $result =~ s/&(\#250|uacute);/\\\'{u}/g; 260: $result =~ s/&(\#251|ucirc);/\\^{u}/g; 261: $result =~ s/&(\#252|uuml);/\\\"{u}/g; 262: $result =~ s/&(\#253|yacute);/\\\'{y}/g; 263: $result =~ s/&(\#255|yuml);/\\\"{y}/g; 264: $result =~ s/&\#952;/\\ensuremath\{\\theta\}/g; 265: #Greek Alphabet 266: $result =~ s/&(alpha|\#945);/\\ensuremath\{\\alpha\}/g; 267: $result =~ s/&(beta|\#946);/\\ensuremath\{\\beta\}/g; 268: $result =~ s/&(gamma|\#947);/\\ensuremath\{\\gamma\}/g; 269: $result =~ s/&(delta|\#948);/\\ensuremath\{\\delta\}/g; 270: $result =~ s/&(epsilon|\#949);/\\ensuremath\{\\epsilon\}/g; 271: $result =~ s/&(zeta|\#950);/\\ensuremath\{\\zeta\}/g; 272: $result =~ s/&(eta|\#951);/\\ensuremath\{\\eta\}/g; 273: $result =~ s/&(theta|\#952);/\\ensuremath\{\\theta\}/g; 274: $result =~ s/&(iota|\#953);/\\ensuremath\{\\iota\}/g; 275: $result =~ s/&(kappa|\#954);/\\ensuremath\{\\kappa\}/g; 276: $result =~ s/&(lambda|\#955);/\\ensuremath\{\\lambda\}/g; 277: $result =~ s/&(mu|\#956);/\\ensuremath\{\\mu\}/g; 278: $result =~ s/&(nu|\#957);/\\ensuremath\{\\nu\}/g; 279: $result =~ s/&(xi|\#958);/\\ensuremath\{\\xi\}/g; 280: $result =~ s/&(omicron|\#959);/o/g; 281: $result =~ s/&(pi|\#960);/\\ensuremath\{\\pi\}/g; 282: $result =~ s/&(rho|\#961);/\\ensuremath\{\\rho\}/g; 283: $result =~ s/&(sigma|\#963);/\\ensuremath\{\\sigma\}/g; 284: $result =~ s/&(tau|\#964);/\\ensuremath\{\\tau\}/g; 285: $result =~ s/&(upsilon|\#965);/\\ensuremath\{\\upsilon\}/g; 286: $result =~ s/&(phi|\#966);/\\ensuremath\{\\phi\}/g; 287: $result =~ s/&(chi|\#967);/\\ensuremath\{\\chi\}/g; 288: $result =~ s/&(psi|\#968);/\\ensuremath\{\\psi\}/g; 289: $result =~ s/&(omega|\#969);/\\ensuremath\{\\omega\}/g; 290: $result =~ s/&(thetasym|\#977);/\\ensuremath\{\\vartheta\}/g; 291: $result =~ s/&(piv|\#982);/\\ensuremath\{\\varpi\}/g; 292: $result =~ s/&(Alpha|\#913);/A/g; 293: $result =~ s/&(Beta|\#914);/B/g; 294: $result =~ s/&(Gamma|\#915);/\\ensuremath\{\\Gamma\}/g; 295: $result =~ s/&(Delta|\#916);/\\ensuremath\{\\Delta\}/g; 296: $result =~ s/&(Epsilon|\#917);/E/g; 297: $result =~ s/&(Zeta|\#918);/Z/g; 298: $result =~ s/&(Eta|\#919);/H/g; 299: $result =~ s/&(Theta|\#920);/\\ensuremath\{\\Theta\}/g; 300: $result =~ s/&(Iota|\#921);/I/g; 301: $result =~ s/&(Kappa|\#922);/K/g; 302: $result =~ s/&(Lambda|\#923);/\\ensuremath\{\\Lambda\}/g; 303: $result =~ s/&(Mu|\#924);/M/g; 304: $result =~ s/&(Nu|\#925);/N/g; 305: $result =~ s/&(Xi|\#926);/\\ensuremath\{\\Xi\}/g; 306: $result =~ s/&(Omicron|\#927);/O/g; 307: $result =~ s/&(Pi|\#928);/\\ensuremath\{\\Pi\}/g; 308: $result =~ s/&(Rho|\#929);/P/g; 309: $result =~ s/&(Sigma|\#931);/\\ensuremath\{\\Sigma\}/g; 310: $result =~ s/&(Tau|\#932);/T/g; 311: $result =~ s/&(Upsilon|\#933);/\\ensuremath\{\\Upsilon\}/g; 312: $result =~ s/&(Phi|\#934);/\\ensuremath\{\\Phi\}/g; 313: $result =~ s/&(Chi|\#935);/X/g; 314: $result =~ s/&(Psi|\#936);/\\ensuremath\{\\Psi\}/g; 315: $result =~ s/&(Omega|\#937);/\\ensuremath\{\\Omega\}/g; 316: #Arrows (extended HTML 4.01) 317: $result =~ s/&(larr|\#8592);/\\ensuremath\{\\leftarrow\}/g; 318: $result =~ s/&(uarr|\#8593);/\\ensuremath\{\\uparrow\}/g; 319: $result =~ s/&(rarr|\#8594);/\\ensuremath\{\\rightarrow\}/g; 320: $result =~ s/&(darr|\#8595);/\\ensuremath\{\\downarrow\}/g; 321: $result =~ s/&(harr|\#8596);/\\ensuremath\{\\leftrightarrow\}/g; 322: $result =~ s/&(lArr|\#8656);/\\ensuremath\{\\Leftarrow\}/g; 323: $result =~ s/&(uArr|\#8657);/\\ensuremath\{\\Uparrow\}/g; 324: $result =~ s/&(rArr|\#8658);/\\ensuremath\{\\Rightarrow\}/g; 325: $result =~ s/&(dArr|\#8659);/\\ensuremath\{\\Downarrow\}/g; 326: $result =~ s/&(hArr|\#8660);/\\ensuremath\{\\Leftrightarrow\}/g; 327: #Mathematical Operators (extended HTML 4.01) 328: $result =~ s/&(forall|\#8704);/\\ensuremath\{\\forall\}/g; 329: $result =~ s/&(part|\#8706);/\\ensuremath\{\\partial\}/g; 330: $result =~ s/&(exist|\#8707);/\\ensuremath\{\\exists\}/g; 331: $result =~ s/&(empty|\#8709);/\\ensuremath\{\\emptyset\}/g; 332: $result =~ s/&(nabla|\#8711);/\\ensuremath\{\\nabla\}/g; 333: $result =~ s/&(isin|\#8712);/\\ensuremath\{\\in\}/g; 334: $result =~ s/&(notin|\#8713);/\\ensuremath\{\\notin\}/g; 335: $result =~ s/&(ni|\#8715);/\\ensuremath\{\\ni\}/g; 336: $result =~ s/&(prod|\#8719);/\\ensuremath\{\\prod\}/g; 337: $result =~ s/&(sum|\#8721);/\\ensuremath\{\\sum\}/g; 338: $result =~ s/&(minus|\#8722);/\\ensuremath\{-\}/g; 339: $result =~ s/&(lowast|\#8727);/\\ensuremath\{*\}/g; 340: $result =~ s/&(radic|\#8730);/\\ensuremath\{\\surd\}/g; 341: $result =~ s/&(prop|\#8733);/\\ensuremath\{\\propto\}/g; 342: $result =~ s/&(infin|\#8734);/\\ensuremath\{\\infty\}/g; 343: $result =~ s/&(ang|\#8736);/\\ensuremath\{\\angle\}/g; 344: $result =~ s/&(and|\#8743);/\\ensuremath\{\\wedge\}/g; 345: $result =~ s/&(or|\#8744);/\\ensuremath\{\\vee\}/g; 346: $result =~ s/&(cap|\#8745);/\\ensuremath\{\\cap\}/g; 347: $result =~ s/&(cup|\#8746);/\\ensuremath\{\\cup\}/g; 348: $result =~ s/&(int|\#8747);/\\ensuremath\{\\int\}/g; 349: $result =~ s/&(sim|\#8764);/\\ensuremath\{\\sim\}/g; 350: $result =~ s/&(cong|\#8773);/\\ensuremath\{\\cong\}/g; 351: $result =~ s/&(asymp|\#8776);/\\ensuremath\{\\approx\}/g; 352: $result =~ s/&(ne|\#8800);/\\ensuremath\{\\not=\}/g; 353: $result =~ s/&(equiv|\#8801);/\\ensuremath\{\\equiv\}/g; 354: $result =~ s/&(le|\#8804);/\\ensuremath\{\\leq\}/g; 355: $result =~ s/&(ge|\#8805);/\\ensuremath\{\\geq\}/g; 356: $result =~ s/&(sub|\#8834);/\\ensuremath\{\\subset\}/g; 357: $result =~ s/&(sup|\#8835);/\\ensuremath\{\\supset\}/g; 358: $result =~ s/&(nsub|\#8836);/\\ensuremath\{\\not\\subset\}/g; 359: $result =~ s/&(sube|\#8838);/\\ensuremath\{\\subseteq\}/g; 360: $result =~ s/&(supe|\#8839);/\\ensuremath\{\\supseteq\}/g; 361: $result =~ s/&(oplus|\#8853);/\\ensuremath\{\\oplus\}/g; 362: $result =~ s/&(otimes|\#8855);/\\ensuremath\{\\otimes\}/g; 363: $result =~ s/&(perp|\#8869);/\\ensuremath\{\\perp\}/g; 364: $result =~ s/&(sdot|\#8901);/\\ensuremath\{\\cdot\}/g; 365: #Geometric Shapes (extended HTML 4.01) 366: $result =~ s/&(loz|\#9674);/\\ensuremath\{\\Diamond\}/g; 367: #Miscellaneous Symbols (extended HTML 4.01) 368: $result =~ s/&(spades|\#9824);/\\ensuremath\{\\spadesuit\}/g; 369: $result =~ s/&(clubs|\#9827);/\\ensuremath\{\\clubsuit\}/g; 370: $result =~ s/&(hearts|\#9829);/\\ensuremath\{\\heartsuit\}/g; 371: $result =~ s/&(diams|\#9830);/\\ensuremath\{\\diamondsuit\}/g; 372: return $result; 373: } 374: 375: 376: sub page_format { 377: # 378: #Correspondence between $papersize variable and real paper format: 379: # 0 - "Letter [8 1/2x11 in]" 380: # 1 - "Legal [8 1/2x14 in]" 381: # 2 - "Ledger/Tabloid [11x17 in]" 382: # 3 - "Executive [7 1/2x10 in]" 383: # 4 - "A2 [420x594 mm]" 384: # 5 - "A3 [297x420 mm]" 385: # 6 - "A4 [210x297 mm]" 386: # 7 - "A5 [148x210 mm]" 387: # 8 - "A6 [105x148 mm]" 388: # 389: my ($papersize,$layout,$numberofcolumns) = @_; 390: my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = (0,0,0,0,0); 391: if ($papersize eq '0') { 392: if ($layout eq 'book') { 393: if ($numberofcolumns == 1) { 394: $textwidth = '7.1 in'; #'18 cm'; 395: $textheight = '10.2 in'; #'25.9 cm'; 396: $oddoffset = '-0.57 in'; 397: $evenoffset = '-0.57 in'; 398: } elsif ($numberofcolumns == 2) { 399: $textwidth = '3.66 in'; #'93 mm'; 400: $textheight = '10.2 in'; #'25.9 cm'; 401: $oddoffset = '-0.57 in'; 402: $evenoffset = '-0.57 in'; 403: } 404: } elsif ($layout eq 'album') { 405: if ($numberofcolumns eq '1') { 406: $textwidth = '8.8 in'; 407: $textheight = '6.8 in'; 408: $oddoffset = '-40 pt'; 409: $evenoffset = '-60 pt'; 410: } elsif ($numberofcolumns == 2) { 411: $textwidth = '4.4 in'; 412: $textheight = '6.8 in'; 413: $oddoffset = '-0.5 in'; 414: $evenoffset = '-1.5 in'; 415: $topmargin = '3.5 in'; 416: } 417: } 418: # } elsif($papersize eq '1') { 419: # } elsif($papersize eq '2') { 420: # } elsif($papersize eq '3'/) { 421: } elsif($papersize eq '6') { 422: if ($layout eq 'book') { 423: if ($numberofcolumns == 1) { 424: $textwidth = '176 mm'; 425: $textheight = '254 mm'; 426: $oddoffset = '-0.57 in'; 427: $evenoffset = '-0.57 in'; 428: } elsif ($numberofcolumns == 2) { 429: $textwidth = '91 mm'; 430: $textheight = '254 mm'; 431: $oddoffset = '-0.57 in'; 432: $evenoffset = '-0.57 in'; 433: } 434: } elsif ($layout eq 'album') { 435: if ($numberofcolumns eq '1') { 436: $textwidth = '8.5 in'; 437: $textheight = '7.7 in'; 438: $oddoffset = '-40 pt'; 439: $evenoffset = '-60 pt'; 440: } elsif ($numberofcolumns == 2) { 441: $textwidth = '3.9 in'; 442: $textheight = '7.7 in'; 443: $oddoffset = '-40 pt'; 444: $evenoffset = '-60 pt'; 445: } 446: } 447: # } elsif($papersize eq '5') { 448: # } elsif($papersize eq '4') { 449: # } elsif($papersize eq '7') { 450: # } elsif($papersize eq '8') { 451: } 452: return $textwidth,$textheight,$oddoffset,$evenoffset,$topmargin; 453: } 454: 455: 456: sub get_name { 457: my ($uname,$udom)=@_; 458: if (!defined($uname)) { $uname=$ENV{'user.name'}; } 459: if (!defined($udom)) { $udom=$ENV{'user.domain'}; } 460: my $plainname=&Apache::loncommon::plainname($uname,$udom); 461: if ($plainname=~/^\s*$/) { $plainname=$uname.'@'.$udom; } 462: $plainname=&Apache::lonxml::latex_special_symbols($plainname,'header'); 463: return $plainname; 464: } 465: 466: sub get_course { 467: my $courseidinfo; 468: if (defined($ENV{'request.course.id'})) { 469: $courseidinfo = &Apache::lonxml::latex_special_symbols(&Apache::lonnet::unescape($ENV{'course.'.$ENV{'request.course.id'}.'.description'}),'header'); 470: } 471: return $courseidinfo; 472: } 473: 474: sub page_format_transformation { 475: my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment,$tableofcontents,$indexlist,$selectionmade) = @_; 476: my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin); 477: if ($selectionmade eq '4') { 478: $assignment='Problems from the Whole Course'; 479: } else { 480: $assignment=&Apache::lonxml::latex_special_symbols($assignment,'header'); 481: } 482: ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = &page_format($papersize,$layout,$numberofcolumns,$topmargin); 483: my $name = &get_name(); 484: my $courseidinfo = &get_course(); 485: if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo } 486: if ($layout eq 'album') { 487: my $topmargintoinsert = ''; 488: if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';} 489: $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} /; 490: } elsif ($layout eq 'book') { 491: if ($choice ne 'All class print') { 492: $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}/; 493: } else { 494: $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 /; 495: } 496: } 497: if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;} 498: if ($indexlist eq 'yes') { 499: $text=~s/(\\begin{document})/\\makeindex $1/; 500: $text=~s/(\\end{document})/\\strut\\\\\\strut\\printindex $1/; 501: } 502: return $text; 503: } 504: 505: 506: sub page_cleanup { 507: my $result = shift; 508: 509: $result =~ m/\\end{document}(\d*)$/; 510: my $number_of_columns = $1; 511: my $insert = '{'; 512: for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; } 513: $insert .= '}'; 514: $result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g; 515: $result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g; 516: return $result,$number_of_columns; 517: } 518: 519: 520: sub details_for_menu { 521: 522: my $name_of_resourse = &Apache::lonnet::gettitle($ENV{'form.postdata'}); 523: my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'}); 524: my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic); 525: $map=&Apache::lonnet::clutter($map); 526: my $name_of_sequence = &Apache::lonnet::gettitle($map); 527: if ($name_of_sequence =~ /^\s*$/) { 528: $map =~ m|([^/]+)$|; 529: $name_of_sequence = $1; 530: } 531: my $name_of_map = &Apache::lonnet::gettitle($ENV{'request.course.uri'}); 532: if ($name_of_map =~ /^\s*$/) { 533: $ENV{'request.course.uri'} =~ m|([^/]+)$|; 534: $name_of_map = $1; 535: } 536: return ($name_of_resourse,$name_of_sequence,$name_of_map); 537: 538: } 539: 540: 541: sub latex_corrections { 542: 543: my ($number_of_columns,$result) = @_; 544: 545: # $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g; 546: $result =~ s/\$number_of_columns/$number_of_columns/g; 547: $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/; 548: $result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g; 549: $result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g; 550: #-- LaTeX corrections 551: my $first_comment = index($result,'',$first_comment); 554: substr($result,$first_comment,$end_comment-$first_comment+3) = ''; 555: $first_comment = index($result,'<!--',$first_comment); 556: } 557: $result =~ s/^\s+$//gm; #remove empty lines 558: $result =~ s/(\s)(\s+)/$1/g; #removes more than one empty space 559: $result =~ s/\\\\\s*\\vskip/\\vskip/gm; 560: $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g; 561: $result =~ s/{\\par }\s*\\\\/\\\\/gm; 562: $result =~ s/\\\\\s+\[/ \[/g; 563: $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g; 564: #conversion of html characters to LaTeX equivalents 565: if ($result =~ m/&(\w+|#\d+);/) { 566: $result = &character_chart($result); 567: } 568: $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g; 569: $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g; 570: 571: return $result; 572: } 573: 574: 575: sub index_table { 576: my $currentURL = shift; 577: my $insex_string=''; 578: $currentURL=~s/\.([^\/+])$/\.$1\.meta/; 579: $insex_string=&Apache::lonnet::metadata($currentURL,'keywords'); 580: return $insex_string; 581: } 582: 583: 584: sub IndexCreation { 585: my ($texversion,$currentURL)=@_; 586: my @key_words=split(/,/,&index_table($currentURL)); 587: my $chunk=''; 588: my $st=index $texversion,'\addcontentsline{toc}{subsection}{'; 589: if ($st>0) { 590: for (my $i=0;$i<3;$i++) {$st=(index $texversion,'}',$st+1);} 591: $chunk=substr($texversion,0,$st+1); 592: substr($texversion,0,$st+1)=' '; 593: } 594: foreach my $key_word (@key_words) { 595: if ($key_word=~/\S+/) { 596: $texversion=~s/\b($key_word)\b/$1 \\index{$key_word} /i; 597: } 598: } 599: if ($st>0) {substr($texversion,0,1)=$chunk;} 600: return $texversion; 601: } 602: 603: sub print_latex_header { 604: my $mode=shift; 605: my $output='\documentclass[letterpaper]{article}'; 606: if ($mode eq 'batchmode') { 607: $output.='\batchmode'; 608: } 609: $output.='\newcommand{\keephidden}[1]{}\renewcommand{\deg}{$^{\circ}$}'. 610: '\usepackage{longtable}\usepackage{textcomp}\usepackage{makeidx}'. 611: '\usepackage[dvips]{graphicx}\usepackage{epsfig}\usepackage{calc}'. 612: '\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'. 613: '\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'. 614: '\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}'. 615: '\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}'. 616: '\setlength{\abovedisplayshortskip}{-0.04in}'. 617: '\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}'. 618: '\renewenvironment{theindex}{\begin{list}{}{{\vskip 1mm \noindent \large'. 619: '\textbf{Index}} \newline \setlength{\rightmargin}{0in}'. 620: '\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.01in}'. 621: '\setlength{\itemsep}{0.1in}\setlength{\parsep}{-0.02in}'. 622: '\setlength{\belowdisplayskip}{0.01in}\setlength{\abovedisplayskip}{0.01in}'. 623: '\setlength{\abovedisplayshortskip}{-0.04in}'. 624: '\setlength{\belowdisplayshortskip}{0.01in}}}{\end{list}}\begin{document}'; 625: return $output; 626: } 627: 628: sub path_to_problem { 629: my ($urlp,$LaTeXwidth)=@_; 630: my $newurlp = ''; 631: $LaTeXwidth=~s/\s*mm\s*$//; 632: my $HowMany = length($urlp)*2; 633: if ($HowMany > $LaTeXwidth) { 634: my @temporrary = split '/',$urlp; 635: my $HowManyNew = 0; 636: for (my $ii=0;$ii<=$#temporrary;$ii++) { 637: if ($temporrary[$ii] ne '') { 638: $HowManyNew += length($temporrary[$ii])*2; 639: if ($HowManyNew < $LaTeXwidth ) { 640: $newurlp .= '/'.$temporrary[$ii]; 641: } else { 642: $HowManyNew = 0; 643: $newurlp .= '|\vskip -1 mm \noindent \verb|'; 644: $ii--; 645: } 646: } 647: } 648: } else { 649: $newurlp=$urlp; 650: } 651: return '{\small\noindent\verb|'.$newurlp.'|\vskip 0 mm}'; 652: } 653: 654: sub recalcto_mm { 655: my $textwidth=shift; 656: my $LaTeXwidth; 657: if ($textwidth=~/(\d+\.?\d*)\s*cm/) { 658: $LaTeXwidth = $1*10; 659: } elsif ($textwidth=~/(\d+\.?\d*)\s*mm/) { 660: $LaTeXwidth = $1; 661: } elsif ($textwidth=~/(\d+\.?\d*)\s*in/) { 662: $LaTeXwidth = $1*25.4; 663: } 664: $LaTeXwidth.=' mm'; 665: return $LaTeXwidth; 666: } 667: 668: sub get_textwidth { 669: my ($helper,$LaTeXwidth)=@_; 670: my $textwidth=$LaTeXwidth; 671: if ($helper->{'VARS'}->{'pagesize.width'}=~/\d+/ && 672: $helper->{'VARS'}->{'pagesize.widthunit'}=~/\w+/) { 673: $textwidth=&recalcto_mm($helper->{'VARS'}->{'pagesize.width'}.' '. 674: $helper->{'VARS'}->{'pagesize.widthunit'}); 675: } 676: return $textwidth; 677: } 678: 679: 680: sub unsupported { 681: my ($currentURL,$mode)=@_; 682: if ($mode ne '') {$mode='\\'.$mode} 683: my $result.= &print_latex_header($mode); 684: if ($currentURL=~/\/ext\//) { 685: $result.=' \strut \\\\ THIS IS EXTERNAL RESOURCE WITH URL \strut \\\\ '.$currentURL.' '; 686: } else { 687: $result.=$currentURL; 688: } 689: $result.= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill} \end{document}'; 690: return $result; 691: } 692: 693: 694: sub output_data { 695: my ($r,$helper,$rparmhash) = @_; 696: my %parmhash = %$rparmhash; 697: my $bodytag=&Apache::loncommon::bodytag('Preparing Printout'); 698: $r->print(<<ENDPART); 699: <html> 700: <script type="text/javascript" language="Javascript" > 701: var editbrowser; 702: function openbrowser(formname,elementname,only,omit) { 703: var url = '/res/?'; 704: if (editbrowser == null) { 705: url += 'launch=1&'; 706: } 707: url += 'catalogmode=interactive&'; 708: url += 'mode=parmset&'; 709: url += 'form=' + formname + '&'; 710: if (only != null) { 711: url += 'only=' + only + '&'; 712: } 713: if (omit != null) { 714: url += 'omit=' + omit + '&'; 715: } 716: url += 'element=' + elementname + ''; 717: var title = 'Browser'; 718: var options = 'scrollbars=1,resizable=1,menubar=0'; 719: options += ',width=700,height=600'; 720: editbrowser = open(url,title,options,'1'); 721: editbrowser.focus(); 722: } 723: </script> 724: <head> 725: <title>LON-CAPA output for printing</title> 726: </head> 727: $bodytag 728: Please stand by while processing your print request, this may take some time ... 729: ENDPART 730: 731: my $format_from_helper = $helper->{'VARS'}->{'FORMAT'}; 732: my ($result,$selectionmade) = ('',''); 733: my $number_of_columns = 1; #used only for pages to determine the width of the cell 734: my @temporary_array=split /\|/,$format_from_helper; 735: my ($laystyle,$numberofcolumns,$papersize)=@temporary_array; 736: if ($laystyle eq 'L') { 737: $laystyle='album'; 738: } else { 739: $laystyle='book'; 740: } 741: my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns); 742: my $assignment = $ENV{'form.assignment'}; 743: my $LaTeXwidth=&recalcto_mm($textwidth); 744: my @print_array=(); 745: my @student_names=(); 746: 747: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') { 748: #-- single document - problem, page, html, xml, ... 749: my $currentURL; 750: if ($helper->{'VARS'}->{'construction'} ne '1') { 751: #prints published resource 752: $currentURL=$helper->{'VARS'}->{'postdata'}; 753: } else { 754: #prints resource from the construction space 755: $currentURL='/'.$helper->{'VARS'}->{'filename'}; 756: if ($currentURL=~/([^?]+)/) {$currentURL=$1;} 757: } 758: $selectionmade = 1; 759: if ($currentURL=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) { 760: my $rndseed=time; 761: my $texversion=''; 762: if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') { 763: my %moreenv; 764: $moreenv{'request.filename'}=$currentURL; 765: if ($helper->{'VARS'}->{'style_file'}=~/\w/) { 766: $moreenv{'construct.style'}=$helper->{'VARS'}->{'style_file'}; 767: my $dom = $ENV{'user.domain'}; 768: my $user = $ENV{'user.name'}; 769: my $put_result = &Apache::lonnet::put('environment',{'construct.style'=>$helper->{'VARS'}->{'style_file'}},$dom,$user); 770: } 771: my %form; 772: if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {$form{'problemtype'}='exam';} 773: $form{'grade_target'}='tex'; 774: $form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); 775: $form{'problem_split'}=$parmhash{'problem_stream_switch'}; 776: $form{'suppress_tries'}=$parmhash{'suppress_tries'}; 777: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; 778: $form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'}; 779: if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$form{'problem_split'}='yes';} 780: if ($helper->{'VARS'}->{'curseed'}) { 781: $rndseed=$helper->{'VARS'}->{'curseed'}; 782: } 783: $form{'rndseed'}=$rndseed; 784: &Apache::lonnet::appenv(%moreenv); 785: &Apache::lonnet::delenv('form.counter'); 786: &Apache::lonxml::init_counter(); 787: $texversion.=&Apache::lonnet::ssi($currentURL,%form); 788: &Apache::lonnet::delenv('form.counter'); 789: &Apache::lonnet::delenv('request.filename'); 790: } 791: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || 792: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { 793: my %form; 794: $form{'grade_target'}='answer'; 795: $form{'answer_output_mode'}='tex'; 796: $form{'rndseed'}=$rndseed; 797: my $answer=&Apache::lonnet::ssi($currentURL,%form); 798: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { 799: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; 800: } else { 801: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); 802: if ($helper->{'VARS'}->{'construction'} ne '1') { 803: $texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm '; 804: $texversion.=&path_to_problem ($currentURL,$LaTeXwidth); 805: } else { 806: $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm '; 807: my $URLpath=$currentURL; 808: $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/; 809: $texversion.=&path_to_problem ($URLpath,$LaTeXwidth); 810: } 811: $texversion.='\vskip 1 mm '.$answer.'\end{document}'; 812: } 813: } 814: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { 815: $texversion=&IndexCreation($texversion,$currentURL); 816: } 817: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') { 818: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$currentURL| \\strut\\\\\\strut /; 819: 820: } 821: $result .= $texversion; 822: if ($currentURL=~m/\.page\s*$/) { 823: ($result,$number_of_columns) = &page_cleanup($result); 824: } 825: } elsif ($currentURL=~/\.sequence$/ && $helper->{'VARS'}->{'construction'} eq '1') { 826: #printing content of sequence from the construction space 827: my $flag_latex_header_remove = 'NO'; 828: my $rndseed=time; 829: if ($helper->{'VARS'}->{'curseed'}) { 830: $rndseed=$helper->{'VARS'}->{'curseed'}; 831: } 832: $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|; 833: my $errtext=&Apache::lonratedt::mapread($currentURL); 834: for (my $member=0;$member<=$#Apache::lonratedt::order;$member++) { 835: $Apache::lonratedt::resources[$Apache::lonratedt::order[$member]]=~/^([^:]*):([^:]*):/; 836: my $urlp=$2; 837: if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) { 838: my $texversion=''; 839: if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') { 840: my %form; 841: $form{'grade_target'}='tex'; 842: $form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); 843: $form{'problem_split'}=$parmhash{'problem_stream_switch'}; 844: $form{'suppress_tries'}=$parmhash{'suppress_tries'}; 845: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; 846: $form{'rndseed'}=$rndseed; 847: $texversion=&Apache::lonnet::ssi($urlp,%form); 848: } 849: if((($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || 850: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) && 851: ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page)$/)) { 852: my %form; 853: $form{'grade_target'}='answer'; 854: $form{'answer_output_mode'}='tex'; 855: $form{'rndseed'}=$rndseed; 856: if ($urlp=~/\/res\//) {$ENV{'request.state'}='published';} 857: my $answer=&Apache::lonnet::ssi($urlp,%form); 858: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { 859: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; 860: } else { 861: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); 862: $texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm '; 863: $texversion.=&path_to_problem ($currentURL,$LaTeXwidth); 864: $texversion.='\vskip 1 mm '.$answer.'\end{document}'; 865: } 866: } 867: if ($flag_latex_header_remove ne 'NO') { 868: $texversion = &latex_header_footer_remove($texversion); 869: } else { 870: $texversion =~ s/\\end{document}//; 871: } 872: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { 873: $texversion=&IndexCreation($texversion,$urlp); 874: } 875: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URpL'} eq 'yes') { 876: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /; 877: } 878: $result.=$texversion; 879: $flag_latex_header_remove = 'YES'; 880: } elsif ($urlp=~/\.(sequence|page)$/) { 881: $result.='\strut\newline\noindent Sequence/page '.$urlp.'\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent '; 882: } 883: } 884: if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;} 885: $result .= '\end{document}'; 886: } elsif ($currentURL=~/\/(smppg|syllabus|aboutme|bulletinboard)$/) { 887: my %form; 888: $form{'grade_target'}='tex'; 889: $form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); 890: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; 891: if ($currentURL=~/\/syllabus$/) {$currentURL=~s/\/res//;} 892: my $texversion=&Apache::lonnet::ssi($currentURL,%form); 893: $result .= $texversion; 894: } else { 895: $result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'}); 896: } 897: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or 898: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or 899: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') or 900: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences')) { 901: #-- produce an output string 902: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') { 903: $selectionmade = 2; 904: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') { 905: $selectionmade = 3; 906: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') { 907: $selectionmade = 4; 908: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences') { 909: $selectionmade = 7; 910: } 911: my %form=(); 912: $form{'grade_target'}='tex'; 913: $form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); 914: $form{'problem_split'}=$parmhash{'problem_stream_switch'}; 915: $form{'suppress_tries'}=$parmhash{'suppress_tries'}; 916: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; 917: $form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'}; 918: if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$form{'problem_split'}='yes';} 919: my $flag_latex_header_remove = 'NO'; 920: my $flag_page_in_sequence = 'NO'; 921: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; 922: my $prevassignment=''; 923: &Apache::lonnet::delenv('form.counter'); 924: &Apache::lonxml::init_counter(); 925: for (my $i=0;$i<=$#master_seq;$i++) { 926: my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]); 927: $urlp=&Apache::lonnet::clutter($urlp); 928: $form{'symb'}=$master_seq[$i]; 929: my ($sequence)=&Apache::lonnet::decode_symb($master_seq[$i]); 930: my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem 931: if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;} 932: if ($i==0) {$prevassignment=$assignment;} 933: #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]"); 934: my $texversion=''; 935: if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) { 936: $texversion.=&Apache::lonnet::ssi($urlp,%form); 937: if ($urlp=~/\.page$/) { 938: ($texversion,my $number_of_columns_page) = &page_cleanup($texversion); 939: if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} 940: $texversion =~ s/\\end{document}\d*/\\end{document}/; 941: $flag_page_in_sequence = 'YES'; 942: } 943: my $lonidsdir=$r->dir_config('lonIDsDir'); 944: my $envfile=$ENV{'user.environment'}; 945: $envfile=~/\/([^\/]+)\.id$/; 946: $envfile=$1; 947: &Apache::lonnet::transfer_profile_to_env($lonidsdir,$envfile); 948: my $current_counter=$ENV{'form.counter'}; 949: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || 950: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { 951: my %form; 952: $form{'grade_target'}='answer'; 953: $form{'answer_output_mode'}='tex'; 954: my $answer=&Apache::lonnet::ssi($urlp,%form); 955: &Apache::lonnet::appenv(('form.counter' => $current_counter)); 956: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { 957: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; 958: } else { 959: if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { 960: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); 961: $texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($urlp).'}\vskip 0 mm '; 962: $texversion.=&path_to_problem ($urlp,$LaTeXwidth); 963: $texversion.='\vskip 1 mm '.$answer; 964: } else { 965: $texversion=''; 966: } 967: } 968: } 969: if ($flag_latex_header_remove ne 'NO') { 970: $texversion = &latex_header_footer_remove($texversion); 971: } else { 972: $texversion =~ s/\\end{document}//; 973: } 974: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { 975: $texversion=&IndexCreation($texversion,$urlp); 976: } 977: if (($selectionmade == 4) and ($assignment ne $prevassignment)) { 978: my $name = &get_name(); 979: my $courseidinfo = &get_course(); 980: if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo } 981: $prevassignment=$assignment; 982: $result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$name.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}} \vskip -5 mm '; 983: } 984: $result .= $texversion; 985: $flag_latex_header_remove = 'YES'; 986: } elsif ($urlp=~/\/(smppg|syllabus|aboutme|bulletinboard)$/) { 987: my %form; 988: $form{'grade_target'}='tex'; 989: $form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); 990: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; 991: if ($urlp=~/\/syllabus$/) {$urlp=~s/\/res//;} 992: my $texversion=&Apache::lonnet::ssi($urlp,%form); 993: if ($flag_latex_header_remove ne 'NO') { 994: $texversion = &latex_header_footer_remove($texversion); 995: } else { 996: $texversion =~ s/\\end{document}/\\vskip 0\.5mm\\noindent\\makebox\[\\textwidth\/\$number_of_columns\]\[b\]\{\\hrulefill\}/; 997: } 998: $result .= $texversion; 999: $flag_latex_header_remove = 'YES'; 1000: } else { 1001: $texversion=&unsupported($urlp,$helper->{'VARS'}->{'LATEX_TYPE'}); 1002: if ($flag_latex_header_remove ne 'NO') { 1003: $texversion = &latex_header_footer_remove($texversion); 1004: } else { 1005: $texversion =~ s/\\end{document}//; 1006: } 1007: $result .= $texversion; 1008: $flag_latex_header_remove = 'YES'; 1009: } 1010: } 1011: &Apache::lonnet::delenv('form.counter'); 1012: if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;} 1013: $result .= '\end{document}'; 1014: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') || 1015: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){ 1016: #-- prints assignments for whole class or for selected students 1017: my $type; 1018: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') { 1019: $selectionmade=5; 1020: $type='problems'; 1021: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students') { 1022: $selectionmade=8; 1023: $type='resources'; 1024: } 1025: my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'}; 1026: if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq '0' || 1027: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'all' ) { 1028: $helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1; 1029: } 1030: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; 1031: #loop over students 1032: my $flag_latex_header_remove = 'NO'; 1033: my %moreenv; 1034: $moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); 1035: $moreenv{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'}; 1036: if ($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') {$moreenv{'problem_split'}='yes';} 1037: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1); 1038: my $student_counter=-1; 1039: foreach my $person (@students) { 1040: my $duefile="/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.due"; 1041: if (-e $duefile) { 1042: my $temp_file = Apache::File->new('>>'.$duefile); 1043: print $temp_file "1969\n"; 1044: } 1045: $student_counter++; 1046: my $i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'}); 1047: my ($output,$fullname)=&print_resources($r,$helper,$person,$type,\%moreenv,\@master_seq,$flag_latex_header_remove); 1048: $print_array[$i].=$output; 1049: $student_names[$i].=$person.':'.$fullname.'_END_'; 1050: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,&mt('last student').' '.$fullname); 1051: $flag_latex_header_remove = 'YES'; 1052: } 1053: &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); 1054: $result .= $print_array[0].' \end{document}'; 1055: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') || 1056: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) { 1057: my $cdom =$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; 1058: my $cnum =$ENV{'course.'.$ENV{'request.course.id'}.'.num'}; 1059: my $num_todo=$helper->{'VARS'}->{'NUMBER_TO_PRINT_TOTAL'}; 1060: my $code_name=$helper->{'VARS'}->{'ANON_CODE_STORAGE_NAME'}; 1061: my $old_name=$helper->{'VARS'}->{'REUSE_OLD_CODES'}; 1062: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; 1063: my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'}); 1064: my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'}; 1065: if ($number_per_page eq '0' || $number_per_page eq 'all') { 1066: $number_per_page=$num_todo; 1067: } 1068: my $flag_latex_header_remove = 'NO'; 1069: my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth)); 1070: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75'); 1071: my $seed=time+($$<<16)+($$); 1072: my @allcodes; 1073: if ($old_name) { 1074: my %result=&Apache::lonnet::get('CODEs',[$old_name],$cdom,$cnum); 1075: @allcodes=split(',',$result{$old_name}); 1076: } else { 1077: my %allcodes; 1078: srand($seed); 1079: for (my $i=0;$i<$num_todo;$i++) { 1080: $moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,'6'); 1081: } 1082: if ($code_name) { 1083: &Apache::lonnet::put('CODEs', 1084: {$code_name =>join(',',keys(%allcodes))}, 1085: $cdom,$cnum); 1086: } 1087: @allcodes=keys(%allcodes); 1088: } 1089: my $count=0; 1090: foreach my $code (sort(@allcodes)) { 1091: my $file_num=int($count/$number_per_page); 1092: $moreenv{'CODE'}=&num_to_letters($code); 1093: my ($output,$fullname)= 1094: &print_resources($r,$helper,'anonymous',$type,\%moreenv, 1095: \@master_seq,$flag_latex_header_remove); 1096: $print_array[$file_num].=$output; 1097: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, 1098: &mt('last assignment').' '.$fullname); 1099: $flag_latex_header_remove = 'YES'; 1100: $count++; 1101: } 1102: &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); 1103: $result .= $print_array[0].' \end{document}'; 1104: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') { 1105: #prints selected problems from the subdirectory 1106: $selectionmade = 6; 1107: my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'}; 1108: @list_of_files=sort @list_of_files; 1109: my $flag_latex_header_remove = 'NO'; 1110: my $rndseed=time; 1111: if ($helper->{'VARS'}->{'curseed'}) { 1112: $rndseed=$helper->{'VARS'}->{'curseed'}; 1113: } 1114: for (my $i=0;$i<=$#list_of_files;$i++) { 1115: my $urlp = $list_of_files[$i]; 1116: $urlp=~s|//|/|; 1117: if ($urlp=~/\//) { 1118: my %form; 1119: $form{'grade_target'}='tex'; 1120: $form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth); 1121: $form{'rndseed'}=$rndseed; 1122: if ($urlp =~ m|/home/([^/]+)/public_html|) { 1123: $urlp =~ s|/home/([^/]*)/public_html|/~$1|; 1124: } else { 1125: $urlp =~ s|^$Apache::lonnet::perlvar{'lonDocRoot'}||; 1126: } 1127: my $texversion=&Apache::lonnet::ssi($urlp,%form); 1128: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || 1129: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { 1130: my %form; 1131: $form{'grade_target'}='answer'; 1132: $form{'answer_output_mode'}='tex'; 1133: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; 1134: $form{'rndseed'}=$rndseed; 1135: my $answer=&Apache::lonnet::ssi($urlp,%form); 1136: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { 1137: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; 1138: } else { 1139: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); 1140: if ($helper->{'VARS'}->{'construction'} ne '1') { 1141: $texversion.='\vskip 0 mm \noindent '; 1142: $texversion.=&path_to_problem ($urlp,$LaTeXwidth); 1143: } else { 1144: $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm '; 1145: my $URLpath=$urlp; 1146: $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/; 1147: $texversion.=&path_to_problem ($URLpath,$LaTeXwidth); 1148: } 1149: $texversion.='\vskip 1 mm '.$answer.'\end{document}'; 1150: } 1151: } 1152: #this chunck is responsible for printing the path to problem 1153: my $newurlp=$urlp; 1154: if ($newurlp=~/~/) {$newurlp=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;} 1155: $newurlp=&path_to_problem($newurlp,$LaTeXwidth); 1156: $texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 $newurlp/; 1157: if ($flag_latex_header_remove ne 'NO') { 1158: $texversion = &latex_header_footer_remove($texversion); 1159: } else { 1160: $texversion =~ s/\\end{document}//; 1161: } 1162: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { 1163: $texversion=&IndexCreation($texversion,$urlp); 1164: } 1165: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') { 1166: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /; 1167: 1168: } 1169: $result .= $texversion; 1170: } 1171: $flag_latex_header_remove = 'YES'; 1172: } 1173: if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\typeout)/ RANDOM SEED IS $rndseed $1/;} 1174: $result .= '\end{document}'; 1175: } 1176: #-------------------------------------------------------- corrections for the different page formats 1177: $result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'},$helper->{'VARS'}->{'TABLE_CONTENTS'},$helper->{'VARS'}->{'TABLE_INDEX'},$selectionmade); 1178: $result = &latex_corrections($number_of_columns,$result); 1179: for (my $i=1;$i<=$#print_array;$i++) {$print_array[$i] = &latex_corrections($number_of_columns,$print_array[$i]);} 1180: #changes page's parameters for the one column output 1181: if ($numberofcolumns == 1) { 1182: $result =~ s/\\textwidth\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /; 1183: $result =~ s/\\textheight\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /; 1184: $result =~ s/\\evensidemargin\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; 1185: $result =~ s/\\oddsidemargin\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /; 1186: } 1187: #-- writing .tex file in prtspool 1188: my $temp_file; 1189: my $identifier = &Apache::loncommon::get_cgi_id(); 1190: my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".$identifier.".tex"; 1191: if (!($#print_array>0)) { 1192: unless ($temp_file = Apache::File->new('>'.$filename)) { 1193: $r->log_error("Couldn't open $filename for output $!"); 1194: return SERVER_ERROR; 1195: } 1196: print $temp_file $result; 1197: my $begin=index($result,'\begin{document}',0); 1198: my $inc=substr($result,0,$begin+16); 1199: } else { 1200: my $begin=index($result,'\begin{document}',0); 1201: my $inc=substr($result,0,$begin+16); 1202: for (my $i=0;$i<=$#print_array;$i++) { 1203: if ($i==0) { 1204: $print_array[$i]=$result; 1205: } else { 1206: my $anobegin=index($print_array[$i],'\setcounter{page}',0); 1207: substr($print_array[$i],0,$anobegin)=''; 1208: $print_array[$i]=$inc.$print_array[$i].'\end{document}'; 1209: } 1210: my $temp_file; 1211: my $newfilename=$filename; 1212: my $num=$i+1; 1213: $newfilename =~s/\.tex$/_$num\.tex/; 1214: unless ($temp_file = Apache::File->new('>'.$newfilename)) { 1215: $r->log_error("Couldn't open $newfilename for output $!"); 1216: return SERVER_ERROR; 1217: } 1218: print $temp_file $print_array[$i]; 1219: } 1220: } 1221: my $student_names=''; 1222: if ($#print_array>0) { 1223: for (my $i=0;$i<=$#print_array;$i++) { 1224: $student_names.=$student_names[$i].'_ENDPERSON_'; 1225: } 1226: } else { 1227: if ($#student_names>-1) { 1228: $student_names=$student_names[0].'_ENDPERSON_'; 1229: } else { 1230: my $fullname = &get_name($ENV{'user.name'},$ENV{'user.domain'}); 1231: $student_names=join(':',$ENV{'user.name'},$ENV{'user.domain'}, 1232: $ENV{'request.course.sec'},$fullname). 1233: '_ENDPERSON_'.'_END_'; 1234: } 1235: } 1236: 1237: my $URLback=''; #link to original document 1238: if ($helper->{'VARS'}->{'construction'} ne '1') { 1239: #prints published resource 1240: $URLback=$helper->{'VARS'}->{'postdata'}; 1241: } else { 1242: #prints resource from the construction space 1243: $URLback='/'.$helper->{'VARS'}->{'filename'}; 1244: if ($URLback=~/([^?]+)/) { 1245: $URLback=$1; 1246: $URLback=~s|^/~|/priv/|; 1247: } 1248: } 1249: 1250: &Apache::lonnet::appenv('cgi.'.$identifier.'.file' => $filename, 1251: 'cgi.'.$identifier.'.layout' => $laystyle, 1252: 'cgi.'.$identifier.'.numcol' => $numberofcolumns, 1253: 'cgi.'.$identifier.'.paper' => $papersize, 1254: 'cgi.'.$identifier.'.selection' => $selectionmade, 1255: 'cgi.'.$identifier.'tableofcontents' => $helper->{'VARS'}->{'TABLE_CONTENTS'}, 1256: 'cgi.'.$identifier.'tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'}, 1257: 'cgi.'.$identifier.'role' => $ENV{'request.role.adv'}, 1258: 'cgi.'.$identifier.'numberoffiles' => $#print_array, 1259: 'cgi.'.$identifier.'studentnames' => $student_names, 1260: 'cgi.'.$identifier.'backref' => $URLback,); 1261: 1262: $r->print(<<FINALEND); 1263: <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier" /> 1264: </body> 1265: </html> 1266: FINALEND 1267: } 1268: 1269: sub num_to_letters { 1270: my ($num) = @_; 1271: my @nums= split('',$num); 1272: my @num_to_let=('A'..'Z'); 1273: my $word; 1274: foreach my $digit (@nums) { $word.=$num_to_let[$digit]; } 1275: return $word; 1276: } 1277: 1278: sub get_CODE { 1279: my ($all_codes,$num,$seed,$size)=@_; 1280: my $max='1'.'0'x$size; 1281: my $newcode; 1282: while(1) { 1283: $newcode=sprintf("%06d",int(rand($max))); 1284: if (!exists($$all_codes{$newcode})) { 1285: $$all_codes{$newcode}=1; 1286: return &num_to_letters($newcode); 1287: } 1288: } 1289: } 1290: 1291: sub print_resources { 1292: my ($r,$helper,$person,$type,$moreenv,$master_seq,$remove_latex_header)=@_; 1293: my $current_output = ''; 1294: my ($username,$userdomain,$usersection) = split /:/,$person; 1295: my $fullname = &get_name($username,$userdomain); 1296: if ($person =~ 'anon') { 1297: $fullname = "CODE - ".$moreenv->{'CODE'}; 1298: } 1299: #goes through all resources, checks if they are available for 1300: #current student, and produces output 1301: &Apache::lonnet::delenv('form.counter'); 1302: &Apache::lonxml::init_counter(); 1303: foreach my $curresline (@{$master_seq}) { 1304: if ( !($type eq 'problems' && 1305: ($curresline!~ m/\.(problem|exam|quiz|assess|survey|form|library)$/)) ) { 1306: my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline); 1307: if (&Apache::lonnet::allowed('bre',$res_url)) { 1308: if ($res_url=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) { 1309: my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,$ENV{'request.course.id'},'tex',$moreenv); 1310: my $lonidsdir=$r->dir_config('lonIDsDir'); 1311: my $envfile=$ENV{'user.environment'}; 1312: $envfile=~/\/([^\/]+)\.id$/; 1313: $envfile=$1; 1314: &Apache::lonnet::transfer_profile_to_env($lonidsdir,$envfile); 1315: my $current_counter=$ENV{'form.counter'}; 1316: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') || 1317: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) { 1318: my %form; 1319: $form{'answer_output_mode'}='tex'; 1320: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; 1321: my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%form); 1322: &Apache::lonnet::appenv(('form.counter' => $current_counter)); 1323: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { 1324: $rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/; 1325: } else { 1326: $rendered=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); 1327: $rendered.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($curresline).'}\vskip 0 mm '; 1328: $rendered.=&path_to_problem ($curresline,$LaTeXwidth); 1329: $rendered.='\vskip 1 mm '.$ansrendered; 1330: } 1331: } 1332: if ($remove_latex_header eq 'YES') { 1333: $rendered = &latex_header_footer_remove($rendered); 1334: } else { 1335: $rendered =~ s/\\end{document}//; 1336: } 1337: $current_output .= $rendered; 1338: } elsif ($res_url=~/\/(smppg|syllabus|aboutme|bulletinboard)$/) { 1339: my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,$ENV{'request.course.id'},'tex',$moreenv); 1340: my $lonidsdir=$r->dir_config('lonIDsDir'); 1341: my $envfile=$ENV{'user.environment'}; 1342: $envfile=~/\/([^\/]+)\.id$/; 1343: $envfile=$1; 1344: &Apache::lonnet::transfer_profile_to_env($lonidsdir,$envfile); 1345: my $current_counter=$ENV{'form.counter'}; 1346: if ($remove_latex_header eq 'YES') { 1347: $rendered = &latex_header_footer_remove($rendered); 1348: } else { 1349: $rendered =~ s/\\end{document}//; 1350: } 1351: $current_output .= $rendered.'\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\strut \vskip 0 mm \strut '; 1352: } else { 1353: my $rendered = &unsupported($res_url,$helper->{'VARS'}->{'LATEX_TYPE'}); 1354: if ($remove_latex_header ne 'NO') { 1355: $rendered = &latex_header_footer_remove($rendered); 1356: } else { 1357: $rendered =~ s/\\end{document}//; 1358: } 1359: $current_output .= $rendered; 1360: } 1361: } 1362: $remove_latex_header = 'YES'; 1363: } 1364: } 1365: my $courseidinfo = &get_course(); 1366: if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo } 1367: if ($usersection ne '') {$courseidinfo.=' - Sec. '.$usersection} 1368: my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header'); 1369: if ($current_output=~/\\documentclass/) { 1370: $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}}$courseidinfo \\hfill \\thepage \\\\ \\textit{$currentassignment}}\\vskip 3 mm /; 1371: } else { 1372: my $blankpages = ''; 1373: for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blankpages.='\clearpage\strut\clearpage';} 1374: $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 '.$blankpages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$currentassignment.'}}} \vskip -5 mm '.$current_output; 1375: } 1376: return ($current_output,$fullname); 1377: 1378: } 1379: 1380: sub handler { 1381: 1382: my $r = shift; 1383: my $helper; 1384: 1385: # my $loaderror=&Apache::lonnet::overloaderror($r); 1386: # if ($loaderror) { return $loaderror; } 1387: # $loaderror= 1388: # &Apache::lonnet::overloaderror($r, 1389: # $ENV{'course.'.$ENV{'request.course.id'}.'.home'}); 1390: # if ($loaderror) { return $loaderror; } 1391: 1392: my $result = printHelper($r); 1393: if (!ref($result)) { 1394: return $result; 1395: } 1396: $helper = $result; 1397: 1398: # my $key; 1399: # foreach $key (keys %{$helper->{'VARS'}}) { 1400: # $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<- '); 1401: # } 1402: # foreach $key (keys %ENV) { 1403: # $r->print(' '.$key.'->'.$ENV{$key}.'<- '); 1404: # } 1405: # return OK; 1406: 1407: my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'}); 1408: 1409: # my $key; 1410: # foreach $key (keys %parmhash) { 1411: # $r->print(' '.$key.'->'.$parmhash{$key}.'<- '); 1412: # } 1413: # return OK; 1414: 1415: &output_data($r,$helper,\%parmhash); 1416: return OK; 1417: } 1418: 1419: use Apache::lonhelper; 1420: 1421: sub addMessage { 1422: my $text = shift; 1423: my $paramHash = Apache::lonhelper::getParamHash(); 1424: $paramHash->{MESSAGE_TEXT} = $text; 1425: Apache::lonhelper::message->new(); 1426: } 1427: 1428: use Data::Dumper; 1429: 1430: sub printHelper { 1431: my $r = shift; 1432: 1433: if ($ENV{'request.course.id'}) { 1434: my $fn=$ENV{'request.course.fn'}; 1435: tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640); 1436: } 1437: 1438: if ($r->header_only) { 1439: if ($ENV{'browser.mathml'}) { 1440: &Apache::loncommon::content_type($r,'text/xml'); 1441: } else { 1442: &Apache::loncommon::content_type($r,'text/html'); 1443: } 1444: $r->send_http_header; 1445: return OK; 1446: } 1447: 1448: # Send header, nocache 1449: if ($ENV{'browser.mathml'}) { 1450: &Apache::loncommon::content_type($r,'text/xml'); 1451: } else { 1452: &Apache::loncommon::content_type($r,'text/html'); 1453: } 1454: &Apache::loncommon::no_cache($r); 1455: $r->send_http_header; 1456: $r->rflush(); 1457: 1458: # Unfortunately, this helper is so complicated we have to 1459: # write it by hand 1460: 1461: Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING}); 1462: 1463: my $helper = Apache::lonhelper::helper->new("Printing Helper"); 1464: $helper->declareVar('symb'); 1465: $helper->declareVar('postdata'); 1466: $helper->declareVar('curseed'); 1467: $helper->declareVar('probstatus'); 1468: $helper->declareVar('filename'); 1469: $helper->declareVar('construction'); 1470: $helper->declareVar('assignment'); 1471: $helper->declareVar('style_file'); 1472: 1473: # This will persistently load in the data we want from the 1474: # very first screen. 1475: # Detect whether we're coming from construction space 1476: if ($ENV{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) { 1477: $helper->{VARS}->{'filename'} = "~$1/$2"; 1478: $helper->{VARS}->{'construction'} = 1; 1479: } else { 1480: if ($ENV{'form.postdata'}) { 1481: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($ENV{'form.postdata'}); 1482: } 1483: if ($ENV{'form.symb'}) { 1484: $helper->{VARS}->{'symb'} = $ENV{'form.symb'}; 1485: } 1486: if ($ENV{'form.url'}) { 1487: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'}); 1488: } 1489: } 1490: 1491: if ($ENV{'form.symb'}) { 1492: $helper->{VARS}->{'symb'} = $ENV{'form.symb'}; 1493: } 1494: if ($ENV{'form.url'}) { 1495: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'}); 1496: 1497: } 1498: 1499: my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu; 1500: if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;} 1501: 1502: 1503: # Extract map 1504: my $symb = $helper->{VARS}->{'symb'}; 1505: my ($map, $id, $url); 1506: my $subdir; 1507: 1508: # Get the resource name from construction space 1509: if ($helper->{VARS}->{'construction'}) { 1510: $resourceTitle = substr($helper->{VARS}->{'filename'}, 1511: rindex($helper->{VARS}->{'filename'}, '/')+1); 1512: $subdir = substr($helper->{VARS}->{'filename'}, 1513: 0, rindex($helper->{VARS}->{'filename'}, '/') + 1); 1514: } else { 1515: ($map, $id, $url) = &Apache::lonnet::decode_symb($symb); 1516: $helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url); 1517: 1518: if (!$resourceTitle) { # if the resource doesn't have a title, use the filename 1519: my $postdata = $helper->{VARS}->{'postdata'}; 1520: $resourceTitle = substr($postdata, rindex($postdata, '/') + 1); 1521: } 1522: $subdir = &Apache::lonnet::filelocation("", $url); 1523: } 1524: if (!$helper->{VARS}->{'curseed'} && $ENV{'form.curseed'}) { 1525: $helper->{VARS}->{'curseed'}=$ENV{'form.curseed'}; 1526: } 1527: if (!$helper->{VARS}->{'probstatus'} && $ENV{'form.problemtype'}) { 1528: $helper->{VARS}->{'probstatus'}=$ENV{'form.problemtype'}; 1529: } 1530: 1531: my $userCanSeeHidden = Apache::lonnavmaps::advancedUser(); 1532: my $userPriviledged = ($ENV{'request.role'}=~m/^cc\./ or 1533: $ENV{'request.role'}=~m/^in\./ or 1534: $ENV{'request.role'}=~m/^ta\./); 1535: 1536: Apache::lonhelper::registerHelperTags(); 1537: 1538: # "Delete everything after the last slash." 1539: $subdir =~ s|/[^/]+$||; 1540: if (not $helper->{VARS}->{'construction'}) { 1541: $subdir=$Apache::lonnet::perlvar{'lonDocRoot'}.'/res/'.$subdir; 1542: } 1543: # "Remove all duplicate slashes." 1544: $subdir =~ s|/+|/|g; 1545: 1546: # What can be printed is a very dynamic decision based on 1547: # lots of factors. So we need to dynamically build this list. 1548: # To prevent security leaks, states are only added to the wizard 1549: # if they can be reached, which ensures manipulating the form input 1550: # won't allow anyone to reach states they shouldn't have permission 1551: # to reach. 1552: 1553: # printChoices is tracking the kind of printing the user can 1554: # do, and will be used in a choices construction later. 1555: # In the meantime we will be adding states and elements to 1556: # the helper by hand. 1557: my $printChoices = []; 1558: my $paramHash; 1559: 1560: if ($resourceTitle) { 1561: push @{$printChoices}, ["$resourceTitle (".&mt('what you just saw on the screen').")", 'current_document', 'PAGESIZE']; 1562: } 1563: 1564: # Useful filter strings 1565: my $isProblem = '($res->is_problem()||$res->contains_problem) '; 1566: $isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden; 1567: my $isProblemOrMap = '$res->is_problem() || $res->contains_problem() || $res->is_sequence()'; 1568: my $isNotMap = '!$res->is_sequence()'; 1569: $isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden; 1570: my $isMap = '$res->is_map()'; 1571: my $symbFilter = '$res->symb()'; 1572: my $urlValue = '$res->src()'; 1573: 1574: $helper->declareVar('SEQUENCE'); 1575: 1576: # Useful for debugging: Dump the help vars 1577: #$r->print(Dumper($helper->{VARS})); 1578: #$r->print($map); 1579: 1580: # If we're in a sequence... 1581: if (($helper->{'VARS'}->{'construction'} ne '1') && 1582: $helper->{VARS}->{'postdata'} && 1583: $helper->{VARS}->{'assignment'}) { 1584: # Allow problems from sequence 1585: push @{$printChoices}, ["".&mt('Problems')." ".&mt('in')." $sequenceTitle", 'map_problems', 'CHOOSE_PROBLEMS']; 1586: # Allow all resources from sequence 1587: push @{$printChoices}, ["".&mt('Resources')." ".&mt('in')." $sequenceTitle", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML']; 1588: 1589: my $helperFragment = <<HELPERFRAGMENT; 1590: <state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print"> 1591: <message>(mark them then click "next" button) </message> 1592: <resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1" 1593: closeallpages="1"> 1594: <nextstate>PAGESIZE</nextstate> 1595: <filterfunc>return $isProblem;</filterfunc> 1596: <mapurl>$map</mapurl> 1597: <valuefunc>return $symbFilter;</valuefunc> 1598: </resource> 1599: </state> 1600: 1601: <state name="CHOOSE_PROBLEMS_HTML" title="Select Resource(s) to print"> 1602: <message>(mark them then click "next" button) </message> 1603: <resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1" 1604: closeallpages="1"> 1605: <nextstate>PAGESIZE</nextstate> 1606: <filterfunc>return $isNotMap;</filterfunc> 1607: <mapurl>$map</mapurl> 1608: <valuefunc>return $symbFilter;</valuefunc> 1609: </resource> 1610: </state> 1611: HELPERFRAGMENT 1612: 1613: &Apache::lonxml::xmlparse($r, 'helper', $helperFragment); 1614: } 1615: 1616: # If the user is priviledged, allow them to print all 1617: # problems in the course, optionally for selected students 1618: if ($userPriviledged && 1619: ($helper->{VARS}->{'postdata'}=~/\/res\// || $helper->{VARS}->{'postdata'}=~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) { 1620: push @{$printChoices}, ['Problems from entire course', 'all_problems', 'ALL_PROBLEMS']; 1621: &Apache::lonxml::xmlparse($r, 'helper', <<ALL_PROBLEMS); 1622: <state name="ALL_PROBLEMS" title="Select Problem(s) to print"> 1623: <message>(mark them then click "next" button) </message> 1624: <resource variable="RESOURCES" toponly='0' multichoice="1" 1625: suppressEmptySequences='0' addstatus="1" closeallpages="1"> 1626: <nextstate>PAGESIZE</nextstate> 1627: <filterfunc>return $isProblemOrMap;</filterfunc> 1628: <choicefunc>return $isNotMap;</choicefunc> 1629: <valuefunc>return $symbFilter;</valuefunc> 1630: </resource> 1631: </state> 1632: ALL_PROBLEMS 1633: 1634: if ($helper->{VARS}->{'assignment'}) { 1635: push @{$printChoices}, ["".&mt('Problems')." ".&mt('from')." $sequenceTitle ".&mt('for')." ".&mt('selected students')."", 'problems_for_students', 'CHOOSE_STUDENTS']; 1636: push @{$printChoices}, ["".&mt('Problems')." ".&mt('from')." $sequenceTitle ".&mt('for')." ".&mt('anonymous students')."", 'problems_for_anon', 'CHOOSE_ANON1']; 1637: } 1638: my $resource_selector=<<RESOURCE_SELECTOR; 1639: <message> <big>Select resources for the assignment</big> </message> 1640: <resource variable="RESOURCES" multichoice="1" addstatus="1" 1641: closeallpages="1"> 1642: <filterfunc>return $isProblem;</filterfunc> 1643: <mapurl>$map</mapurl> 1644: <valuefunc>return $symbFilter;</valuefunc> 1645: </resource> 1646: <message> <big>How should the results be printed?</big> </message> 1647: <choices variable="EMPTY_PAGES"> 1648: <choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice> 1649: <choice computer='1'>Add one empty page/column after each student\'s assignment</choice> 1650: <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice> 1651: <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice> 1652: </choices> 1653: <message><hr width='33%' />Number of assignments printed at the same time: </message> 1654: <string variable="NUMBER_TO_PRINT" maxlength="5" size="5"><defaultvalue>"all"</defaultvalue></string> 1655: RESOURCE_SELECTOR 1656: 1657: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS); 1658: <state name="CHOOSE_STUDENTS" title="Select Students and Resources"> 1659: <student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" /> 1660: $resource_selector 1661: </state> 1662: CHOOSE_STUDENTS 1663: 1664: my $cdom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; 1665: my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'}; 1666: my @names=&Apache::lonnet::getkeys('CODEs',$cdom,$cnum); 1667: my $namechoice='<choice></choice>'; 1668: foreach my $name (@names) { 1669: if ($name =~ /^error: 2 /) { next; } 1670: $namechoice.='<choice computer="'.$name.'">'.$name.'</choice>'; 1671: } 1672: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON1); 1673: <state name="CHOOSE_ANON1" title="Select Students and Resources"> 1674: <nextstate>PAGESIZE</nextstate> 1675: <message><hr width='33%' />Number of anonymous assignments to print?</message> 1676: <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"></string> 1677: <message> Names to store the CODEs under for later:</message> 1678: <string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" /> 1679: <message><hr width='33%' /></message> 1680: <message>Reprint a set of saved CODEs:</message> 1681: <dropdown variable="REUSE_OLD_CODES"> 1682: $namechoice 1683: </dropdown> 1684: <message><hr width='33%' /></message> 1685: $resource_selector 1686: </state> 1687: CHOOSE_ANON1 1688: 1689: 1690: if ($helper->{VARS}->{'assignment'}) { 1691: push @{$printChoices}, ["".&mt('Resources')." ".&mt('from')." $sequenceTitle ".&mt('for')." ".&mt('selected students')."", 'resources_for_students', 'CHOOSE_STUDENTS1']; 1692: push @{$printChoices}, ["".&mt('Resources')." ".&mt('from')." $sequenceTitle ".&mt('for')." ".&mt('anonymous students')."", 'resources_for_anon', 'CHOOSE_ANON2']; 1693: } 1694: 1695: 1696: $resource_selector=<<RESOURCE_SELECTOR; 1697: <message> <big>Select resources for the assignment</big> </message> 1698: <resource variable="RESOURCES" multichoice="1" addstatus="1" 1699: closeallpages="1"> 1700: <filterfunc>return $isNotMap;</filterfunc> 1701: <mapurl>$map</mapurl> 1702: <valuefunc>return $symbFilter;</valuefunc> 1703: </resource> 1704: <message> <big>How should the results be printed?</big> </message> 1705: <choices variable="EMPTY_PAGES"> 1706: <choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice> 1707: <choice computer='1'>Add one empty page/column after each student\'s assignment</choice> 1708: <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice> 1709: <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice> 1710: </choices> 1711: <message><hr width='33%' />Number of assignments printed at the same time: </message> 1712: <string variable="NUMBER_TO_PRINT" maxlength="5" size="5"><defaultvalue>"all"</defaultvalue></string> 1713: RESOURCE_SELECTOR 1714: 1715: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS1); 1716: <state name="CHOOSE_STUDENTS1" title="Select Students and Resources"> 1717: <student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" /> 1718: $resource_selector 1719: </state> 1720: CHOOSE_STUDENTS1 1721: 1722: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON2); 1723: <state name="CHOOSE_ANON2" title="Select Students and Resources"> 1724: <nextstate>PAGESIZE</nextstate> 1725: <message><hr width='33%' />Number of anonymous assignments to print?</message> 1726: <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"></string> 1727: <message> Names to store the CODEs under for later:</message> 1728: <string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" /> 1729: <message><hr width='33%' /></message> 1730: <message>Reprint a set of saved CODEs:</message> 1731: <dropdown variable="REUSE_OLD_CODES"> 1732: $namechoice 1733: </dropdown> 1734: <message><hr width='33%' /></message> 1735: $resource_selector 1736: </state> 1737: CHOOSE_ANON2 1738: } 1739: 1740: # FIXME: That RE should come from a library somewhere. 1741: 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'} and $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/') { 1742: push @{$printChoices}, ["".&mt('Problems')." ".&mt('from current subdirectory')." $subdir", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR']; 1743: 1744: my $f = '$filename'; 1745: my $xmlfrag = <<CHOOSE_FROM_SUBDIR; 1746: <state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from $subdir to print"> 1747: <message>(mark them then click "next" button) </message> 1748: <files variable="FILES" multichoice='1'> 1749: <nextstate>PAGESIZE</nextstate> 1750: <filechoice>return '$subdir';</filechoice> 1751: CHOOSE_FROM_SUBDIR 1752: 1753: # this is broken up because I really want interpolation above, 1754: # and I really DON'T want it below 1755: $xmlfrag .= <<'CHOOSE_FROM_SUBDIR'; 1756: <filefilter>return Apache::lonhelper::files::not_old_version($filename) && 1757: $filename =~ m/\.(problem|exam|quiz|assess|survey|form|library)$/; 1758: </filefilter> 1759: </files> 1760: </state> 1761: CHOOSE_FROM_SUBDIR 1762: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); 1763: } 1764: 1765: # Allow the user to select any sequence in the course, feed it to 1766: # another resource selector for that sequence 1767: if (!$helper->{VARS}->{'construction'}) { 1768: push @$printChoices, ["Resources from selected sequence in course", 1769: 'select_sequences', 'CHOOSE_SEQUENCE']; 1770: my $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'}; 1771: #Escape apostrophes and backslashes for Perl 1772: $escapedSequenceName =~ s/\\/\\\\/g; 1773: $escapedSequenceName =~ s/'/\\'/g; 1774: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_ANY_SEQUENCE); 1775: <state name="CHOOSE_SEQUENCE" title="Select Sequence To Print From"> 1776: <message>Select the sequence to print resources from:</message> 1777: <resource variable="SEQUENCE"> 1778: <nextstate>CHOOSE_FROM_ANY_SEQUENCE</nextstate> 1779: <filterfunc>return \$res->is_sequence;</filterfunc> 1780: <valuefunc>return $urlValue;</valuefunc> 1781: </resource> 1782: </state> 1783: <state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print"> 1784: <message>(mark desired resources then click "next" button) </message> 1785: <resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1" 1786: closeallpages="1"> 1787: <nextstate>PAGESIZE</nextstate> 1788: <filterfunc>return $isProblem</filterfunc> 1789: <mapurl evaluate='1'>return '$escapedSequenceName';</mapurl> 1790: <valuefunc>return $symbFilter;</valuefunc> 1791: </resource> 1792: </state> 1793: CHOOSE_FROM_ANY_SEQUENCE 1794: } 1795: 1796: # Generate the first state, to select which resources get printed. 1797: Apache::lonhelper::state->new("START", "Select Printing Options:"); 1798: $paramHash = Apache::lonhelper::getParamHash(); 1799: $paramHash->{MESSAGE_TEXT} = ""; 1800: Apache::lonhelper::message->new(); 1801: $paramHash = Apache::lonhelper::getParamHash(); 1802: $paramHash->{'variable'} = 'PRINT_TYPE'; 1803: $helper->declareVar('PRINT_TYPE'); 1804: $paramHash->{CHOICES} = $printChoices; 1805: Apache::lonhelper::choices->new(); 1806: 1807: my $startedTable = 0; # have we started an HTML table yet? (need 1808: # to close it later) 1809: 1810: if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or 1811: ($helper->{VARS}->{'construction'} eq '1')) { 1812: addMessage("<hr width='33%' /><table><tr><td align='right'>Print: </td><td>"); 1813: $paramHash = Apache::lonhelper::getParamHash(); 1814: $paramHash->{'variable'} = 'ANSWER_TYPE'; 1815: $helper->declareVar('ANSWER_TYPE'); 1816: $paramHash->{CHOICES} = [ 1817: ['Without Answers', 'yes'], 1818: ['With Answers', 'no'], 1819: ['Only Answers', 'only'], 1820: ['As Exam Problem', 'exam'] 1821: ]; 1822: Apache::lonhelper::dropdown->new(); 1823: addMessage("</td></tr>"); 1824: $startedTable = 1; 1825: } 1826: 1827: if ($ENV{'request.role.adv'}) { 1828: if (!$startedTable) { 1829: addMessage("<hr width='33%' /><table><tr><td align='right'>LaTeX mode: </td><td>"); 1830: $startedTable = 1; 1831: } else { 1832: addMessage("<tr><td align='right'>LaTeX mode: </td><td>"); 1833: } 1834: $paramHash = Apache::lonhelper::getParamHash(); 1835: $paramHash->{'variable'} = 'LATEX_TYPE'; 1836: $helper->declareVar('LATEX_TYPE'); 1837: if ($helper->{VARS}->{'construction'} eq '1') { 1838: $paramHash->{CHOICES} = [ 1839: ['standard LaTeX mode', 'standard'], 1840: ['LaTeX batchmode', 'batchmode'], ]; 1841: } else { 1842: $paramHash->{CHOICES} = [ 1843: ['LaTeX batchmode', 'batchmode'], 1844: ['standard LaTeX mode', 'standard'] ]; 1845: } 1846: Apache::lonhelper::dropdown->new(); 1847: 1848: addMessage("</td></tr><tr><td align='right'>Print Table of Contents: </td><td>"); 1849: $paramHash = Apache::lonhelper::getParamHash(); 1850: $paramHash->{'variable'} = 'TABLE_CONTENTS'; 1851: $helper->declareVar('TABLE_CONTENTS'); 1852: $paramHash->{CHOICES} = [ 1853: ['No', 'no'], 1854: ['Yes', 'yes'] ]; 1855: Apache::lonhelper::dropdown->new(); 1856: addMessage("</td></tr>"); 1857: 1858: if (not $helper->{VARS}->{'construction'}) { 1859: addMessage("<tr><td align='right'>Print Index: </td><td>"); 1860: $paramHash = Apache::lonhelper::getParamHash(); 1861: $paramHash->{'variable'} = 'TABLE_INDEX'; 1862: $helper->declareVar('TABLE_INDEX'); 1863: $paramHash->{CHOICES} = [ 1864: ['No', 'no'], 1865: ['Yes', 'yes'] ]; 1866: Apache::lonhelper::dropdown->new(); 1867: addMessage("</td></tr>"); 1868: addMessage("<tr><td align='right'>Print Discussions: </td><td>"); 1869: $paramHash = Apache::lonhelper::getParamHash(); 1870: $paramHash->{'variable'} = 'PRINT_DISCUSSIONS'; 1871: $helper->declareVar('PRINT_DISCUSSIONS'); 1872: $paramHash->{CHOICES} = [ 1873: ['No', 'no'], 1874: ['Yes', 'yes'] ]; 1875: Apache::lonhelper::dropdown->new(); 1876: addMessage("</td></tr>"); 1877: } 1878: 1879: if ($helper->{'VARS'}->{'construction'}) { 1880: my $stylevalue=$ENV{'construct.style'}; 1881: my $xmlfrag .= <<"RNDSEED"; 1882: <message><tr><td align='right'>Use random seed: </td><td></message> 1883: <string variable="curseed" size="15" maxlength="15"> 1884: <defaultvalue> 1885: return $helper->{VARS}->{'curseed'}; 1886: </defaultvalue> 1887: </string> 1888: <message></td></tr><tr><td align="right">Use style file:</td><td></message> 1889: <message><input type="text" size="40" name="style_file_value" value="$stylevalue" />  <a href="javascript:openbrowser('helpform','style_file','sty')">Select style file</a> </td><td></message> 1890: <message></td></tr></message> 1891: RNDSEED 1892: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); 1893: $helper->{'VARS'}->{'style_file'}=$ENV{'form.style_file_value'}; 1894: } 1895: } 1896: 1897: 1898: 1899: 1900: if ($startedTable) { 1901: addMessage("</table>"); 1902: } 1903: 1904: Apache::lonprintout::page_format_state->new("FORMAT"); 1905: 1906: # Generate the PAGESIZE state which will offer the user the margin 1907: # choices if they select one column 1908: Apache::lonhelper::state->new("PAGESIZE", "Set Margins"); 1909: Apache::lonprintout::page_size_state->new('pagesize', 'FORMAT', 'FINAL'); 1910: 1911: 1912: $helper->process(); 1913: 1914: # MANUAL BAILOUT CONDITION: 1915: # If we're in the "final" state, bailout and return to handler 1916: if ($helper->{STATE} eq 'FINAL') { 1917: return $helper; 1918: } 1919: 1920: $r->print($helper->display()); 1921: 1922: Apache::lonhelper::unregisterHelperTags(); 1923: 1924: untie %hash; 1925: 1926: return OK; 1927: } 1928: 1929: 1930: 1; 1931: 1932: package Apache::lonprintout::page_format_state; 1933: 1934: =pod 1935: 1936: =head1 Helper element: page_format_state 1937: 1938: See lonhelper.pm documentation for discussion of the helper framework. 1939: 1940: Apache::lonprintout::page_format_state is an element that gives the 1941: user an opportunity to select the page layout they wish to print 1942: with: Number of columns, portrait/landscape, and paper size. If you 1943: want to change the paper size choices, change the @paperSize array 1944: contents in this package. 1945: 1946: page_format_state is always directly invoked in lonprintout.pm, so there 1947: is no tag interface. You actually pass parameters to the constructor. 1948: 1949: =over 4 1950: 1951: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME. 1952: 1953: =back 1954: 1955: =cut 1956: 1957: use Apache::lonhelper; 1958: 1959: no strict; 1960: @ISA = ("Apache::lonhelper::element"); 1961: use strict; 1962: use Apache::lonlocal; 1963: 1964: my $maxColumns = 2; 1965: my @paperSize = ("Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]", 1966: "Ledger/Tabloid [11x17 in]", "Executive [7 1/2x10 in]", 1967: "A2 [420x594 mm]", "A3 [297x420 mm]", "A4 [210x297 mm]", 1968: "A5 [148x210 mm]", "A6 [105x148 mm]" ); 1969: 1970: # Tentative format: Orientation (L = Landscape, P = portrait) | Colnum | 1971: # Paper type 1972: 1973: sub new { 1974: my $self = Apache::lonhelper::element->new(); 1975: 1976: shift; 1977: 1978: $self->{'variable'} = shift; 1979: my $helper = Apache::lonhelper::getHelper(); 1980: $helper->declareVar($self->{'variable'}); 1981: bless($self); 1982: return $self; 1983: } 1984: 1985: sub render { 1986: my $self = shift; 1987: my $helper = Apache::lonhelper::getHelper(); 1988: my $result = ''; 1989: my $var = $self->{'variable'}; 1990: my $PageLayout=&mt('Page layout'); 1991: my $NumberOfColumns=&mt('Number of columns'); 1992: my $PaperType=&mt('Paper type'); 1993: $result .= <<STATEHTML; 1994: 1995: <hr width="33%" /> 1996: <table cellpadding="3"> 1997: <tr> 1998: <td align="center">$PageLayout</td> 1999: <td align="center">$NumberOfColumns</td> 2000: <td align="center">$PaperType</td> 2001: </tr> 2002: <tr> 2003: <td> 2004: <input type="radio" name="${var}.layout" value="L" /> Landscape 2005: <input type="radio" name="${var}.layout" value="P" checked='1' /> Portrait 2006: </td> 2007: <td align="center"> 2008: <select name="${var}.cols"> 2009: STATEHTML 2010: 2011: my $i; 2012: for ($i = 1; $i <= $maxColumns; $i++) { 2013: if ($i == 2) { 2014: $result .= "<option value='$i' selected>$i</option>\n"; 2015: } else { 2016: $result .= "<option value='$i'>$i</option>\n"; 2017: } 2018: } 2019: 2020: $result .= "</select></td><td>\n"; 2021: $result .= "<select name='${var}.paper'>\n"; 2022: 2023: my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'}); 2024: my $DefaultPaperSize=$parmhash{'default_paper_size'}; 2025: if ($DefaultPaperSize eq '') {$DefaultPaperSize='letter';} 2026: $i = 0; 2027: foreach (@paperSize) { 2028: if ($paperSize[$i]=~/$DefaultPaperSize/) { 2029: $result .= "<option selected value='$i'>" . $paperSize[$i] . "</option>\n"; 2030: } else { 2031: $result .= "<option value='$i'>" . $paperSize[$i] . "</option>\n"; 2032: } 2033: $i++; 2034: } 2035: 2036: $result .= "</select></td></tr></table>"; 2037: return $result; 2038: } 2039: 2040: sub postprocess { 2041: my $self = shift; 2042: 2043: my $var = $self->{'variable'}; 2044: my $helper = Apache::lonhelper->getHelper(); 2045: $helper->{VARS}->{$var} = 2046: $ENV{"form.$var.layout"} . '|' . $ENV{"form.$var.cols"} . '|' . 2047: $ENV{"form.$var.paper"}; 2048: return 1; 2049: } 2050: 2051: 1; 2052: 2053: package Apache::lonprintout::page_size_state; 2054: 2055: =pod 2056: 2057: =head1 Helper element: page_size_state 2058: 2059: See lonhelper.pm documentation for discussion of the helper framework. 2060: 2061: Apache::lonprintout::page_size_state is an element that gives the 2062: user the opportunity to further refine the page settings if they 2063: select a single-column page. 2064: 2065: page_size_state is always directly invoked in lonprintout.pm, so there 2066: is no tag interface. You actually pass parameters to the constructor. 2067: 2068: =over 4 2069: 2070: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME. 2071: 2072: =back 2073: 2074: =cut 2075: 2076: use Apache::lonhelper; 2077: 2078: no strict; 2079: @ISA = ("Apache::lonhelper::element"); 2080: use strict; 2081: 2082: 2083: 2084: sub new { 2085: my $self = Apache::lonhelper::element->new(); 2086: 2087: shift; # disturbs me (probably prevents subclassing) but works (drops 2088: # package descriptor)... - Jeremy 2089: 2090: $self->{'variable'} = shift; 2091: my $helper = Apache::lonhelper::getHelper(); 2092: $helper->declareVar($self->{'variable'}); 2093: 2094: # The variable name of the format element, so we can look into 2095: # $helper->{VARS} to figure out whether the columns are one or two 2096: $self->{'formatvar'} = shift; 2097: 2098: # The state to transition to after selection, or after discovering 2099: # the cols are not set to 1 2100: $self->{NEXTSTATE} = shift; 2101: bless($self); 2102: return $self; 2103: } 2104: 2105: sub render { 2106: my $self = shift; 2107: my $helper = Apache::lonhelper::getHelper(); 2108: my $result = ''; 2109: my $var = $self->{'variable'}; 2110: 2111: if (defined $self->{ERROR_MSG}) { 2112: $result .= ' ' . $self->{ERROR_MSG} . ' '; 2113: } 2114: 2115: $result .= <<ELEMENTHTML; 2116: 2117: How should the column be formatted? 2118: 2119: <table cellpadding='3'> 2120: <tr> 2121: <td align='right'>Width:</td> 2122: <td align='left'><input type='text' name='$var.width' value='18' size='4'></td> 2123: <td align='left'> 2124: <select name='$var.widthunit'> 2125: <option>cm</option><option>in</option> 2126: </select> 2127: </td> 2128: </tr> 2129: <tr> 2130: <td align='right'>Height:</td> 2131: <td align='left'><input type='text' name="$var.height" value="25.9" size='4'></td> 2132: <td align='left'> 2133: <select name='$var.heightunit'> 2134: <option>cm</option><option>in</option> 2135: </select> 2136: </td> 2137: </tr> 2138: <tr> 2139: <td align='right'>Left margin:</td> 2140: <td align='left'><input type='text' name='$var.lmargin' value='-1.5' size='4'></td> 2141: <td align='left'> 2142: <select name='$var.lmarginunit'> 2143: <option>cm</option><option>in</option> 2144: </select> 2145: </td> 2146: </tr> 2147: </table> 2148: 2149: Hint: Some instructors like to leave scratch space for the student by 2150: making the width much smaller than the width of the page. 2151: 2152: ELEMENTHTML 2153: 2154: return $result; 2155: } 2156: 2157: # If the user didn't select 1 column, skip this state. 2158: sub preprocess { 2159: my $self = shift; 2160: my $helper = Apache::lonhelper::getHelper(); 2161: 2162: my $format = $helper->{VARS}->{$self->{'formatvar'}}; 2163: if (substr($format, 2, 1) ne '1') { 2164: $helper->changeState($self->{NEXTSTATE}); 2165: } 2166: 2167: return 1; 2168: } 2169: 2170: sub postprocess { 2171: my $self = shift; 2172: 2173: my $var = $self->{'variable'}; 2174: my $helper = Apache::lonhelper->getHelper(); 2175: my $width = $helper->{VARS}->{$var .'.width'} = $ENV{"form.${var}.width"}; 2176: my $height = $helper->{VARS}->{$var .'.height'} = $ENV{"form.${var}.height"}; 2177: my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $ENV{"form.${var}.lmargin"}; 2178: $helper->{VARS}->{$var .'.widthunit'} = $ENV{"form.${var}.widthunit"}; 2179: $helper->{VARS}->{$var .'.heightunit'} = $ENV{"form.${var}.heightunit"}; 2180: $helper->{VARS}->{$var .'.lmarginunit'} = $ENV{"form.${var}.lmarginunit"}; 2181: 2182: my $error = ''; 2183: 2184: # /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed 2185: # by an optional period, followed by digits, ending the string 2186: 2187: if ($width !~ /^-?[0-9]+(\.[0-9]*)?$/) { 2188: $error .= "Invalid width; please type only a number. \n"; 2189: } 2190: if ($height !~ /^-?[0-9]+(\.[0-9]*)?$/) { 2191: $error .= "Invalid height; please type only a number. \n"; 2192: } 2193: if ($lmargin !~ /^-?[0-9]+(\.[0-9]*)?$/) { 2194: $error .= "Invalid left margin; please type only a number. \n"; 2195: } 2196: 2197: if (!$error) { 2198: Apache::lonhelper::getHelper()->changeState($self->{NEXTSTATE}); 2199: return 1; 2200: } else { 2201: $self->{ERROR_MSG} = $error; 2202: return 0; 2203: } 2204: } 2205: 2206: 2207: 2208: __END__ 2209: