File:
[LON-CAPA] /
loncom /
interface /
lonprintout.pm
Revision
1.92:
download - view:
text,
annotated -
select for diffs
Tue Nov 19 15:45:25 2002 UTC (21 years, 10 months ago) by
sakharuk
Branches:
MAIN
CVS tags:
HEAD
Bug 974 (Printout for construction space directories) is partly resolved. Now
you can print a short message that you are trying to print eather sequence or something like this. In addition I removed the menu item with invitation to print the whole subdirectory. I've written "partly" because we have to determine
what we really have to print in this case (for example, the contents of subdirectory) and to whom we have to give this possibility (course coordinator, author, ta, ...).
1: # The LearningOnline Network
2: # Printout
3: #
4: # $Id: lonprintout.pm,v 1.92 2002/11/19 15:45:25 sakharuk Exp $
5: #
6: # Copyright Michigan State University Board of Trustees
7: #
8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
9: #
10: # LON-CAPA is free software; you can redistribute it and/or modify
11: # it under the terms of the GNU General Public License as published by
12: # the Free Software Foundation; either version 2 of the License, or
13: # (at your option) any later version.
14: #
15: # LON-CAPA is distributed in the hope that it will be useful,
16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18: # GNU General Public License for more details.
19: #
20: # You should have received a copy of the GNU General Public License
21: # along with LON-CAPA; if not, write to the Free Software
22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23: #
24: # /home/httpd/html/adm/gpl.txt
25: #
26: # http://www.lon-capa.org/
27: #
28: # (Internal Server Error Handler
29: #
30: # (Login Screen
31: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
32: # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer)
33: #
34: # 3/1/1 Gerd Kortemeyer)
35: #
36: # 3/1 Gerd Kortemeyer
37: #
38: # 9/17 Alex Sakharuk
39: #
40: package Apache::lonprintout;
41:
42: use strict;
43: use Apache::Constants qw(:common :http);
44: use Apache::lonxml;
45: use Apache::lonnet;
46: use Apache::loncommon;
47: use Apache::inputtags;
48: use Apache::grades;
49: use Apache::edit;
50: use Apache::File();
51: use Apache::lonnavmaps;
52: use POSIX qw(strftime);
53: use GDBM_File;
54:
55:
56: my %hash;
57: my $LaTeXwidth = 0;
58:
59: sub headerform {
60: my $r = shift;
61: $r->print(<<ENDHEADER);
62: <html>
63: <head>
64: <title>LON-CAPA output for printing</title>
65: </head>
66: <body bgcolor="FFFFFF">
67: <form method="post" enctype="multipart/form-data" action="/adm/printout" name="printform">
68: ENDHEADER
69: if ($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) {
70: $r->print(<<ENDHEADER1);
71: <b>Path to current document: </b><tt>$ENV{'form.postdata'}</tt><p>
72: ENDHEADER1
73: }
74: }
75:
76:
77: sub menu_for_output {
78: my $r = shift;
79: my ($title_for_single_resource,$title_for_sequence,$title_for_main_map) = &details_for_menu;
80: my $assignment = $title_for_sequence;
81: if ($title_for_single_resource ne '') {$title_for_single_resource = '"'.$title_for_single_resource.'"';}
82: if ($title_for_sequence ne '') {$title_for_sequence = '"'.$title_for_sequence.'"';}
83: if ($title_for_main_map ne '') {$title_for_main_map = '"'.$title_for_main_map.'"';}
84: my $subdir_to_print = $ENV{'form.postdata'};
85: $subdir_to_print =~ m/\/([^\/]+)$/;
86: $subdir_to_print =~ s/$1//;
87: $r->print(<<ENDMENUOUT1);
88: <h1>What do you want to print? Make a choice.</h1><br />
89: <input type="hidden" name="phase" value="two">
90: <input type="hidden" name="url" value="$ENV{'form.postdata'}">
91: <input type="hidden" name="assignment" value="$assignment">
92: <input type="radio" name="choice" value="Standard LaTeX output for current document" checked> Current document <b>$title_for_single_resource</b>
93: (prints what you just saw on the screen)<br />
94: ENDMENUOUT1
95: if ($ENV{'form.postdata'}=~/\/res\//) {
96: $r->print(<<ENDMENUOUT2);
97: <input type="radio" name="choice" value="Standard LaTeX output for the primary sequence"> Problem(s) from <b>$title_for_sequence</b><br />
98: <input type="radio" name="choice" value="Standard LaTeX output for whole primary sequence"> Problem(s) plus page(s) or html/xml file(s) from <b>$title_for_sequence</b><br />
99: ENDMENUOUT2
100: }
101: if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($ENV{'form.postdata'}=~/\/res\//)) {
102: $r->print(<<ENDMENUOUT6);
103: <input type="radio" name="choice" value="Standard LaTeX output for the top level sequence"> All problems in this course (<b>warning:</b> this may be time consuming) <br />
104: <br />
105: <input type="radio" name="choice" value="All class print"> All problems from <b>$title_for_sequence</b> for selected students<br /><br />
106: ENDMENUOUT6
107: }
108: my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});
109: $subdirtoprint =~ s/\/[^\/]+$//;
110: if ((&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') and ($ENV{'form.postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/)) {
111: $r->print(<<ENDMENUOUT4);
112: <input type="radio" name="choice" value="Subdirectory print"> Problems from current subdirectory <b>$subdir_to_print</b><br />
113: ENDMENUOUT4
114: }
115: $r->print(<<ENDMENUOUT5);
116: <br /><hr /><br />
117: <h1>And what page format do you prefer?</h1>
118: <table>
119: <tr>
120: <td>
121: <input type="radio" name="layout" value="CBI"> Landscape <br />
122: <input type="radio" name="layout" value="CAPA" checked> Portrait <br />
123: </td>
124: <td> </td>
125: <td rawspan="2">
126: Number of columns: <select name="numberofcolumns">
127: <option> 1 </option>
128: <option selected> 2 </option>
129: </select>
130: </td>
131: <td rawspan="2">
132: Paper size (format [width x height]): <select name="papersize">
133: <option selected> Letter [8 1/2x11 in] </option>
134: <option> Legal [8 1/2x14 in] </option>
135: <option> Ledger/Tabloid [11x17 in] </option>
136: <option> Executive [7 1/2x10 in] </option>
137: <option> A2 [420x594 mm] </option>
138: <option> A3 [297x420 mm] </option>
139: <option> A4 [210x297 mm] </option>
140: <option> A5 [148x210 mm] </option>
141: <option> A6 [105x148 mm] </option>
142: </select>
143: </td>
144: </tr>
145: </table>
146: </br>
147: <input type="submit" value="Submit your choice">
148: ENDMENUOUT5
149: }
150:
151:
152: sub sequence_content_menu {
153: my ($key_to,$r) = @_;
154: my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'});
155: my @sequence = split('___',$symbolic);
156: my $primary_sequence = '/res/'.$sequence[0];
157: my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]);
158: my @master_seq_view = @master_seq;
159: for (my $i=0;$i<=$#master_seq_view;$i++) {
160: $master_seq_view[$i]=~/\/([^\/]+)$/;
161: $master_seq_view[$i]=$1;
162: }
163: $r->print(<<ENDMENUOUT1);
164: <input type="hidden" name="url" value="$ENV{'form.url'}">
165: <input type="hidden" name="choice" value="$ENV{'form.choice'}">
166: <input type="hidden" name="layout" value="$ENV{'form.layout'}">
167: <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
168: <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
169: <h1>Mark item(s) which you want to print</h1>
170: <script>
171: function checkall() {
172: for (i=0; i<document.forms.printform.elements.length; i++) {
173: if
174: (document.forms.printform.elements[i].name.indexOf('whatfile')==0) {
175: document.forms.printform.elements[i].checked=true;
176: }
177: }
178: }
179: function uncheckall() {
180: for (i=0; i<document.forms.printform.elements.length; i++) {
181: if
182: (document.forms.printform.elements[i].name.indexOf('whatfile')==0) {
183: document.forms.printform.elements[i].checked=false;
184: }
185: }
186: }
187: </script>
188: <input type=button onClick="checkall()" value="Check All">
189: <input type=button onClick="uncheckall()" value="Uncheck">
190: <p>
191: ENDMENUOUT1
192: my $inc=0;
193: for (my $i=0;$i<=$#master_seq_view;$i++) {
194: if ($key_to==1 && $master_seq_view[$i]=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
195: $r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '.
196: $master_seq_view[$i]);
197: $inc++;
198: } elsif ($key_to==0 && $master_seq_view[$i]=~/\.(problem|exam|quiz|assess|survey|form|library|xml|htm|html|page)$/) {
199: $r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '.
200: $master_seq_view[$i]);
201: $inc++;
202: }
203: }
204: $r->print(<<ENDMENUOUT2);
205: <br />
206: <input type="hidden" name="numberoffiles" value="$inc">
207: <input type="hidden" name="phase" value="three">
208: <input type="submit" value="Submit">
209: ENDMENUOUT2
210:
211: }
212:
213:
214: sub problem_choice_menu {
215: my $r = shift;
216: my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});
217: $subdirtoprint =~ s/\/[^\/]+$//;
218: my @list_of_files = ();
219: if ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./) {
220: $subdirtoprint =~ s/^[^~]*~(\w+)\//\/home\/$1\/public_html\//;
221: } else {
222: $subdirtoprint =~ s/.*(\/res\/)/$1/;
223: }
224: my @content_directory = ();
225: if ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./) {
226: @content_directory = &Apache::lonnet::dirlist($subdirtoprint,$ENV{'user.domain'}, $ENV{'user.name'},'');
227: } else {
228: @content_directory = &Apache::lonnet::dirlist($subdirtoprint);
229: }
230: for (my $iy=0;$iy<=$#content_directory;$iy++) {
231: my @tempo_array = split(/&/,$content_directory[$iy]);
232: if ($tempo_array[0] =~ m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/) {
233: push(@list_of_files,$tempo_array[0]);
234: }
235: }
236: $subdirtoprint =~ s/\/$//;
237: for (my $i=0;$i<=$#list_of_files;$i++) {
238: $list_of_files[$i] = $subdirtoprint.'/'.$list_of_files[$i];
239: }
240: $r->print(<<ENDMENUOUT1);
241: <input type="hidden" name="url" value="$ENV{'form.url'}">
242: <input type="hidden" name="choice" value="$ENV{'form.choice'}">
243: <input type="hidden" name="layout" value="$ENV{'form.layout'}">
244: <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
245: <h1>Mark problems which you want to print</h1>
246: <script>
247: function checkall() {
248: for (i=0; i<document.forms.printform.elements.length; i++) {
249: if
250: (document.forms.printform.elements[i].name.indexOf('whattoprint')==0) {
251: document.forms.printform.elements[i].checked=true;
252: }
253: }
254: }
255:
256:
257: function uncheckall() {
258: for (i=0; i<document.forms.printform.elements.length; i++) {
259: if
260: (document.forms.printform.elements[i].name.indexOf('whattoprint')==0) {
261: document.forms.printform.elements[i].checked=false;
262: }
263: }
264: }
265: </script>
266: <input type=button onClick="checkall()" value="Check All">
267: <input type=button onClick="uncheckall()" value="Uncheck">
268: <p>
269: ENDMENUOUT1
270: my $i=0;
271: foreach my $file (@list_of_files) {
272: $r->print('<br /><input type=checkbox name="whattoprint'.$i.'" value="'.$file.'"> '.
273: $file);
274: $i++;
275: }
276: $r->print(<<ENDMENUOUT2);
277: <br />
278: <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
279: <input type="hidden" name="numberofproblems" value="$i">
280: <input type="hidden" name="phase" value="three">
281: <input type="submit" value="Submit">
282: ENDMENUOUT2
283: }
284:
285:
286: sub additional_class_menu {
287: my $r = shift;
288: $r->print(<<ENDMENUOUT1);
289: <input type="hidden" name="url" value="$ENV{'form.url'}">
290: <input type="hidden" name="choice" value="$ENV{'form.choice'}">
291: <input type="hidden" name="layout" value="$ENV{'form.layout'}">
292: <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
293: <input type="hidden" name="assignment" value="$ENV{'form.assignment'}">
294: <h1>Select student(s) whose assignment you want to print</h1>
295: ENDMENUOUT1
296: my %courselist=&Apache::lonnet::dump(
297: 'classlist',
298: $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
299: $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
300: my $now=time;
301: $r->print(<<ENDDISHEADER);
302: <script>
303: function checkall() {
304: for (i=0; i<document.forms.printform.elements.length; i++) {
305: if
306: (document.forms.printform.elements[i].name.indexOf('whomtoprint')==0) {
307: document.forms.printform.elements[i].checked=true;
308: }
309: }
310: }
311:
312: function checksec() {
313: for (i=0; i<document.forms.printform.elements.length; i++) {
314: if
315: (document.forms.printform.elements[i].value.indexOf
316: (document.forms.printform.chksec.value)==0) {
317: document.forms.printform.elements[i].checked=true;
318: }
319: }
320: }
321:
322: function uncheckall() {
323: for (i=0; i<document.forms.printform.elements.length; i++) {
324: if
325: (document.forms.printform.elements[i].name.indexOf('whomtoprint')==0) {
326: document.forms.printform.elements[i].checked=false;
327: }
328: }
329: }
330: </script>
331: <input type=button onClick="checkall()" value="Check All">
332: <input type=button onClick="checksec()" value="Check Section/Group">
333: <input type=text size=5 name=chksec>
334: <input type=button onClick="uncheckall()" value="Uncheck">
335: <p>
336: ENDDISHEADER
337: my $i = 0;
338: foreach (sort keys %courselist) {
339: my ($end,$start)=split(/\:/,$courselist{$_});
340: my $active=1;
341: if (($end) && ($now>$end)) { $active=0; }
342: if ($active) {
343: my ($sname,$sdom)=split(/\:/,$_);
344: my %reply=&Apache::lonnet::get('environment',
345: ['firstname','middlename','lastname','generation'],
346: $sdom,$sname);
347: my $section=&Apache::lonnet::usection
348: ($sdom,$sname,$ENV{'request.course.id'});
349: $r->print(
350: '<br /><input type=checkbox name="whomtoprint'.$i.'" value="'.$section.':'.$_.'"> '.
351: $reply{'firstname'}.' '.
352: $reply{'middlename'}.' '.
353: $reply{'lastname'}.' '.
354: $reply{'generation'}.
355: ' ('.$_.') '.$section);
356: $i++;
357: }
358: }
359: $r->print(<<ENDMENUOUT2);
360: <br />Number of blank pages to add: <select name="addedpages"><option selected>0</option>
361: <option>1</option>
362: <option>2</option>
363: <option>3</option>
364: </select>
365: <br />
366: <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
367: <input type="hidden" name="numberofstudents" value="$i">
368: <input type="hidden" name="phase" value="three">
369: <input type="submit" value="Submit">
370: ENDMENUOUT2
371: }
372:
373:
374: sub additional_print_menu {
375: my $r = shift;
376: my $what_to_print = '';
377: for (my $i=0; $i<$ENV{'form.numberofstudents'};$i++) {
378: $what_to_print .= '<input type="hidden" name="whomtoprint'.$i.'" value="'.$ENV{'form.whomtoprint'.$i}.'">';
379: }
380: for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) {
381: $what_to_print .= '<input type="hidden" name="whattoprint'.$i.'" value="'.$ENV{'form.whattoprint'.$i}.'">';
382: }
383: for (my $i=0; $i<$ENV{'form.numberoffiles'};$i++) {
384: $what_to_print .= '<input type="hidden" name="whatfile'.$i.'" value="'.$ENV{'form.whatfile'.$i}.'">';
385: }
386: $r->print(<<ENDMENUOUT);
387: $what_to_print
388: <input type="hidden" name="url" value="$ENV{'form.url'}">
389: <input type="hidden" name="choice" value="$ENV{'form.choice'}">
390: <input type="hidden" name="layout" value="$ENV{'form.layout'}">
391: <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
392: <input type="hidden" name="numberofstudents" value="$ENV{'form.numberofstudents'}">
393: <input type="hidden" name="numberofproblems" value="$ENV{'form.numberofproblems'}">
394: <input type="hidden" name="numberoffiles" value="$ENV{'form.numberoffiles'}">
395: <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
396: <input type="hidden" name="assignment" value="$ENV{'form.assignment'}">
397: <input type="hidden" name="addedpages" value="$ENV{'form.addedpages'}">
398: Define one column layout parameters: <br />
399: <b>Width</b>: <input type="text" name="width" width="8" value="9cm"> <br />
400: <b>Height</b>: <input type="text" name="height" width="8" value="25.9cm"> <br />
401: <b>Left margin</b>: <input type="text" name="leftmargin" width="8" value="-0.57in"> <br />
402: <input type="hidden" name="phase" value="four">
403: <input type="submit" value="Submit">
404: </form>
405: </body>
406: </html>
407: ENDMENUOUT
408: }
409:
410:
411: sub output_data {
412: my $r = shift;
413: $r->print(<<ENDPART);
414: <html>
415: <head>
416: <title>LON-CAPA output for printing</title>
417: </head>
418: <body bgcolor="FFFFFF">
419: <hr>
420: ENDPART
421:
422: my $choice = $ENV{'form.choice'};
423: my $layout = $ENV{'form.layout'};
424: my $numberofcolumns = $ENV{'form.numberofcolumns'};
425: my $papersize = $ENV{'form.papersize'};
426: my $laystyle = 'book';
427: my $assignment = $ENV{'form.assignment'};
428: if ($choice eq 'Subdirectory print') {
429: if ($ENV{'form.layout'} eq '') {$layout = 'CAPA';}
430: if ($ENV{'form.papersize'} eq '') {$papersize = 'Letter [8 1/2x11 in]';}
431: if ($ENV{'form.numberofcolumns'} eq '') {$numberofcolumns = 2;}
432: }
433: if (($choice eq 'Standard LaTeX output for current document') && ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./)) {
434: if ($ENV{'form.layout'} eq '') {$layout = 'CAPA';}
435: if ($ENV{'form.papersize'} eq '') {$papersize = 'Letter [8 1/2x11 in]';}
436: if ($ENV{'form.numberofcolumns'} eq '') {$numberofcolumns = 2;}
437: }
438: my $result = '';
439: my $number_of_columns = 1; #used only for pages to determine the width of the cell
440: my $selectionmade = '';
441: my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);
442: my $LaTeXwidth;
443:
444: if ($textwidth=~/(\d+\s*cm)/) {
445: $LaTeXwidth = $1*10;
446: } elsif ($textwidth=~/(\d+\s*mm)/) {
447: $LaTeXwidth = $1;
448: }
449: if ($choice eq 'Standard LaTeX output for current document') {
450: #-- single document - problem, page, html, xml
451: $selectionmade = 1;
452: if ($ENV{'form.url'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
453: my %moreenv;
454: $moreenv{'form.grade_target'}='tex';
455: if (&Apache::lonnet::allowed('bre',$ENV{'form.url'})) {
456: $ENV{'form.url'}=~s/http:\/\/[^\/]+//;
457: }
458: $moreenv{'request.filename'}=$ENV{'form.url'};
459: $moreenv{'form.textwidth'}=$LaTeXwidth;
460: &Apache::lonnet::appenv(%moreenv);
461: my $texversion=&Apache::lonnet::ssi($ENV{'form.url'});
462: &Apache::lonnet::delenv('form.grade_target','form.textwidth','form.counter');
463: $result .= $texversion;
464: if ($ENV{'form.url'}=~m/\.page\s*$/) {
465: ($result,$number_of_columns) = &page_cleanup($result);
466: }
467: } else{
468: $result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}You are trying to print eather sequence or something simular. Currently this option is not supported. Sorry for the inconvenience. Bye.\end{document}'
469: }
470: } elsif ($choice eq 'Standard LaTeX output for the primary sequence' or
471: $choice eq 'Standard LaTeX output for whole primary sequence') {
472: #-- minimal sequence to which the current document belongs
473: #-- where is the primary sequence containing file?
474: my @master_seq = ();
475: for (my $i=0; $i<$ENV{'form.numberoffiles'};$i++) {
476: if ($ENV{'form.whatfile'.$i}=~/\S/) {
477: push @master_seq,$ENV{'form.whatfile'.$i};
478: }
479: }
480: #-- produce an output string
481: my $flag_latex_header_remove = 'NO';
482: my $flag_page_in_sequence = 'NO';
483: for (my $i=0;$i<=$#master_seq;$i++) {
484: my ($urlp,$symb) = split /&&/, $master_seq[$i];
485: if ($choice eq 'Standard LaTeX output for the primary sequence') {
486: $selectionmade = 2;
487: } elsif ($choice eq 'Standard LaTeX output for whole primary sequence') {
488: $selectionmade = 3;
489: }
490: my %moreenv;
491: $moreenv{'form.grade_target'}='tex';
492: $moreenv{'form.textwidth'}=$LaTeXwidth;
493: &Apache::lonnet::appenv(%moreenv);
494: &Apache::lonnet::logthis("Trying to get $urlp with symb $symb");
495: my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));
496: &Apache::lonnet::delenv('form.grade_target','form.textwidth');
497: if ($urlp =~ m/\.page/) {
498: ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
499: if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}
500: $texversion =~ s/\\end{document}\d*/\\end{document}/;
501: $flag_page_in_sequence = 'YES';
502: }
503: if ($flag_latex_header_remove ne 'NO') {
504: $texversion = &latex_header_footer_remove($texversion);
505: } else {
506: $texversion =~ s/\\end{document}//;
507: }
508: $result .= $texversion;
509: $flag_latex_header_remove = 'YES';
510: }
511: &Apache::lonnet::delenv('form.counter');
512: if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}
513: $result .= '\end{document}';
514: } elsif ($choice eq 'Standard LaTeX output for the top level sequence') {
515: # where is the main sequence of the course?
516: $selectionmade = 4;
517: my $main_seq = '/res/'.$ENV{'request.course.uri'};
518: my @file_seq = &coming_from_hash_whole($main_seq);
519: my $flag_latex_header_remove = 'NO';
520: #-- produce an output string
521: for (my $i=0;$i<=$#file_seq;$i++) {
522: my ($urlp,$symb) = split /&&/, $file_seq[$i];
523: $urlp=~s/\/home\/httpd\/html//;
524: if ($urlp=~m/\.(problem|exam|quiz|assess|survey|form|library)/) {
525: my %moreenv;
526: $moreenv{'form.grade_target'}='tex';
527: $moreenv{'form.textwidth'}=$LaTeXwidth;
528: &Apache::lonnet::appenv(%moreenv);
529: my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));
530: &Apache::lonnet::delenv('form.grade_target','form.textwidth');
531: if ($flag_latex_header_remove ne 'NO') {
532: $texversion = &latex_header_footer_remove($texversion);
533: } else {
534: $texversion =~ s/\\end{document}//;
535: }
536: $result .= $texversion;
537: $flag_latex_header_remove = 'YES';
538: }
539: }
540: $result .= '\end{document}';
541: } elsif ($choice eq 'All class print') {
542: #-- prints assignments for whole class or for selected students
543: $selectionmade = 5;
544: my @students = ();
545: for (my $i=0; $i<$ENV{'form.numberofstudents'};$i++) {
546: if ($ENV{'form.whomtoprint'.$i}=~/:/) {
547: push @students,$ENV{'form.whomtoprint'.$i};
548: }
549: }
550: #where is the primary sequence containing current resource (the same for all students)?
551: my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'});
552: my @sequence = split('___',$symbolic);
553: my $primary_sequence = '/res/'.$sequence[0];
554: my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]);
555: #loop over students
556: my $flag_latex_header_remove = 'NO';
557: my %moreenv;
558: $moreenv{'form.textwidth'}=$LaTeXwidth;
559: &Apache::lonnet::appenv(%moreenv);
560: foreach my $person (@students) {
561: my $current_output = '';
562: my ($usersection,$username,$userdomain) = split /:/,$person;
563: my $fullname = &Apache::grades::get_fullname($username,$userdomain);
564: #goes through all resources, checks if they are available for current student, and produces output
565: foreach my $curresline (@master_seq) {
566: my ($curres,$symb) = split /&&/, $curresline;
567: if ($curres=~ m/\.(problem|exam|quiz|assess|survey|form|library)/) {
568: my ($map,$id,$res_url) = split(/___/,$symb);
569: if (&Apache::lonnet::allowed('bre',$res_url)) {
570: my $rendered = &Apache::loncommon::get_student_view($symb,$username,$userdomain,
571: $ENV{'request.course.id'},'tex');
572: if ($flag_latex_header_remove eq 'YES') {
573: $rendered = &latex_header_footer_remove($rendered);
574: } else {
575: $rendered =~ s/\\end{document}//;
576: }
577: $current_output .= $rendered;
578: }
579: $flag_latex_header_remove = 'YES';
580: }
581: }
582: if ($current_output=~/\\documentclass/) {
583: my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
584: $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm}\\setlength{\\headheight}{1cm}\\setlength{\\headsep}{0.5cm}\\pagestyle{myheadings}\\markboth{}{{$courseidinfo - $assignment}}\\begin{document}\\noindent\\textit{\\textbf{$fullname}}\\vskip 3 mm /;
585: } else {
586: my $blanspages = '';
587: for (my $j=0;$j<$ENV{'form.addedpages'};$j++) {$blanspages.='\clearpage\strut\clearpage';}
588: $current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License } \\vskip 3mm'.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\textit{\textbf{'.$fullname.'}}\hskip 1.4in } \vskip 5 mm '.$current_output;
589: }
590: $result .= $current_output;
591: &Apache::lonnet::delenv('form.counter');
592: }
593: $result .= '\end{document}';
594: &Apache::lonnet::delenv('form.textwidth');
595: } elsif ($choice eq 'Subdirectory print') {
596: #prints selected problems from the subdirectory
597: $selectionmade = 6;
598: my @list_of_files = ();
599: for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) {
600: if ($ENV{'form.whattoprint'.$i}=~/^\//) {
601: push @list_of_files,$ENV{'form.whattoprint'.$i};
602: }
603: }
604: my $flag_latex_header_remove = 'NO';
605: for (my $i=0;$i<=$#list_of_files;$i++) {
606: my $urlp = $list_of_files[$i];
607: if ($urlp=~/\//) {
608: my %moreenv;
609: $moreenv{'form.grade_target'}='tex';
610: $moreenv{'form.textwidth'}=$LaTeXwidth;
611: &Apache::lonnet::appenv(%moreenv);
612: if ($ENV{'request.role'}=~m/^au\./ or $ENV{'request.role'}=~m/^ca\./) {
613: $urlp =~ s/\/home\/([^\/]*)\/public_html/\/~$1/;
614: }
615: my $texversion=&Apache::lonnet::ssi($urlp);
616: &Apache::lonnet::delenv('form.grade_target','form.textwidth');
617: #this chunck is responsible for printing the path to problem
618: my $newurlp = '';
619: my $HowMany = length($urlp)*2;
620: if ($HowMany > $LaTeXwidth) {
621: my @temporrary = split '/',$urlp;
622: my $HowManyNew = 0;
623: for (my $ii=0;$ii<=$#temporrary;$ii++) {
624: if ($temporrary[$ii] ne '') {
625: $HowManyNew += length($temporrary[$ii])*2;
626: if ($HowManyNew < $LaTeXwidth ) {
627: $newurlp .= '/'.$temporrary[$ii];
628: } else {
629: $HowManyNew = 0;
630: $newurlp .= '|\vskip -1 mm \noindent \verb|';
631: $ii--;
632: }
633: }
634: }
635: }
636: $texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 {\\small\\noindent\\verb|$newurlp\|\\vskip 0 mm}/;
637: if ($flag_latex_header_remove ne 'NO') {
638: $texversion = &latex_header_footer_remove($texversion);
639: } else {
640: $texversion =~ s/\\end{document}//;
641: }
642: $result .= $texversion;
643: }
644: $flag_latex_header_remove = 'YES';
645: }
646: $result .= '\end{document}';
647: }
648: #-------------------------------------------------------- corrections for the different page formats
649: $result = &page_format_transformation($papersize,$layout,$numberofcolumns,$choice,$result,$assignment);
650: if ($layout eq 'CBI') {
651: $laystyle = 'album';
652: }
653: $result = &latex_corrections($number_of_columns,$result);
654: #changes page's parameters for the one column output
655: if ($ENV{'form.numberofcolumns'} == 1) {
656: $result =~ s/\\textwidth= 9cm/\\textwidth= $ENV{'form.width'}/;
657: $result =~ s/\\textheight 25\.9cm/\\textheight $ENV{'form.height'}/;
658: $result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $ENV{'form.leftmargin'}/;
659: $result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $ENV{'form.leftmargin'}/;
660: }
661: #-- writing .tex file in prtspool
662: my $temp_file;
663: my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex";
664: unless ($temp_file = Apache::File->new('>'.$filename)) {
665: $r->log_error("Couldn't open $filename for output $!");
666: return SERVER_ERROR;
667: }
668: print $temp_file $result;
669: $r->print(<<FINALEND);
670: <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">
671: </body>
672: </html>
673: FINALEND
674: }
675:
676:
677: sub coming_from_hash_whole {
678:
679: my $mainsequence = shift;
680: my @resourcelist = ();
681: my $mapid = $hash{'map_pc_'.$mainsequence};
682: my $mapstart = $hash{'map_start_'.$mainsequence};
683: my $mapfinish = $hash{'map_finish_'.$mainsequence};
684: my $current_resource = $mapstart;
685: while ($current_resource ne $mapfinish) {
686: if ($hash{'src_'.$current_resource}=~/\.sequence$/) {
687: push @resourcelist,&coming_from_hash_whole($hash{'src_'.$current_resource});
688: } else {
689: $mainsequence =~ /\/res\/(.*)$/;
690: my $presymb = $1;
691: my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}};
692: if ($rid=~/,/) {
693: my @rid = split /,/, $rid;
694: foreach my $rid_element (@rid) {
695: if ($rid_element =~ m/^$mapid\.(\d*)/) {
696: $rid = $1;
697: last;
698: }
699: }
700: } else {
701: $rid =~ m/^$mapid\.(\d*)/;
702: $rid = $1;
703: }
704: $hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/;
705: my $symb = $presymb.'___'.$rid.'___'.$1;
706: push @resourcelist,$hash{'src_'.$current_resource}.'&&'.$symb;
707: }
708: $current_resource = $hash{'goesto_'.$hash{'to_'.$current_resource}};
709: }
710: return @resourcelist;
711: }
712:
713:
714: sub coming_from_hash {
715:
716: my ($mainsequence,$symb) = @_;
717: my @resourcelist = ();
718: my $mapid = $hash{'map_pc_'.$mainsequence};
719: my $mapstart = $hash{'map_start_'.$mainsequence};
720: my $mapfinish = $hash{'map_finish_'.$mainsequence};
721: my ($presymb) = split(/___/,$symb);
722: $presymb = $presymb.'___';
723: my $current_resource = $mapstart;
724: while ($current_resource ne $mapfinish) {
725: if (not $hash{'src_'.$current_resource}=~/\.sequence$/) {
726: my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}};
727: if ($rid=~/,/) {
728: my @rid = split /,/, $rid;
729: foreach my $rid_element (@rid) {
730: if ($rid_element =~ m/^$mapid\.(\d*)/) {
731: $rid = $1;
732: last;
733: }
734: }
735: } else {
736: $rid =~ m/^$mapid\.(\d*)/;
737: $rid = $1;
738: }
739: $hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/;
740: $symb = $presymb.$rid.'___'.$1;
741: push @resourcelist,$hash{'src_'.$current_resource}.'&&'.$symb;
742: } else {
743: push @resourcelist,&coming_from_hash($hash{'src_'.$current_resource});
744: }
745: $current_resource = $hash{'goesto_'.$hash{'to_'.$current_resource}};
746: }
747: #needs if final resource in the map (type="finish") contains something
748: if (not $hash{'src_'.$current_resource}=~/\.sequence$/) {
749: my $rid = $hash{'ids_'.$hash{'src_'.$current_resource}};
750: if ($rid=~/,/) {
751: my @rid = split /,/, $rid;
752: foreach my $rid_element (@rid) {
753: if ($rid_element =~ m/^$mapid\.(\d*)/) {
754: $rid = $1;
755: last;
756: }
757: }
758: } else {
759: $rid =~ m/^$mapid\.(\d*)/;
760: $rid = $1;
761: }
762: $hash{'src_'.$current_resource} =~ m/\/res\/(.*)$/;
763: $symb = $presymb.$rid.'___'.$1;
764: push @resourcelist,$hash{'src_'.$current_resource}.'&&'.$symb;
765: } else {
766: push @resourcelist,&coming_from_hash($hash{'src_'.$current_resource});
767: }
768: return @resourcelist;
769: }
770:
771:
772: sub latex_header_footer_remove {
773: my $text = shift;
774: $text =~ s/\\end{document}//;
775: $text =~ s/\\documentclass([^&]*)\\begin{document}//;
776: return $text;
777: }
778:
779:
780: sub character_chart {
781: my $result = shift;
782: $result =~ s/�?0?7;//g;
783: $result =~ s/�?0?9;//g;
784: $result =~ s/�?10;//g;
785: $result =~ s/�?13;//g;
786: $result =~ s/�?32;/ /g;
787: $result =~ s/�?33;/!/g;
788: $result =~ s/�?34;/"/g;
789: $result =~ s/"/"/g; #"
790: $result =~ s/�?35;/\\#/g;
791: # $result =~ s/�?36;/\\\$/g;
792: $result =~ s/�?37;/\\%/g;
793: $result =~ s/�?38;/\\&/g;
794: $result =~ s/&/\\&/g;
795: $result =~ s/�?39;/'/g;
796: $result =~ s/�?40;/(/g;
797: $result =~ s/�?41;/)/g;
798: $result =~ s/�?42;/\*/g;
799: $result =~ s/�?43;/\+/g;
800: $result =~ s/�?44;/,/g;
801: $result =~ s/�?45;/-/g;
802: $result =~ s/�?46;/\./g;
803: $result =~ s/�?47;/\//g;
804: $result =~ s/�?48;/0/g;
805: $result =~ s/�?49;/1/g;
806: $result =~ s/�?50;/2/g;
807: $result =~ s/�?51;/3/g;
808: $result =~ s/�?52;/4/g;
809: $result =~ s/�?53;/5/g;
810: $result =~ s/�?54;/6/g;
811: $result =~ s/�?55;/7/g;
812: $result =~ s/�?56;/8/g;
813: $result =~ s/�?57;/9/g;
814: $result =~ s/�?58;/:/g;
815: $result =~ s/�?59;/;/g;
816: $result =~ s/�?60;/\$<\$/g;
817: $result =~ s/</\$<\$/g;
818: $result =~ s/�?61;/\$=\$/g;
819: $result =~ s/�?62;/\$>\$/g;
820: $result =~ s/>/\$>\$/g;
821: $result =~ s/�?63;/?/g;
822: # $result =~ s/�?64;//g;
823: $result =~ s/�?65;/A/g;
824: $result =~ s/�?66;/B/g;
825: $result =~ s/�?67;/C/g;
826: $result =~ s/�?68;/D/g;
827: $result =~ s/�?69;/E/g;
828: $result =~ s/�?70;/F/g;
829: $result =~ s/�?71;/G/g;
830: $result =~ s/�?72;/H/g;
831: $result =~ s/�?73;/I/g;
832: $result =~ s/�?74;/J/g;
833: $result =~ s/�?75;/K/g;
834: $result =~ s/�?76;/L/g;
835: $result =~ s/�?77;/M/g;
836: $result =~ s/�?78;/N/g;
837: $result =~ s/�?79;/O/g;
838: $result =~ s/�?80;/P/g;
839: $result =~ s/�?81;/Q/g;
840: $result =~ s/�?82;/R/g;
841: $result =~ s/�?83;/S/g;
842: $result =~ s/�?84;/T/g;
843: $result =~ s/�?85;/U/g;
844: $result =~ s/�?86;/V/g;
845: $result =~ s/�?87;/W/g;
846: $result =~ s/�?88;/X/g;
847: $result =~ s/�?89;/Y/g;
848: $result =~ s/�?90;/Z/g;
849: $result =~ s/�?91;/[/g;
850: $result =~ s/�?92;/\\/g;
851: $result =~ s/�?93;/]/g;
852: # $result =~ s/�?94;//g;
853: # $result =~ s/�?95;//g;
854: $result =~ s/�?96;/`/g;
855: $result =~ s/�?97;/a/g;
856: $result =~ s/�?98;/b/g;
857: $result =~ s/�?99;/c/g;
858: $result =~ s/d/d/g;
859: $result =~ s/e/e/g;
860: $result =~ s/f/f/g;
861: $result =~ s/g/g/g;
862: $result =~ s/h/h/g;
863: $result =~ s/i/i/g;
864: $result =~ s/j/j/g;
865: $result =~ s/k/k/g;
866: $result =~ s/l/l/g;
867: $result =~ s/m/m/g;
868: $result =~ s/n/n/g;
869: $result =~ s/o/o/g;
870: $result =~ s/p/p/g;
871: $result =~ s/q/q/g;
872: $result =~ s/r/r/g;
873: $result =~ s/s/s/g;
874: $result =~ s/t/t/g;
875: $result =~ s/u/u/g;
876: $result =~ s/v/v/g;
877: $result =~ s/w/w/g;
878: $result =~ s/x/x/g;
879: $result =~ s/y/y/g;
880: $result =~ s/z/z/g;
881: $result =~ s/{/\\{/g;
882: $result =~ s/|/\|/g;
883: $result =~ s/}/\\}/g;
884: $result =~ s/~/\~/g;
885: $result =~ s/‚/,/g;
886: # $result =~ s/ƒ//g;
887: $result =~ s/„/''/g;
888: $result =~ s/…/\$\\ldots\$/g;
889: $result =~ s/†/\$\\dagger\$/g;
890: $result =~ s/‡/\$\\ddagger\$/g;
891: # $result =~ s/ˆ//g;
892: # $result =~ s/‰//g;
893: # $result =~ s/Š//g;
894: $result =~ s/‹/\$<\$/g;
895: # $result =~ s/Œ//g;
896: $result =~ s/‘/`/g;
897: $result =~ s/’/'/g;
898: $result =~ s/“/``/g;
899: $result =~ s/”/''/g;
900: $result =~ s/•/\$\\bullet\$/g;
901: # $result =~ s/–//g;
902: # $result =~ s/—//g;
903: $result =~ s/˜/~/g;
904: # $result =~ s/™//g;
905: # $result =~ s/š//g;
906: $result =~ s/›/\$>\$/g;
907: $result =~ s/œ/\\{\\oe\\}/g;
908: $result =~ s/Ÿ/\\"\\{Y\\}/g;
909: $result =~ s/ //g;
910: $result =~ s/ //g;
911: $result =~ s/¡/!`/g;
912: $result =~ s/¡/!`/g; #`
913: # $result =~ s/¢//g;
914: # $result =~ s/¢//g;
915: $result =~ s/£/\\pounds/g;
916: $result =~ s/£/\\pounds/g;
917: # $result =~ s/¤//g;
918: # $result =~ s/¤//g;
919: # $result =~ s/¥//g;
920: # $result =~ s/¥//g;
921: # $result =~ s/¦//g;
922: # $result =~ s/¦//g;
923: # $result =~ s/§//g;
924: # $result =~ s/§//g;
925: # $result =~ s/¨//g;
926: # $result =~ s/¨//g;
927: $result =~ s/©/\\copyright/g;
928: $result =~ s/©/\\copyright/g;
929: # $result =~ s/ª//g;
930: # $result =~ s/ª//g;
931: # $result =~ s/«//g;
932: # $result =~ s/«//g;
933: $result =~ s/¬/\$\\neg\$/g;
934: $result =~ s/¬/\$\\neg\$/g;
935: # $result =~ s/­//g;
936: # $result =~ s/­//g;
937: # $result =~ s/®//g;
938: # $result =~ s/®//g;
939: # $result =~ s/¯//g;
940: # $result =~ s/¯//g;
941: $result =~ s/°/\$^{\\circ}\$/g;
942: $result =~ s/°/\$^{\\circ}\$/g;
943: $result =~ s/±/\$\\pm\$/g;
944: $result =~ s/±/\$\\pm\$/g;
945: $result =~ s/²/\$^2\$/g;
946: $result =~ s/²/\$^2\$/g;
947: $result =~ s/³/\$^3\$/g;
948: $result =~ s/³/\$^3\$/g;
949: # $result =~ s/´//g;
950: # $result =~ s/´//g;
951: $result =~ s/µ/\$\\mu\$/g;
952: $result =~ s/µ/\$\\mu\$/g;
953: $result =~ s/¶/\\P/g;
954: $result =~ s/¶/\\P/g;
955: $result =~ s/·/\$\\cdot\$/g;
956: $result =~ s/·/\$\\cdot\$/g;
957: # $result =~ s/¸//g;
958: # $result =~ s/¸//g;
959: $result =~ s/¹/\$^1\$/g;
960: $result =~ s/¹/\$^1\$/g;
961: # $result =~ s/º//g;
962: # $result =~ s/º//g;
963: # $result =~ s/»//g;
964: # $result =~ s/»//g;
965: # $result =~ s/¼//g;
966: # $result =~ s/¼//g;
967: # $result =~ s/½//g;
968: # $result =~ s/½//g;
969: # $result =~ s/¾//g;
970: # $result =~ s/¾//g;
971: $result =~ s/¿/?`/g;
972: $result =~ s/¿/?`/g; #`
973: $result =~ s/À/\\`{A}/g;
974: $result =~ s/À/\\`{A}/g; #`
975: $result =~ s/Á/\\'{A}/g;
976: $result =~ s/Á/\\'{A}/g; #'
977: $result =~ s/Â/\\^{A}/g;
978: $result =~ s/Â/\\^{A}/g;
979: $result =~ s/Ã/\\~{A}/g;
980: $result =~ s/Ã/\\~{A}/g;
981: $result =~ s/Ä/\\"{A}/g;
982: $result =~ s/Ä/\\"{A}/g; #"
983: $result =~ s/Å/{\\AA}/g;
984: $result =~ s/Å/{\\AA}/g;
985: $result =~ s/Æ/{\\AE}/g;
986: $result =~ s/Æ/{\\AE}/g;
987: # $result =~ s/Ç//g;
988: # $result =~ s/Ç//g;
989: $result =~ s/È/\\`{E}/g;
990: $result =~ s/È/\\`{E}/g; #`
991: $result =~ s/É/\\'{E}/g; #'
992: $result =~ s/É/\\'{E}/g; #'
993: $result =~ s/Ê/\\^{E}/g;
994: $result =~ s/Ê/\\^{E}/g;
995: $result =~ s/Ë/\\`{E}/g;
996: $result =~ s/Ë/\\`{E}/g; #`
997: $result =~ s/Ì/\\`{I}/g;
998: $result =~ s/Ì/\\`{I}/g; #`
999: $result =~ s/Í/\\'{I}/g;
1000: $result =~ s/Í/\\'{I}/g; #'
1001: $result =~ s/Î/\\^{I}/g;
1002: $result =~ s/Î/\\^{I}/g;
1003: $result =~ s/Ï/\\"{I}/g;
1004: $result =~ s/Ï/\\"{I}/g; #"
1005: # $result =~ s/Ð//g;
1006: # $result =~ s/Ð//g;
1007: $result =~ s/Ñ/\\~{N}/g;
1008: $result =~ s/Ñ/\\~{N}/g;
1009: $result =~ s/Ò/\\`{O}/g;
1010: $result =~ s/Ò/\\`{O}/g; #`
1011: $result =~ s/Ó/\\'{O}/g;
1012: $result =~ s/Ó/\\'{O}/g; #'
1013: $result =~ s/Ô/\\^{O}/g;
1014: $result =~ s/Ô/\\^{O}/g;
1015: $result =~ s/Õ/\\~{O}/g;
1016: $result =~ s/Õ/\\~{O}/g;
1017: $result =~ s/Ö/\\"{O}/g;
1018: $result =~ s/Ö/\\"{O}/g; #"
1019: $result =~ s/×/\$\\times\$/g;
1020: $result =~ s/×/\$\\times\$/g;
1021: $result =~ s/Ø/{\\O}/g;
1022: $result =~ s/Ø/{\\O}/g;
1023: $result =~ s/Ù/\\`{U}/g;
1024: $result =~ s/Ù/\\`{U}/g; #`
1025: $result =~ s/Ú/\\'{U}/g; #'
1026: $result =~ s/Ú/\\'{U}/g; #'
1027: $result =~ s/Û/\\^{U}/g;
1028: $result =~ s/Û/\\^{U}/g;
1029: $result =~ s/Ü/\\"{U}/g; #"
1030: $result =~ s/Ü/\\"{U}/g; #"
1031: $result =~ s/Ý/\\'{Y}/g;
1032: $result =~ s/Ý/\\'{Y}/g; #'
1033: # $result =~ s/Þ//g;
1034: # $result =~ s/Þ//g;
1035: # $result =~ s/ß//g;
1036: # $result =~ s/ß//g;
1037: $result =~ s/à/\\`{a}/g;
1038: $result =~ s/à/\\`{a}/g; #`
1039: $result =~ s/á/\\'{a}/g;
1040: $result =~ s/á/\\'{a}/g; #'
1041: $result =~ s/â/\\^{a}/g;
1042: $result =~ s/â/\\^{a}/g;
1043: $result =~ s/ã/\\~{a}/g;
1044: $result =~ s/ã/\\~{a}/g;
1045: $result =~ s/ä/\\"{a}/g;
1046: $result =~ s/ä/\\"{a}/g; #"
1047: $result =~ s/å/{\\aa}/g;
1048: $result =~ s/å/{\\aa}/g;
1049: $result =~ s/æ/{\\ae}/g;
1050: $result =~ s/æ/{\\ae}/g;
1051: # $result =~ s/ç//g;
1052: # $result =~ s/ç//g;
1053: $result =~ s/è/\\`{e}/g;
1054: $result =~ s/è/\\`{e}/g; #`
1055: $result =~ s/é/\\'{e}/g;
1056: $result =~ s/é/\\'{e}/g; #'
1057: $result =~ s/ê/\\^{e}/g;
1058: $result =~ s/ê/\\^{e}/g;
1059: $result =~ s/ë/\\"{e}/g;
1060: $result =~ s/ë/\\"{e}/g; #"
1061: $result =~ s/ì/\\`{i}/g;
1062: $result =~ s/ì/\\`{i}/g; #`
1063: $result =~ s/í/\\'{i}/g;
1064: $result =~ s/í/\\'{i}/g; #'
1065: $result =~ s/î/\\^{i}/g;
1066: $result =~ s/î/\\^{i}/g;
1067: $result =~ s/ï/\\"{i}/g;
1068: $result =~ s/ï/\\"{i}/g; #"
1069: # $result =~ s/ð//g;
1070: # $result =~ s/ð//g;
1071: $result =~ s/ñ/\\~{n}/g;
1072: $result =~ s/ñ/\\~{n}/g;
1073: $result =~ s/ò/\\`{o}/g;
1074: $result =~ s/ò/\\`{o}/g; #`
1075: $result =~ s/ó/\\'{o}/g;
1076: $result =~ s/ó/\\'{o}/g; #'
1077: $result =~ s/ô/\\^{o}/g;
1078: $result =~ s/ô/\\^{o}/g;
1079: $result =~ s/õ/\\~{o}/g;
1080: $result =~ s/õ/\\~{o}/g;
1081: $result =~ s/ö/\\"{o}/g;
1082: $result =~ s/ö/\\"{o}/g; #"
1083: $result =~ s/÷/\$\\div\$/g;
1084: $result =~ s/÷/\$\\div\$/g;
1085: $result =~ s/ø/{\\o}/g;
1086: $result =~ s/ø/{\\o}/g;
1087: $result =~ s/ù/\\`{u}/g;
1088: $result =~ s/ù/\\`{u}/g; #`
1089: $result =~ s/ú/\\'{u}/g;
1090: $result =~ s/ú/\\'{u}/g; #'
1091: $result =~ s/û/\\^{u}/g;
1092: $result =~ s/û/\\^{u}/g;
1093: $result =~ s/ü/\\"{u}/g;
1094: $result =~ s/ü/\\"{u}/g; #"
1095: $result =~ s/ý/\\'{y}/g;
1096: $result =~ s/ý/\\'{y}/g; #'
1097: # $result =~ s/þ//g;
1098: # $result =~ s/þ//g;
1099: $result =~ s/ÿ/\\"{y}/g;
1100: $result =~ s/ÿ/\\"{y}/g; #"
1101: $result =~ s/θ/\$\\theta\$/g; #converts theta from html into tex
1102: return $result;
1103: }
1104:
1105:
1106: sub page_format {
1107: my ($papersize,$layout,$numberofcolumns) = @_;
1108: my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0);
1109: if ($papersize=~/Letter/) {
1110: if ($layout eq 'CAPA') {
1111: if ($numberofcolumns == 1) {
1112: $textwidth = '18 cm';
1113: $textheight = '25.9 cm';
1114: $oddoffset = '-0.57 in';
1115: $evenoffset = '-0.57 in';
1116: } elsif ($numberofcolumns == 2) {
1117: $textwidth = '93 mm';
1118: $textheight = '25.9 cm';
1119: $oddoffset = '-0.57 in';
1120: $evenoffset = '-0.57 in';
1121: }
1122: } elsif ($layout eq 'CBI') {
1123: if ($numberofcolumns eq '1') {
1124: $textwidth = '8.8 in';
1125: $textheight = '6.8 in';
1126: $oddoffset = '-40 pt';
1127: $evenoffset = '-60 pt';
1128: } elsif ($numberofcolumns == 2) {
1129: $textwidth = '4.2 in';
1130: $textheight = '6.8 in';
1131: $oddoffset = '-40 pt';
1132: $evenoffset = '-60 pt';
1133: }
1134: }
1135: # } elsif($papersize=~/Legal/) {
1136: # } elsif($papersize=~/Ledger/) {
1137: # } elsif($papersize=~/Executive/) {
1138: } elsif($papersize=~/A4/) {
1139: if ($layout eq 'CAPA') {
1140: if ($numberofcolumns == 1) {
1141: $textwidth = '18 cm';
1142: $textheight = '28 cm';
1143: $oddoffset = '-0.57 in';
1144: $evenoffset = '-0.57 in';
1145: } elsif ($numberofcolumns == 2) {
1146: $textwidth = '96 mm';
1147: $textheight = '2 cm';
1148: $oddoffset = '-0.57 in';
1149: $evenoffset = '-0.57 in';
1150: }
1151: } elsif ($layout eq 'CBI') {
1152: if ($numberofcolumns eq '1') {
1153: $textwidth = '8.5 in';
1154: $textheight = '7.7 in';
1155: $oddoffset = '-40 pt';
1156: $evenoffset = '-60 pt';
1157: } elsif ($numberofcolumns == 2) {
1158: $textwidth = '3.9 in';
1159: $textheight = '7.7 in';
1160: $oddoffset = '-40 pt';
1161: $evenoffset = '-60 pt';
1162: }
1163: }
1164: # } elsif($papersize=~/A3/) {
1165: # } elsif($papersize=~/A2/) {
1166: # } elsif($papersize=~/A5/) {
1167: # } elsif($papersize=~/A6/) {
1168: }
1169: return $textwidth,$textheight,$oddoffset,$evenoffset;
1170: }
1171:
1172:
1173: sub page_format_transformation {
1174: my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_;
1175: my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns);
1176: my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
1177: if ($layout eq 'CBI') {
1178: $text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}}} \\hfill $courseidinfo} \\vskip 5 mm /;
1179: } elsif ($layout eq 'CAPA') {
1180: if ($choice ne 'All class print') {
1181: $text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\setlength{\\topmargin}{1cm}\\setlength{\\headheight}{1cm}\\setlength{\\headsep}{0.5cm}\\markboth{}{\\textbf{$ENV{'environment.firstname'} $ENV{'environment.lastname'}} $courseidinfo - $assignment}\\pagestyle{myheadings}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1}/;
1182: } else {
1183: $text =~ s/\\begin{document}/\\setlength{\\textheight}{$textheight}\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\textwidth}{$textwidth}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\begin{document}\\voffset=-1\.8cm\\setcounter{page}{1} \\vskip 5 mm /;
1184: }
1185: }
1186: return $text;
1187: }
1188:
1189:
1190: sub page_cleanup {
1191: my $result = shift;
1192:
1193: $result =~ m/\\end{document}(\d*)$/;
1194: my $number_of_columns = $1;
1195: my $insert = '{';
1196: for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; }
1197: $insert .= '}';
1198: $result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g;
1199: $result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g;
1200: return $result,$number_of_columns;
1201: }
1202:
1203:
1204: sub details_for_menu {
1205:
1206: my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}};
1207: my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'});
1208: my ($map,$id,$resource)=split(/___/,$symbolic);
1209: my $name_of_sequence = $hash{'title_'.$hash{'ids_/res/'.$map}};
1210: if ($name_of_sequence =~ /^\s*$/) {
1211: $map =~ m|([^/]+)$|;
1212: $name_of_sequence = $1;
1213: }
1214: my $name_of_map = $hash{'title_'.$hash{'ids_/res/'.$ENV{'request.course.uri'}}};
1215: if ($name_of_map =~ /^\s*$/) {
1216: $ENV{'request.course.uri'} =~ m|([^/]+)$|;
1217: $name_of_map = $1;
1218: }
1219: return ($name_of_resourse,$name_of_sequence,$name_of_map);
1220:
1221: }
1222:
1223:
1224: sub latex_corrections {
1225:
1226: my ($number_of_columns,$result) = @_;
1227:
1228: $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g;
1229: $result =~ s/\$number_of_columns/$number_of_columns/g;
1230: $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/;
1231: $result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g;
1232: $result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g;
1233: #-- LaTeX corrections
1234: my $first_comment = index($result,'<!--',0);
1235: while ($first_comment != -1) {
1236: my $end_comment = index($result,'-->',$first_comment);
1237: substr($result,$first_comment,$end_comment-$first_comment+3) = '';
1238: $first_comment = index($result,'<!--',$first_comment);
1239: }
1240: $result =~ s/^\s+$//gm; #remove empty lines
1241: $result =~ s/(\s)+/$1/g; #removes more than one empty space
1242: $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
1243: $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g;
1244: $result =~ s/{\\par }\s*\\\\/\\\\/gm;
1245: $result =~ s/\\\\\s+\[/ \[/g;
1246: $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g;
1247: #conversion of html characters to LaTeX equivalents
1248: if ($result =~ m/&(\w+|#\d+);/) {
1249: $result = &character_chart($result);
1250: }
1251: $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;
1252: $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;
1253:
1254: return $result;
1255: }
1256:
1257:
1258: sub handler {
1259:
1260: my $r = shift;
1261:
1262: my $loaderror=&Apache::lonnet::overloaderror($r);
1263: if ($loaderror) { return $loaderror; }
1264: $loaderror=
1265: &Apache::lonnet::overloaderror($r,
1266: $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
1267: if ($loaderror) { return $loaderror; }
1268:
1269: $r->content_type('text/html');
1270: $r->send_http_header;
1271: $r->print(&Apache::loncommon::bodytag("Printing"));
1272:
1273: if ($ENV{'request.course.id'}) {
1274: my $fn=$ENV{'request.course.fn'};
1275: tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640);
1276: }
1277:
1278: #-- start form
1279: &headerform($r);
1280: #-- menu for output
1281: unless ($ENV{'form.phase'}) {
1282: &menu_for_output($r);
1283: }
1284: #-- additional menu for class printing
1285: if ($ENV{'form.phase'} eq 'two') {
1286: if($ENV{'form.choice'} eq 'Standard LaTeX output for whole primary sequence') {
1287: &sequence_content_menu(0,$r);
1288: } elsif($ENV{'form.choice'} eq 'Standard LaTeX output for the primary sequence') {
1289: &sequence_content_menu(1,$r);
1290: } elsif($ENV{'form.choice'} eq 'All class print') {
1291: &additional_class_menu($r);
1292: } elsif($ENV{'form.choice'} eq 'Subdirectory print') {
1293: &problem_choice_menu($r);
1294: } else {
1295: $ENV{'form.phase'} = 'three';
1296: }
1297: }
1298: #-- additional menu for page layout (one column case)
1299: if ($ENV{'form.phase'} eq 'three') {
1300: if($ENV{'form.numberofcolumns'} == 1) {
1301: &additional_print_menu($r);
1302: } else {
1303: $ENV{'form.phase'} = 'four';
1304: }
1305: }
1306: #-- core part
1307: if ($ENV{'form.phase'} eq 'four') {
1308: &output_data($r);
1309: }
1310: untie %hash;
1311: return OK;
1312:
1313: }
1314:
1315:
1316: 1;
1317: __END__
1318:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>