File:
[LON-CAPA] /
loncom /
interface /
lonprintout.pm
Revision
1.289:
download - view:
text,
annotated -
select for diffs
Tue Apr 6 15:47:52 2004 UTC (20 years, 3 months ago) by
sakharuk
Branches:
MAIN
CVS tags:
HEAD
Added possibility to print separate problem from the construction space in the exam mode. You just have to pick up option 'Print As Exam Problem' from already existing menu. Working on the adjustion tables for bubbles printing. Need to do this due to changes in general table tag (more exactly due to changes in table environment associated with table tag).
1: # The LearningOnline Network
2: # Printout
3: #
4: # $Id: lonprintout.pm,v 1.289 2004/04/06 15:47:52 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 = '18 cm';
425: $textheight = '28 cm';
426: $oddoffset = '-0.57 in';
427: $evenoffset = '-0.57 in';
428: } elsif ($numberofcolumns == 2) {
429: $textwidth = '96 mm';
430: $textheight = '2 cm';
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) = @_;
476: my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin);
477: $assignment=&Apache::lonxml::latex_special_symbols($assignment,'header');
478: ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = &page_format($papersize,$layout,$numberofcolumns,$topmargin);
479: my $name = &get_name();
480: my $courseidinfo = &get_course();
481: if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
482: if ($layout eq 'album') {
483: my $topmargintoinsert = '';
484: if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';}
485: $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} /;
486: } elsif ($layout eq 'book') {
487: if ($choice ne 'All class print') {
488: $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}/;
489: } else {
490: $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 /;
491: }
492: }
493: if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;}
494: if ($indexlist eq 'yes') {
495: $text=~s/(\\begin{document})/\\makeindex $1/;
496: $text=~s/(\\end{document})/\\strut\\\\\\strut\\printindex $1/;
497: }
498: return $text;
499: }
500:
501:
502: sub page_cleanup {
503: my $result = shift;
504:
505: $result =~ m/\\end{document}(\d*)$/;
506: my $number_of_columns = $1;
507: my $insert = '{';
508: for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; }
509: $insert .= '}';
510: $result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g;
511: $result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g;
512: return $result,$number_of_columns;
513: }
514:
515:
516: sub details_for_menu {
517:
518: my $name_of_resourse = &Apache::lonnet::gettitle($ENV{'form.postdata'});
519: my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});
520: my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic);
521: $map=&Apache::lonnet::clutter($map);
522: my $name_of_sequence = &Apache::lonnet::gettitle($map);
523: if ($name_of_sequence =~ /^\s*$/) {
524: $map =~ m|([^/]+)$|;
525: $name_of_sequence = $1;
526: }
527: my $name_of_map = &Apache::lonnet::gettitle($ENV{'request.course.uri'});
528: if ($name_of_map =~ /^\s*$/) {
529: $ENV{'request.course.uri'} =~ m|([^/]+)$|;
530: $name_of_map = $1;
531: }
532: return ($name_of_resourse,$name_of_sequence,$name_of_map);
533:
534: }
535:
536:
537: sub latex_corrections {
538:
539: my ($number_of_columns,$result) = @_;
540:
541: # $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g;
542: $result =~ s/\$number_of_columns/$number_of_columns/g;
543: $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/;
544: $result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g;
545: $result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g;
546: #-- LaTeX corrections
547: my $first_comment = index($result,'<!--',0);
548: while ($first_comment != -1) {
549: my $end_comment = index($result,'-->',$first_comment);
550: substr($result,$first_comment,$end_comment-$first_comment+3) = '';
551: $first_comment = index($result,'<!--',$first_comment);
552: }
553: $result =~ s/^\s+$//gm; #remove empty lines
554: $result =~ s/(\s)(\s+)/$1/g; #removes more than one empty space
555: $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
556: $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g;
557: $result =~ s/{\\par }\s*\\\\/\\\\/gm;
558: $result =~ s/\\\\\s+\[/ \[/g;
559: $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
560: #conversion of html characters to LaTeX equivalents
561: if ($result =~ m/&(\w+|#\d+);/) {
562: $result = &character_chart($result);
563: }
564: $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;
565: $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;
566:
567: return $result;
568: }
569:
570:
571: sub index_table {
572: my $currentURL = shift;
573: my $insex_string='';
574: $currentURL=~s/\.([^\/+])$/\.$1\.meta/;
575: $insex_string=&Apache::lonnet::metadata($currentURL,'keywords');
576: return $insex_string;
577: }
578:
579:
580: sub IndexCreation {
581: my ($texversion,$currentURL)=@_;
582: my @key_words=split(/,/,&index_table($currentURL));
583: my $chunk='';
584: my $st=index $texversion,'\addcontentsline{toc}{subsection}{';
585: if ($st>0) {
586: for (my $i=0;$i<3;$i++) {$st=(index $texversion,'}',$st+1);}
587: $chunk=substr($texversion,0,$st+1);
588: substr($texversion,0,$st+1)=' ';
589: }
590: foreach my $key_word (@key_words) {
591: if ($key_word=~/\S+/) {
592: $texversion=~s/\b($key_word)\b/$1 \\index{$key_word} /i;
593: }
594: }
595: if ($st>0) {substr($texversion,0,1)=$chunk;}
596: return $texversion;
597: }
598:
599: sub print_latex_header {
600: my $mode=shift;
601: my $output='\documentclass[letterpaper]{article}';
602: if ($mode eq 'batchmode') {
603: $output.='\batchmode';
604: }
605: $output.='\newcommand{\keephidden}[1]{}\renewcommand{\deg}{$^{\circ}$}'.
606: '\usepackage{longtable}\usepackage{textcomp}\usepackage{makeidx}'.
607: '\usepackage[dvips]{graphicx}\usepackage{epsfig}\usepackage{calc}'.
608: '\newenvironment{choicelist}{\begin{list}{}{\setlength{\rightmargin}{0in}'.
609: '\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.05in}'.
610: '\setlength{\itemsep}{0.022in}\setlength{\parsep}{0in}'.
611: '\setlength{\belowdisplayskip}{0.04in}\setlength{\abovedisplayskip}{0.05in}'.
612: '\setlength{\abovedisplayshortskip}{-0.04in}'.
613: '\setlength{\belowdisplayshortskip}{0.04in}}}{\end{list}}'.
614: '\renewenvironment{theindex}{\begin{list}{}{{\vskip 1mm \noindent \large'.
615: '\textbf{Index}} \newline \setlength{\rightmargin}{0in}'.
616: '\setlength{\leftmargin}{0.13in}\setlength{\topsep}{0.01in}'.
617: '\setlength{\itemsep}{0.1in}\setlength{\parsep}{-0.02in}'.
618: '\setlength{\belowdisplayskip}{0.01in}\setlength{\abovedisplayskip}{0.01in}'.
619: '\setlength{\abovedisplayshortskip}{-0.04in}'.
620: '\setlength{\belowdisplayshortskip}{0.01in}}}{\end{list}}\begin{document}';
621: return $output;
622: }
623:
624: sub path_to_problem {
625: my ($urlp,$LaTeXwidth)=@_;
626: my $newurlp = '';
627: $LaTeXwidth=~s/\s*mm\s*$//;
628: my $HowMany = length($urlp)*2;
629: if ($HowMany > $LaTeXwidth) {
630: my @temporrary = split '/',$urlp;
631: my $HowManyNew = 0;
632: for (my $ii=0;$ii<=$#temporrary;$ii++) {
633: if ($temporrary[$ii] ne '') {
634: $HowManyNew += length($temporrary[$ii])*2;
635: if ($HowManyNew < $LaTeXwidth ) {
636: $newurlp .= '/'.$temporrary[$ii];
637: } else {
638: $HowManyNew = 0;
639: $newurlp .= '|\vskip -1 mm \noindent \verb|';
640: $ii--;
641: }
642: }
643: }
644: } else {
645: $newurlp=$urlp;
646: }
647: return '{\small\noindent\verb|'.$newurlp.'|\vskip 0 mm}';
648: }
649:
650: sub recalcto_mm {
651: my $textwidth=shift;
652: my $LaTeXwidth;
653: if ($textwidth=~/(\d+\.?\d*)\s*cm/) {
654: $LaTeXwidth = $1*10;
655: } elsif ($textwidth=~/(\d+\.?\d*)\s*mm/) {
656: $LaTeXwidth = $1;
657: } elsif ($textwidth=~/(\d+\.?\d*)\s*in/) {
658: $LaTeXwidth = $1*25.4;
659: }
660: $LaTeXwidth.=' mm';
661: return $LaTeXwidth;
662: }
663:
664: sub get_textwidth {
665: my ($helper,$LaTeXwidth)=@_;
666: my $textwidth=$LaTeXwidth;
667: if ($helper->{'VARS'}->{'pagesize.width'}=~/\d+/ &&
668: $helper->{'VARS'}->{'pagesize.widthunit'}=~/\w+/) {
669: $textwidth=&recalcto_mm($helper->{'VARS'}->{'pagesize.width'}.' '.
670: $helper->{'VARS'}->{'pagesize.widthunit'});
671: }
672: return $textwidth;
673: }
674:
675: sub output_data {
676: my ($r,$helper,$rparmhash) = @_;
677: my %parmhash = %$rparmhash;
678: my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');
679: $r->print(<<ENDPART);
680: <html>
681: <script type="text/javascript" language="Javascript" >
682: var editbrowser;
683: function openbrowser(formname,elementname,only,omit) {
684: var url = '/res/?';
685: if (editbrowser == null) {
686: url += 'launch=1&';
687: }
688: url += 'catalogmode=interactive&';
689: url += 'mode=parmset&';
690: url += 'form=' + formname + '&';
691: if (only != null) {
692: url += 'only=' + only + '&';
693: }
694: if (omit != null) {
695: url += 'omit=' + omit + '&';
696: }
697: url += 'element=' + elementname + '';
698: var title = 'Browser';
699: var options = 'scrollbars=1,resizable=1,menubar=0';
700: options += ',width=700,height=600';
701: editbrowser = open(url,title,options,'1');
702: editbrowser.focus();
703: }
704: </script>
705: <head>
706: <title>LON-CAPA output for printing</title>
707: </head>
708: $bodytag
709: Please stand by while processing your print request, this may take some time ...
710: ENDPART
711:
712: my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
713: my ($result,$selectionmade) = ('','');
714: my $number_of_columns = 1; #used only for pages to determine the width of the cell
715: my @temporary_array=split /\|/,$format_from_helper;
716: my ($laystyle,$numberofcolumns,$papersize)=@temporary_array;
717: if ($laystyle eq 'L') {
718: $laystyle='album';
719: } else {
720: $laystyle='book';
721: }
722: my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns);
723: my $assignment = $ENV{'form.assignment'};
724: my $LaTeXwidth=&recalcto_mm($textwidth);
725: my @print_array=();
726: my @student_names=();
727:
728: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') {
729: #-- single document - problem, page, html, xml, ...
730: my $currentURL;
731: if ($helper->{'VARS'}->{'construction'} ne '1') {
732: #prints published resource
733: $currentURL=$helper->{'VARS'}->{'postdata'};
734: } else {
735: #prints resource from the construction space
736: $currentURL='/'.$helper->{'VARS'}->{'filename'};
737: if ($currentURL=~/([^?]+)/) {$currentURL=$1;}
738: }
739: $selectionmade = 1;
740: if ($currentURL=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
741: my $rndseed=time;
742: my $texversion='';
743: if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
744: my %moreenv;
745: $moreenv{'request.filename'}=$currentURL;
746: if ($helper->{'VARS'}->{'style_file'}=~/\w/) {
747: $moreenv{'construct.style'}=$helper->{'VARS'}->{'style_file'};
748: my $dom = $ENV{'user.domain'};
749: my $user = $ENV{'user.name'};
750: my $put_result = &Apache::lonnet::put('environment',{'construct.style'=>$helper->{'VARS'}->{'style_file'}},$dom,$user);
751: }
752: my %form;
753: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'exam') {$form{'problemtype'}='exam';}
754: $form{'grade_target'}='tex';
755: $form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
756: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
757: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
758: if ($helper->{'VARS'}->{'curseed'}) {
759: $rndseed=$helper->{'VARS'}->{'curseed'};
760: }
761: $form{'rndseed'}=$rndseed;
762: &Apache::lonnet::appenv(%moreenv);
763: &Apache::lonnet::delenv('form.counter');
764: &Apache::lonxml::init_counter();
765: $texversion.=&Apache::lonnet::ssi($currentURL,%form);
766: &Apache::lonnet::delenv('form.counter');
767: &Apache::lonnet::delenv('request.filename');
768: }
769: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
770: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
771: my %form;
772: $form{'grade_target'}='answer';
773: $form{'answer_output_mode'}='tex';
774: $form{'rndseed'}=$rndseed;
775: my $answer=&Apache::lonnet::ssi($currentURL,%form);
776: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
777: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
778: } else {
779: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
780: if ($helper->{'VARS'}->{'construction'} ne '1') {
781: $texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm ';
782: $texversion.=&path_to_problem ($currentURL,$LaTeXwidth);
783: } else {
784: $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
785: my $URLpath=$currentURL;
786: $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
787: $texversion.=&path_to_problem ($URLpath,$LaTeXwidth);
788: }
789: $texversion.='\vskip 1 mm '.$answer.'\end{document}';
790: }
791: }
792: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
793: $texversion=&IndexCreation($texversion,$currentURL);
794: }
795: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
796: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$currentURL| \\strut\\\\\\strut /;
797:
798: }
799: $result .= $texversion;
800: if ($currentURL=~m/\.page\s*$/) {
801: ($result,$number_of_columns) = &page_cleanup($result);
802: }
803: } elsif ($currentURL=~/\.sequence$/ && $helper->{'VARS'}->{'construction'} eq '1') {
804: #printing content of sequence from the construction space
805: my $flag_latex_header_remove = 'NO';
806: my $rndseed=time;
807: if ($helper->{'VARS'}->{'curseed'}) {
808: $rndseed=$helper->{'VARS'}->{'curseed'};
809: }
810: $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
811: my $errtext=&Apache::lonratedt::mapread($currentURL);
812: for (my $member=0;$member<=$#Apache::lonratedt::order;$member++) {
813: $Apache::lonratedt::resources[$Apache::lonratedt::order[$member]]=~/^([^:]*):([^:]*):/;
814: my $urlp=$2;
815: if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) {
816: my $texversion='';
817: if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
818: my %form;
819: $form{'grade_target'}='tex';
820: $form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
821: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
822: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
823: $form{'rndseed'}=$rndseed;
824: $texversion=&Apache::lonnet::ssi($urlp,%form);
825: }
826: if((($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
827: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) &&
828: ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page)$/)) {
829: my %form;
830: $form{'grade_target'}='answer';
831: $form{'answer_output_mode'}='tex';
832: $form{'rndseed'}=$rndseed;
833: if ($urlp=~/\/res\//) {$ENV{'request.state'}='published';}
834: my $answer=&Apache::lonnet::ssi($urlp,%form);
835: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
836: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
837: } else {
838: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
839: $texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'}).'}\vskip 0 mm ';
840: $texversion.=&path_to_problem ($currentURL,$LaTeXwidth);
841: $texversion.='\vskip 1 mm '.$answer.'\end{document}';
842: }
843: }
844: if ($flag_latex_header_remove ne 'NO') {
845: $texversion = &latex_header_footer_remove($texversion);
846: } else {
847: $texversion =~ s/\\end{document}//;
848: }
849: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
850: $texversion=&IndexCreation($texversion,$urlp);
851: }
852: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URpL'} eq 'yes') {
853: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /;
854: }
855: $result.=$texversion;
856: $flag_latex_header_remove = 'YES';
857: } elsif ($urlp=~/\.(sequence|page)$/) {
858: $result.='\strut\newline\noindent Sequence/page '.$urlp.'\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent ';
859: }
860: }
861: if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}
862: $result .= '\end{document}';
863: } elsif ($currentURL=~/\/smppg$/) {
864: my %form;
865: $form{'grade_target'}='tex';
866: $form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
867: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
868: my $texversion=&Apache::lonnet::ssi($currentURL,%form);
869: $result .= $texversion;
870: } else {
871: $result.='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: ';
872: if ($currentURL=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) {
873: $result.=$1;
874: } elsif ($currentURL=~/\/ext\//) {
875: $result.=' \strut \\\\ THIS IS EXTERNAL RESOURCE WITH URL \strut \\\\ '.$currentURL.' ';
876: } else {
877: $result.=$currentURL;
878: }
879: $result.=' \end{document}'
880: }
881: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or
882: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or
883: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') or
884: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences')) {
885: #-- produce an output string
886: my %form=();
887: $form{'grade_target'}='tex';
888: $form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
889: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
890: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
891: my $flag_latex_header_remove = 'NO';
892: my $flag_page_in_sequence = 'NO';
893: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
894: my $prevassignment='';
895: &Apache::lonnet::delenv('form.counter');
896: &Apache::lonxml::init_counter();
897: for (my $i=0;$i<=$#master_seq;$i++) {
898: my (undef,undef,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
899: $urlp=&Apache::lonnet::clutter($urlp);
900: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') {
901: $selectionmade = 2;
902: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') {
903: $selectionmade = 3;
904: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') {
905: $selectionmade = 4;
906: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences') {
907: $selectionmade = 7;
908: }
909: $form{'symb'}=$master_seq[$i];
910: my ($sequence)=&Apache::lonnet::decode_symb($master_seq[$i]);
911: my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #tittle of the assignment which contains this problem
912: if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;}
913: if ($i==0) {$prevassignment=$assignment;}
914: #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
915: my $texversion.=&Apache::lonnet::ssi($urlp,%form);
916: if ($urlp=~/\.page$/) {
917: ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
918: if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}
919: $texversion =~ s/\\end{document}\d*/\\end{document}/;
920: $flag_page_in_sequence = 'YES';
921: }
922: my $lonidsdir=$r->dir_config('lonIDsDir');
923: my $envfile=$ENV{'user.environment'};
924: $envfile=~/\/([^\/]+)\.id$/;
925: $envfile=$1;
926: &Apache::lonnet::transfer_profile_to_env($lonidsdir,$envfile);
927: my $current_counter=$ENV{'form.counter'};
928: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
929: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
930: my %form;
931: $form{'grade_target'}='answer';
932: $form{'answer_output_mode'}='tex';
933: my $answer=&Apache::lonnet::ssi($urlp,%form);
934: &Apache::lonnet::appenv(('form.counter' => $current_counter));
935: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
936: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
937: } else {
938: if ($urlp=~/\.(problem|exam|quiz|library)$/) {
939: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
940: $texversion.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($urlp).'}\vskip 0 mm ';
941: $texversion.=&path_to_problem ($urlp,$LaTeXwidth);
942: $texversion.='\vskip 1 mm '.$answer;
943: } else {
944: $texversion='';
945: }
946: }
947: }
948: if ($flag_latex_header_remove ne 'NO') {
949: $texversion = &latex_header_footer_remove($texversion);
950: } else {
951: $texversion =~ s/\\end{document}//;
952: }
953: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
954: $texversion=&IndexCreation($texversion,$urlp);
955: }
956: if (($selectionmade == 4) and ($assignment ne $prevassignment)) {
957: my $name = &get_name();
958: my $courseidinfo = &get_course();
959: if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
960: $prevassignment=$assignment;
961: $result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$name.'}}'.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}} \vskip -5 mm ';
962: }
963: $result .= $texversion;
964: $flag_latex_header_remove = 'YES';
965: }
966: &Apache::lonnet::delenv('form.counter');
967: if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}
968: $result .= '\end{document}';
969: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') ||
970: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){
971: #-- prints assignments for whole class or for selected students
972: my $type;
973: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') {
974: $selectionmade=5;
975: $type='problems';
976: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students') {
977: $selectionmade=8;
978: $type='resources';
979: }
980: my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'};
981: if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq '0' ||
982: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'all' ) {
983: $helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1;
984: }
985: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
986: #loop over students
987: my $flag_latex_header_remove = 'NO';
988: my %moreenv;
989: $moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
990: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1);
991: my $student_counter=-1;
992: foreach my $person (@students) {
993: $student_counter++;
994: my $i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});
995: my ($output,$fullname)=&print_resources($r,$helper,$person,$type,\%moreenv,\@master_seq,$flag_latex_header_remove);
996: $print_array[$i].=$output;
997: $student_names[$i].=$person.':'.$fullname.'_END_';
998: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,&mt('last student').' '.$fullname);
999: $flag_latex_header_remove = 'YES';
1000: }
1001: &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
1002: $result .= $print_array[0].' \end{document}';
1003: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') ||
1004: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) {
1005: my $num_todo=$helper->{'VARS'}->{'NUMBER_TO_PRINT_TOTAL'};
1006: my $code_name=$helper->{'VARS'}->{'ANON_CODE_STORAGE_NAME'};
1007: if ($helper->{'VARS'}->{'REMEBER_ANON_CODES'} != 1) {
1008: $code_name=undef;
1009: }
1010: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
1011: my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'});
1012: my $flag_latex_header_remove = 'NO';
1013: my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));
1014: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline');
1015: my $seed=time+($$<<16)+($$);
1016: my %allcodes;
1017: for (my $i=0;$i<$num_todo;$i++) {
1018: $moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,'6');
1019: my ($output,$fullname)=
1020: &print_resources($r,$helper,'anonymous',$type,\%moreenv,
1021: \@master_seq,$flag_latex_header_remove);
1022: $print_array[$i].=$output;
1023: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
1024: &mt('last assignment').' '.$fullname);
1025: $flag_latex_header_remove = 'YES';
1026: }
1027: if ($code_name) {
1028: my $cdom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
1029: my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
1030: &Apache::lonnet::put('CODEs',
1031: { $code_name => join(',',keys(%allcodes)) },
1032: $cdom,$cnum);
1033: }
1034: &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
1035: $result .= $print_array[0].' \end{document}';
1036: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') {
1037: #prints selected problems from the subdirectory
1038: $selectionmade = 6;
1039: my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'};
1040: @list_of_files=sort @list_of_files;
1041: my $flag_latex_header_remove = 'NO';
1042: my $rndseed=time;
1043: if ($helper->{'VARS'}->{'curseed'}) {
1044: $rndseed=$helper->{'VARS'}->{'curseed'};
1045: }
1046: for (my $i=0;$i<=$#list_of_files;$i++) {
1047: my $urlp = $list_of_files[$i];
1048: $urlp=~s|//|/|;
1049: if ($urlp=~/\//) {
1050: my %form;
1051: $form{'grade_target'}='tex';
1052: $form{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
1053: $form{'rndseed'}=$rndseed;
1054: if ($urlp =~ m|/home/([^/]+)/public_html|) {
1055: $urlp =~ s|/home/([^/]*)/public_html|/~$1|;
1056: } else {
1057: $urlp =~ s|^/home/httpd/html||;
1058: }
1059: my $texversion=&Apache::lonnet::ssi($urlp,%form);
1060: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
1061: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1062: my %form;
1063: $form{'grade_target'}='answer';
1064: $form{'answer_output_mode'}='tex';
1065: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1066: $form{'rndseed'}=$rndseed;
1067: my $answer=&Apache::lonnet::ssi($urlp,%form);
1068: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
1069: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
1070: } else {
1071: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1072: if ($helper->{'VARS'}->{'construction'} ne '1') {
1073: $texversion.='\vskip 0 mm \noindent ';
1074: $texversion.=&path_to_problem ($urlp,$LaTeXwidth);
1075: } else {
1076: $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
1077: my $URLpath=$urlp;
1078: $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
1079: $texversion.=&path_to_problem ($URLpath,$LaTeXwidth);
1080: }
1081: $texversion.='\vskip 1 mm '.$answer.'\end{document}';
1082: }
1083: }
1084: #this chunck is responsible for printing the path to problem
1085: my $newurlp=$urlp;
1086: if ($newurlp=~/~/) {$newurlp=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;}
1087: $newurlp=&path_to_problem($newurlp,$LaTeXwidth);
1088: $texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 $newurlp/;
1089: if ($flag_latex_header_remove ne 'NO') {
1090: $texversion = &latex_header_footer_remove($texversion);
1091: } else {
1092: $texversion =~ s/\\end{document}//;
1093: }
1094: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
1095: $texversion=&IndexCreation($texversion,$urlp);
1096: }
1097: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
1098: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /;
1099:
1100: }
1101: $result .= $texversion;
1102: }
1103: $flag_latex_header_remove = 'YES';
1104: }
1105: if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\typeout)/ RANDOM SEED IS $rndseed $1/;}
1106: $result .= '\end{document}';
1107: }
1108: #-------------------------------------------------------- corrections for the different page formats
1109: $result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'},$helper->{'VARS'}->{'TABLE_CONTENTS'},$helper->{'VARS'}->{'TABLE_INDEX'});
1110: $result = &latex_corrections($number_of_columns,$result);
1111: for (my $i=1;$i<=$#print_array;$i++) {$print_array[$i] = &latex_corrections($number_of_columns,$print_array[$i]);}
1112: #changes page's parameters for the one column output
1113: if ($numberofcolumns == 1) {
1114: $result =~ s/\\textwidth\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /;
1115: $result =~ s/\\textheight\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /;
1116: $result =~ s/\\evensidemargin\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
1117: $result =~ s/\\oddsidemargin\s*=\s*\d*\.?\d*\s*(cm|mm|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
1118: }
1119: #-- writing .tex file in prtspool
1120: my $temp_file;
1121: my $identifier = &Apache::loncommon::get_cgi_id();
1122: my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".$identifier.".tex";
1123: if (!($#print_array>0)) {
1124: unless ($temp_file = Apache::File->new('>'.$filename)) {
1125: $r->log_error("Couldn't open $filename for output $!");
1126: return SERVER_ERROR;
1127: }
1128: print $temp_file $result;
1129: my $begin=index($result,'\begin{document}',0);
1130: my $inc=substr($result,0,$begin+16);
1131: } else {
1132: my $begin=index($result,'\begin{document}',0);
1133: my $inc=substr($result,0,$begin+16);
1134: for (my $i=0;$i<=$#print_array;$i++) {
1135: if ($i==0) {
1136: $print_array[$i]=$result;
1137: } else {
1138: my $anobegin=index($print_array[$i],'\setcounter{page}',0);
1139: substr($print_array[$i],0,$anobegin)='';
1140: $print_array[$i]=$inc.$print_array[$i].'\end{document}';
1141: }
1142: my $temp_file;
1143: my $newfilename=$filename;
1144: my $num=$i+1;
1145: $newfilename =~s/\.tex$/_$num\.tex/;
1146: unless ($temp_file = Apache::File->new('>'.$newfilename)) {
1147: $r->log_error("Couldn't open $newfilename for output $!");
1148: return SERVER_ERROR;
1149: }
1150: print $temp_file $print_array[$i];
1151: }
1152: }
1153: my $student_names='';
1154: if ($#print_array>0) {
1155: for (my $i=0;$i<=$#print_array;$i++) {
1156: $student_names.=$student_names[$i].'_ENDPERSON_';
1157: }
1158: } else {
1159: if ($#student_names>-1) {
1160: $student_names=$student_names[0].'_ENDPERSON_';
1161: } else {
1162: my $fullname = &get_name($ENV{'user.name'},$ENV{'user.domain'});
1163: $student_names=join(':',$ENV{'user.name'},$ENV{'user.domain'},
1164: $ENV{'request.course.sec'},$fullname).
1165: '_ENDPERSON_'.'_END_';
1166: }
1167: }
1168:
1169: my $URLback=''; #link to original document
1170: if ($helper->{'VARS'}->{'construction'} ne '1') {
1171: #prints published resource
1172: $URLback=$helper->{'VARS'}->{'postdata'};
1173: } else {
1174: #prints resource from the construction space
1175: $URLback='/'.$helper->{'VARS'}->{'filename'};
1176: if ($URLback=~/([^?]+)/) {
1177: $URLback=$1;
1178: $URLback=~s|^/~|/priv/|;
1179: }
1180: }
1181:
1182: &Apache::lonnet::appenv('cgi.'.$identifier.'.file' => $filename,
1183: 'cgi.'.$identifier.'.layout' => $laystyle,
1184: 'cgi.'.$identifier.'.numcol' => $numberofcolumns,
1185: 'cgi.'.$identifier.'.selection' => $selectionmade,
1186: 'cgi.'.$identifier.'tableofcontents' => $helper->{'VARS'}->{'TABLE_CONTENTS'},
1187: 'cgi.'.$identifier.'tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'},
1188: 'cgi.'.$identifier.'role' => $ENV{'request.role.adv'},
1189: 'cgi.'.$identifier.'numberoffiles' => $#print_array,
1190: 'cgi.'.$identifier.'studentnames' => $student_names,
1191: 'cgi.'.$identifier.'backref' => $URLback,);
1192:
1193: $r->print(<<FINALEND);
1194: <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier" />
1195: </body>
1196: </html>
1197: FINALEND
1198: }
1199:
1200: sub num_to_letters {
1201: my ($num) = @_;
1202: my @nums= split('',$num);
1203: my @num_to_let=('A'..'Z');
1204: my $word;
1205: foreach my $digit (@nums) { $word.=$num_to_let[$digit]; }
1206: return $word;
1207: }
1208:
1209: sub get_CODE {
1210: my ($all_codes,$num,$seed,$size)=@_;
1211: my $max='1'.'0'x$size;
1212: srand($seed);
1213: my $newcode;
1214: while(1) {
1215: $newcode=int(rand($max));
1216: if (!exists($$all_codes{$newcode})) {
1217: $$all_codes{$newcode}=1;
1218: return &num_to_letters($newcode);
1219: }
1220: }
1221: }
1222:
1223: sub print_resources {
1224: my ($r,$helper,$person,$type,$moreenv,$master_seq,$remove_latex_header)=@_;
1225: my $current_output = '';
1226: my ($username,$userdomain,$usersection) = split /:/,$person;
1227: my $fullname = &get_name($username,$userdomain);
1228: if ($person =~ 'anon') {
1229: $fullname = "CODE - ".$moreenv->{'CODE'};
1230: }
1231: #goes through all resources, checks if they are available for
1232: #current student, and produces output
1233: &Apache::lonnet::delenv('form.counter');
1234: &Apache::lonxml::init_counter();
1235: foreach my $curresline (@{$master_seq}) {
1236: if ( !($type eq 'problems' &&
1237: ($curresline!~ m/\.(problem|exam|quiz|assess|survey|form|library)$/)) ) {
1238: my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline);
1239: if (&Apache::lonnet::allowed('bre',$res_url)) {
1240: my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,$ENV{'request.course.id'},'tex',$moreenv);
1241: my $lonidsdir=$r->dir_config('lonIDsDir');
1242: my $envfile=$ENV{'user.environment'};
1243: $envfile=~/\/([^\/]+)\.id$/;
1244: $envfile=$1;
1245: &Apache::lonnet::transfer_profile_to_env($lonidsdir,$envfile);
1246: my $current_counter=$ENV{'form.counter'};
1247: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
1248: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1249: my %form;
1250: $form{'answer_output_mode'}='tex';
1251: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1252: my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%form);
1253: &Apache::lonnet::appenv(('form.counter' => $current_counter));
1254: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
1255: $rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;
1256: } else {
1257: $rendered=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1258: $rendered.='\vskip 0 mm \noindent\textbf{'.&Apache::lonnet::gettitle($curresline).'}\vskip 0 mm ';
1259: $rendered.=&path_to_problem ($curresline,$LaTeXwidth);
1260: $rendered.='\vskip 1 mm '.$ansrendered;
1261: }
1262: }
1263: if ($remove_latex_header eq 'YES') {
1264: $rendered = &latex_header_footer_remove($rendered);
1265: } else {
1266: $rendered =~ s/\\end{document}//;
1267: }
1268: $current_output .= $rendered;
1269: }
1270: $remove_latex_header = 'YES';
1271: }
1272: }
1273: my $courseidinfo = &get_course();
1274: if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
1275: if ($usersection ne '') {$courseidinfo.=' - Sec. '.$usersection}
1276: my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
1277: if ($current_output=~/\\documentclass/) {
1278: $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}}$courseidinfo \\hfill \\thepage \\\\ \\textit{$currentassignment}}\\vskip 3 mm /;
1279: } else {
1280: my $blankpages = '';
1281: for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blankpages.='\clearpage\strut\clearpage';}
1282: $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;
1283: }
1284: return ($current_output,$fullname);
1285:
1286: }
1287:
1288: sub handler {
1289:
1290: my $r = shift;
1291: my $helper;
1292:
1293: # my $loaderror=&Apache::lonnet::overloaderror($r);
1294: # if ($loaderror) { return $loaderror; }
1295: # $loaderror=
1296: # &Apache::lonnet::overloaderror($r,
1297: # $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
1298: # if ($loaderror) { return $loaderror; }
1299:
1300: my $result = printHelper($r);
1301: if (!ref($result)) {
1302: return $result;
1303: }
1304: $helper = $result;
1305:
1306: # my $key;
1307: # foreach $key (keys %{$helper->{'VARS'}}) {
1308: # $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />');
1309: # }
1310: # foreach $key (keys %ENV) {
1311: # $r->print(' '.$key.'->'.$ENV{$key}.'<-<br />');
1312: # }
1313: # return OK;
1314:
1315: my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});
1316:
1317: # my $key;
1318: # foreach $key (keys %parmhash) {
1319: # $r->print(' '.$key.'->'.$parmhash{$key}.'<-<br />');
1320: # }
1321: # return OK;
1322:
1323: &output_data($r,$helper,\%parmhash);
1324: return OK;
1325: }
1326:
1327: use Apache::lonhelper;
1328:
1329: sub addMessage {
1330: my $text = shift;
1331: my $paramHash = Apache::lonhelper::getParamHash();
1332: $paramHash->{MESSAGE_TEXT} = $text;
1333: Apache::lonhelper::message->new();
1334: }
1335:
1336: use Data::Dumper;
1337:
1338: sub printHelper {
1339: my $r = shift;
1340:
1341: if ($ENV{'request.course.id'}) {
1342: my $fn=$ENV{'request.course.fn'};
1343: tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640);
1344: }
1345:
1346: if ($r->header_only) {
1347: if ($ENV{'browser.mathml'}) {
1348: &Apache::loncommon::content_type($r,'text/xml');
1349: } else {
1350: &Apache::loncommon::content_type($r,'text/html');
1351: }
1352: $r->send_http_header;
1353: return OK;
1354: }
1355:
1356: # Send header, nocache
1357: if ($ENV{'browser.mathml'}) {
1358: &Apache::loncommon::content_type($r,'text/xml');
1359: } else {
1360: &Apache::loncommon::content_type($r,'text/html');
1361: }
1362: &Apache::loncommon::no_cache($r);
1363: $r->send_http_header;
1364: $r->rflush();
1365:
1366: # Unfortunately, this helper is so complicated we have to
1367: # write it by hand
1368:
1369: Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
1370:
1371: my $helper = Apache::lonhelper::helper->new("Printing Helper");
1372: $helper->declareVar('symb');
1373: $helper->declareVar('postdata');
1374: $helper->declareVar('curseed');
1375: $helper->declareVar('filename');
1376: $helper->declareVar('construction');
1377: $helper->declareVar('assignment');
1378: $helper->declareVar('style_file');
1379:
1380: # This will persistently load in the data we want from the
1381: # very first screen.
1382: # Detect whether we're coming from construction space
1383: if ($ENV{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) {
1384: $helper->{VARS}->{'filename'} = "~$1/$2";
1385: $helper->{VARS}->{'construction'} = 1;
1386: } else {
1387: if ($ENV{'form.postdata'}) {
1388: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($ENV{'form.postdata'});
1389: }
1390: if ($ENV{'form.symb'}) {
1391: $helper->{VARS}->{'symb'} = $ENV{'form.symb'};
1392: }
1393: if ($ENV{'form.url'}) {
1394: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
1395: }
1396: }
1397:
1398: if ($ENV{'form.symb'}) {
1399: $helper->{VARS}->{'symb'} = $ENV{'form.symb'};
1400: }
1401: if ($ENV{'form.url'}) {
1402: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
1403:
1404: }
1405:
1406: my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu;
1407: if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}
1408:
1409:
1410: # Extract map
1411: my $symb = $helper->{VARS}->{'symb'};
1412: my ($map, $id, $url);
1413: my $subdir;
1414:
1415: # Get the resource name from construction space
1416: if ($helper->{VARS}->{'construction'}) {
1417: $resourceTitle = substr($helper->{VARS}->{'filename'},
1418: rindex($helper->{VARS}->{'filename'}, '/')+1);
1419: $subdir = substr($helper->{VARS}->{'filename'},
1420: 0, rindex($helper->{VARS}->{'filename'}, '/') + 1);
1421: } else {
1422: ($map, $id, $url) = &Apache::lonnet::decode_symb($symb);
1423: $helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url);
1424:
1425: if (!$resourceTitle) { # if the resource doesn't have a title, use the filename
1426: my $postdata = $helper->{VARS}->{'postdata'};
1427: $resourceTitle = substr($postdata, rindex($postdata, '/') + 1);
1428: }
1429: $subdir = &Apache::lonnet::filelocation("", $url);
1430: }
1431: if (!$helper->{VARS}->{'curseed'} && $ENV{'form.curseed'}) {
1432: $helper->{VARS}->{'curseed'}=$ENV{'form.curseed'};
1433: }
1434:
1435: my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();
1436: my $userPriviledged = ($ENV{'request.role'}=~m/^cc\./ or
1437: $ENV{'request.role'}=~m/^in\./ or
1438: $ENV{'request.role'}=~m/^ta\./);
1439:
1440: Apache::lonhelper::registerHelperTags();
1441:
1442: # "Delete everything after the last slash."
1443: $subdir =~ s|/[^/]+$||;
1444: if (not $helper->{VARS}->{'construction'}) {
1445: $subdir='/home/httpd/html/res/'.$subdir;
1446: }
1447: # "Remove all duplicate slashes."
1448: $subdir =~ s|/+|/|g;
1449:
1450: # What can be printed is a very dynamic decision based on
1451: # lots of factors. So we need to dynamically build this list.
1452: # To prevent security leaks, states are only added to the wizard
1453: # if they can be reached, which ensures manipulating the form input
1454: # won't allow anyone to reach states they shouldn't have permission
1455: # to reach.
1456:
1457: # printChoices is tracking the kind of printing the user can
1458: # do, and will be used in a choices construction later.
1459: # In the meantime we will be adding states and elements to
1460: # the helper by hand.
1461: my $printChoices = [];
1462: my $paramHash;
1463:
1464: if ($resourceTitle) {
1465: push @{$printChoices}, ["<b><i>$resourceTitle</i></b> (what you just saw on the screen)", 'current_document', 'PAGESIZE'];
1466: }
1467:
1468: # $r->print($helper->{VARS}->{'postdata'});
1469:
1470: # Useful filter strings
1471: my $isProblem = '($res->is_problem()||$res->contains_problem) ';
1472: $isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden;
1473: my $isProblemOrMap = '$res->is_problem() || $res->contains_problem() || $res->is_sequence()';
1474: my $isNotMap = '!$res->is_sequence()';
1475: $isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;
1476: my $isMap = '$res->is_map()';
1477: my $symbFilter = '$res->symb()';
1478: my $urlValue = '$res->src()';
1479:
1480: $helper->declareVar('SEQUENCE');
1481:
1482: # Useful for debugging: Dump the help vars
1483: #$r->print(Dumper($helper->{VARS}));
1484: #$r->print($map);
1485:
1486: # If we're in a sequence...
1487: if (($helper->{'VARS'}->{'construction'} ne '1') &&
1488: $helper->{VARS}->{'postdata'} &&
1489: $helper->{VARS}->{'assignment'}) {
1490: # Allow problems from sequence
1491: push @{$printChoices}, ["<b>Problems</b> in <b><i>$sequenceTitle</i></b>", 'map_problems', 'CHOOSE_PROBLEMS'];
1492: # Allow all resources from sequence
1493: push @{$printChoices}, ["<b>Resources</b> in <b><i>$sequenceTitle</i></b>", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML'];
1494:
1495: my $helperFragment = <<HELPERFRAGMENT;
1496: <state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print">
1497: <message>(mark them then click "next" button) <br /></message>
1498: <resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"
1499: closeallpages="1">
1500: <nextstate>PAGESIZE</nextstate>
1501: <filterfunc>return $isProblem;</filterfunc>
1502: <mapurl>$map</mapurl>
1503: <valuefunc>return $symbFilter;</valuefunc>
1504: </resource>
1505: </state>
1506:
1507: <state name="CHOOSE_PROBLEMS_HTML" title="Select Resource(s) to print">
1508: <message>(mark them then click "next" button) <br /></message>
1509: <resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"
1510: closeallpages="1">
1511: <nextstate>PAGESIZE</nextstate>
1512: <filterfunc>return $isNotMap;</filterfunc>
1513: <mapurl>$map</mapurl>
1514: <valuefunc>return $symbFilter;</valuefunc>
1515: </resource>
1516: </state>
1517: HELPERFRAGMENT
1518:
1519: &Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
1520: }
1521:
1522: # If the user is priviledged, allow them to print all
1523: # problems in the course, optionally for selected students
1524: if ($userPriviledged && ($helper->{VARS}->{'postdata'}=~/\/res\//)) {
1525: push @{$printChoices}, ['<b>Problems</b> from <b>entire course</b>', 'all_problems', 'ALL_PROBLEMS'];
1526: &Apache::lonxml::xmlparse($r, 'helper', <<ALL_PROBLEMS);
1527: <state name="ALL_PROBLEMS" title="Select Problem(s) to print">
1528: <message>(mark them then click "next" button) <br /></message>
1529: <resource variable="RESOURCES" toponly='0' multichoice="1"
1530: suppressEmptySequences='0' addstatus="1" closeallpages="1">
1531: <nextstate>PAGESIZE</nextstate>
1532: <filterfunc>return $isProblemOrMap;</filterfunc>
1533: <choicefunc>return $isNotMap;</choicefunc>
1534: <valuefunc>return $symbFilter;</valuefunc>
1535: </resource>
1536: </state>
1537: ALL_PROBLEMS
1538:
1539: if ($helper->{VARS}->{'assignment'}) {
1540: push @{$printChoices}, ["<b>Problems</b> from <b><i>$sequenceTitle</i></b> for <b>selected students</b>", 'problems_for_students', 'CHOOSE_STUDENTS'];
1541: push @{$printChoices}, ["<b>Problems</b> from <b><i>$sequenceTitle</i></b> for <b>anonymous students</b>", 'problems_for_anon', 'CHOOSE_ANON1'];
1542: }
1543: my $resource_selector=<<RESOURCE_SELECTOR;
1544: <message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
1545: <resource variable="RESOURCES" multichoice="1" addstatus="1"
1546: closeallpages="1">
1547: <filterfunc>return $isProblem;</filterfunc>
1548: <mapurl>$map</mapurl>
1549: <valuefunc>return $symbFilter;</valuefunc>
1550: </resource>
1551: <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
1552: <choices variable="EMPTY_PAGES">
1553: <choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice>
1554: <choice computer='1'>Add one empty page/column after each student\'s assignment</choice>
1555: <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>
1556: <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>
1557: </choices>
1558: <message><hr width='33%' /><b>Number of assignments printed at the same time: </b></message>
1559: <string variable="NUMBER_TO_PRINT" maxlength="5" size="5"><defaultvalue>"all"</defaultvalue></string>
1560: RESOURCE_SELECTOR
1561:
1562: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS);
1563: <state name="CHOOSE_STUDENTS" title="Select Students and Resources">
1564: <student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />
1565: $resource_selector
1566: </state>
1567: CHOOSE_STUDENTS
1568: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON1);
1569: <state name="CHOOSE_ANON1" title="Select Students and Resources">
1570: <nextstate>PAGESIZE</nextstate>
1571: <message><hr width='33%' /><b>Number of anonymous assignments to print?</b></message>
1572: <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"></string>
1573: <choices variable="REMEBER_ANON_CODES" allowempty="1" multichoice="1">
1574: <choice computer="1">
1575: Should the CODEs used on this printing be remebered for later?
1576: </choice>
1577: </choices>
1578: <message><b>Names to store the CODEs under for later:</b></message>
1579: <string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" />
1580: <message><hr width='33%' /></message>
1581: $resource_selector
1582: </state>
1583: CHOOSE_ANON1
1584:
1585:
1586: if ($helper->{VARS}->{'assignment'}) {
1587: push @{$printChoices}, ["<b>Resources</b> from <b><i>$sequenceTitle</i></b> for <b>selected students</b>", 'resources_for_students', 'CHOOSE_STUDENTS1'];
1588: push @{$printChoices}, ["<b>Resources</b> from <b><i>$sequenceTitle</i></b> for <b>anonymous students</b>", 'resources_for_anon', 'CHOOSE_ANON2'];
1589: }
1590:
1591:
1592: $resource_selector=<<RESOURCE_SELECTOR;
1593: <message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
1594: <resource variable="RESOURCES" multichoice="1" addstatus="1"
1595: closeallpages="1">
1596: <filterfunc>return $isNotMap;</filterfunc>
1597: <mapurl>$map</mapurl>
1598: <valuefunc>return $symbFilter;</valuefunc>
1599: </resource>
1600: <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
1601: <choices variable="EMPTY_PAGES">
1602: <choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice>
1603: <choice computer='1'>Add one empty page/column after each student\'s assignment</choice>
1604: <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>
1605: <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>
1606: </choices>
1607: <message><hr width='33%' /><b>Number of assignments printed at the same time: </b></message>
1608: <string variable="NUMBER_TO_PRINT" maxlength="5" size="5"><defaultvalue>"all"</defaultvalue></string>
1609: RESOURCE_SELECTOR
1610:
1611: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS1);
1612: <state name="CHOOSE_STUDENTS1" title="Select Students and Resources">
1613: <student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" />
1614: $resource_selector
1615: </state>
1616: CHOOSE_STUDENTS1
1617:
1618: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON2);
1619: <state name="CHOOSE_ANON2" title="Select Students and Resources">
1620: <message><hr width='33%' /><b>How many Anonymous exams to print?</b></message>
1621: <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5"></string>
1622: <message><hr width='33%' /></message>
1623: $resource_selector
1624: </state>
1625: CHOOSE_ANON2
1626: }
1627:
1628: # FIXME: That RE should come from a library somewhere.
1629: 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 '/home/httpd/html/res/') {
1630: push @{$printChoices}, ["<b>Problems</b> from current subdirectory <b><i>$subdir</i></b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];
1631:
1632: my $f = '$filename';
1633: my $xmlfrag = <<CHOOSE_FROM_SUBDIR;
1634: <state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from <b><small>$subdir</small></b> to print">
1635: <message>(mark them then click "next" button) <br /></message>
1636: <files variable="FILES" multichoice='1'>
1637: <nextstate>PAGESIZE</nextstate>
1638: <filechoice>return '$subdir';</filechoice>
1639: CHOOSE_FROM_SUBDIR
1640:
1641: # this is broken up because I really want interpolation above,
1642: # and I really DON'T want it below
1643: $xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
1644: <filefilter>return Apache::lonhelper::files::not_old_version($filename) &&
1645: $filename =~ m/\.(problem|exam|quiz|assess|survey|form|library)$/;
1646: </filefilter>
1647: </files>
1648: </state>
1649: CHOOSE_FROM_SUBDIR
1650: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
1651: }
1652:
1653: # Allow the user to select any sequence in the course, feed it to
1654: # another resource selector for that sequence
1655: if (!$helper->{VARS}->{'construction'}) {
1656: push @$printChoices, ["<b>Resources</b> from <b>selected sequence</b> in course",
1657: 'select_sequences', 'CHOOSE_SEQUENCE'];
1658: my $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'};
1659: #Escape apostrophes and backslashes for Perl
1660: $escapedSequenceName =~ s/\\/\\\\/g;
1661: $escapedSequenceName =~ s/'/\\'/g;
1662: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_ANY_SEQUENCE);
1663: <state name="CHOOSE_SEQUENCE" title="Select Sequence To Print From">
1664: <message>Select the sequence to print resources from:</message>
1665: <resource variable="SEQUENCE">
1666: <nextstate>CHOOSE_FROM_ANY_SEQUENCE</nextstate>
1667: <filterfunc>return \$res->is_sequence;</filterfunc>
1668: <valuefunc>return $urlValue;</valuefunc>
1669: </resource>
1670: </state>
1671: <state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">
1672: <message>(mark desired resources then click "next" button) <br /></message>
1673: <resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"
1674: closeallpages="1">
1675: <nextstate>PAGESIZE</nextstate>
1676: <filterfunc>return $isProblem</filterfunc>
1677: <mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>
1678: <valuefunc>return $symbFilter;</valuefunc>
1679: </resource>
1680: </state>
1681: CHOOSE_FROM_ANY_SEQUENCE
1682: }
1683:
1684: # Generate the first state, to select which resources get printed.
1685: Apache::lonhelper::state->new("START", "Select Printing Options:");
1686: $paramHash = Apache::lonhelper::getParamHash();
1687: $paramHash->{MESSAGE_TEXT} = "";
1688: Apache::lonhelper::message->new();
1689: $paramHash = Apache::lonhelper::getParamHash();
1690: $paramHash->{'variable'} = 'PRINT_TYPE';
1691: $helper->declareVar('PRINT_TYPE');
1692: $paramHash->{CHOICES} = $printChoices;
1693: Apache::lonhelper::choices->new();
1694:
1695: my $startedTable = 0; # have we started an HTML table yet? (need
1696: # to close it later)
1697:
1698: if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or
1699: ($helper->{VARS}->{'construction'} eq '1')) {
1700: addMessage("<hr width='33%' /><table><tr><td align='right'>Print: </td><td>");
1701: $paramHash = Apache::lonhelper::getParamHash();
1702: $paramHash->{'variable'} = 'ANSWER_TYPE';
1703: $helper->declareVar('ANSWER_TYPE');
1704: $paramHash->{CHOICES} = [
1705: ['Without Answers', 'yes'],
1706: ['With Answers', 'no'],
1707: ['Only Answers', 'only'],
1708: ['As Exam Problem', 'exam']
1709: ];
1710: Apache::lonhelper::dropdown->new();
1711: addMessage("</td></tr>");
1712: $startedTable = 1;
1713: }
1714:
1715: if ($ENV{'request.role.adv'}) {
1716: if (!$startedTable) {
1717: addMessage("<hr width='33%' /><table><tr><td align='right'>LaTeX mode: </td><td>");
1718: $startedTable = 1;
1719: } else {
1720: addMessage("<tr><td align='right'>LaTeX mode: </td><td>");
1721: }
1722: $paramHash = Apache::lonhelper::getParamHash();
1723: $paramHash->{'variable'} = 'LATEX_TYPE';
1724: $helper->declareVar('LATEX_TYPE');
1725: if ($helper->{VARS}->{'construction'} eq '1') {
1726: $paramHash->{CHOICES} = [
1727: ['standard LaTeX mode', 'standard'],
1728: ['LaTeX batchmode', 'batchmode'], ];
1729: } else {
1730: $paramHash->{CHOICES} = [
1731: ['LaTeX batchmode', 'batchmode'],
1732: ['standard LaTeX mode', 'standard'] ];
1733: }
1734: Apache::lonhelper::dropdown->new();
1735:
1736: addMessage("</td></tr><tr><td align='right'>Print Table of Contents: </td><td>");
1737: $paramHash = Apache::lonhelper::getParamHash();
1738: $paramHash->{'variable'} = 'TABLE_CONTENTS';
1739: $helper->declareVar('TABLE_CONTENTS');
1740: $paramHash->{CHOICES} = [
1741: ['No', 'no'],
1742: ['Yes', 'yes'] ];
1743: Apache::lonhelper::dropdown->new();
1744: addMessage("</td></tr>");
1745:
1746: if (not $helper->{VARS}->{'construction'}) {
1747: addMessage("<tr><td align='right'>Print Index: </td><td>");
1748: $paramHash = Apache::lonhelper::getParamHash();
1749: $paramHash->{'variable'} = 'TABLE_INDEX';
1750: $helper->declareVar('TABLE_INDEX');
1751: $paramHash->{CHOICES} = [
1752: ['No', 'no'],
1753: ['Yes', 'yes'] ];
1754: Apache::lonhelper::dropdown->new();
1755: addMessage("</td></tr>");
1756: }
1757:
1758: if ($helper->{'VARS'}->{'construction'}) {
1759: my $stylevalue=$ENV{'construct.style'};
1760: my $xmlfrag .= <<"RNDSEED";
1761: <message><tr><td align='right'>Use random seed: </td><td></message>
1762: <string variable="curseed" size="15" maxlength="15">
1763: <defaultvalue>
1764: return $helper->{VARS}->{'curseed'};
1765: </defaultvalue>
1766: </string>
1767: <message></td></tr><tr><td align="right">Use style file:</td><td></message>
1768: <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>
1769: <message></td></tr></message>
1770: RNDSEED
1771: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
1772: $helper->{'VARS'}->{'style_file'}=$ENV{'form.style_file_value'};
1773: }
1774: }
1775:
1776:
1777:
1778:
1779: if ($startedTable) {
1780: addMessage("</table>");
1781: }
1782:
1783: Apache::lonprintout::page_format_state->new("FORMAT");
1784:
1785: # Generate the PAGESIZE state which will offer the user the margin
1786: # choices if they select one column
1787: Apache::lonhelper::state->new("PAGESIZE", "Set Margins");
1788: Apache::lonprintout::page_size_state->new('pagesize', 'FORMAT', 'FINAL');
1789:
1790:
1791: $helper->process();
1792:
1793: # MANUAL BAILOUT CONDITION:
1794: # If we're in the "final" state, bailout and return to handler
1795: if ($helper->{STATE} eq 'FINAL') {
1796: return $helper;
1797: }
1798:
1799: $r->print($helper->display());
1800:
1801: Apache::lonhelper::unregisterHelperTags();
1802:
1803: untie %hash;
1804:
1805: return OK;
1806: }
1807:
1808:
1809: 1;
1810:
1811: package Apache::lonprintout::page_format_state;
1812:
1813: =pod
1814:
1815: =head1 Helper element: page_format_state
1816:
1817: See lonhelper.pm documentation for discussion of the helper framework.
1818:
1819: Apache::lonprintout::page_format_state is an element that gives the
1820: user an opportunity to select the page layout they wish to print
1821: with: Number of columns, portrait/landscape, and paper size. If you
1822: want to change the paper size choices, change the @paperSize array
1823: contents in this package.
1824:
1825: page_format_state is always directly invoked in lonprintout.pm, so there
1826: is no tag interface. You actually pass parameters to the constructor.
1827:
1828: =over 4
1829:
1830: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
1831:
1832: =back
1833:
1834: =cut
1835:
1836: use Apache::lonhelper;
1837:
1838: no strict;
1839: @ISA = ("Apache::lonhelper::element");
1840: use strict;
1841: use Apache::lonlocal;
1842:
1843: my $maxColumns = 2;
1844: my @paperSize = ("Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]",
1845: "Ledger/Tabloid [11x17 in]", "Executive [7 1/2x10 in]",
1846: "A2 [420x594 mm]", "A3 [297x420 mm]", "A4 [210x297 mm]",
1847: "A5 [148x210 mm]", "A6 [105x148 mm]" );
1848:
1849: # Tentative format: Orientation (L = Landscape, P = portrait) | Colnum |
1850: # Paper type
1851:
1852: sub new {
1853: my $self = Apache::lonhelper::element->new();
1854:
1855: shift;
1856:
1857: $self->{'variable'} = shift;
1858: my $helper = Apache::lonhelper::getHelper();
1859: $helper->declareVar($self->{'variable'});
1860: bless($self);
1861: return $self;
1862: }
1863:
1864: sub render {
1865: my $self = shift;
1866: my $helper = Apache::lonhelper::getHelper();
1867: my $result = '';
1868: my $var = $self->{'variable'};
1869: my $PageLayout=&mt('Page layout');
1870: my $NumberOfColumns=&mt('Number of columns');
1871: my $PaperType=&mt('Paper type');
1872: $result .= <<STATEHTML;
1873:
1874: <hr width="33%" />
1875: <table cellpadding="3">
1876: <tr>
1877: <td align="center"><b>$PageLayout</b></td>
1878: <td align="center"><b>$NumberOfColumns</b></td>
1879: <td align="center"><b>$PaperType</b></td>
1880: </tr>
1881: <tr>
1882: <td>
1883: <input type="radio" name="${var}.layout" value="L" /> Landscape<br />
1884: <input type="radio" name="${var}.layout" value="P" checked='1' /> Portrait
1885: </td>
1886: <td align="center">
1887: <select name="${var}.cols">
1888: STATEHTML
1889:
1890: my $i;
1891: for ($i = 1; $i <= $maxColumns; $i++) {
1892: if ($i == 2) {
1893: $result .= "<option value='$i' selected>$i</option>\n";
1894: } else {
1895: $result .= "<option value='$i'>$i</option>\n";
1896: }
1897: }
1898:
1899: $result .= "</select></td><td>\n";
1900: $result .= "<select name='${var}.paper'>\n";
1901:
1902: $i = 0;
1903: foreach (@paperSize) {
1904: if ($i == 0) {
1905: $result .= "<option selected value='$i'>" . $paperSize[$i] . "</option>\n";
1906: } else {
1907: $result .= "<option value='$i'>" . $paperSize[$i] . "</option>\n";
1908: }
1909: $i++;
1910: }
1911:
1912: $result .= "</select></td></tr></table>";
1913: return $result;
1914: }
1915:
1916: sub postprocess {
1917: my $self = shift;
1918:
1919: my $var = $self->{'variable'};
1920: my $helper = Apache::lonhelper->getHelper();
1921: $helper->{VARS}->{$var} =
1922: $ENV{"form.$var.layout"} . '|' . $ENV{"form.$var.cols"} . '|' .
1923: $ENV{"form.$var.paper"};
1924: return 1;
1925: }
1926:
1927: 1;
1928:
1929: package Apache::lonprintout::page_size_state;
1930:
1931: =pod
1932:
1933: =head1 Helper element: page_size_state
1934:
1935: See lonhelper.pm documentation for discussion of the helper framework.
1936:
1937: Apache::lonprintout::page_size_state is an element that gives the
1938: user the opportunity to further refine the page settings if they
1939: select a single-column page.
1940:
1941: page_size_state is always directly invoked in lonprintout.pm, so there
1942: is no tag interface. You actually pass parameters to the constructor.
1943:
1944: =over 4
1945:
1946: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
1947:
1948: =back
1949:
1950: =cut
1951:
1952: use Apache::lonhelper;
1953:
1954: no strict;
1955: @ISA = ("Apache::lonhelper::element");
1956: use strict;
1957:
1958:
1959:
1960: sub new {
1961: my $self = Apache::lonhelper::element->new();
1962:
1963: shift; # disturbs me (probably prevents subclassing) but works (drops
1964: # package descriptor)... - Jeremy
1965:
1966: $self->{'variable'} = shift;
1967: my $helper = Apache::lonhelper::getHelper();
1968: $helper->declareVar($self->{'variable'});
1969:
1970: # The variable name of the format element, so we can look into
1971: # $helper->{VARS} to figure out whether the columns are one or two
1972: $self->{'formatvar'} = shift;
1973:
1974: # The state to transition to after selection, or after discovering
1975: # the cols are not set to 1
1976: $self->{NEXTSTATE} = shift;
1977: bless($self);
1978: return $self;
1979: }
1980:
1981: sub render {
1982: my $self = shift;
1983: my $helper = Apache::lonhelper::getHelper();
1984: my $result = '';
1985: my $var = $self->{'variable'};
1986:
1987: if (defined $self->{ERROR_MSG}) {
1988: $result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br />';
1989: }
1990:
1991: $result .= <<ELEMENTHTML;
1992:
1993: <p>How should the column be formatted?</p>
1994:
1995: <table cellpadding='3'>
1996: <tr>
1997: <td align='right'><b>Width</b>:</td>
1998: <td align='left'><input type='text' name='$var.width' value='18' size='4'></td>
1999: <td align='left'>
2000: <select name='$var.widthunit'>
2001: <option>cm</option><option>in</option>
2002: </select>
2003: </td>
2004: </tr>
2005: <tr>
2006: <td align='right'><b>Height</b>:</td>
2007: <td align='left'><input type='text' name="$var.height" value="25.9" size='4'></td>
2008: <td align='left'>
2009: <select name='$var.heightunit'>
2010: <option>cm</option><option>in</option>
2011: </select>
2012: </td>
2013: </tr>
2014: <tr>
2015: <td align='right'><b>Left margin</b>:</td>
2016: <td align='left'><input type='text' name='$var.lmargin' value='-1.5' size='4'></td>
2017: <td align='left'>
2018: <select name='$var.lmarginunit'>
2019: <option>cm</option><option>in</option>
2020: </select>
2021: </td>
2022: </tr>
2023: </table>
2024:
2025: <p>Hint: Some instructors like to leave scratch space for the student by
2026: making the width much smaller than the width of the page.</p>
2027:
2028: ELEMENTHTML
2029:
2030: return $result;
2031: }
2032:
2033: # If the user didn't select 1 column, skip this state.
2034: sub preprocess {
2035: my $self = shift;
2036: my $helper = Apache::lonhelper::getHelper();
2037:
2038: my $format = $helper->{VARS}->{$self->{'formatvar'}};
2039: if (substr($format, 2, 1) ne '1') {
2040: $helper->changeState($self->{NEXTSTATE});
2041: }
2042:
2043: return 1;
2044: }
2045:
2046: sub postprocess {
2047: my $self = shift;
2048:
2049: my $var = $self->{'variable'};
2050: my $helper = Apache::lonhelper->getHelper();
2051: my $width = $helper->{VARS}->{$var .'.width'} = $ENV{"form.${var}.width"};
2052: my $height = $helper->{VARS}->{$var .'.height'} = $ENV{"form.${var}.height"};
2053: my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $ENV{"form.${var}.lmargin"};
2054: $helper->{VARS}->{$var .'.widthunit'} = $ENV{"form.${var}.widthunit"};
2055: $helper->{VARS}->{$var .'.heightunit'} = $ENV{"form.${var}.heightunit"};
2056: $helper->{VARS}->{$var .'.lmarginunit'} = $ENV{"form.${var}.lmarginunit"};
2057:
2058: my $error = '';
2059:
2060: # /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed
2061: # by an optional period, followed by digits, ending the string
2062:
2063: if ($width !~ /^-?[0-9]+(\.[0-9]*)?$/) {
2064: $error .= "Invalid width; please type only a number.<br />\n";
2065: }
2066: if ($height !~ /^-?[0-9]+(\.[0-9]*)?$/) {
2067: $error .= "Invalid height; please type only a number.<br />\n";
2068: }
2069: if ($lmargin !~ /^-?[0-9]+(\.[0-9]*)?$/) {
2070: $error .= "Invalid left margin; please type only a number.<br />\n";
2071: }
2072:
2073: if (!$error) {
2074: Apache::lonhelper::getHelper()->changeState($self->{NEXTSTATE});
2075: return 1;
2076: } else {
2077: $self->{ERROR_MSG} = $error;
2078: return 0;
2079: }
2080: }
2081:
2082:
2083:
2084: __END__
2085:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>