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