Annotation of loncom/interface/lonprintout.pm, revision 1.589
1.562 foxr 1: #
1.389 foxr 2: # The LearningOnline Network
1.1 www 3: # Printout
4: #
1.589 ! foxr 5: # $Id: lonprintout.pm,v 1.588 2011/05/18 11:26:44 foxr Exp $
1.11 albertel 6: #
7: # Copyright Michigan State University Board of Trustees
8: #
9: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
10: #
11: # LON-CAPA is free software; you can redistribute it and/or modify
12: # it under the terms of the GNU General Public License as published by
13: # the Free Software Foundation; either version 2 of the License, or
14: # (at your option) any later version.
15: #
16: # LON-CAPA is distributed in the hope that it will be useful,
17: # but WITHOUT ANY WARRANTY; without even the implied warranty of
18: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19: # GNU General Public License for more details.
20: #
21: # You should have received a copy of the GNU General Public License
22: # along with LON-CAPA; if not, write to the Free Software
23: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24: #
25: # /home/httpd/html/adm/gpl.txt
26: # http://www.lon-capa.org/
27: #
1.3 sakharuk 28: #
1.1 www 29: package Apache::lonprintout;
30: use strict;
1.10 albertel 31: use Apache::Constants qw(:common :http);
1.2 sakharuk 32: use Apache::lonxml;
33: use Apache::lonnet;
1.54 sakharuk 34: use Apache::loncommon;
1.13 sakharuk 35: use Apache::inputtags;
1.54 sakharuk 36: use Apache::grades;
1.13 sakharuk 37: use Apache::edit;
1.5 sakharuk 38: use Apache::File();
1.68 sakharuk 39: use Apache::lonnavmaps;
1.511 foxr 40: use Apache::admannotations;
1.521 foxr 41: use Apache::lonenc;
1.531 foxr 42: use Apache::entities;
1.550 foxr 43: use Apache::londefdef;
44:
45: use File::Basename;
1.531 foxr 46:
1.515 foxr 47: use HTTP::Response;
1.511 foxr 48:
1.491 albertel 49: use LONCAPA::map();
1.34 sakharuk 50: use POSIX qw(strftime);
1.255 www 51: use Apache::lonlocal;
1.429 foxr 52: use Carp;
1.439 www 53: use LONCAPA;
1.60 sakharuk 54:
1.588 foxr 55:
1.397 albertel 56: my %perm;
1.454 foxr 57: my %parmhash;
1.459 foxr 58: my $resources_printed;
1.454 foxr 59:
1.515 foxr 60: # Global variables that describe errors in ssi calls detected by ssi_with_retries.
61: #
62:
63: my $ssi_error; # True if there was an ssi error.
64: my $ssi_last_error_resource; # The resource URI that could not be fetched.
65: my $ssi_last_error; # The error text from the server. (e.g. 500 Server timed out).
66:
67: #
68: # Our ssi max retry count.
69: #
70:
71: my $ssi_retry_count = 5; # Some arbitrary value.
72:
73:
1.556 foxr 74: # Font size:
75:
76: my $font_size = 'normalsize'; # Default is normalsize...
77:
1.562 foxr 78: #---------------------------- Helper helpers. -------------------------
79:
80: # Returns the text needd for a student chooser.
81: # that text must still be parsed by the helper xml parser.
82: # Parameters:
83: # this_state - State name of the chooser.
84: # sort_choice - variable to hold the sorting choice.
85: # variable - Name of variable to hold students.
86: # next_state - State after chooser.
87:
88:
89: sub generate_student_chooser {
90: my ($this_state,
91: $sort_choice,
92: $variable,
93: $next_state) = @_;
94: my $result = <<CHOOSE_STUDENTS;
95: <state name="$this_state" title="Select Students and Resources">
96: <message><b>Select sorting order of printout</b> </message>
97:
98: <choices variable="$sort_choice">
99: <choice computer='0'>Sort by section then student</choice>
100: <choice computer='1'>Sort by students across sections.</choice>
101: </choices>
102:
103: <message><br /><hr /><br /> </message>
104: <student multichoice='1'
105: variable="$variable"
106: nextstate="$next_state"
107: coursepersonnel="1" />
108: </state>
109:
110: CHOOSE_STUDENTS
111:
112: return $result;
113: }
114:
115: # Generate the text needed for a resource chooser given the top level of
116: # the sequence/page
117: #
118: # Parameters:
119: # this_state - State name of the chooser.
120: # prompt_text - Text to use to prompt user.
121: # resource_options - Resource tag options e.g.
122: # "multichoice='1', toponly='1', addstatus='1'"
123: # that control the selection and appearance of the
124: # resource selector.
125: # variable - Name of the variable to hold the choice
126: # next_state - Name of the next state the helper should transition
127: # to
128: # top_url - Top level URL within which to make the selector.
129: # If empty the top level sequence is shown.
130: # filter - How to filter the resources.
131: # value_func - <valuefunc> function.
132: # choice_func - If not empty generates a <choicefunc> with this function.
133: # start_new_option
134: # - Fragment appended after valuefunc.
135: #
136: #
137: sub generate_resource_chooser {
138: my ($this_state,
139: $prompt_text,
140: $resource_options,
141: $variable,
142: $next_state,
143: $top_url,
144: $filter,
145: $choice_func,
146: $value_func,
147: $start_new_option) = @_;
148:
149: my $result = <<CHOOSE_RESOURCES;
150: <state name="$this_state" title="$prompt_text">
151: <resource variable="$variable" $resource_options
152: closeallpages="1">
153: <nextstate>$next_state</nextstate>
154: <filterfunc>return $filter;</filterfunc>
155: CHOOSE_RESOURCES
156: if ($choice_func ne '') {
157: $result .= "<choicefunc>return $choice_func;</choicefunc>";
158: }
159: if ($top_url ne '') {
160: $result .= "<mapurl>$top_url</mapurl>";
161: }
162: $result .= <<CHOOSE_RESOURCES;
163: <valuefunc>return $value_func;</valuefunc>
164: $start_new_option
165: </resource>
166: </state>
167: CHOOSE_RESOURCES
168:
169: return $result;
170: }
171: #
172: # Generate the helper XML for a code choice helper dialog:
173: #
174: # Paramters:
175: # $helper - Reference to the helper.
176: # $state - Name of the state for the chooser.
177: # $next_state - Name fo the state to follow the chooser.
178: # $bubble_types - Populates the bubble sheet type dropt down.
179: # $code_selections - Provides set of code choices that have been used
180: # $saved_codes - Provides the list of saved codes.
181: #
182: # Returns;
183: # The Xml of the code chooser.
184: #
185: sub generate_code_selector {
186: my ($helper,
187: $state,
188: $next_state,
189: $bubble_types,
190: $code_selections,
191: $saved_codes) = @_; # Unpack the parameters.
192:
193: my $result = <<CHOOSE_ANON1;
194: <state name="$state" title="Specify CODEd Assignments">
195: <nextstate>$next_state</nextstate>
196: <message><h4>Fill out one of the forms below</h4></message>
197: <message><br /><hr /> <br /></message>
198: <message><h3>Generate new CODEd Assignments</h3></message>
199: <message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message>
1.579 foxr 200: <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5" noproceed="1">
1.562 foxr 201: <validator>
202: if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&
203: !\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
204: !\$helper->{'VARS'}{'SINGLE_CODE'} &&
1.578 foxr 205: !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'} ) {
206:
1.562 foxr 207: return "You need to specify the number of assignments to print";
208: }
1.578 foxr 209: if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) >= 1) &&
210: (\$helper->{'VARS'}{'SINGLE_CODE'} ne '') ) {
211: return 'Specifying number of codes to print and a specific code is not compatible';
212: }
1.562 foxr 213: return undef;
214: </validator>
215: </string>
216: <message></td></tr><tr><td></message>
217: <message><b>Names to save the CODEs under for later:</b></message>
218: <message></td><td></message>
219: <string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" />
220: <message></td></tr><tr><td></message>
221: <message><b>Bubble sheet type:</b></message>
222: <message></td><td></message>
223: <dropdown variable="CODE_OPTION" multichoice="0" allowempty="0">
224: $bubble_types
225: </dropdown>
226: <message></td></tr><tr><td colspan="2"></td></tr><tr><td></message>
227: <message></td></tr><tr><td></table></message>
228: <message><br /><hr /><h3>Print a Specific CODE </h3><br /><table></message>
229: <message><tr><td><b>Enter a CODE to print:</b></td><td></message>
230: <string variable="SINGLE_CODE" size="10">
231: <validator>
232: if(!\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'} &&
233: !\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
234: !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
235: return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'},
236: \$helper->{'VARS'}{'CODE_OPTION'});
1.577 foxr 237: } elsif (\$helper->{'VARS'}{'SINGLE_CODE'} ne ''){
1.578 foxr 238: return 'Specifying a code name is incompatible with specifying number of codes.';
1.562 foxr 239: } else {
240: return undef; # Other forces control us.
241: }
242: </validator>
243: </string>
244: <message></td></tr><tr><td></message>
245: $code_selections
246: <message></td></tr></table></message>
247: <message><hr /><h3>Reprint a Set of Saved CODEs</h3><table><tr><td></message>
248: <message><b>Select saved CODEs:</b></message>
249: <message></td><td></message>
250: <dropdown variable="REUSE_OLD_CODES">
251: $saved_codes
252: </dropdown>
253: <message></td></tr></table></message>
254: </state>
255: CHOOSE_ANON1
256:
257: return $result;
258: }
259:
1.586 raeburn 260: sub generate_format_selector {
261: my ($helper,$title,$nextstate) = @_;
262: my $secpdfoption;
263: unless (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') ||
264: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon_page') ||
265: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) {
266: $secpdfoption = '<choice computer="sections">Each PDF contains exactly one section</choice>';
267: }
268: return <<RESOURCE_SELECTOR;
269: <state name="PRINT_FORMATTING" title="$title">
270: $nextstate
271: <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message>
272: <choices variable="EMPTY_PAGES">
273: <choice computer='0'>Start each student\'s assignment on a new page/column (add a pagefeed after each assignment)</choice>
274: <choice computer='1'>Add one empty page/column after each student\'s assignment</choice>
275: <choice computer='2'>Add two empty pages/column after each student\'s assignment</choice>
276: <choice computer='3'>Add three empty pages/column after each student\'s assignment</choice>
277: </choices>
278: <nextstate>PAGESIZE</nextstate>
279: <message><hr width='33%' /><b>How do you want assignments split into PDF files? </b></message>
280: <choices variable="SPLIT_PDFS">
281: <choice computer="all">All assignments in a single PDF file</choice>
282: $secpdfoption
283: <choice computer="oneper">Each PDF contains exactly one assignment</choice>
284: <choice computer="usenumber" relatedvalue="NUMBER_TO_PRINT">
285: Specify the number of assignments per PDF:</choice>
286: </choices>
287: </state>
288: RESOURCE_SELECTOR
289: }
290:
1.562 foxr 291: #-----------------------------------------------------------------------
292:
1.515 foxr 293:
1.498 foxr 294: # Fetch the contents of a resource, uninterpreted.
295: # This is used here to fetch a latex file to be included
296: # verbatim into the printout<
297: # NOTE: Ask Guy if there is a lonnet function similar to this?
298: #
299: # Parameters:
300: # URL of the file
301: #
302: sub fetch_raw_resource {
303: my ($url) = @_;
304:
305: my $filename = &Apache::lonnet::filelocation("", $url);
1.500 foxr 306: my $contents = &Apache::lonnet::getfile($filename);
1.498 foxr 307:
1.500 foxr 308: if ($contents == -1) {
309: return "File open failed for $filename"; # This will bomb the print.
1.498 foxr 310: }
1.500 foxr 311: return $contents;
1.498 foxr 312:
313:
314: }
315:
1.511 foxr 316: # Fetch the annotations associated with a URL and
317: # put a centered 'annotations:' title.
318: # This is all suppressed if the annotations are empty.
319: #
320: sub annotate {
321: my ($symb) = @_;
322:
1.559 foxr 323: my $annotation_text = &Apache::loncommon::get_annotation($symb, 1);
1.511 foxr 324:
325:
326: my $result = "";
327:
328: if (length($annotation_text) > 0) {
329: $result .= '\\hspace*{\\fill} \\\\[\\baselineskip] \textbf{Annotations:} \\\\ ';
330: $result .= "\n";
331: $result .= &Apache::lonxml::latex_special_symbols($annotation_text,""); # Escape latex.
332: $result .= "\n\n";
333: }
334: return $result;
335: }
336:
1.556 foxr 337: #
338: # Set a global document font size:
339: # This is done by replacing \begin{document}
340: # with \begin{document}{\some-font-directive
341: # and \end{document} with
342: # }\end{document
343: #
344: sub set_font_size {
345:
346: my ($text) = @_;
347:
1.575 foxr 348: # There appear to be cases where the font directive is empty.. in which
349: # case the first substituion would insert a spurious \ oh happy day.
350: # as this has been the cause of much mystery and hair pulling _sigh_
351:
352: if ($font_size ne '') {
353:
354: $text =~ s/\\begin{document}/\\begin{document}{\\$font_size/;
355: }
1.556 foxr 356: $text =~ s/\\end{document}/}\\end{document}/;
357: return $text;
358:
359:
360: }
361:
1.550 foxr 362: # include_pdf - PDF files are included into the
363: # output as follows:
364: # - The PDF, if necessary, is replicated.
365: # - The PDF is added to the list of files to convert to postscript (along with the images).
366: # - The LaTeX is added to include the final converted postscript in the file as an included
367: # job. The assumption is that the includedpsheader.ps header will be included.
368: #
369: # Parameters:
370: # pdf_uri - URI of the PDF file to include.
371: #
372: # Returns:
373: # The LaTeX to include.
374: #
375: # Assumptions:
376: # The uri is actually a PDF file
377: # The postscript will have the includepsheader.ps included.
378: #
379: #
380: sub include_pdf {
381: my ($pdf_uri) = @_;
382:
383: # Where is the file? If not local we'll need to repcopy it:'
384:
385: my $file = &Apache::lonnet::filelocation('', $pdf_uri);
386: if (! -e $file) {
387: &Apache::lonnet::repcopy($file);
388: $file = &Apache::lonnet::filelocation('',$pdf_uri);
389: }
390:
391: # The file isn ow replicated locally.. or it did not exist in the first place
392: # (unlikely). If it did exist, add the pdf to the set of files/images that
393: # need tob e converted for this print job:
394:
395: $file =~ s|(.*)/res/|/home/httpd/html/res/|;
396:
397: open(FILE,">>/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat");
398: print FILE ("$file\n");
399: close (FILE);
400:
401: # Construct the special to put out. To do this we need to get the
402: # resulting filename after conversion. The file will have the same name
403: # but will be in the user's spool directory with converted images.
404:
405: my $dirname = "/home/httpd/prtspool/$env{'user.name'}/";
406: my ( $base, $path, $ext) = &fileparse($file, '.pdf');
407: # my $destname = $dirname.'/'.$base.'.eps'; # Not really an eps but easier in printout.pl
408: $base =~ s/ /\_/g;
409:
410:
1.551 foxr 411: my $output = &print_latex_header();
1.550 foxr 412: $output .= '\special{ps: _begin_job_ ('
413: .$base.'.pdf.eps'.
414: ')run _end_job_}';
415:
416: return $output;
417:
418:
419: }
420:
1.515 foxr 421:
422: #
1.559 foxr 423: # ssi_with_retries- Does the server side include of a resource.
1.515 foxr 424: # if the ssi call returns an error we'll retry it up to
425: # the number of times requested by the caller.
426: # If we still have a proble, no text is appended to the
427: # output and we set some global variables.
1.523 raeburn 428: # to indicate to the caller an SSI error occurred.
1.515 foxr 429: # All of this is supposed to deal with the issues described
430: # in LonCAPA BZ 5631 see:
431: # http://bugs.lon-capa.org/show_bug.cgi?id=5631
432: # by informing the user that this happened.
433: #
434: # Parameters:
435: # resource - The resource to include. This is passed directly, without
436: # interpretation to lonnet::ssi.
437: # form - The form hash parameters that guide the interpretation of the resource
438: #
439: # retries - Number of retries allowed before giving up completely.
440: # Returns:
441: # On success, returns the rendered resource identified by the resource parameter.
442: # Side Effects:
443: # The following global variables can be set:
1.523 raeburn 444: # ssi_error - If an unrecoverable error occurred this becomes true.
1.515 foxr 445: # It is up to the caller to initialize this to false
446: # if desired.
1.523 raeburn 447: # ssi_last_error_resource - If an unrecoverable error occurred, this is the value
1.515 foxr 448: # of the resource that could not be rendered by the ssi
449: # call.
450: # ssi_last_error - The error string fetched from the ssi response
451: # in the event of an error.
452: #
453: sub ssi_with_retries {
454: my ($resource, $retries, %form) = @_;
455:
1.559 foxr 456: my $target = $form{'grade_target'};
457: my $aom = $form{'answer_output_mode'};
458:
459:
1.515 foxr 460:
1.516 foxr 461: my ($content, $response) = &Apache::loncommon::ssi_with_retries($resource, $retries, %form);
462: if (!$response->is_success) {
1.515 foxr 463: $ssi_error = 1;
464: $ssi_last_error_resource = $resource;
1.516 foxr 465: $ssi_last_error = $response->code . " " . $response->message;
1.528 raeburn 466: $content='\section*{!!! An error occurred !!!}';
1.519 foxr 467: &Apache::lonnet::logthis("Error in SSI resource: $resource Error: $ssi_last_error");
1.515 foxr 468: }
1.516 foxr 469:
470: return $content;
471:
1.515 foxr 472: }
473:
1.524 www 474: sub get_student_view_with_retries {
475: my ($curresline,$retries,$username,$userdomain,$courseid,$target,$moreenv)=@_;
476:
477: my ($content, $response) = &Apache::loncommon::get_student_view_with_retries($curresline,$retries,$username,$userdomain,$courseid,$target,$moreenv);
478: if (!$response->is_success) {
479: $ssi_error = 1;
1.526 www 480: $ssi_last_error_resource = $curresline.' for user '.$username.':'.$userdomain;
1.524 www 481: $ssi_last_error = $response->code . " " . $response->message;
1.528 raeburn 482: $content='\section*{!!! An error occurred !!!}';
1.526 www 483: &Apache::lonnet::logthis("Error in SSI (student view) resource: $curresline Error: $ssi_last_error User: $username:$userdomain");
1.524 www 484: }
485: return $content;
486:
487: }
488:
1.486 foxr 489: #
490: # printf_style_subst item format_string repl
491: #
492: # Does printf style substitution for a format string that
493: # can have %[n]item in it.. wherever, %[n]item occurs,
494: # rep is substituted in format_string. Note that
495: # [n] is an optional integer length. If provided,
496: # repl is truncated to at most [n] characters prior to
497: # substitution.
498: #
499: sub printf_style_subst {
500: my ($item, $format_string, $repl) = @_;
1.490 foxr 501: my $result = "";
502: while ($format_string =~ /(%)(\d*)\Q$item\E/g ) {
1.488 albertel 503: my $fmt = $1;
504: my $size = $2;
1.486 foxr 505: my $subst = $repl;
506: if ($size ne "") {
507: $subst = substr($subst, 0, $size);
1.490 foxr 508:
509: # Here's a nice edge case.. supose the end of the
510: # substring is a \. In that case may have just
511: # chopped off a TeX escape... in that case, we append
512: # " " for the trailing character, and let the field
513: # spill over a bit (sigh).
514: # We don't just chop off the last character in order to deal
515: # with one last pathology, and that would be if substr had
516: # trimmed us to e.g. \\\
517:
518:
519: if ($subst =~ /\\$/) {
520: $subst .= " ";
521: }
1.486 foxr 522: }
1.490 foxr 523: my $item_pos = pos($format_string);
524: $result .= substr($format_string, 0, $item_pos - length($size) -2) . $subst;
525: $format_string = substr($format_string, pos($format_string));
1.486 foxr 526: }
1.490 foxr 527:
528: # Put the residual format string into the result:
529:
530: $result .= $format_string;
531:
532: return $result;
1.486 foxr 533: }
534:
1.454 foxr 535:
536: # Format a header according to a format.
537: #
538:
539: # Substitutions:
540: # %a - Assignment name.
541: # %c - Course name.
542: # %n - Student name.
1.537 foxr 543: # %s - The section if it is supplied.
1.454 foxr 544: #
545: sub format_page_header {
1.537 foxr 546: my ($width, $format, $assignment, $course, $student, $section) = @_;
547:
1.565 foxr 548:
549:
1.486 foxr 550: $width = &recalcto_mm($width); # Get width in mm.
1.565 foxr 551: my $chars_per_line = int($width/1.6); # Character/textline.
552:
1.454 foxr 553: # Default format?
554:
555: if ($format eq '') {
1.486 foxr 556: # For the default format, we may need to truncate
557: # elements.. To do this we need to get the page width.
558: # we assume that each character is about 2mm in width.
559: # (correct for the header text size??). We ignore
560: # any formatting (e.g. boldfacing in this).
561: #
562: # - Allow the student/course to be one line.
563: # but only truncate the course.
564: # - Allow the assignment to be 2 lines (wrapped).
565: #
1.565 foxr 566:
1.537 foxr 567:
568:
569: my $name_length = int($chars_per_line *3 /4);
570: my $sec_length = int($chars_per_line / 5);
1.486 foxr 571:
1.537 foxr 572: $format = "%$name_length".'n';
1.486 foxr 573:
1.537 foxr 574: if ($section) {
575: $format .= ' - Sec: '."%$sec_length".'s';
1.486 foxr 576: }
1.489 foxr 577:
1.537 foxr 578: $format .= '\\\\%c \\\\ %a';
579:
1.490 foxr 580:
1.454 foxr 581: }
1.537 foxr 582: # An open question is how to handle long user formatted page headers...
583: # A possible future is to support e.g. %na so that the user can control
584: # the truncation of the elements that can appear in the header.
585: #
586: $format = &printf_style_subst("a", $format, $assignment);
587: $format = &printf_style_subst("c", $format, $course);
588: $format = &printf_style_subst("n", $format, $student);
589: $format = &printf_style_subst("s", $format, $section);
590:
591:
592: # If the user put %'s in the format string, they must be escaped
593: # to \% else LaTeX will think they are comments and terminate
594: # the line.. which is bad!!!
595:
1.538 onken 596: # If the user has role author, $course and $assignment are empty so
597: # there is '\\ \\ ' in the page header. That's cause a error in LaTeX
598: if($format =~ /\\\\\s\\\\\s/) {
599: #TODO find sensible caption for page header
600: my $testPrintout = '\\\\'.&mt('Construction Space').' \\\\'.&mt('Test-Printout ');
601: $format =~ s/\\\\\s\\\\\s/$testPrintout/;
602: }
1.565 foxr 603: #
604: # We're going to trust LaTeX to break lines appropriately, but
605: # we'll truncate anything that's more than 3 lines worth of
606: # text. This is also assuming (which will probably end badly)
607: # nobody's going to embed LaTeX control sequences in the title
608: # header or rather that those control sequences won't get broken
609: # by the stuff below.
610: #
611: my $total_length = 3*$chars_per_line;
612: if (length($format) > $total_length) {
613: $format = substr($format, 0, $total_length);
614: }
615:
1.454 foxr 616:
617: return $format;
618:
619: }
1.397 albertel 620:
1.385 foxr 621: #
622: # Convert a numeric code to letters
623: #
624: sub num_to_letters {
625: my ($num) = @_;
626: my @nums= split('',$num);
627: my @num_to_let=('A'..'Z');
628: my $word;
629: foreach my $digit (@nums) { $word.=$num_to_let[$digit]; }
630: return $word;
631: }
632: # Convert a letter code to numeric.
633: #
634: sub letters_to_num {
635: my ($letters) = @_;
636: my @letters = split('', uc($letters));
1.490 foxr 637: my %substitution;
1.385 foxr 638: my $digit = 0;
639: foreach my $letter ('A'..'J') {
640: $substitution{$letter} = $digit;
641: $digit++;
642: }
643: # The substitution is done as below to preserve leading
644: # zeroes which are needed to keep the code size exact
645: #
646: my $result ="";
647: foreach my $letter (@letters) {
648: $result.=$substitution{$letter};
649: }
650: return $result;
651: }
652:
1.383 foxr 653: # Determine if a code is a valid numeric code. Valid
654: # numeric codes must be comprised entirely of digits and
1.384 albertel 655: # have a correct number of digits.
1.383 foxr 656: #
657: # Parameters:
658: # value - proposed code value.
1.384 albertel 659: # num_digits - Number of digits required.
1.383 foxr 660: #
661: sub is_valid_numeric_code {
1.384 albertel 662: my ($value, $num_digits) = @_;
1.383 foxr 663: # Remove leading/trailing whitespace;
1.387 foxr 664: $value =~ s/^\s*//g;
665: $value =~ s/\s*$//g;
1.383 foxr 666:
667: # All digits?
1.387 foxr 668: if ($value !~ /^[0-9]+$/) {
1.383 foxr 669: return "Numeric code $value has invalid characters - must only be digits";
670: }
1.384 albertel 671: if (length($value) != $num_digits) {
672: return "Numeric code $value incorrect number of digits (correct = $num_digits)";
673: }
1.385 foxr 674: return undef;
1.383 foxr 675: }
676: # Determines if a code is a valid alhpa code. Alpha codes
677: # are ciphers that map [A-J,a-j] -> 0..9 0..9.
1.384 albertel 678: # They also have a correct digit count.
1.383 foxr 679: # Parameters:
680: # value - Proposed code value.
1.384 albertel 681: # num_letters - correct number of letters.
1.383 foxr 682: # Note:
683: # leading and trailing whitespace are ignored.
684: #
685: sub is_valid_alpha_code {
1.384 albertel 686: my ($value, $num_letters) = @_;
1.383 foxr 687:
688: # strip leading and trailing spaces.
689:
690: $value =~ s/^\s*//g;
691: $value =~ s/\s*$//g;
692:
693: # All alphas in the right range?
1.384 albertel 694: if ($value !~ /^[A-J,a-j]+$/) {
1.383 foxr 695: return "Invalid letter code $value must only contain A-J";
696: }
1.384 albertel 697: if (length($value) != $num_letters) {
698: return "Letter code $value has incorrect number of letters (correct = $num_letters)";
699: }
1.385 foxr 700: return undef;
1.383 foxr 701: }
702:
1.382 foxr 703: # Determine if a code entered by the user in a helper is valid.
704: # valid depends on the code type and the type of code selected.
705: # The type of code selected can either be numeric or
706: # Alphabetic. If alphabetic, the code, in fact is a simple
707: # substitution cipher for the actual numeric code: 0->A, 1->B ...
708: # We'll be nice and be case insensitive for alpha codes.
709: # Parameters:
710: # code_value - the value of the code the user typed in.
711: # code_option - The code type selected from the set in the scantron format
712: # table.
713: # Returns:
714: # undef - The code is valid.
715: # other - An error message indicating what's wrong.
716: #
717: sub is_code_valid {
718: my ($code_value, $code_option) = @_;
1.383 foxr 719: my ($code_type, $code_length) = ('letter', 6); # defaults.
1.542 raeburn 720: my @lines = &Apache::grades::get_scantronformat_file();
721: foreach my $line (@lines) {
1.383 foxr 722: my ($name, $type, $length) = (split(/:/, $line))[0,2,4];
723: if($name eq $code_option) {
724: $code_length = $length;
725: if($type eq 'number') {
726: $code_type = 'number';
727: }
728: }
729: }
730: my $valid;
731: if ($code_type eq 'number') {
1.385 foxr 732: return &is_valid_numeric_code($code_value, $code_length);
1.383 foxr 733: } else {
1.385 foxr 734: return &is_valid_alpha_code($code_value, $code_length);
1.383 foxr 735: }
1.382 foxr 736:
737: }
738:
1.341 foxr 739: # Compare two students by name. The students are in the form
740: # returned by the helper:
741: # user:domain:section:last, first:status
742: # This is a helper function for the perl sort built-in therefore:
743: # Implicit Inputs:
744: # $a - The first element to compare (global)
745: # $b - The second element to compare (global)
746: # Returns:
747: # -1 - $a < $b
748: # 0 - $a == $b
749: # +1 - $a > $b
750: # Note that the initial comparison is done on the last names with the
751: # first names only used to break the tie.
752: #
753: #
754: sub compare_names {
755: # First split the names up into the primary fields.
756:
757: my ($u1, $d1, $s1, $n1, $stat1) = split(/:/, $a);
758: my ($u2, $d2, $s2, $n2, $stat2) = split(/:/, $b);
759:
760: # Now split the last name and first name of each n:
761: #
762:
763: my ($l1,$f1) = split(/,/, $n1);
764: my ($l2,$f2) = split(/,/, $n2);
765:
766: # We don't bother to remove the leading/trailing whitespace from the
767: # firstname, unless the last names compare identical.
768:
769: if($l1 lt $l2) {
770: return -1;
771: }
772: if($l1 gt $l2) {
773: return 1;
774: }
775:
776: # Break the tie on the first name, but there are leading (possibly trailing
777: # whitespaces to get rid of first
778: #
779: $f1 =~ s/^\s+//; # Remove leading...
780: $f1 =~ s/\s+$//; # Trailing spaces from first 1...
781:
782: $f2 =~ s/^\s+//;
783: $f2 =~ s/\s+$//; # And the same for first 2...
784:
785: if($f1 lt $f2) {
786: return -1;
787: }
788: if($f1 gt $f2) {
789: return 1;
790: }
791:
792: # Must be the same name.
793:
794: return 0;
795: }
796:
1.71 sakharuk 797: sub latex_header_footer_remove {
798: my $text = shift;
799: $text =~ s/\\end{document}//;
800: $text =~ s/\\documentclass([^&]*)\\begin{document}//;
801: return $text;
802: }
1.423 foxr 803: #
804: # If necessary, encapsulate text inside
805: # a minipage env.
806: # necessity is determined by the problem_split param.
807: #
808: sub encapsulate_minipage {
809: my ($text) = @_;
1.427 albertel 810: if (!($env{'form.problem.split'} =~ /yes/i)) {
1.423 foxr 811: $text = '\begin{minipage}{\textwidth}'.$text.'\end{minipage}';
812: }
813: return $text;
814: }
1.429 foxr 815: #
816: # The NUMBER_TO_PRINT and SPLIT_PDFS
817: # variables interact, this sub looks at these two parameters
818: # and comes up with a final value for NUMBER_TO_PRINT which can be:
819: # all - if SPLIT_PDFS eq 'all'.
820: # 1 - if SPLIT_PDFS eq 'oneper'
821: # section - if SPLIT_PDFS eq 'sections'
822: # <unchanged> - if SPLIT_PDFS eq 'usenumber'
823: #
824: sub adjust_number_to_print {
825: my $helper = shift;
1.71 sakharuk 826:
1.429 foxr 827: my $split_pdf = $helper->{'VARS'}->{'SPLIT_PDFS'};
828:
829: if ($split_pdf eq 'all') {
830: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} = 'all';
831: } elsif ($split_pdf eq 'oneper') {
832: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} = 1;
833: } elsif ($split_pdf eq 'sections') {
834: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} = 'section';
835: } elsif ($split_pdf eq 'usenumber') {
836: # Unmodified.
837: } else {
838: # Error!!!!
1.536 foxr 839:
840: croak "bad SPLIT_PDFS: $split_pdf in lonprintout::adjust_number_to_print";
1.429 foxr 841:
842: }
843: }
1.71 sakharuk 844:
1.531 foxr 845:
1.37 sakharuk 846: sub character_chart {
1.531 foxr 847: my $result = shift;
848: return &Apache::entities::replace_entities($result);
849: }
850:
851: sub old_character_chart {
1.37 sakharuk 852: my $result = shift;
1.116 sakharuk 853: $result =~ s/&\#0?0?(7|9);//g;
854: $result =~ s/&\#0?(10|13);//g;
855: $result =~ s/&\#0?32;/ /g;
856: $result =~ s/&\#0?33;/!/g;
857: $result =~ s/&(\#0?34|quot);/\"/g;
858: $result =~ s/&\#0?35;/\\\#/g;
859: $result =~ s/&\#0?36;/\\\$/g;
860: $result =~ s/&\#0?37;/\\%/g;
861: $result =~ s/&(\#0?38|amp);/\\&/g;
862: $result =~ s/&\#(0?39|146);/\'/g;
863: $result =~ s/&\#0?40;/(/g;
864: $result =~ s/&\#0?41;/)/g;
865: $result =~ s/&\#0?42;/\*/g;
866: $result =~ s/&\#0?43;/\+/g;
867: $result =~ s/&\#(0?44|130);/,/g;
868: $result =~ s/&\#0?45;/-/g;
869: $result =~ s/&\#0?46;/\./g;
870: $result =~ s/&\#0?47;/\//g;
871: $result =~ s/&\#0?48;/0/g;
872: $result =~ s/&\#0?49;/1/g;
873: $result =~ s/&\#0?50;/2/g;
874: $result =~ s/&\#0?51;/3/g;
875: $result =~ s/&\#0?52;/4/g;
876: $result =~ s/&\#0?53;/5/g;
877: $result =~ s/&\#0?54;/6/g;
878: $result =~ s/&\#0?55;/7/g;
879: $result =~ s/&\#0?56;/8/g;
880: $result =~ s/&\#0?57;/9/g;
1.269 albertel 881: $result =~ s/&\#0?58;/:/g;
1.116 sakharuk 882: $result =~ s/&\#0?59;/;/g;
883: $result =~ s/&(\#0?60|lt|\#139);/\$<\$/g;
1.281 sakharuk 884: $result =~ s/&\#0?61;/\\ensuremath\{=\}/g;
885: $result =~ s/&(\#0?62|gt|\#155);/\\ensuremath\{>\}/g;
1.116 sakharuk 886: $result =~ s/&\#0?63;/\?/g;
887: $result =~ s/&\#0?65;/A/g;
888: $result =~ s/&\#0?66;/B/g;
889: $result =~ s/&\#0?67;/C/g;
890: $result =~ s/&\#0?68;/D/g;
891: $result =~ s/&\#0?69;/E/g;
892: $result =~ s/&\#0?70;/F/g;
893: $result =~ s/&\#0?71;/G/g;
894: $result =~ s/&\#0?72;/H/g;
895: $result =~ s/&\#0?73;/I/g;
896: $result =~ s/&\#0?74;/J/g;
897: $result =~ s/&\#0?75;/K/g;
898: $result =~ s/&\#0?76;/L/g;
899: $result =~ s/&\#0?77;/M/g;
900: $result =~ s/&\#0?78;/N/g;
901: $result =~ s/&\#0?79;/O/g;
902: $result =~ s/&\#0?80;/P/g;
903: $result =~ s/&\#0?81;/Q/g;
904: $result =~ s/&\#0?82;/R/g;
905: $result =~ s/&\#0?83;/S/g;
906: $result =~ s/&\#0?84;/T/g;
907: $result =~ s/&\#0?85;/U/g;
908: $result =~ s/&\#0?86;/V/g;
909: $result =~ s/&\#0?87;/W/g;
910: $result =~ s/&\#0?88;/X/g;
911: $result =~ s/&\#0?89;/Y/g;
912: $result =~ s/&\#0?90;/Z/g;
913: $result =~ s/&\#0?91;/[/g;
1.281 sakharuk 914: $result =~ s/&\#0?92;/\\ensuremath\{\\setminus\}/g;
1.116 sakharuk 915: $result =~ s/&\#0?93;/]/g;
1.281 sakharuk 916: $result =~ s/&\#(0?94|136);/\\ensuremath\{\\wedge\}/g;
1.116 sakharuk 917: $result =~ s/&\#(0?95|138|154);/\\underline{\\makebox[2mm]{\\strut}}/g;
918: $result =~ s/&\#(0?96|145);/\`/g;
919: $result =~ s/&\#0?97;/a/g;
920: $result =~ s/&\#0?98;/b/g;
921: $result =~ s/&\#0?99;/c/g;
922: $result =~ s/&\#100;/d/g;
923: $result =~ s/&\#101;/e/g;
924: $result =~ s/&\#102;/f/g;
925: $result =~ s/&\#103;/g/g;
926: $result =~ s/&\#104;/h/g;
927: $result =~ s/&\#105;/i/g;
928: $result =~ s/&\#106;/j/g;
929: $result =~ s/&\#107;/k/g;
930: $result =~ s/&\#108;/l/g;
931: $result =~ s/&\#109;/m/g;
932: $result =~ s/&\#110;/n/g;
933: $result =~ s/&\#111;/o/g;
934: $result =~ s/&\#112;/p/g;
935: $result =~ s/&\#113;/q/g;
936: $result =~ s/&\#114;/r/g;
937: $result =~ s/&\#115;/s/g;
938: $result =~ s/&\#116;/t/g;
939: $result =~ s/&\#117;/u/g;
940: $result =~ s/&\#118;/v/g;
941: $result =~ s/&\#119;/w/g;
942: $result =~ s/&\#120;/x/g;
943: $result =~ s/&\#121;/y/g;
944: $result =~ s/&\#122;/z/g;
945: $result =~ s/&\#123;/\\{/g;
946: $result =~ s/&\#124;/\|/g;
947: $result =~ s/&\#125;/\\}/g;
948: $result =~ s/&\#126;/\~/g;
949: $result =~ s/&\#131;/\\textflorin /g;
950: $result =~ s/&\#132;/\"/g;
1.281 sakharuk 951: $result =~ s/&\#133;/\\ensuremath\{\\ldots\}/g;
952: $result =~ s/&\#134;/\\ensuremath\{\\dagger\}/g;
953: $result =~ s/&\#135;/\\ensuremath\{\\ddagger\}/g;
1.116 sakharuk 954: $result =~ s/&\#137;/\\textperthousand /g;
955: $result =~ s/&\#140;/{\\OE}/g;
956: $result =~ s/&\#147;/\`\`/g;
957: $result =~ s/&\#148;/\'\'/g;
1.281 sakharuk 958: $result =~ s/&\#149;/\\ensuremath\{\\bullet\}/g;
1.494 albertel 959: $result =~ s/&(\#150|\#8211);/--/g;
1.116 sakharuk 960: $result =~ s/&\#151;/---/g;
1.281 sakharuk 961: $result =~ s/&\#152;/\\ensuremath\{\\sim\}/g;
1.116 sakharuk 962: $result =~ s/&\#153;/\\texttrademark /g;
963: $result =~ s/&\#156;/\\oe/g;
964: $result =~ s/&\#159;/\\\"Y/g;
1.283 albertel 965: $result =~ s/&(\#160|nbsp);/~/g;
1.116 sakharuk 966: $result =~ s/&(\#161|iexcl);/!\`/g;
967: $result =~ s/&(\#162|cent);/\\textcent /g;
968: $result =~ s/&(\#163|pound);/\\pounds /g;
969: $result =~ s/&(\#164|curren);/\\textcurrency /g;
970: $result =~ s/&(\#165|yen);/\\textyen /g;
971: $result =~ s/&(\#166|brvbar);/\\textbrokenbar /g;
972: $result =~ s/&(\#167|sect);/\\textsection /g;
1.530 foxr 973: $result =~ s/&(\#168|uml);/\\"\{\} /g;
1.116 sakharuk 974: $result =~ s/&(\#169|copy);/\\copyright /g;
975: $result =~ s/&(\#170|ordf);/\\textordfeminine /g;
1.281 sakharuk 976: $result =~ s/&(\#172|not);/\\ensuremath\{\\neg\}/g;
1.116 sakharuk 977: $result =~ s/&(\#173|shy);/ - /g;
978: $result =~ s/&(\#174|reg);/\\textregistered /g;
1.281 sakharuk 979: $result =~ s/&(\#175|macr);/\\ensuremath\{^{-}\}/g;
980: $result =~ s/&(\#176|deg);/\\ensuremath\{^{\\circ}\}/g;
981: $result =~ s/&(\#177|plusmn);/\\ensuremath\{\\pm\}/g;
982: $result =~ s/&(\#178|sup2);/\\ensuremath\{^2\}/g;
983: $result =~ s/&(\#179|sup3);/\\ensuremath\{^3\}/g;
1.530 foxr 984: $result =~ s/&(\#180|acute);/\\'\{\} /g;
1.281 sakharuk 985: $result =~ s/&(\#181|micro);/\\ensuremath\{\\mu\}/g;
1.116 sakharuk 986: $result =~ s/&(\#182|para);/\\P/g;
1.281 sakharuk 987: $result =~ s/&(\#183|middot);/\\ensuremath\{\\cdot\}/g;
1.116 sakharuk 988: $result =~ s/&(\#184|cedil);/\\c{\\strut}/g;
1.281 sakharuk 989: $result =~ s/&(\#185|sup1);/\\ensuremath\{^1\}/g;
1.116 sakharuk 990: $result =~ s/&(\#186|ordm);/\\textordmasculine /g;
991: $result =~ s/&(\#188|frac14);/\\textonequarter /g;
992: $result =~ s/&(\#189|frac12);/\\textonehalf /g;
993: $result =~ s/&(\#190|frac34);/\\textthreequarters /g;
994: $result =~ s/&(\#191|iquest);/?\`/g;
995: $result =~ s/&(\#192|Agrave);/\\\`{A}/g;
996: $result =~ s/&(\#193|Aacute);/\\\'{A}/g;
997: $result =~ s/&(\#194|Acirc);/\\^{A}/g;
998: $result =~ s/&(\#195|Atilde);/\\~{A}/g;
999: $result =~ s/&(\#196|Auml);/\\\"{A}/g;
1000: $result =~ s/&(\#197|Aring);/{\\AA}/g;
1001: $result =~ s/&(\#198|AElig);/{\\AE}/g;
1002: $result =~ s/&(\#199|Ccedil);/\\c{c}/g;
1003: $result =~ s/&(\#200|Egrave);/\\\`{E}/g;
1004: $result =~ s/&(\#201|Eacute);/\\\'{E}/g;
1005: $result =~ s/&(\#202|Ecirc);/\\^{E}/g;
1006: $result =~ s/&(\#203|Euml);/\\\"{E}/g;
1007: $result =~ s/&(\#204|Igrave);/\\\`{I}/g;
1008: $result =~ s/&(\#205|Iacute);/\\\'{I}/g;
1009: $result =~ s/&(\#206|Icirc);/\\^{I}/g;
1010: $result =~ s/&(\#207|Iuml);/\\\"{I}/g;
1011: $result =~ s/&(\#209|Ntilde);/\\~{N}/g;
1012: $result =~ s/&(\#210|Ograve);/\\\`{O}/g;
1013: $result =~ s/&(\#211|Oacute);/\\\'{O}/g;
1014: $result =~ s/&(\#212|Ocirc);/\\^{O}/g;
1015: $result =~ s/&(\#213|Otilde);/\\~{O}/g;
1016: $result =~ s/&(\#214|Ouml);/\\\"{O}/g;
1.281 sakharuk 1017: $result =~ s/&(\#215|times);/\\ensuremath\{\\times\}/g;
1.116 sakharuk 1018: $result =~ s/&(\#216|Oslash);/{\\O}/g;
1019: $result =~ s/&(\#217|Ugrave);/\\\`{U}/g;
1020: $result =~ s/&(\#218|Uacute);/\\\'{U}/g;
1021: $result =~ s/&(\#219|Ucirc);/\\^{U}/g;
1022: $result =~ s/&(\#220|Uuml);/\\\"{U}/g;
1023: $result =~ s/&(\#221|Yacute);/\\\'{Y}/g;
1.329 sakharuk 1024: $result =~ s/&(\#223|szlig);/{\\ss}/g;
1.116 sakharuk 1025: $result =~ s/&(\#224|agrave);/\\\`{a}/g;
1026: $result =~ s/&(\#225|aacute);/\\\'{a}/g;
1027: $result =~ s/&(\#226|acirc);/\\^{a}/g;
1028: $result =~ s/&(\#227|atilde);/\\~{a}/g;
1029: $result =~ s/&(\#228|auml);/\\\"{a}/g;
1030: $result =~ s/&(\#229|aring);/{\\aa}/g;
1031: $result =~ s/&(\#230|aelig);/{\\ae}/g;
1032: $result =~ s/&(\#231|ccedil);/\\c{c}/g;
1033: $result =~ s/&(\#232|egrave);/\\\`{e}/g;
1034: $result =~ s/&(\#233|eacute);/\\\'{e}/g;
1035: $result =~ s/&(\#234|ecirc);/\\^{e}/g;
1036: $result =~ s/&(\#235|euml);/\\\"{e}/g;
1037: $result =~ s/&(\#236|igrave);/\\\`{i}/g;
1038: $result =~ s/&(\#237|iacute);/\\\'{i}/g;
1039: $result =~ s/&(\#238|icirc);/\\^{i}/g;
1040: $result =~ s/&(\#239|iuml);/\\\"{i}/g;
1.281 sakharuk 1041: $result =~ s/&(\#240|eth);/\\ensuremath\{\\partial\}/g;
1.116 sakharuk 1042: $result =~ s/&(\#241|ntilde);/\\~{n}/g;
1043: $result =~ s/&(\#242|ograve);/\\\`{o}/g;
1044: $result =~ s/&(\#243|oacute);/\\\'{o}/g;
1045: $result =~ s/&(\#244|ocirc);/\\^{o}/g;
1046: $result =~ s/&(\#245|otilde);/\\~{o}/g;
1047: $result =~ s/&(\#246|ouml);/\\\"{o}/g;
1.281 sakharuk 1048: $result =~ s/&(\#247|divide);/\\ensuremath\{\\div\}/g;
1.116 sakharuk 1049: $result =~ s/&(\#248|oslash);/{\\o}/g;
1050: $result =~ s/&(\#249|ugrave);/\\\`{u}/g;
1051: $result =~ s/&(\#250|uacute);/\\\'{u}/g;
1052: $result =~ s/&(\#251|ucirc);/\\^{u}/g;
1053: $result =~ s/&(\#252|uuml);/\\\"{u}/g;
1054: $result =~ s/&(\#253|yacute);/\\\'{y}/g;
1055: $result =~ s/&(\#255|yuml);/\\\"{y}/g;
1.399 albertel 1056: $result =~ s/&\#295;/\\ensuremath\{\\hbar\}/g;
1.281 sakharuk 1057: $result =~ s/&\#952;/\\ensuremath\{\\theta\}/g;
1.117 sakharuk 1058: #Greek Alphabet
1.281 sakharuk 1059: $result =~ s/&(alpha|\#945);/\\ensuremath\{\\alpha\}/g;
1060: $result =~ s/&(beta|\#946);/\\ensuremath\{\\beta\}/g;
1061: $result =~ s/&(gamma|\#947);/\\ensuremath\{\\gamma\}/g;
1062: $result =~ s/&(delta|\#948);/\\ensuremath\{\\delta\}/g;
1063: $result =~ s/&(epsilon|\#949);/\\ensuremath\{\\epsilon\}/g;
1064: $result =~ s/&(zeta|\#950);/\\ensuremath\{\\zeta\}/g;
1065: $result =~ s/&(eta|\#951);/\\ensuremath\{\\eta\}/g;
1066: $result =~ s/&(theta|\#952);/\\ensuremath\{\\theta\}/g;
1067: $result =~ s/&(iota|\#953);/\\ensuremath\{\\iota\}/g;
1068: $result =~ s/&(kappa|\#954);/\\ensuremath\{\\kappa\}/g;
1069: $result =~ s/&(lambda|\#955);/\\ensuremath\{\\lambda\}/g;
1070: $result =~ s/&(mu|\#956);/\\ensuremath\{\\mu\}/g;
1071: $result =~ s/&(nu|\#957);/\\ensuremath\{\\nu\}/g;
1072: $result =~ s/&(xi|\#958);/\\ensuremath\{\\xi\}/g;
1.199 sakharuk 1073: $result =~ s/&(omicron|\#959);/o/g;
1.281 sakharuk 1074: $result =~ s/&(pi|\#960);/\\ensuremath\{\\pi\}/g;
1075: $result =~ s/&(rho|\#961);/\\ensuremath\{\\rho\}/g;
1076: $result =~ s/&(sigma|\#963);/\\ensuremath\{\\sigma\}/g;
1077: $result =~ s/&(tau|\#964);/\\ensuremath\{\\tau\}/g;
1078: $result =~ s/&(upsilon|\#965);/\\ensuremath\{\\upsilon\}/g;
1079: $result =~ s/&(phi|\#966);/\\ensuremath\{\\phi\}/g;
1080: $result =~ s/&(chi|\#967);/\\ensuremath\{\\chi\}/g;
1081: $result =~ s/&(psi|\#968);/\\ensuremath\{\\psi\}/g;
1082: $result =~ s/&(omega|\#969);/\\ensuremath\{\\omega\}/g;
1083: $result =~ s/&(thetasym|\#977);/\\ensuremath\{\\vartheta\}/g;
1084: $result =~ s/&(piv|\#982);/\\ensuremath\{\\varpi\}/g;
1.199 sakharuk 1085: $result =~ s/&(Alpha|\#913);/A/g;
1086: $result =~ s/&(Beta|\#914);/B/g;
1.281 sakharuk 1087: $result =~ s/&(Gamma|\#915);/\\ensuremath\{\\Gamma\}/g;
1088: $result =~ s/&(Delta|\#916);/\\ensuremath\{\\Delta\}/g;
1.199 sakharuk 1089: $result =~ s/&(Epsilon|\#917);/E/g;
1090: $result =~ s/&(Zeta|\#918);/Z/g;
1091: $result =~ s/&(Eta|\#919);/H/g;
1.281 sakharuk 1092: $result =~ s/&(Theta|\#920);/\\ensuremath\{\\Theta\}/g;
1.199 sakharuk 1093: $result =~ s/&(Iota|\#921);/I/g;
1094: $result =~ s/&(Kappa|\#922);/K/g;
1.281 sakharuk 1095: $result =~ s/&(Lambda|\#923);/\\ensuremath\{\\Lambda\}/g;
1.199 sakharuk 1096: $result =~ s/&(Mu|\#924);/M/g;
1097: $result =~ s/&(Nu|\#925);/N/g;
1.281 sakharuk 1098: $result =~ s/&(Xi|\#926);/\\ensuremath\{\\Xi\}/g;
1.199 sakharuk 1099: $result =~ s/&(Omicron|\#927);/O/g;
1.281 sakharuk 1100: $result =~ s/&(Pi|\#928);/\\ensuremath\{\\Pi\}/g;
1.199 sakharuk 1101: $result =~ s/&(Rho|\#929);/P/g;
1.281 sakharuk 1102: $result =~ s/&(Sigma|\#931);/\\ensuremath\{\\Sigma\}/g;
1.199 sakharuk 1103: $result =~ s/&(Tau|\#932);/T/g;
1.281 sakharuk 1104: $result =~ s/&(Upsilon|\#933);/\\ensuremath\{\\Upsilon\}/g;
1105: $result =~ s/&(Phi|\#934);/\\ensuremath\{\\Phi\}/g;
1.199 sakharuk 1106: $result =~ s/&(Chi|\#935);/X/g;
1.281 sakharuk 1107: $result =~ s/&(Psi|\#936);/\\ensuremath\{\\Psi\}/g;
1108: $result =~ s/&(Omega|\#937);/\\ensuremath\{\\Omega\}/g;
1.199 sakharuk 1109: #Arrows (extended HTML 4.01)
1.281 sakharuk 1110: $result =~ s/&(larr|\#8592);/\\ensuremath\{\\leftarrow\}/g;
1111: $result =~ s/&(uarr|\#8593);/\\ensuremath\{\\uparrow\}/g;
1112: $result =~ s/&(rarr|\#8594);/\\ensuremath\{\\rightarrow\}/g;
1113: $result =~ s/&(darr|\#8595);/\\ensuremath\{\\downarrow\}/g;
1114: $result =~ s/&(harr|\#8596);/\\ensuremath\{\\leftrightarrow\}/g;
1115: $result =~ s/&(lArr|\#8656);/\\ensuremath\{\\Leftarrow\}/g;
1116: $result =~ s/&(uArr|\#8657);/\\ensuremath\{\\Uparrow\}/g;
1117: $result =~ s/&(rArr|\#8658);/\\ensuremath\{\\Rightarrow\}/g;
1118: $result =~ s/&(dArr|\#8659);/\\ensuremath\{\\Downarrow\}/g;
1119: $result =~ s/&(hArr|\#8660);/\\ensuremath\{\\Leftrightarrow\}/g;
1.199 sakharuk 1120: #Mathematical Operators (extended HTML 4.01)
1.281 sakharuk 1121: $result =~ s/&(forall|\#8704);/\\ensuremath\{\\forall\}/g;
1122: $result =~ s/&(part|\#8706);/\\ensuremath\{\\partial\}/g;
1123: $result =~ s/&(exist|\#8707);/\\ensuremath\{\\exists\}/g;
1124: $result =~ s/&(empty|\#8709);/\\ensuremath\{\\emptyset\}/g;
1125: $result =~ s/&(nabla|\#8711);/\\ensuremath\{\\nabla\}/g;
1126: $result =~ s/&(isin|\#8712);/\\ensuremath\{\\in\}/g;
1127: $result =~ s/&(notin|\#8713);/\\ensuremath\{\\notin\}/g;
1128: $result =~ s/&(ni|\#8715);/\\ensuremath\{\\ni\}/g;
1129: $result =~ s/&(prod|\#8719);/\\ensuremath\{\\prod\}/g;
1130: $result =~ s/&(sum|\#8721);/\\ensuremath\{\\sum\}/g;
1131: $result =~ s/&(minus|\#8722);/\\ensuremath\{-\}/g;
1.390 albertel 1132: $result =~ s/–/\\ensuremath\{-\}/g;
1.281 sakharuk 1133: $result =~ s/&(lowast|\#8727);/\\ensuremath\{*\}/g;
1134: $result =~ s/&(radic|\#8730);/\\ensuremath\{\\surd\}/g;
1135: $result =~ s/&(prop|\#8733);/\\ensuremath\{\\propto\}/g;
1136: $result =~ s/&(infin|\#8734);/\\ensuremath\{\\infty\}/g;
1137: $result =~ s/&(ang|\#8736);/\\ensuremath\{\\angle\}/g;
1138: $result =~ s/&(and|\#8743);/\\ensuremath\{\\wedge\}/g;
1139: $result =~ s/&(or|\#8744);/\\ensuremath\{\\vee\}/g;
1140: $result =~ s/&(cap|\#8745);/\\ensuremath\{\\cap\}/g;
1141: $result =~ s/&(cup|\#8746);/\\ensuremath\{\\cup\}/g;
1142: $result =~ s/&(int|\#8747);/\\ensuremath\{\\int\}/g;
1143: $result =~ s/&(sim|\#8764);/\\ensuremath\{\\sim\}/g;
1144: $result =~ s/&(cong|\#8773);/\\ensuremath\{\\cong\}/g;
1145: $result =~ s/&(asymp|\#8776);/\\ensuremath\{\\approx\}/g;
1146: $result =~ s/&(ne|\#8800);/\\ensuremath\{\\not=\}/g;
1147: $result =~ s/&(equiv|\#8801);/\\ensuremath\{\\equiv\}/g;
1148: $result =~ s/&(le|\#8804);/\\ensuremath\{\\leq\}/g;
1149: $result =~ s/&(ge|\#8805);/\\ensuremath\{\\geq\}/g;
1150: $result =~ s/&(sub|\#8834);/\\ensuremath\{\\subset\}/g;
1151: $result =~ s/&(sup|\#8835);/\\ensuremath\{\\supset\}/g;
1152: $result =~ s/&(nsub|\#8836);/\\ensuremath\{\\not\\subset\}/g;
1153: $result =~ s/&(sube|\#8838);/\\ensuremath\{\\subseteq\}/g;
1154: $result =~ s/&(supe|\#8839);/\\ensuremath\{\\supseteq\}/g;
1155: $result =~ s/&(oplus|\#8853);/\\ensuremath\{\\oplus\}/g;
1156: $result =~ s/&(otimes|\#8855);/\\ensuremath\{\\otimes\}/g;
1157: $result =~ s/&(perp|\#8869);/\\ensuremath\{\\perp\}/g;
1158: $result =~ s/&(sdot|\#8901);/\\ensuremath\{\\cdot\}/g;
1.199 sakharuk 1159: #Geometric Shapes (extended HTML 4.01)
1.281 sakharuk 1160: $result =~ s/&(loz|\#9674);/\\ensuremath\{\\Diamond\}/g;
1.199 sakharuk 1161: #Miscellaneous Symbols (extended HTML 4.01)
1.281 sakharuk 1162: $result =~ s/&(spades|\#9824);/\\ensuremath\{\\spadesuit\}/g;
1163: $result =~ s/&(clubs|\#9827);/\\ensuremath\{\\clubsuit\}/g;
1164: $result =~ s/&(hearts|\#9829);/\\ensuremath\{\\heartsuit\}/g;
1165: $result =~ s/&(diams|\#9830);/\\ensuremath\{\\diamondsuit\}/g;
1.495 foxr 1166: # Chemically useful 'things' contributed by Hon Kie (bug 4652).
1.515 foxr 1167:
1.495 foxr 1168: $result =~ s/&\#8636;/\\ensuremath\{\\leftharpoonup\}/g;
1169: $result =~ s/&\#8637;/\\ensuremath\{\\leftharpoondown\}/g;
1170: $result =~ s/&\#8640;/\\ensuremath\{\\rightharpoonup\}/g;
1171: $result =~ s/&\#8641;/\\ensuremath\{\\rightharpoondown\}/g;
1172: $result =~ s/&\#8652;/\\ensuremath\{\\rightleftharpoons\}/g;
1173: $result =~ s/&\#8605;/\\ensuremath\{\\leadsto\}/g;
1174: $result =~ s/&\#8617;/\\ensuremath\{\\hookleftarrow\}/g;
1175: $result =~ s/&\#8618;/\\ensuremath\{\\hookrightarrow\}/g;
1176: $result =~ s/&\#8614;/\\ensuremath\{\\mapsto\}/g;
1177: $result =~ s/&\#8599;/\\ensuremath\{\\nearrow\}/g;
1178: $result =~ s/&\#8600;/\\ensuremath\{\\searrow\}/g;
1179: $result =~ s/&\#8601;/\\ensuremath\{\\swarrow\}/g;
1180: $result =~ s/&\#8598;/\\ensuremath\{\\nwarrow\}/g;
1.513 foxr 1181:
1182: # Left/right quotations:
1183:
1184: $result =~ s/&(ldquo|#8220);/\`\`/g;
1185: $result =~ s/&(rdquo|#8221);/\'\'/g;
1186:
1187:
1.559 foxr 1188:
1.37 sakharuk 1189: return $result;
1190: }
1.41 sakharuk 1191:
1192:
1.327 albertel 1193: #width, height, oddsidemargin, evensidemargin, topmargin
1194: my %page_formats=
1195: ('letter' => {
1196: 'book' => {
1.493 foxr 1197: '1' => [ '7.1 in','9.8 in', '-0.57 in','-0.57 in','0.275 in'],
1198: '2' => ['3.66 in','9.8 in', '-0.57 in','-0.57 in','0.275 in']
1.327 albertel 1199: },
1200: 'album' => {
1.496 foxr 1201: '1' => [ '8.8 in', '6.8 in','-0.55 in', '-0.55 in','0.394 in'],
1.484 albertel 1202: '2' => [ '4.8 in', '6.8 in','-0.5 in', '-1.0 in','3.5 in']
1.327 albertel 1203: },
1204: },
1205: 'legal' => {
1206: 'book' => {
1207: '1' => ['7.1 in','13 in',,'-0.57 in','-0.57 in','-0.5 in'],
1.514 foxr 1208: '2' => ['3.66 in','13 in','-0.57 in','-0.57 in','-0.5 in']
1.327 albertel 1209: },
1210: 'album' => {
1.376 albertel 1211: '1' => ['12 in','7.1 in',,'-0.57 in','-0.57 in','-0.5 in'],
1212: '2' => ['6.0 in','7.1 in','-1 in','-1 in','5 in']
1.327 albertel 1213: },
1214: },
1215: 'tabloid' => {
1216: 'book' => {
1217: '1' => ['9.8 in','16 in','-0.57 in','-0.57 in','-0.5 in'],
1218: '2' => ['4.9 in','16 in','-0.57 in','-0.57 in','-0.5 in']
1219: },
1220: 'album' => {
1.376 albertel 1221: '1' => ['16 in','9.8 in','-0.57 in','-0.57 in','-0.5 in'],
1222: '2' => ['16 in','4.9 in','-0.57 in','-0.57 in','-0.5 in']
1.327 albertel 1223: },
1224: },
1225: 'executive' => {
1226: 'book' => {
1227: '1' => ['6.8 in','9 in','-0.57 in','-0.57 in','1.2 in'],
1228: '2' => ['3.1 in','9 in','-0.57 in','-0.57 in','1.2 in']
1229: },
1230: 'album' => {
1231: '1' => [],
1232: '2' => []
1233: },
1234: },
1235: 'a2' => {
1236: 'book' => {
1237: '1' => [],
1238: '2' => []
1239: },
1240: 'album' => {
1241: '1' => [],
1242: '2' => []
1243: },
1244: },
1245: 'a3' => {
1246: 'book' => {
1247: '1' => [],
1248: '2' => []
1249: },
1250: 'album' => {
1251: '1' => [],
1252: '2' => []
1253: },
1254: },
1255: 'a4' => {
1256: 'book' => {
1.493 foxr 1257: '1' => ['17.6 cm','27.2 cm','-1.397 cm','-2.11 cm','-1.27 cm'],
1.496 foxr 1258: '2' => [ '9.1 cm','27.2 cm','-1.397 cm','-2.11 cm','-1.27 cm']
1.327 albertel 1259: },
1260: 'album' => {
1.496 foxr 1261: '1' => ['21.59 cm','19.558 cm','-1.397cm','-2.11 cm','0 cm'],
1.493 foxr 1262: '2' => ['9.91 cm','19.558 cm','-1.397 cm','-2.11 cm','0 cm']
1.327 albertel 1263: },
1264: },
1265: 'a5' => {
1266: 'book' => {
1267: '1' => [],
1268: '2' => []
1269: },
1270: 'album' => {
1271: '1' => [],
1272: '2' => []
1273: },
1274: },
1275: 'a6' => {
1276: 'book' => {
1277: '1' => [],
1278: '2' => []
1279: },
1280: 'album' => {
1281: '1' => [],
1282: '2' => []
1283: },
1284: },
1285: );
1286:
1.177 sakharuk 1287: sub page_format {
1.140 sakharuk 1288: #
1.326 sakharuk 1289: #Supported paper format: "Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]",
1290: # "Ledger/Tabloid [11x17 in]", "Executive [7 1/2x10 in]",
1291: # "A2 [420x594 mm]", "A3 [297x420 mm]",
1292: # "A4 [210x297 mm]", "A5 [148x210 mm]",
1293: # "A6 [105x148 mm]"
1.140 sakharuk 1294: #
1295: my ($papersize,$layout,$numberofcolumns) = @_;
1.327 albertel 1296: return @{$page_formats{$papersize}->{$layout}->{$numberofcolumns}};
1.140 sakharuk 1297: }
1.76 sakharuk 1298:
1299:
1.126 albertel 1300: sub get_name {
1301: my ($uname,$udom)=@_;
1.373 albertel 1302: if (!defined($uname)) { $uname=$env{'user.name'}; }
1303: if (!defined($udom)) { $udom=$env{'user.domain'}; }
1.126 albertel 1304: my $plainname=&Apache::loncommon::plainname($uname,$udom);
1.213 albertel 1305: if ($plainname=~/^\s*$/) { $plainname=$uname.'@'.$udom; }
1.453 foxr 1306: $plainname=&Apache::lonxml::latex_special_symbols($plainname,'header');
1.213 albertel 1307: return $plainname;
1.126 albertel 1308: }
1309:
1.213 albertel 1310: sub get_course {
1311: my $courseidinfo;
1.373 albertel 1312: if (defined($env{'request.course.id'})) {
1.439 www 1313: $courseidinfo = &Apache::lonxml::latex_special_symbols(&unescape($env{'course.'.$env{'request.course.id'}.'.description'}),'header');
1.537 foxr 1314: my $sec = $env{'request.course.sec'};
1315:
1.213 albertel 1316: }
1317: return $courseidinfo;
1318: }
1.177 sakharuk 1319:
1.76 sakharuk 1320: sub page_format_transformation {
1.312 sakharuk 1321: my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment,$tableofcontents,$indexlist,$selectionmade) = @_;
1.202 sakharuk 1322: my ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin);
1.454 foxr 1323:
1.312 sakharuk 1324: if ($selectionmade eq '4') {
1.502 foxr 1325: if ($choice eq 'all_problems') {
1.561 bisitz 1326: $assignment=&mt('Problems from the Whole Course');
1.502 foxr 1327: } else {
1.561 bisitz 1328: $assignment=&mt('Resources from the Whole Course');
1.502 foxr 1329: }
1.312 sakharuk 1330: } else {
1331: $assignment=&Apache::lonxml::latex_special_symbols($assignment,'header');
1332: }
1.261 sakharuk 1333: ($textwidth,$textheight,$oddoffset,$evenoffset,$topmargin) = &page_format($papersize,$layout,$numberofcolumns,$topmargin);
1.454 foxr 1334:
1335:
1.126 albertel 1336: my $name = &get_name();
1.213 albertel 1337: my $courseidinfo = &get_course();
1.455 albertel 1338: my $header_text = $parmhash{'print_header_format'};
1.486 foxr 1339: $header_text = &format_page_header($textwidth, $header_text, $assignment,
1.455 albertel 1340: $courseidinfo, $name);
1.319 sakharuk 1341: my $topmargintoinsert = '';
1342: if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';}
1.325 sakharuk 1343: my $fancypagestatement='';
1344: if ($numberofcolumns eq '2') {
1.455 albertel 1345: $fancypagestatement="\\fancyhead{}\\fancyhead[LO]{$header_text}";
1.325 sakharuk 1346: } else {
1.455 albertel 1347: $fancypagestatement="\\rhead{}\\chead{}\\lhead{$header_text}";
1.325 sakharuk 1348: }
1.140 sakharuk 1349: if ($layout eq 'album') {
1.550 foxr 1350: $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\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}\n /;
1.140 sakharuk 1351: } elsif ($layout eq 'book') {
1352: if ($choice ne 'All class print') {
1.550 foxr 1353: $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\\usepackage{booktabs}\\begin{document}\n\\voffset=-0\.8 cm\\setcounter{page}{1}\n/;
1.140 sakharuk 1354: } else {
1.550 foxr 1355: $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{}\\usepackage{booktabs}\\begin{document}\\voffset=-0\.8cm\n\\setcounter{page}{1} \\vskip 5 mm\n /;
1.319 sakharuk 1356: }
1.326 sakharuk 1357: if ($papersize eq 'a4') {
1.575 foxr 1358: my $papersize_text;
1359: if ($perm{'pav'}) {
1360: $papersize_text = '\\special{papersize=210mm,297mm}';
1361: } else {
1362: $papersize_text = '\special{papersize=210mm,297mm}';
1363: }
1364: $text =~ s/(\\begin{document})/$1$papersize_text/;
1.140 sakharuk 1365: }
1366: }
1.214 sakharuk 1367: if ($tableofcontents eq 'yes') {$text=~s/(\\setcounter\{page\}\{1\})/$1 \\tableofcontents\\newpage /;}
1368: if ($indexlist eq 'yes') {
1369: $text=~s/(\\begin{document})/\\makeindex $1/;
1370: $text=~s/(\\end{document})/\\strut\\\\\\strut\\printindex $1/;
1371: }
1.140 sakharuk 1372: return $text;
1373: }
1374:
1375:
1.33 sakharuk 1376: sub page_cleanup {
1377: my $result = shift;
1.65 sakharuk 1378:
1379: $result =~ m/\\end{document}(\d*)$/;
1.34 sakharuk 1380: my $number_of_columns = $1;
1.33 sakharuk 1381: my $insert = '{';
1.34 sakharuk 1382: for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; }
1.33 sakharuk 1383: $insert .= '}';
1.65 sakharuk 1384: $result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g;
1.34 sakharuk 1385: $result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g;
1386: return $result,$number_of_columns;
1.7 sakharuk 1387: }
1.5 sakharuk 1388:
1.3 sakharuk 1389:
1.60 sakharuk 1390: sub details_for_menu {
1.335 albertel 1391: my ($helper)=@_;
1.373 albertel 1392: my $postdata=$env{'form.postdata'};
1.335 albertel 1393: if (!$postdata) { $postdata=$helper->{VARS}{'postdata'}; }
1394: my $name_of_resource = &Apache::lonnet::gettitle($postdata);
1395: my $symbolic = &Apache::lonnet::symbread($postdata);
1.482 albertel 1396: return if ( $symbolic eq '');
1397:
1.233 www 1398: my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symbolic);
1.123 albertel 1399: $map=&Apache::lonnet::clutter($map);
1.269 albertel 1400: my $name_of_sequence = &Apache::lonnet::gettitle($map);
1.63 albertel 1401: if ($name_of_sequence =~ /^\s*$/) {
1.123 albertel 1402: $map =~ m|([^/]+)$|;
1403: $name_of_sequence = $1;
1.63 albertel 1404: }
1.373 albertel 1405: my $name_of_map = &Apache::lonnet::gettitle($env{'request.course.uri'});
1.63 albertel 1406: if ($name_of_map =~ /^\s*$/) {
1.373 albertel 1407: $env{'request.course.uri'} =~ m|([^/]+)$|;
1.123 albertel 1408: $name_of_map = $1;
1409: }
1.335 albertel 1410: return ($name_of_resource,$name_of_sequence,$name_of_map);
1.76 sakharuk 1411: }
1412:
1.476 albertel 1413: sub copyright_line {
1414: return '\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 } ';
1415: }
1416: my $end_of_student = "\n".'\special{ps:ENDOFSTUDENTSTAMP}'."\n";
1.76 sakharuk 1417:
1418: sub latex_corrections {
1.408 albertel 1419: my ($number_of_columns,$result,$selectionmade,$answer_mode) = @_;
1.185 sakharuk 1420: # $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g;
1.476 albertel 1421: my $copyright = ©right_line();
1.408 albertel 1422: if ($selectionmade eq '1' || $answer_mode eq 'only') {
1.476 albertel 1423: $result =~ s/(\\end{document})/\\strut\\vskip 0 mm $copyright $end_of_student $1/;
1.408 albertel 1424: } else {
1.476 albertel 1425: $result =~ s/(\\end{document})/\\strut\\vspace\*{-4 mm}\\newline $copyright $end_of_student $1/;
1.316 sakharuk 1426: }
1.476 albertel 1427: $result =~ s/\$number_of_columns/$number_of_columns/g;
1.91 sakharuk 1428: $result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g;
1429: $result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g;
1.76 sakharuk 1430: #-- LaTeX corrections
1431: my $first_comment = index($result,'<!--',0);
1432: while ($first_comment != -1) {
1433: my $end_comment = index($result,'-->',$first_comment);
1434: substr($result,$first_comment,$end_comment-$first_comment+3) = '';
1435: $first_comment = index($result,'<!--',$first_comment);
1436: }
1437: $result =~ s/^\s+$//gm; #remove empty lines
1.377 albertel 1438: #removes more than one empty space
1439: $result =~ s|(\s\s+)|($1=~/[\n\r]/)?"\n":" "|ge;
1.76 sakharuk 1440: $result =~ s/\\\\\s*\\vskip/\\vskip/gm;
1441: $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g;
1442: $result =~ s/{\\par }\s*\\\\/\\\\/gm;
1.313 sakharuk 1443: $result =~ s/\\\\\s+\[/ \[/g;
1.76 sakharuk 1444: #conversion of html characters to LaTeX equivalents
1445: if ($result =~ m/&(\w+|#\d+);/) {
1446: $result = &character_chart($result);
1447: }
1448: $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g;
1449: $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g;
1450: return $result;
1.60 sakharuk 1451: }
1452:
1.3 sakharuk 1453:
1.214 sakharuk 1454: sub index_table {
1455: my $currentURL = shift;
1456: my $insex_string='';
1457: $currentURL=~s/\.([^\/+])$/\.$1\.meta/;
1458: $insex_string=&Apache::lonnet::metadata($currentURL,'keywords');
1459: return $insex_string;
1460: }
1461:
1462:
1.215 sakharuk 1463: sub IndexCreation {
1464: my ($texversion,$currentURL)=@_;
1465: my @key_words=split(/,/,&index_table($currentURL));
1466: my $chunk='';
1467: my $st=index $texversion,'\addcontentsline{toc}{subsection}{';
1468: if ($st>0) {
1469: for (my $i=0;$i<3;$i++) {$st=(index $texversion,'}',$st+1);}
1470: $chunk=substr($texversion,0,$st+1);
1471: substr($texversion,0,$st+1)=' ';
1472: }
1473: foreach my $key_word (@key_words) {
1474: if ($key_word=~/\S+/) {
1475: $texversion=~s/\b($key_word)\b/$1 \\index{$key_word} /i;
1476: }
1477: }
1478: if ($st>0) {substr($texversion,0,1)=$chunk;}
1479: return $texversion;
1480: }
1481:
1.242 sakharuk 1482: sub print_latex_header {
1483: my $mode=shift;
1.550 foxr 1484:
1485: return &Apache::londefdef::latex_header($mode);
1.242 sakharuk 1486: }
1487:
1488: sub path_to_problem {
1.328 albertel 1489: my ($urlp,$colwidth)=@_;
1.404 albertel 1490: $urlp=&Apache::lonnet::clutter($urlp);
1491:
1.242 sakharuk 1492: my $newurlp = '';
1.328 albertel 1493: $colwidth=~s/\s*mm\s*$//;
1494: #characters average about 2 mm in width
1.360 albertel 1495: if (length($urlp)*2 > $colwidth) {
1.404 albertel 1496: my @elements = split('/',$urlp);
1.328 albertel 1497: my $curlength=0;
1498: foreach my $element (@elements) {
1.404 albertel 1499: if ($element eq '') { next; }
1.328 albertel 1500: if ($curlength+(length($element)*2) > $colwidth) {
1.404 albertel 1501: $newurlp .= '|\vskip -1 mm \verb|';
1502: $curlength=length($element)*2;
1.328 albertel 1503: } else {
1504: $curlength+=length($element)*2;
1.242 sakharuk 1505: }
1.328 albertel 1506: $newurlp.='/'.$element;
1.242 sakharuk 1507: }
1.253 sakharuk 1508: } else {
1509: $newurlp=$urlp;
1.242 sakharuk 1510: }
1511: return '{\small\noindent\verb|'.$newurlp.'|\vskip 0 mm}';
1512: }
1.215 sakharuk 1513:
1.275 sakharuk 1514: sub recalcto_mm {
1515: my $textwidth=shift;
1516: my $LaTeXwidth;
1.339 albertel 1517: if ($textwidth=~/(-?\d+\.?\d*)\s*cm/) {
1.275 sakharuk 1518: $LaTeXwidth = $1*10;
1.339 albertel 1519: } elsif ($textwidth=~/(-?\d+\.?\d*)\s*mm/) {
1.275 sakharuk 1520: $LaTeXwidth = $1;
1.339 albertel 1521: } elsif ($textwidth=~/(-?\d+\.?\d*)\s*in/) {
1.275 sakharuk 1522: $LaTeXwidth = $1*25.4;
1523: }
1524: $LaTeXwidth.=' mm';
1525: return $LaTeXwidth;
1526: }
1527:
1.285 albertel 1528: sub get_textwidth {
1529: my ($helper,$LaTeXwidth)=@_;
1.286 albertel 1530: my $textwidth=$LaTeXwidth;
1.285 albertel 1531: if ($helper->{'VARS'}->{'pagesize.width'}=~/\d+/ &&
1532: $helper->{'VARS'}->{'pagesize.widthunit'}=~/\w+/) {
1.286 albertel 1533: $textwidth=&recalcto_mm($helper->{'VARS'}->{'pagesize.width'}.' '.
1534: $helper->{'VARS'}->{'pagesize.widthunit'});
1.285 albertel 1535: }
1.286 albertel 1536: return $textwidth;
1.285 albertel 1537: }
1538:
1.296 sakharuk 1539:
1540: sub unsupported {
1.414 albertel 1541: my ($currentURL,$mode,$symb)=@_;
1.307 sakharuk 1542: if ($mode ne '') {$mode='\\'.$mode}
1.308 sakharuk 1543: my $result.= &print_latex_header($mode);
1.414 albertel 1544: if ($currentURL=~m|^(/adm/wrapper/)?ext/|) {
1545: $currentURL=~s|^(/adm/wrapper/)?ext/|http://|;
1546: my $title=&Apache::lonnet::gettitle($symb);
1547: $title = &Apache::lonxml::latex_special_symbols($title);
1548: $result.=' \strut \\\\ '.$title.' \strut \\\\ '.$currentURL.' ';
1.296 sakharuk 1549: } else {
1550: $result.=$currentURL;
1551: }
1.419 albertel 1552: $result.= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill} \end{document}';
1.296 sakharuk 1553: return $result;
1554: }
1555:
1.559 foxr 1556: #
1557: # Map from helper layout style to the book/album:
1558: #
1559: sub map_laystyle {
1560: my ($laystyle) = @_;
1561: if ($laystyle eq 'L') {
1562: $laystyle='album';
1563: } else {
1564: $laystyle='book';
1565: }
1566: return $laystyle;
1567: }
1568:
1569: sub print_page_in_course {
1570: my ($helper, $rparmhash, $currentURL, $resources) = @_;
1571: my %parmhash = %$rparmhash;
1572: my @page_resources = @$resources;
1573: my $mode = $helper->{'VARS'}->{'LATEX_TYPE'};
1574: my $symb = $helper->{'VARS'}->{'symb'};
1575:
1576:
1577: my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
1578:
1579:
1580: my @temporary_array=split /\|/,$format_from_helper;
1581: my ($laystyle,$numberofcolumns,$papersize,$pdfFormFields)=@temporary_array;
1582: $laystyle = &map_laystyle($laystyle);
1583: my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,
1584: $numberofcolumns);
1585: my $LaTeXwidth=&recalcto_mm($textwidth);
1586:
1587:
1588: if ($mode ne '') {$mode='\\'.$mode}
1.562 foxr 1589: my $result = &print_latex_header($mode);
1.559 foxr 1590: if ($currentURL=~m|^(/adm/wrapper/)?ext/|) {
1591: $currentURL=~s|^(/adm/wrapper/)?ext/|http://|;
1592: my $title=&Apache::lonnet::gettitle($symb);
1593: $title = &Apache::lonxml::latex_special_symbols($title);
1594: } else {
1.582 raeburn 1595: my $esc_currentURL= $currentURL;
1596: $esc_currentURL =~ s/_/\\_/g;
1597: $result.=$esc_currentURL;
1.559 foxr 1598: }
1599: $result .= '\\\\';
1600:
1601: if ($helper->{'VARS'}->{'style_file'}=~/\w/) {
1602: &Apache::lonnet::appenv({'construct.style' =>
1603: $helper->{'VARS'}->{'style_file'}});
1604: } elsif ($env{'construct.style'}) {
1605: &Apache::lonnet::delenv('construct.style');
1606: }
1607:
1608: # First is the overall page description. This is then followed by the
1609: # components of the page. Each of which must be printed independently.
1.564 foxr 1610: my $the_page = shift(@page_resources);
1.559 foxr 1611:
1612:
1613: foreach my $resource (@page_resources) {
1614: my $resource_src = $resource->src(); # Essentially the URL of the resource.
1615: $result .= $resource->title() . '\\\\';
1616:
1617: # Recurse if a .page:
1618:
1619: if ($resource_src =~ /.page$/i) {
1620: my $navmap = Apache::lonnavmaps::navmap->new();
1621: my @page_resources = $navmap->retrieveResources($resource_src);
1622: $result .= &print_page_in_course($helper, $rparmhash,
1623: $resource_src, \@page_resources);
1624: }
1625: # these resources go through the XML transformer:
1626:
1.582 raeburn 1627: elsif ($resource_src =~ /\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) {
1.559 foxr 1628: my $urlp = &Apache::lonnet::clutter($resource_src);
1629: my %form;
1630: my %moreenv;
1631:
1632: &Apache::lonxml::remember_problem_counter();
1633: $moreenv{'request.filename'}=$urlp;
1634: if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {$form{'problemtype'}='exam';}
1635:
1636: $form{'grade_target'} = 'tex';
1637: $form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth);
1.576 raeburn 1638: $form{'pdfFormFields'} = $pdfFormFields; #
1.559 foxr 1639: $form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'};
1640:
1641: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1642: $form{'suppress_tries'}=$parmhash{'suppress_tries'};
1643: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1644: $form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
1645: $form{'print_annotations'}=$helper->{'VARS'}->{'PRINT_ANNOTATIONS'};
1646: if (($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') ||
1647: ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes')) {
1648: $form{'problem_split'}='yes';
1649: }
1650: my $rndseed = time;
1651: if ($helper->{'VARS'}->{'curseed'}) {
1652: $rndseed=$helper->{'VARS'}->{'curseed'};
1653: }
1654: $form{'rndseed'}=$rndseed;
1655: &Apache::lonnet::appenv(\%moreenv);
1656:
1657: &Apache::lonxml::clear_problem_counter();
1658:
1659: my $texversion = &ssi_with_retries($urlp, $ssi_retry_count, %form);
1660:
1661:
1662: # current document with answers.. no need to encap in minipage
1663: # since there's only one answer.
1664:
1665: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
1666: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1667: my %answerform = %form;
1668:
1669:
1670: $answerform{'problem_split'}=$parmhash{'problem_stream_switch'};
1671: $answerform{'grade_target'}='answer';
1672: $answerform{'answer_output_mode'}='tex';
1673: $answerform{'rndseed'}=$rndseed;
1674: if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {
1675: $answerform{'problemtype'}='exam';
1676: }
1677: $resources_printed .= $urlp.':';
1678: my $answer=&ssi_with_retries($urlp,$ssi_retry_count, %answerform);
1679:
1680: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
1681: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
1682: } else {
1.562 foxr 1683: $texversion= &print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1.559 foxr 1684: if ($helper->{'VARS'}->{'construction'} ne '1') {
1685: my $title = &Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'});
1686: $title = &Apache::lonxml::latex_special_symbols($title);
1687: $texversion.='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
1688: $texversion.=&path_to_problem($urlp,$LaTeXwidth);
1689: } else {
1690: $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
1691: my $URLpath=$urlp;
1692: $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
1693: $texversion.=&path_to_problem($URLpath,$LaTeXwidth);
1694: }
1695: $texversion.='\vskip 1 mm '.$answer.'\end{document}';
1696: }
1697:
1698:
1699:
1700:
1701:
1702: }
1703: # Print annotations.
1704:
1705:
1706: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
1707: my $annotation .= &annotate($currentURL);
1708: $texversion =~ s/(\\keephidden{ENDOFPROBLEM})/$annotation$1/;
1709: }
1710:
1711: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
1712: $texversion=&IndexCreation($texversion,$currentURL);
1713: }
1714: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
1715: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$currentURL| \\strut\\\\\\strut /;
1716:
1717: }
1.562 foxr 1718: $texversion = &latex_header_footer_remove($texversion);
1719:
1720: # the first remaining line is a comment from londefdef the second
1721: # line seems to be an extraneous \vskip 1mm \\\\ :
1722: # (imperfect removal from header_footer_remove?
1723:
1724: $texversion =~ s/\\vskip 1mm \\\\\\\\//;
1725:
1.559 foxr 1726: $result .= $texversion;
1727: if ($currentURL=~m/\.page\s*$/) {
1728: ($result,$numberofcolumns) = &page_cleanup($result);
1729: }
1730: }
1731: }
1732:
1733: $result.= '\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill} \end{document}';
1734: return $result;
1735: }
1736:
1.296 sakharuk 1737:
1.363 foxr 1738: #
1.395 www 1739: # List of recently generated print files
1740: #
1741: sub recently_generated {
1.584 raeburn 1742: my ($prtspool) = @_;
1743: my $output;
1.400 albertel 1744: my $zip_result;
1745: my $pdf_result;
1.395 www 1746: opendir(DIR,$prtspool);
1.400 albertel 1747:
1748: my @files =
1749: grep(/^$env{'user.name'}_$env{'user.domain'}_printout_(\d+)_.*\.(pdf|zip)$/,readdir(DIR));
1.395 www 1750: closedir(DIR);
1.400 albertel 1751:
1752: @files = sort {
1753: my ($actime) = (stat($prtspool.'/'.$a))[10];
1754: my ($bctime) = (stat($prtspool.'/'.$b))[10];
1755: return $bctime <=> $actime;
1756: } (@files);
1757:
1758: foreach my $filename (@files) {
1759: my ($ext) = ($filename =~ m/(pdf|zip)$/);
1760: my ($cdev,$cino,$cmode,$cnlink,
1761: $cuid,$cgid,$crdev,$csize,
1762: $catime,$cmtime,$cctime,
1763: $cblksize,$cblocks)=stat($prtspool.'/'.$filename);
1.544 bisitz 1764: my $ext_text = 'pdf' ? &mt('PDF File'):&mt('Zip File');
1765: my $result=&Apache::loncommon::start_data_table_row()
1766: .'<td>'
1767: .'<a href="/prtspool/'.$filename.'">'.$ext_text.'</a>'
1768: .'</td>'
1769: .'<td>'.&Apache::lonlocal::locallocaltime($cctime).'</td>'
1770: .'<td align="right">'.$csize.'</td>'
1771: .&Apache::loncommon::end_data_table_row();
1.400 albertel 1772: if ($ext eq 'pdf') { $pdf_result .= $result; }
1773: if ($ext eq 'zip') { $zip_result .= $result; }
1774: }
1.544 bisitz 1775: if ($zip_result || $pdf_result) {
1.584 raeburn 1776: $output ='<hr />';
1.544 bisitz 1777: }
1.400 albertel 1778: if ($zip_result) {
1.584 raeburn 1779: $output .='<h3>'.&mt('Recently generated printout zip files')."</h3>\n"
1.544 bisitz 1780: .&Apache::loncommon::start_data_table()
1781: .&Apache::loncommon::start_data_table_header_row()
1782: .'<th>'.&mt('Download').'</th>'
1783: .'<th>'.&mt('Creation Date').'</th>'
1784: .'<th>'.&mt('File Size (Bytes)').'</th>'
1785: .&Apache::loncommon::end_data_table_header_row()
1786: .$zip_result
1.584 raeburn 1787: .&Apache::loncommon::end_data_table();
1.400 albertel 1788: }
1789: if ($pdf_result) {
1.584 raeburn 1790: $output .='<h3>'.&mt('Recently generated printouts')."</h3>\n"
1.544 bisitz 1791: .&Apache::loncommon::start_data_table()
1792: .&Apache::loncommon::start_data_table_header_row()
1793: .'<th>'.&mt('Download').'</th>'
1794: .'<th>'.&mt('Creation Date').'</th>'
1795: .'<th>'.&mt('File Size (Bytes)').'</th>'
1796: .&Apache::loncommon::end_data_table_header_row()
1797: .$pdf_result
1.584 raeburn 1798: .&Apache::loncommon::end_data_table();
1.396 albertel 1799: }
1.584 raeburn 1800: return $output;
1.395 www 1801: }
1802:
1803: #
1.363 foxr 1804: # Retrieve the hash of page breaks.
1805: #
1806: # Inputs:
1807: # helper - reference to helper object.
1808: # Outputs
1809: # A reference to a page break hash.
1810: #
1811: #
1.562 foxr 1812: # use Data::Dumper;
1.569 foxr 1813: # sub dump_helper_vars {
1.418 foxr 1814: # my ($helper) = @_;
1815: # my $helpervars = Dumper($helper->{'VARS'});
1816: # &Apache::lonnet::logthis("Dump of helper vars:\n $helpervars");
1817: #}
1.363 foxr 1818:
1.481 albertel 1819: sub get_page_breaks {
1820: my ($helper) = @_;
1821: my %page_breaks;
1822:
1823: foreach my $break (split /\|\|\|/, $helper->{'VARS'}->{'FINISHPAGE'}) {
1824: $page_breaks{$break} = 1;
1825: }
1826: return %page_breaks;
1827: }
1.569 foxr 1828: #
1829: # Returns text to insert for any extra vskip prior to the resource.
1830: # Parameters:
1831: # helper - Reference to the helper object driving the printout.
1832: # resource - Identifies the resource about to be printed.
1833: #
1834: # This is done as follows:
1835: # POSSIBLE_RESOURCES has the list of possible resources.
1836: # EXTRASPACE has the list of extra space values.
1.570 foxr 1837: # EXTRASPACE_UNITS is the set of resources for which the units are
1838: # mm. All others are 'in'.
1.569 foxr 1839: #
1840: # The resource is found in the POSSIBLE_RESOURCES to get the index
1841: # of the EXTRASPACE value.
1842: #
1843: # In order to speed this up for lengthy printouts, the first time,
1844: # POSSIBLE_RESOURCES is turned into a look up hash and
1845: # EXTRASPACE is turned into an array.
1846: #
1847:
1848:
1849: my %possible_resources;
1.570 foxr 1850: my %extraspace_mm;
1.569 foxr 1851: my @extraspace;
1852: my $skips_loaded = 0;
1853:
1854: # Function to load the skips hash and array
1855:
1856: sub load_skips {
1857:
1858: my ($helper) = @_;
1859:
1860: # If this is the first time, unrap the resources and extra spaces:
1861:
1862: if (!$skips_loaded) {
1863: @extraspace = (split(/\|\|\|/, $helper->{'VARS'}->{'EXTRASPACE'}));
1864: my @resource_list = (split(/\|\|\|/, $helper->{'VARS'}->{'POSSIBLE_RESOURCES'}));
1865: my $i = 0;
1866: foreach my $resource (@resource_list) {
1867: $possible_resources{$resource} = $i;
1868: $i++;
1869: }
1.570 foxr 1870: foreach my $mm_resource (split(/\|\|\|/, $helper->{'VARS'}->{'EXTRASPACE_UNITS'})) {
1871: $extraspace_mm{$mm_resource} = 1;
1872: }
1.569 foxr 1873: $skips_loaded = 1;
1874: }
1875: }
1876:
1877: sub get_extra_vspaces {
1878: my ($helper, $resource) = @_;
1879:
1880: &load_skips($helper);
1881:
1882: # Lookup the resource in the possible resources hash.. that is the index
1883: # into the extraspace array that gives us either an empty string or
1884: # the number of mm to skip:
1885:
1886: my $index = $possible_resources{$resource};
1887: my $skip = $extraspace[$index];
1888:
1889: my $result = '';
1890: if ($skip ne '') {
1.570 foxr 1891: my $units = 'in';
1892: if (defined($extraspace_mm{$resource})) {
1893: $units = 'mm';
1894: }
1895: $result = '\vskip '.$skip.' '.$units;
1.569 foxr 1896: }
1.570 foxr 1897:
1898:
1.569 foxr 1899: return $result;
1900:
1901:
1902: }
1903:
1904: #
1905: # The resource chooser part of the helper needs more than just
1906: # the value of the extraspaces var to recover the value into a text
1907: # field option. This sub produces the required format for the saved var:
1908: # specifically
1909: # ||| separated fields of the form resourcename=value
1910: #
1911: # Parameters:
1912: # $helper - Refers to the helper we are configuring
1913: # Implicit input:
1914: # $helper->{'VARS'}->{'EXTRASPACE'} - the spaces helper var has the text field
1915: # value.
1.570 foxr 1916: # $helper->{'VARS'}->{'EXTRASPACE_UNITS'} - units for the skips (checkboxes).
1.569 foxr 1917: # $helper->{'VARS'}->{'POSSIBLE_RESOURCES'} - has the list of resources. |||
1918: # separated of course.
1919: # Implicit outputs:
1.570 foxr 1920: # $env{'form.extraspace'}
1921: # $env{'form.extraspace_units'}
1.569 foxr 1922: #
1923: sub set_form_extraspace {
1924: my ($helper) = @_;
1925:
1926: # the most convenient way to do this is to drive from the skips arrays/hash.
1927: # may not be the fastest, but this is once per print request so it's not so
1928: # speed critical:
1929:
1930: &load_skips($helper);
1931:
1932: my $result = '';
1933:
1934: foreach my $resource (keys(%possible_resources)) {
1935: my $vskip = $extraspace[$possible_resources{$resource}];
1936: $result .= $resource .'=' . $vskip . '|||';
1937: }
1938:
1939: $env{'form.extraspace'} = $result;
1.570 foxr 1940: $env{'form.extraspace_units'} = $helper->{'VARS'}->{'EXTRASPACE_UNITS'};
1.569 foxr 1941: return $result;
1942:
1943: }
1.363 foxr 1944:
1.459 foxr 1945: # Output a sequence (recursively if neeed)
1946: # from construction space.
1947: # Parameters:
1948: # url = URL of the sequence to print.
1949: # helper - Reference to the helper hash.
1950: # form - Copy of the format hash.
1951: # LaTeXWidth
1952: # Returns:
1953: # Text to add to the printout.
1954: # NOTE if the first element of the outermost sequence
1955: # is itself a sequence, the outermost caller may need to
1956: # prefix the latex with the page headers stuff.
1957: #
1958: sub print_construction_sequence {
1959: my ($currentURL, $helper, %form, $LaTeXwidth) = @_;
1960: my $result;
1961: my $rndseed=time;
1962: if ($helper->{'VARS'}->{'curseed'}) {
1963: $rndseed=$helper->{'VARS'}->{'curseed'};
1964: }
1.491 albertel 1965: my $errtext=&LONCAPA::map::mapread($currentURL);
1.459 foxr 1966: #
1967: # These make this all support recursing for subsequences.
1968: #
1.491 albertel 1969: my @order = @LONCAPA::map::order;
1970: my @resources = @LONCAPA::map::resources;
1.459 foxr 1971: for (my $member=0;$member<=$#order;$member++) {
1972: $resources[$order[$member]]=~/^([^:]*):([^:]*):/;
1973: my $urlp=$2;
1974: if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) {
1975: my $texversion='';
1976: if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
1977: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1978: $form{'suppress_tries'}=$parmhash{'suppress_tries'};
1979: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1980: $form{'rndseed'}=$rndseed;
1981: $resources_printed .=$urlp.':';
1.515 foxr 1982: $texversion=&ssi_with_retries($urlp, $ssi_retry_count, %form);
1.459 foxr 1983: }
1984: if((($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
1985: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) &&
1986: ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page)$/)) {
1987: # Don't permanently modify %$form...
1988: my %answerform = %form;
1989: $answerform{'grade_target'}='answer';
1990: $answerform{'answer_output_mode'}='tex';
1991: $answerform{'rndseed'}=$rndseed;
1992: $answerform{'problem_split'}=$parmhash{'problem_stream_switch'};
1.481 albertel 1993: if ($urlp=~/\/res\//) {$env{'request.state'}='published';}
1.459 foxr 1994: $resources_printed .= $urlp.':';
1.515 foxr 1995: my $answer=&ssi_with_retries($urlp, $ssi_retry_count, %answerform);
1.459 foxr 1996: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
1997: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
1998: } else {
1999: # If necessary, encapsulate answer in minipage:
2000:
2001: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1.477 albertel 2002: my $title = &Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'});
2003: $title = &Apache::lonxml::latex_special_symbols($title);
2004: my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
1.459 foxr 2005: $body.=&path_to_problem($urlp,$LaTeXwidth);
2006: $body.='\vskip 1 mm '.$answer.'\end{document}';
2007: $body = &encapsulate_minipage($body);
2008: $texversion.=$body;
2009: }
2010: }
2011: $texversion = &latex_header_footer_remove($texversion);
2012:
2013: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
2014: $texversion=&IndexCreation($texversion,$urlp);
2015: }
2016: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
2017: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /;
2018: }
2019: $result.=$texversion;
2020:
2021: } elsif ($urlp=~/\.(sequence|page)$/) {
1.557 foxr 2022:
1.459 foxr 2023: # header:
2024:
2025: $result.='\strut\newline\noindent Sequence/page '.$urlp.'\strut\newline\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\newline\noindent ';
2026:
2027: # IF sequence, recurse:
2028:
2029: if ($urlp =~ /\.sequence$/) {
2030: my $sequence_url = $urlp;
2031: my $domain = $env{'user.domain'}; # Constr. space only on local
2032: my $user = $env{'user.name'};
2033:
2034: $sequence_url =~ s/^\/res\/$domain/\/home/;
2035: $sequence_url =~ s/^(\/home\/$user)/$1\/public_html/;
2036: # $sequence_url =~ s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
2037: $result .= &print_construction_sequence($sequence_url,
2038: $helper, %form,
2039: $LaTeXwidth);
2040: }
1.550 foxr 2041: }
2042: elsif ($urlp =~ /\.pdf$/i) {
1.552 foxr 2043: my $texversion;
2044: if ($member != 0) {
2045: $texversion .= '\cleardoublepage';
2046: }
2047:
2048: $texversion .= &include_pdf($urlp);
2049: $texversion = &latex_header_footer_remove($texversion);
2050: if ($member != $#order) {
2051: $texversion .= '\\ \cleardoublepage';
2052: }
1.551 foxr 2053:
2054: $result .= $texversion;
1.550 foxr 2055: }
1.459 foxr 2056: }
2057: if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\begin{document})/$1 \\fbox\{RANDOM SEED IS $rndseed\} /;}
2058: return $result;
2059: }
2060:
1.177 sakharuk 2061: sub output_data {
1.184 sakharuk 2062: my ($r,$helper,$rparmhash) = @_;
2063: my %parmhash = %$rparmhash;
1.515 foxr 2064: $ssi_error = 0; # This will be set nonzero by failing ssi's.
1.459 foxr 2065: $resources_printed = '';
1.556 foxr 2066: $font_size = $helper->{'VARS'}->{'fontsize'};
1.499 foxr 2067: my $do_postprocessing = 1;
1.433 albertel 2068: my $js = <<ENDPART;
2069: <script type="text/javascript">
1.264 sakharuk 2070: var editbrowser;
2071: function openbrowser(formname,elementname,only,omit) {
2072: var url = '/res/?';
2073: if (editbrowser == null) {
2074: url += 'launch=1&';
2075: }
2076: url += 'catalogmode=interactive&';
2077: url += 'mode=parmset&';
2078: url += 'form=' + formname + '&';
2079: if (only != null) {
2080: url += 'only=' + only + '&';
2081: }
2082: if (omit != null) {
2083: url += 'omit=' + omit + '&';
2084: }
2085: url += 'element=' + elementname + '';
2086: var title = 'Browser';
2087: var options = 'scrollbars=1,resizable=1,menubar=0';
2088: options += ',width=700,height=600';
2089: editbrowser = open(url,title,options,'1');
2090: editbrowser.focus();
2091: }
2092: </script>
1.140 sakharuk 2093: ENDPART
2094:
1.512 foxr 2095:
1.558 bisitz 2096: # Breadcrumbs
2097: #FIXME: Choose better/different breadcrumbs?!? Links?
2098: my $brcrum = [{'href' => '',
2099: 'text' => 'Helper'}, #FIXME: Different origin possible than print out helper?
2100: {'href' => '',
2101: 'text' => 'Preparing Printout'}];
2102:
2103: my $start_page = &Apache::loncommon::start_page('Preparing Printout',
2104: $js,
2105: {'bread_crumbs' => $brcrum,});
1.433 albertel 2106: my $msg = &mt('Please stand by while processing your print request, this may take some time ...');
1.363 foxr 2107:
1.433 albertel 2108: $r->print($start_page."\n<p>\n$msg\n</p>\n");
1.372 foxr 2109:
1.363 foxr 2110: # fetch the pagebreaks and store them in the course environment
2111: # The page breaks will be pulled into the hash %page_breaks which is
2112: # indexed by symb and contains 1's for each break.
2113:
1.373 albertel 2114: $env{'form.pagebreaks'} = $helper->{'VARS'}->{'FINISHPAGE'};
1.569 foxr 2115: &set_form_extraspace($helper);
1.373 albertel 2116: $env{'form.lastprinttype'} = $helper->{'VARS'}->{'PRINT_TYPE'};
1.363 foxr 2117: &Apache::loncommon::store_course_settings('print',
1.366 foxr 2118: {'pagebreaks' => 'scalar',
1.569 foxr 2119: 'extraspace' => 'scalar',
1.570 foxr 2120: 'extraspace_units' => 'scalar',
1.366 foxr 2121: 'lastprinttype' => 'scalar'});
1.364 albertel 2122: my %page_breaks = &get_page_breaks($helper);
1.363 foxr 2123:
1.140 sakharuk 2124: my $format_from_helper = $helper->{'VARS'}->{'FORMAT'};
2125: my ($result,$selectionmade) = ('','');
2126: my $number_of_columns = 1; #used only for pages to determine the width of the cell
2127: my @temporary_array=split /\|/,$format_from_helper;
1.539 onken 2128: my ($laystyle,$numberofcolumns,$papersize,$pdfFormFields)=@temporary_array;
1.559 foxr 2129:
2130: $laystyle = &map_laystyle($laystyle);
1.177 sakharuk 2131: my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$laystyle,$numberofcolumns);
1.373 albertel 2132: my $assignment = $env{'form.assignment'};
1.275 sakharuk 2133: my $LaTeXwidth=&recalcto_mm($textwidth);
1.272 sakharuk 2134: my @print_array=();
1.274 sakharuk 2135: my @student_names=();
1.360 albertel 2136:
1.512 foxr 2137:
1.360 albertel 2138: # Common settings for the %form has:
2139: # In some cases these settings get overriddent by specific cases, but the
2140: # settings are common enough to make it worthwhile factoring them out
2141: # here.
2142: #
2143: my %form;
2144: $form{'grade_target'} = 'tex';
2145: $form{'textwidth'} = &get_textwidth($helper, $LaTeXwidth);
1.539 onken 2146: $form{'pdfFormFields'} = $pdfFormFields;
1.372 foxr 2147:
2148: # If form.showallfoils is set, then request all foils be shown:
2149: # privilege will be enforced both by not allowing the
2150: # check box selecting this option to be presnt unless it's ok,
2151: # and by lonresponse's priv. check.
2152: # The if is here because lonresponse.pm only cares that
2153: # showallfoils is defined, not what the value is.
2154:
2155: if ($helper->{'VARS'}->{'showallfoils'} eq "1") {
2156: $form{'showallfoils'} = $helper->{'VARS'}->{'showallfoils'};
2157: }
1.504 albertel 2158:
2159: if ($helper->{'VARS'}->{'style_file'}=~/\w/) {
1.520 raeburn 2160: &Apache::lonnet::appenv({'construct.style' =>
2161: $helper->{'VARS'}->{'style_file'}});
1.504 albertel 2162: } elsif ($env{'construct.style'}) {
1.549 raeburn 2163: &Apache::lonnet::delenv('construct.style');
1.504 albertel 2164: }
2165:
1.140 sakharuk 2166: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') {
1.143 sakharuk 2167: #-- single document - problem, page, html, xml, ...
1.343 albertel 2168: my ($currentURL,$cleanURL);
1.375 foxr 2169:
1.162 sakharuk 2170: if ($helper->{'VARS'}->{'construction'} ne '1') {
1.185 sakharuk 2171: #prints published resource
1.153 sakharuk 2172: $currentURL=$helper->{'VARS'}->{'postdata'};
1.343 albertel 2173: $cleanURL=&Apache::lonenc::check_decrypt($currentURL);
1.143 sakharuk 2174: } else {
1.512 foxr 2175:
1.185 sakharuk 2176: #prints resource from the construction space
1.240 albertel 2177: $currentURL='/'.$helper->{'VARS'}->{'filename'};
1.206 sakharuk 2178: if ($currentURL=~/([^?]+)/) {$currentURL=$1;}
1.343 albertel 2179: $cleanURL=$currentURL;
1.143 sakharuk 2180: }
1.140 sakharuk 2181: $selectionmade = 1;
1.413 albertel 2182: if ($cleanURL!~m|^/adm/|
1.557 foxr 2183: && $cleanURL=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm)$/) {
1.169 albertel 2184: my $rndseed=time;
1.242 sakharuk 2185: my $texversion='';
2186: if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
2187: my %moreenv;
1.343 albertel 2188: $moreenv{'request.filename'}=$cleanURL;
1.290 sakharuk 2189: if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {$form{'problemtype'}='exam';}
1.242 sakharuk 2190: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1.310 sakharuk 2191: $form{'suppress_tries'}=$parmhash{'suppress_tries'};
1.242 sakharuk 2192: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1.309 sakharuk 2193: $form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
1.511 foxr 2194: $form{'print_annotations'}=$helper->{'VARS'}->{'PRINT_ANNOTATIONS'};
2195: if (($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') ||
2196: ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes')) {
2197: $form{'problem_split'}='yes';
2198: }
1.242 sakharuk 2199: if ($helper->{'VARS'}->{'curseed'}) {
2200: $rndseed=$helper->{'VARS'}->{'curseed'};
2201: }
2202: $form{'rndseed'}=$rndseed;
1.520 raeburn 2203: &Apache::lonnet::appenv(\%moreenv);
1.428 albertel 2204:
2205: &Apache::lonxml::clear_problem_counter();
2206:
1.375 foxr 2207: $resources_printed .= $currentURL.':';
1.515 foxr 2208: $texversion.=&ssi_with_retries($currentURL,$ssi_retry_count, %form);
1.428 albertel 2209:
1.511 foxr 2210: # Add annotations if required:
2211:
1.428 albertel 2212: &Apache::lonxml::clear_problem_counter();
2213:
1.242 sakharuk 2214: &Apache::lonnet::delenv('request.filename');
1.230 albertel 2215: }
1.423 foxr 2216: # current document with answers.. no need to encap in minipage
2217: # since there's only one answer.
2218:
1.242 sakharuk 2219: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
2220: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1.353 foxr 2221: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1.166 albertel 2222: $form{'grade_target'}='answer';
1.167 albertel 2223: $form{'answer_output_mode'}='tex';
1.169 albertel 2224: $form{'rndseed'}=$rndseed;
1.401 albertel 2225: if ($helper->{'VARS'}->{'probstatus'} eq 'exam') {
2226: $form{'problemtype'}='exam';
2227: }
1.375 foxr 2228: $resources_printed .= $currentURL.':';
1.515 foxr 2229: my $answer=&ssi_with_retries($currentURL,$ssi_retry_count, %form);
1.511 foxr 2230:
2231:
1.242 sakharuk 2232: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
2233: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
2234: } else {
2235: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1.245 sakharuk 2236: if ($helper->{'VARS'}->{'construction'} ne '1') {
1.477 albertel 2237: my $title = &Apache::lonnet::gettitle($helper->{'VARS'}->{'symb'});
2238: $title = &Apache::lonxml::latex_special_symbols($title);
2239: $texversion.='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
1.343 albertel 2240: $texversion.=&path_to_problem($cleanURL,$LaTeXwidth);
1.245 sakharuk 2241: } else {
2242: $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
1.343 albertel 2243: my $URLpath=$cleanURL;
1.245 sakharuk 2244: $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
1.504 albertel 2245: $texversion.=&path_to_problem($URLpath,$LaTeXwidth);
1.245 sakharuk 2246: }
1.242 sakharuk 2247: $texversion.='\vskip 1 mm '.$answer.'\end{document}';
2248: }
1.511 foxr 2249:
2250:
2251:
2252:
1.550 foxr 2253:
1.511 foxr 2254: }
2255: # Print annotations.
2256:
2257:
2258: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2259: my $annotation .= &annotate($currentURL);
2260: $texversion =~ s/(\\keephidden{ENDOFPROBLEM})/$annotation$1/;
1.163 sakharuk 2261: }
1.511 foxr 2262:
2263:
1.214 sakharuk 2264: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
1.215 sakharuk 2265: $texversion=&IndexCreation($texversion,$currentURL);
1.214 sakharuk 2266: }
1.219 sakharuk 2267: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
2268: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$currentURL| \\strut\\\\\\strut /;
2269:
2270: }
1.162 sakharuk 2271: $result .= $texversion;
2272: if ($currentURL=~m/\.page\s*$/) {
2273: ($result,$number_of_columns) = &page_cleanup($result);
2274: }
1.413 albertel 2275: } elsif ($cleanURL!~m|^/adm/|
1.557 foxr 2276: && $currentURL=~/\.(sequence|page)$/ && $helper->{'VARS'}->{'construction'} eq '1') {
1.227 sakharuk 2277: #printing content of sequence from the construction space
1.559 foxr 2278:
2279:
1.227 sakharuk 2280: $currentURL=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;
1.459 foxr 2281: $result .= &print_construction_sequence($currentURL, $helper, %form,
2282: $LaTeXwidth);
2283: $result .= '\end{document}';
2284: if (!($result =~ /\\begin\{document\}/)) {
2285: $result = &print_latex_header() . $result;
1.227 sakharuk 2286: }
1.459 foxr 2287: # End construction space sequence.
1.456 raeburn 2288: } elsif ($cleanURL=~/\/(smppg|syllabus|aboutme|bulletinboard)$/) {
1.258 sakharuk 2289: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1.298 sakharuk 2290: if ($currentURL=~/\/syllabus$/) {$currentURL=~s/\/res//;}
1.375 foxr 2291: $resources_printed .= $currentURL.':';
1.567 foxr 2292: my $texversion = &ssi_with_retries($currentURL, $ssi_retry_count, %form);
1.511 foxr 2293: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2294: my $annotation = &annotate($currentURL);
2295: $texversion =~ s/(\\end{document})/$annotation$1/;
2296: }
1.258 sakharuk 2297: $result .= $texversion;
1.550 foxr 2298: } elsif ($cleanURL =~/\.tex$/) {
1.498 foxr 2299: # For this sort of print of a single LaTeX file,
2300: # We can just print the LaTeX file as it is uninterpreted in any way:
2301: #
2302:
2303: $result = &fetch_raw_resource($currentURL);
1.511 foxr 2304: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2305: my $annotation = &annotate($currentURL);
2306: $result =~ s/(\\end{document})/$annotation$1/;
2307: }
2308:
1.499 foxr 2309: $do_postprocessing = 0; # Don't massage the result.
1.498 foxr 2310:
1.550 foxr 2311: } elsif ($cleanURL =~ /\.pdf$/i) {
2312: $result .= &include_pdf($cleanURL);
1.551 foxr 2313: $result .= '\end{document}';
1.559 foxr 2314: } elsif ($cleanURL =~ /\.page$/i) { # Print page in non construction space contexts.
2315:
2316: # Determine the set of resources in the map of the page:
2317:
2318: my $navmap = Apache::lonnavmaps::navmap->new();
2319: my @page_resources = $navmap->retrieveResources($cleanURL);
2320: $result .= &print_page_in_course($helper, $rparmhash,
2321: $cleanURL, \@page_resources);
2322:
2323:
1.162 sakharuk 2324: } else {
1.414 albertel 2325: $result.=&unsupported($currentURL,$helper->{'VARS'}->{'LATEX_TYPE'},
2326: $helper->{'VARS'}->{'symb'});
1.162 sakharuk 2327: }
1.354 foxr 2328: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or
1.562 foxr 2329: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_in_page') or
2330: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_resources_in_page') or
1.142 sakharuk 2331: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or
1.354 foxr 2332: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') or
2333: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') or # BUGBUG
1.536 foxr 2334: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences')
1.582 raeburn 2335: ) {
1.511 foxr 2336:
1.582 raeburn 2337:
1.141 sakharuk 2338: #-- produce an output string
1.562 foxr 2339: if (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or
2340: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_in_page') ) {
1.296 sakharuk 2341: $selectionmade = 2;
1.562 foxr 2342: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or
2343: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_resources_in_page'))
2344: {
1.296 sakharuk 2345: $selectionmade = 3;
1.536 foxr 2346: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems')
2347: ) {
1.296 sakharuk 2348: $selectionmade = 4;
1.354 foxr 2349: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_resources') { #BUGBUG
2350: $selectionmade = 4;
1.296 sakharuk 2351: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'select_sequences') {
2352: $selectionmade = 7;
2353: }
1.193 sakharuk 2354: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1.310 sakharuk 2355: $form{'suppress_tries'}=$parmhash{'suppress_tries'};
1.203 sakharuk 2356: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1.309 sakharuk 2357: $form{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
1.511 foxr 2358: $form{'print_annotations'} = $helper->{'VARS'}->{'PRINT_ANNOTATIONS'};
2359: if (($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') ||
2360: ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') ) {
2361: $form{'problem_split'}='yes';
2362: }
1.141 sakharuk 2363: my $flag_latex_header_remove = 'NO';
2364: my $flag_page_in_sequence = 'NO';
2365: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
1.193 sakharuk 2366: my $prevassignment='';
1.428 albertel 2367:
2368: &Apache::lonxml::clear_problem_counter();
2369:
1.416 foxr 2370: my $pbreakresources = keys %page_breaks;
1.141 sakharuk 2371: for (my $i=0;$i<=$#master_seq;$i++) {
1.350 foxr 2372:
1.521 foxr 2373: &Apache::lonenc::reset_enc();
2374:
2375:
1.350 foxr 2376: # Note due to document structure, not allowed to put \newpage
2377: # prior to the first resource
2378:
1.351 foxr 2379: if (defined $page_breaks{$master_seq[$i]}) {
1.350 foxr 2380: if($i != 0) {
2381: $result.="\\newpage\n";
2382: }
2383: }
1.569 foxr 2384: $result .= &get_extra_vspaces($helper, $master_seq[$i]);
1.564 foxr 2385: my ($sequence,$middle_thingy,$urlp)=&Apache::lonnet::decode_symb($master_seq[$i]);
1.237 albertel 2386: $urlp=&Apache::lonnet::clutter($urlp);
1.166 albertel 2387: $form{'symb'}=$master_seq[$i];
1.407 albertel 2388:
2389: my $assignment=&Apache::lonxml::latex_special_symbols(&Apache::lonnet::gettitle($sequence),'header'); #title of the assignment which contains this problem
1.521 foxr 2390:
1.267 sakharuk 2391: if ($selectionmade==7) {$helper->{VARS}->{'assignment'}=$assignment;}
1.247 sakharuk 2392: if ($i==0) {$prevassignment=$assignment;}
1.297 sakharuk 2393: my $texversion='';
1.413 albertel 2394: if ($urlp!~m|^/adm/|
2395: && $urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
1.375 foxr 2396: $resources_printed .= $urlp.':';
1.428 albertel 2397: &Apache::lonxml::remember_problem_counter();
1.566 foxr 2398: if ($flag_latex_header_remove eq 'NO') {
2399: $texversion.=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'}); # RF
1.582 raeburn 2400: unless (($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only') ||
2401: (($i==0) &&
2402: (($urlp=~/\.page$/) ||
2403: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_in_page') ||
2404: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_resources_in_page')))) {
2405: $flag_latex_header_remove = 'YES';
2406: }
1.566 foxr 2407: }
1.515 foxr 2408: $texversion.=&ssi_with_retries($urlp, $ssi_retry_count, %form);
1.296 sakharuk 2409: if ($urlp=~/\.page$/) {
2410: ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
2411: if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}
2412: $texversion =~ s/\\end{document}\d*/\\end{document}/;
2413: $flag_page_in_sequence = 'YES';
1.582 raeburn 2414: }
1.428 albertel 2415:
1.296 sakharuk 2416: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
2417: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1.380 foxr 2418: # Don't permanently pervert the %form hash
2419: my %answerform = %form;
2420: $answerform{'grade_target'}='answer';
2421: $answerform{'answer_output_mode'}='tex';
1.375 foxr 2422: $resources_printed .= $urlp.':';
1.428 albertel 2423:
2424: &Apache::lonxml::restore_problem_counter();
1.515 foxr 2425: my $answer=&ssi_with_retries($urlp, $ssi_retry_count, %answerform);
1.582 raeburn 2426: if ($urlp =~ /\.page$/) {
2427: $answer =~ s/\\end{document}(\d*)$//;
2428: }
1.296 sakharuk 2429: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
1.582 raeburn 2430: if ($urlp =~ /\.page$/) {
2431: my @probs = split(/\\keephidden{ENDOFPROBLEM}/,$texversion);
2432: my $lastprob = pop(@probs);
2433: $texversion = join('\keephidden{ENDOFPROBLEM}',@probs).
2434: $answer.'\keephidden{ENDOFPROBLEM}'.$lastprob;
2435: } else {
2436: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
2437: }
1.249 sakharuk 2438: } else {
1.582 raeburn 2439: if ($urlp=~/\.(problem|exam|quiz|assess|survey|form|library|page)$/) {
1.296 sakharuk 2440: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1.582 raeburn 2441: # $texversion =~ s/\\begin{document}//; # FIXME
1.477 albertel 2442: my $title = &Apache::lonnet::gettitle($master_seq[$i]);
2443: $title = &Apache::lonxml::latex_special_symbols($title);
2444: my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
1.423 foxr 2445: $body .= &path_to_problem ($urlp,$LaTeXwidth);
2446: $body .='\vskip 1 mm '.$answer;
2447: $body = &encapsulate_minipage($body);
2448: $texversion .= $body;
1.296 sakharuk 2449: } else {
2450: $texversion='';
2451: }
1.249 sakharuk 2452: }
1.511 foxr 2453:
1.246 sakharuk 2454: }
1.511 foxr 2455: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2456: my $annotation .= &annotate($urlp);
2457: $texversion =~ s/(\\keephidden{ENDOFPROBLEM})/$annotation$1/;
2458: }
2459:
1.296 sakharuk 2460: if ($flag_latex_header_remove ne 'NO') {
2461: $texversion = &latex_header_footer_remove($texversion);
2462: } else {
2463: $texversion =~ s/\\end{document}//;
2464: }
2465: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
2466: $texversion=&IndexCreation($texversion,$urlp);
2467: }
2468: if (($selectionmade == 4) and ($assignment ne $prevassignment)) {
2469: my $name = &get_name();
2470: my $courseidinfo = &get_course();
2471: $prevassignment=$assignment;
1.455 albertel 2472: my $header_text = $parmhash{'print_header_format'};
1.486 foxr 2473: $header_text = &format_page_header($textwidth, $header_text,
1.455 albertel 2474: $assignment,
2475: $courseidinfo,
2476: $name);
1.552 foxr 2477:
1.417 foxr 2478: if ($numberofcolumns eq '1') {
1.455 albertel 2479: $result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\lhead{'.$header_text.'}} \vskip 5 mm ';
1.416 foxr 2480: } else {
1.455 albertel 2481: $result .='\newpage \noindent\parbox{\minipagewidth}{\noindent\\fancyhead[LO]{'.$header_text.'}} \vskip 5 mm ';
1.416 foxr 2482: }
1.296 sakharuk 2483: }
2484: $result .= $texversion;
2485: $flag_latex_header_remove = 'YES';
1.456 raeburn 2486: } elsif ($urlp=~/\/(smppg|syllabus|aboutme|bulletinboard)$/) {
1.301 sakharuk 2487: $form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
2488: if ($urlp=~/\/syllabus$/) {$urlp=~s/\/res//;}
1.375 foxr 2489: $resources_printed .= $urlp.':';
1.567 foxr 2490: my $texversion = &ssi_with_retries($urlp, $ssi_retry_count, %form);
1.511 foxr 2491: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
2492: my $annotation = &annotate($urlp);
2493: $texversion =~ s/(\\end{document)/$annotation$1/;
2494: }
2495:
1.301 sakharuk 2496: if ($flag_latex_header_remove ne 'NO') {
2497: $texversion = &latex_header_footer_remove($texversion);
1.550 foxr 2498: } else {
1.301 sakharuk 2499: $texversion =~ s/\\end{document}/\\vskip 0\.5mm\\noindent\\makebox\[\\textwidth\/\$number_of_columns\]\[b\]\{\\hrulefill\}/;
2500: }
2501: $result .= $texversion;
2502: $flag_latex_header_remove = 'YES';
1.550 foxr 2503: } elsif ($urlp=~ /\.pdf$/i) {
2504: if ($i > 0) {
2505: $result .= '\cleardoublepage';
2506: }
1.580 raeburn 2507: my $texfrompdf = &include_pdf($urlp);
2508: if ($flag_latex_header_remove ne 'NO') {
2509: $texfrompdf = &latex_header_footer_remove($texfrompdf);
2510: }
2511: $result .= $texfrompdf;
1.550 foxr 2512: if ($i != $#master_seq) {
2513: if ($numberofcolumns eq '1') {
2514: $result .= '\newpage';
2515: } else {
2516: # the \\'s seem to be needed to let LaTeX know there's something
2517: # on the page since LaTeX seems to not like to clear an empty page.
2518: #
2519: $result .= '\\ \cleardoublepage';
2520: }
2521: }
2522: $flag_latex_header_remove = 'YES';
2523:
1.141 sakharuk 2524: } else {
1.414 albertel 2525: $texversion=&unsupported($urlp,$helper->{'VARS'}->{'LATEX_TYPE'},
2526: $master_seq[$i]);
1.297 sakharuk 2527: if ($flag_latex_header_remove ne 'NO') {
2528: $texversion = &latex_header_footer_remove($texversion);
2529: } else {
2530: $texversion =~ s/\\end{document}//;
2531: }
2532: $result .= $texversion;
2533: $flag_latex_header_remove = 'YES';
1.582 raeburn 2534: }
1.550 foxr 2535: if (&Apache::loncommon::connection_aborted($r)) {
2536: last;
2537: }
1.141 sakharuk 2538: }
1.428 albertel 2539: &Apache::lonxml::clear_problem_counter();
1.344 foxr 2540: if ($flag_page_in_sequence eq 'YES') {
2541: $result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;
2542: }
1.141 sakharuk 2543: $result .= '\end{document}';
1.284 albertel 2544: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') ||
1.562 foxr 2545: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students_from_page') ||
1.536 foxr 2546: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') ||
1.284 albertel 2547: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students')){
1.353 foxr 2548:
2549:
1.150 sakharuk 2550: #-- prints assignments for whole class or for selected students
1.284 albertel 2551: my $type;
1.536 foxr 2552: if (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') ||
1.562 foxr 2553: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students_from_page') ||
1.536 foxr 2554: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems_students') ) {
1.254 sakharuk 2555: $selectionmade=5;
1.284 albertel 2556: $type='problems';
1.254 sakharuk 2557: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_students') {
2558: $selectionmade=8;
1.284 albertel 2559: $type='resources';
1.254 sakharuk 2560: }
1.150 sakharuk 2561: my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'};
1.341 foxr 2562: # The normal sort order is by section then by students within the
2563: # section. If the helper var student_sort is 1, then the user has elected
2564: # to override this and output the students by name.
2565: # Each element of the students array is of the form:
2566: # username:domain:section:last, first:status
2567: #
1.429 foxr 2568: # Note that student sort is not compatible with printing
2569: # 1 section per pdf...so that setting overrides.
1.341 foxr 2570: #
1.429 foxr 2571: if (($helper->{'VARS'}->{'student_sort'} eq 1) &&
2572: ($helper->{'VARS'}->{'SPLIT_PDFS'} ne "sections")) {
1.341 foxr 2573: @students = sort compare_names @students;
2574: }
1.429 foxr 2575: &adjust_number_to_print($helper);
2576:
1.278 albertel 2577: if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq '0' ||
2578: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'all' ) {
2579: $helper->{'VARS'}->{'NUMBER_TO_PRINT'}=$#students+1;
2580: }
1.429 foxr 2581: # If we are splitting on section boundaries, we need
2582: # to remember that in split_on_sections and
2583: # print all of the students in the list.
2584: #
2585: my $split_on_sections = 0;
2586: if ($helper->{'VARS'}->{'NUMBER_TO_PRINT'} eq 'section') {
2587: $split_on_sections = 1;
2588: $helper->{'VARS'}->{'NUMBER_TO_PRINT'} = $#students+1;
2589: }
1.150 sakharuk 2590: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
1.350 foxr 2591:
1.150 sakharuk 2592: #loop over students
1.562 foxr 2593:
2594: my $flag_latex_header_remove = 'NO';
1.150 sakharuk 2595: my %moreenv;
1.330 sakharuk 2596: $moreenv{'instructor_comments'}='hide';
1.285 albertel 2597: $moreenv{'textwidth'}=&get_textwidth($helper,$LaTeXwidth);
1.309 sakharuk 2598: $moreenv{'print_discussions'}=$helper->{'VARS'}->{'PRINT_DISCUSSIONS'};
1.511 foxr 2599: $moreenv{'print_annotations'} = $helper->{'VARS'}->{'PRINT_ANNOTATIONS'};
1.353 foxr 2600: $moreenv{'problem_split'} = $parmhash{'problem_stream_switch'};
1.369 foxr 2601: $moreenv{'suppress_tries'} = $parmhash{'suppress_tries'};
1.511 foxr 2602: if (($helper->{'VARS'}->{'PRINT_DISCUSSIONS'} eq 'yes') ||
2603: ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes')) {
2604: $moreenv{'problem_split'}='yes';
2605: }
1.318 albertel 2606: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1,'inline','75');
1.272 sakharuk 2607: my $student_counter=-1;
1.429 foxr 2608: my $i = 0;
1.430 albertel 2609: my $last_section = (split(/:/,$students[0]))[2];
1.150 sakharuk 2610: foreach my $person (@students) {
1.350 foxr 2611:
1.373 albertel 2612: my $duefile="/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
1.311 sakharuk 2613: if (-e $duefile) {
2614: my $temp_file = Apache::File->new('>>'.$duefile);
2615: print $temp_file "1969\n";
2616: }
1.272 sakharuk 2617: $student_counter++;
1.429 foxr 2618: if ($split_on_sections) {
1.430 albertel 2619: my $this_section = (split(/:/,$person))[2];
1.429 foxr 2620: if ($this_section ne $last_section) {
2621: $i++;
2622: $last_section = $this_section;
2623: }
2624: } else {
2625: $i=int($student_counter/$helper->{'VARS'}{'NUMBER_TO_PRINT'});
2626: }
1.375 foxr 2627: my ($output,$fullname, $printed)=&print_resources($r,$helper,
1.353 foxr 2628: $person,$type,
2629: \%moreenv,\@master_seq,
1.360 albertel 2630: $flag_latex_header_remove,
1.422 albertel 2631: $LaTeXwidth);
1.375 foxr 2632: $resources_printed .= ":";
1.284 albertel 2633: $print_array[$i].=$output;
2634: $student_names[$i].=$person.':'.$fullname.'_END_';
1.581 bisitz 2635: # &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,&mt('last student').' '.$fullname);
2636: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,'last student');
1.284 albertel 2637: $flag_latex_header_remove = 'YES';
1.331 albertel 2638: if (&Apache::loncommon::connection_aborted($r)) { last; }
1.284 albertel 2639: }
2640: &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
2641: $result .= $print_array[0].' \end{document}';
2642: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') ||
1.562 foxr 2643: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon_page') ||
1.284 albertel 2644: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) {
1.373 albertel 2645: my $cdom =$env{'course.'.$env{'request.course.id'}.'.domain'};
2646: my $cnum =$env{'course.'.$env{'request.course.id'}.'.num'};
1.288 albertel 2647: my $num_todo=$helper->{'VARS'}->{'NUMBER_TO_PRINT_TOTAL'};
2648: my $code_name=$helper->{'VARS'}->{'ANON_CODE_STORAGE_NAME'};
1.292 albertel 2649: my $old_name=$helper->{'VARS'}->{'REUSE_OLD_CODES'};
1.385 foxr 2650: my $single_code = $helper->{'VARS'}->{'SINGLE_CODE'};
1.388 foxr 2651: my $selected_code = $helper->{'VARS'}->{'CODE_SELECTED_FROM_LIST'};
2652:
1.381 albertel 2653: my $code_option=$helper->{'VARS'}->{'CODE_OPTION'};
1.542 raeburn 2654: my @lines = &Apache::grades::get_scantronformat_file();
1.381 albertel 2655: my ($code_type,$code_length)=('letter',6);
1.542 raeburn 2656: foreach my $line (@lines) {
1.381 albertel 2657: my ($name,$type,$length) = (split(/:/,$line))[0,2,4];
2658: if ($name eq $code_option) {
2659: $code_length=$length;
2660: if ($type eq 'number') { $code_type = 'number'; }
2661: }
2662: }
1.288 albertel 2663: my %moreenv = ('textwidth' => &get_textwidth($helper,$LaTeXwidth));
1.353 foxr 2664: $moreenv{'problem_split'} = $parmhash{'problem_stream_switch'};
1.420 albertel 2665: $moreenv{'instructor_comments'}='hide';
1.288 albertel 2666: my $seed=time+($$<<16)+($$);
1.292 albertel 2667: my @allcodes;
2668: if ($old_name) {
1.381 albertel 2669: my %result=&Apache::lonnet::get('CODEs',
2670: [$old_name,"type\0$old_name"],
2671: $cdom,$cnum);
2672: $code_type=$result{"type\0$old_name"};
1.292 albertel 2673: @allcodes=split(',',$result{$old_name});
1.336 albertel 2674: $num_todo=scalar(@allcodes);
1.389 foxr 2675: } elsif ($selected_code) { # Selection value is always numeric.
1.388 foxr 2676: $num_todo = 1;
2677: @allcodes = ($selected_code);
1.385 foxr 2678: } elsif ($single_code) {
2679:
1.387 foxr 2680: $num_todo = 1; # Unconditionally one code to do.
1.385 foxr 2681: # If an alpha code have to convert to numbers so it can be
2682: # converted back to letters again :-)
2683: #
2684: if ($code_type ne 'number') {
2685: $single_code = &letters_to_num($single_code);
2686: }
2687: @allcodes = ($single_code);
1.292 albertel 2688: } else {
2689: my %allcodes;
1.299 albertel 2690: srand($seed);
1.292 albertel 2691: for (my $i=0;$i<$num_todo;$i++) {
1.381 albertel 2692: $moreenv{'CODE'}=&get_CODE(\%allcodes,$i,$seed,$code_length,
2693: $code_type);
1.292 albertel 2694: }
2695: if ($code_name) {
2696: &Apache::lonnet::put('CODEs',
1.381 albertel 2697: {
2698: $code_name =>join(',',keys(%allcodes)),
2699: "type\0$code_name" => $code_type
2700: },
1.292 albertel 2701: $cdom,$cnum);
2702: }
2703: @allcodes=keys(%allcodes);
2704: }
1.336 albertel 2705: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
2706: my ($type) = split(/_/,$helper->{'VARS'}->{'PRINT_TYPE'});
1.452 albertel 2707: &adjust_number_to_print($helper);
1.336 albertel 2708: my $number_per_page=$helper->{'VARS'}->{'NUMBER_TO_PRINT'};
1.587 foxr 2709: if ($number_per_page eq '0' || $number_per_page eq 'all'
2710: || $number_per_page eq 'section') {
2711: $number_per_page=$num_todo > 0 ? $num_todo : 1;
1.336 albertel 2712: }
2713: my $flag_latex_header_remove = 'NO';
2714: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$num_todo,'inline','75');
1.295 albertel 2715: my $count=0;
1.292 albertel 2716: foreach my $code (sort(@allcodes)) {
1.295 albertel 2717: my $file_num=int($count/$number_per_page);
1.381 albertel 2718: if ($code_type eq 'number') {
2719: $moreenv{'CODE'}=$code;
2720: } else {
2721: $moreenv{'CODE'}=&num_to_letters($code);
2722: }
1.375 foxr 2723: my ($output,$fullname, $printed)=
1.288 albertel 2724: &print_resources($r,$helper,'anonymous',$type,\%moreenv,
1.360 albertel 2725: \@master_seq,$flag_latex_header_remove,
2726: $LaTeXwidth);
1.375 foxr 2727: $resources_printed .= ":";
1.295 albertel 2728: $print_array[$file_num].=$output;
1.288 albertel 2729: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
2730: &mt('last assignment').' '.$fullname);
2731: $flag_latex_header_remove = 'YES';
1.295 albertel 2732: $count++;
1.331 albertel 2733: if (&Apache::loncommon::connection_aborted($r)) { last; }
1.288 albertel 2734: }
2735: &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
2736: $result .= $print_array[0].' \end{document}';
2737: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') {
1.151 sakharuk 2738: #prints selected problems from the subdirectory
2739: $selectionmade = 6;
2740: my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'};
1.154 sakharuk 2741: @list_of_files=sort @list_of_files;
1.175 sakharuk 2742: my $flag_latex_header_remove = 'NO';
2743: my $rndseed=time;
1.230 albertel 2744: if ($helper->{'VARS'}->{'curseed'}) {
2745: $rndseed=$helper->{'VARS'}->{'curseed'};
2746: }
1.151 sakharuk 2747: for (my $i=0;$i<=$#list_of_files;$i++) {
1.521 foxr 2748:
2749: &Apache::lonenc::reset_enc();
2750:
1.152 sakharuk 2751: my $urlp = $list_of_files[$i];
1.253 sakharuk 2752: $urlp=~s|//|/|;
1.152 sakharuk 2753: if ($urlp=~/\//) {
1.353 foxr 2754: $form{'problem_split'}=$parmhash{'problem_stream_switch'};
1.175 sakharuk 2755: $form{'rndseed'}=$rndseed;
1.152 sakharuk 2756: if ($urlp =~ m|/home/([^/]+)/public_html|) {
2757: $urlp =~ s|/home/([^/]*)/public_html|/~$1|;
2758: } else {
1.302 sakharuk 2759: $urlp =~ s|^$Apache::lonnet::perlvar{'lonDocRoot'}||;
1.152 sakharuk 2760: }
1.375 foxr 2761: $resources_printed .= $urlp.':';
1.515 foxr 2762: my $texversion=&ssi_with_retries($urlp, $ssi_retry_count, %form);
1.251 sakharuk 2763: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
1.253 sakharuk 2764: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1.380 foxr 2765: # Don't permanently pervert %form:
2766: my %answerform = %form;
2767: $answerform{'grade_target'}='answer';
2768: $answerform{'answer_output_mode'}='tex';
2769: $answerform{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
2770: $answerform{'rndseed'}=$rndseed;
1.375 foxr 2771: $resources_printed .= $urlp.':';
1.515 foxr 2772: my $answer=&ssi_with_retries($urlp, $ssi_retry_count, %answerform);
1.251 sakharuk 2773: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
2774: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
2775: } else {
1.253 sakharuk 2776: $texversion=&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
2777: if ($helper->{'VARS'}->{'construction'} ne '1') {
2778: $texversion.='\vskip 0 mm \noindent ';
2779: $texversion.=&path_to_problem ($urlp,$LaTeXwidth);
2780: } else {
2781: $texversion.='\vskip 0 mm \noindent\textbf{Prints from construction space - there is no title.}\vskip 0 mm ';
2782: my $URLpath=$urlp;
2783: $URLpath=~s/~([^\/]+)/public_html\/$1\/$1/;
2784: $texversion.=&path_to_problem ($URLpath,$LaTeXwidth);
2785: }
2786: $texversion.='\vskip 1 mm '.$answer.'\end{document}';
1.251 sakharuk 2787: }
1.174 sakharuk 2788: }
1.515 foxr 2789: #this chunk is responsible for printing the path to problem
2790:
1.253 sakharuk 2791: my $newurlp=$urlp;
2792: if ($newurlp=~/~/) {$newurlp=~s|\/~([^\/]+)\/|\/home\/$1\/public_html\/|;}
2793: $newurlp=&path_to_problem($newurlp,$LaTeXwidth);
1.242 sakharuk 2794: $texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 $newurlp/;
1.152 sakharuk 2795: if ($flag_latex_header_remove ne 'NO') {
2796: $texversion = &latex_header_footer_remove($texversion);
2797: } else {
2798: $texversion =~ s/\\end{document}//;
1.216 sakharuk 2799: }
2800: if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
2801: $texversion=&IndexCreation($texversion,$urlp);
1.152 sakharuk 2802: }
1.219 sakharuk 2803: if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') {
2804: $texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /;
2805:
2806: }
1.152 sakharuk 2807: $result .= $texversion;
2808: }
2809: $flag_latex_header_remove = 'YES';
1.151 sakharuk 2810: }
1.175 sakharuk 2811: if ($helper->{VARS}->{'construction'} eq '1') {$result=~s/(\\typeout)/ RANDOM SEED IS $rndseed $1/;}
1.152 sakharuk 2812: $result .= '\end{document}';
1.140 sakharuk 2813: }
2814: #-------------------------------------------------------- corrections for the different page formats
1.499 foxr 2815:
2816: # Only post process if that has not been turned off e.g. by a raw latex resource.
2817:
2818: if ($do_postprocessing) {
2819: $result = &page_format_transformation($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'},$helper->{'VARS'}->{'TABLE_CONTENTS'},$helper->{'VARS'}->{'TABLE_INDEX'},$selectionmade);
2820: $result = &latex_corrections($number_of_columns,$result,$selectionmade,
2821: $helper->{'VARS'}->{'ANSWER_TYPE'});
2822: #if ($numberofcolumns == 1) {
1.451 albertel 2823: $result =~ s/\\textwidth\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\textwidth= $helper->{'VARS'}->{'pagesize.width'} $helper->{'VARS'}->{'pagesize.widthunit'} /;
2824: $result =~ s/\\textheight\s*=?\s*-?\d*\.?\d*\s*(cm|mm|in)/\\textheight $helper->{'VARS'}->{'pagesize.height'} $helper->{'VARS'}->{'pagesize.heightunit'} /;
2825: $result =~ s/\\evensidemargin\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
2826: $result =~ s/\\oddsidemargin\s*=\s*-?\d*\.?\d*\s*(cm|mm|in)/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
1.499 foxr 2827: #}
2828: }
1.367 foxr 2829:
1.515 foxr 2830: # Set URLback if this is a construction space print so we can provide
2831: # a link to the resource being edited.
2832: #
1.274 sakharuk 2833:
1.276 sakharuk 2834: my $URLback=''; #link to original document
1.510 albertel 2835: if ($helper->{'VARS'}->{'construction'} eq '1') {
1.276 sakharuk 2836: #prints resource from the construction space
2837: $URLback='/'.$helper->{'VARS'}->{'filename'};
1.279 albertel 2838: if ($URLback=~/([^?]+)/) {
2839: $URLback=$1;
2840: $URLback=~s|^/~|/priv/|;
2841: }
1.276 sakharuk 2842: }
1.556 foxr 2843: #
2844: # Final adjustment of the font size:
2845: #
2846:
2847: $result = set_font_size($result);
1.375 foxr 2848:
1.525 www 2849: #-- writing .tex file in prtspool
2850: my $temp_file;
2851: my $identifier = &Apache::loncommon::get_cgi_id();
2852: my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout_$identifier.tex";
2853: if (!($#print_array>0)) {
2854: unless ($temp_file = Apache::File->new('>'.$filename)) {
2855: $r->log_error("Couldn't open $filename for output $!");
2856: return SERVER_ERROR;
2857: }
2858: print $temp_file $result;
2859: my $begin=index($result,'\begin{document}',0);
2860: my $inc=substr($result,0,$begin+16);
1.515 foxr 2861: } else {
1.525 www 2862: my $begin=index($result,'\begin{document}',0);
2863: my $inc=substr($result,0,$begin+16);
2864: for (my $i=0;$i<=$#print_array;$i++) {
2865: if ($i==0) {
2866: $print_array[$i]=$result;
2867: } else {
2868: $print_array[$i].='\end{document}';
2869: $print_array[$i] =
2870: &latex_corrections($number_of_columns,$print_array[$i],
2871: $selectionmade,
2872: $helper->{'VARS'}->{'ANSWER_TYPE'});
1.515 foxr 2873:
1.525 www 2874: my $anobegin=index($print_array[$i],'\setcounter{page}',0);
2875: substr($print_array[$i],0,$anobegin)='';
2876: $print_array[$i]=$inc.$print_array[$i];
2877: }
2878: my $temp_file;
2879: my $newfilename=$filename;
2880: my $num=$i+1;
2881: $newfilename =~s/\.tex$//;
2882: $newfilename=sprintf("%s_%03d.tex",$newfilename, $num);
2883: unless ($temp_file = Apache::File->new('>'.$newfilename)) {
2884: $r->log_error("Couldn't open $newfilename for output $!");
2885: return SERVER_ERROR;
2886: }
2887: print $temp_file $print_array[$i];
2888: }
2889: }
2890: my $student_names='';
2891: if ($#print_array>0) {
2892: for (my $i=0;$i<=$#print_array;$i++) {
2893: $student_names.=$student_names[$i].'_ENDPERSON_';
1.515 foxr 2894: }
1.525 www 2895: } else {
2896: if ($#student_names>-1) {
2897: $student_names=$student_names[0].'_ENDPERSON_';
1.515 foxr 2898: } else {
1.525 www 2899: my $fullname = &get_name($env{'user.name'},$env{'user.domain'});
2900: $student_names=join(':',$env{'user.name'},$env{'user.domain'},
1.515 foxr 2901: $env{'request.course.sec'},$fullname).
2902: '_ENDPERSON_'.'_END_';
2903: }
1.525 www 2904: }
1.515 foxr 2905:
1.525 www 2906: # logic for now is too complex to trace if this has been defined
2907: # yet.
2908: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
2909: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
2910: &Apache::lonnet::appenv({'cgi.'.$identifier.'.file' => $filename,
1.515 foxr 2911: 'cgi.'.$identifier.'.layout' => $laystyle,
2912: 'cgi.'.$identifier.'.numcol' => $numberofcolumns,
2913: 'cgi.'.$identifier.'.paper' => $papersize,
2914: 'cgi.'.$identifier.'.selection' => $selectionmade,
2915: 'cgi.'.$identifier.'.tableofcontents' => $helper->{'VARS'}->{'TABLE_CONTENTS'},
2916: 'cgi.'.$identifier.'.tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'},
2917: 'cgi.'.$identifier.'.role' => $perm{'pav'},
2918: 'cgi.'.$identifier.'.numberoffiles' => $#print_array,
2919: 'cgi.'.$identifier.'.studentnames' => $student_names,
1.520 raeburn 2920: 'cgi.'.$identifier.'.backref' => $URLback,});
1.525 www 2921: &Apache::lonnet::appenv({"cgi.$identifier.user" => $env{'user.name'},
1.515 foxr 2922: "cgi.$identifier.domain" => $env{'user.domain'},
2923: "cgi.$identifier.courseid" => $cnum,
2924: "cgi.$identifier.coursedom" => $cdom,
1.520 raeburn 2925: "cgi.$identifier.resources" => $resources_printed});
1.515 foxr 2926:
1.525 www 2927: my $end_page = &Apache::loncommon::end_page();
1.529 raeburn 2928: my $continue_text = &mt('Continue');
1.525 www 2929: # If there's been an unrecoverable SSI error, report it to the user
2930: if ($ssi_error) {
2931: my $helpurl = &Apache::loncommon::top_nav_help('Helpdesk');
1.554 bisitz 2932: $r->print('<br /><p class="LC_error">'.&mt('An unrecoverable network error occurred:').'</p><p>'.
1.526 www 2933: &mt('At least one of the resources you chose to print could not be rendered due to an unrecoverable error when communicating with a server:').
2934: '<br />'.$ssi_last_error_resource.'<br />'.$ssi_last_error.
2935: '</p><p>'.&mt('You can continue using the link provided below, but make sure to carefully inspect your output file! The errors will be marked in the file.').'<br />'.
1.528 raeburn 2936: &mt('You may be able to reprint the individual resources for which this error occurred, as the issue may be temporary.').
1.525 www 2937: '<br />'.&mt('If the error persists, please contact the [_1] for assistance.',$helpurl).'</p><p>'.
2938: &mt('We apologize for the inconvenience.').'</p>'.
1.528 raeburn 2939: '<a href="/cgi-bin/printout.pl?'.$identifier.'">'.$continue_text.'</a>'.$end_page);
1.525 www 2940: } else {
1.515 foxr 2941: $r->print(<<FINALEND);
1.317 albertel 2942: <br />
1.288 albertel 2943: <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier" />
1.528 raeburn 2944: <a href="/cgi-bin/printout.pl?$identifier">$continue_text</a>
1.431 albertel 2945: $end_page
1.140 sakharuk 2946: FINALEND
1.528 raeburn 2947: } # endif ssi errors.
1.140 sakharuk 2948: }
2949:
1.288 albertel 2950:
2951: sub get_CODE {
1.381 albertel 2952: my ($all_codes,$num,$seed,$size,$type)=@_;
1.288 albertel 2953: my $max='1'.'0'x$size;
2954: my $newcode;
2955: while(1) {
1.392 albertel 2956: $newcode=sprintf("%0".$size."d",int(rand($max)));
1.288 albertel 2957: if (!exists($$all_codes{$newcode})) {
2958: $$all_codes{$newcode}=1;
1.381 albertel 2959: if ($type eq 'number' ) {
2960: return $newcode;
2961: } else {
2962: return &num_to_letters($newcode);
2963: }
1.288 albertel 2964: }
2965: }
2966: }
1.140 sakharuk 2967:
1.284 albertel 2968: sub print_resources {
1.360 albertel 2969: my ($r,$helper,$person,$type,$moreenv,$master_seq,$remove_latex_header,
1.422 albertel 2970: $LaTeXwidth)=@_;
1.284 albertel 2971: my $current_output = '';
1.375 foxr 2972: my $printed = '';
1.284 albertel 2973: my ($username,$userdomain,$usersection) = split /:/,$person;
2974: my $fullname = &get_name($username,$userdomain);
1.492 foxr 2975: my $namepostfix = "\\\\"; # Both anon and not anon should get the same vspace.
1.288 albertel 2976: if ($person =~ 'anon') {
1.492 foxr 2977: $namepostfix .="Name: ";
1.288 albertel 2978: $fullname = "CODE - ".$moreenv->{'CODE'};
2979: }
1.444 foxr 2980: # Fullname may have special latex characters that need \ prefixing:
2981: #
2982:
1.350 foxr 2983: my $i = 0;
1.284 albertel 2984: #goes through all resources, checks if they are available for
2985: #current student, and produces output
1.428 albertel 2986:
2987: &Apache::lonxml::clear_problem_counter();
1.364 albertel 2988: my %page_breaks = &get_page_breaks($helper);
1.476 albertel 2989: my $columns_in_format = (split(/\|/,$helper->{'VARS'}->{'FORMAT'}))[1];
1.440 foxr 2990: #
1.441 foxr 2991: # end each student with a
1.440 foxr 2992: # Special that allows the post processor to even out the page
2993: # counts later. Nasty problem this... it would be really
2994: # nice to put the special in as a postscript comment
1.441 foxr 2995: # e.g. \special{ps:\ENDOFSTUDENTSTAMP} unfortunately,
1.440 foxr 2996: # The special gets passed the \ and dvips puts it in the output file
1.441 foxr 2997: # so we will just rely on prntout.pl to strip ENDOFSTUDENTSTAMP from the
2998: # postscript. Each ENDOFSTUDENTSTAMP will go on a line by itself.
1.440 foxr 2999: #
1.568 foxr 3000: my $syllabus_first = 0;
1.284 albertel 3001: foreach my $curresline (@{$master_seq}) {
1.351 foxr 3002: if (defined $page_breaks{$curresline}) {
1.350 foxr 3003: if($i != 0) {
3004: $current_output.= "\\newpage\n";
3005: }
3006: }
1.569 foxr 3007: $current_output .= &get_extra_vspaces($helper, $curresline);
1.350 foxr 3008: $i++;
1.511 foxr 3009:
1.284 albertel 3010: if ( !($type eq 'problems' &&
1.582 raeburn 3011: ($curresline!~ m/\.(problem|exam|quiz|assess|survey|form|library|page)$/)) ) {
1.284 albertel 3012: my ($map,$id,$res_url) = &Apache::lonnet::decode_symb($curresline);
3013: if (&Apache::lonnet::allowed('bre',$res_url)) {
1.414 albertel 3014: if ($res_url!~m|^ext/|
1.413 albertel 3015: && $res_url=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) {
1.375 foxr 3016: $printed .= $curresline.':';
1.428 albertel 3017: &Apache::lonxml::remember_problem_counter();
3018:
1.526 www 3019: my $rendered = &get_student_view_with_retries($curresline,$ssi_retry_count,$username,$userdomain,$env{'request.course.id'},'tex',$moreenv);
1.582 raeburn 3020: if ($res_url =~ /\.page$/) {
3021: if ($remove_latex_header eq 'NO') {
3022: if (!($rendered =~ /\\begin\{document\}/)) {
3023: $rendered = &print_latex_header().$rendered;
3024: }
3025: }
3026: if ($remove_latex_header eq 'YES') {
3027: $rendered = &latex_header_footer_remove($rendered);
3028: } else {
3029: $rendered =~ s/\\end{document}\d*//;
3030: }
3031: }
1.305 sakharuk 3032: if(($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') ||
3033: ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only')) {
1.380 foxr 3034: # Use a copy of the hash so we don't pervert it on future loop passes.
3035: my %answerenv = %{$moreenv};
3036: $answerenv{'answer_output_mode'}='tex';
3037: $answerenv{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
1.428 albertel 3038:
3039: &Apache::lonxml::restore_problem_counter();
3040:
1.380 foxr 3041: my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$env{'request.course.id'},%answerenv);
1.428 albertel 3042:
1.305 sakharuk 3043: if ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
3044: $rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;
3045: } else {
1.423 foxr 3046:
3047:
3048: my $header =&print_latex_header($helper->{'VARS'}->{'LATEX_TYPE'});
1.582 raeburn 3049: unless ($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'only') {
3050: $header =~ s/\\begin{document}//; #<<<<<
3051: }
1.477 albertel 3052: my $title = &Apache::lonnet::gettitle($curresline);
3053: $title = &Apache::lonxml::latex_special_symbols($title);
3054: my $body ='\vskip 0 mm \noindent\textbf{'.$title.'}\vskip 0 mm ';
3055: $body .=&path_to_problem($res_url,$LaTeXwidth);
1.423 foxr 3056: $body .='\vskip 1 mm '.$ansrendered;
3057: $body = &encapsulate_minipage($body);
3058: $rendered = $header.$body;
1.305 sakharuk 3059: }
3060: }
1.511 foxr 3061: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
3062: my $url = &Apache::lonnet::clutter($res_url);
3063: my $annotation = &annotate($url);
3064: $rendered =~ s/(\\keephidden{ENDOFPROBLEM})/$annotation$1/;
3065: }
1.562 foxr 3066: my $junk;
1.305 sakharuk 3067: if ($remove_latex_header eq 'YES') {
3068: $rendered = &latex_header_footer_remove($rendered);
3069: } else {
3070: $rendered =~ s/\\end{document}//;
3071: }
3072: $current_output .= $rendered;
1.456 raeburn 3073: } elsif ($res_url=~/\/(smppg|syllabus|aboutme|bulletinboard)$/) {
1.568 foxr 3074: if ($i == 1) {
3075: $syllabus_first = 1;
3076: }
1.375 foxr 3077: $printed .= $curresline.':';
1.528 raeburn 3078: my $rendered = &get_student_view_with_retries($curresline,$ssi_retry_count,$username,$userdomain,$env{'request.course.id'},'tex',$moreenv);
1.511 foxr 3079: if ($helper->{'VARS'}->{'PRINT_ANNOTATIONS'} eq 'yes') {
3080: my $url = &Apache::lonnet::clutter($res_url);
3081: my $annotation = &annotate($url);
3082: $annotation =~ s/(\\end{document})/$annotation$1/;
3083: }
1.305 sakharuk 3084: if ($remove_latex_header eq 'YES') {
3085: $rendered = &latex_header_footer_remove($rendered);
1.284 albertel 3086: } else {
1.305 sakharuk 3087: $rendered =~ s/\\end{document}//;
1.284 albertel 3088: }
1.421 foxr 3089: $current_output .= $rendered.'\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}\strut \vskip 0 mm \strut ';
1.552 foxr 3090: } elsif($res_url = ~/\.pdf$/) {
3091: my $url = &Apache::lonnet::clutter($res_url);
3092: my $rendered = &include_pdf($url);
3093: if ($remove_latex_header ne 'NO') {
3094: $rendered = &latex_header_footer_remove($rendered);
3095: }
3096: $current_output .= $rendered;
1.284 albertel 3097: } else {
1.414 albertel 3098: my $rendered = &unsupported($res_url,$helper->{'VARS'}->{'LATEX_TYPE'},$curresline);
1.305 sakharuk 3099: if ($remove_latex_header ne 'NO') {
3100: $rendered = &latex_header_footer_remove($rendered);
3101: } else {
3102: $rendered =~ s/\\end{document}//;
3103: }
3104: $current_output .= $rendered;
1.284 albertel 3105: }
3106: }
3107: $remove_latex_header = 'YES';
1.550 foxr 3108: }
1.331 albertel 3109: if (&Apache::loncommon::connection_aborted($r)) { last; }
1.284 albertel 3110: }
1.552 foxr 3111:
1.583 raeburn 3112: if ($syllabus_first) {
3113: $current_output =~ s/\\\\ Last updated:/Last updated:/
3114: }
1.284 albertel 3115: my $courseidinfo = &get_course();
3116: my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
1.476 albertel 3117: my $header_line =
1.486 foxr 3118: &format_page_header($LaTeXwidth, $parmhash{'print_header_format'},
1.537 foxr 3119: $currentassignment, $courseidinfo, $fullname, $usersection);
1.476 albertel 3120: my $header_start = ($columns_in_format == 1) ? '\lhead'
3121: : '\fancyhead[LO]';
3122: $header_line = $header_start.'{'.$header_line.'}';
1.583 raeburn 3123: if ($current_output=~/\\documentclass/) {
1.476 albertel 3124: $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm} \\begin{document}\\noindent\\parbox{\\minipagewidth}{\\noindent$header_line$namepostfix}\\vskip 5 mm /;
1.284 albertel 3125: } else {
1.476 albertel 3126: my $blankpages =
3127: '\clearpage\strut\clearpage'x$helper->{'VARS'}->{'EMPTY_PAGES'};
3128:
3129: $current_output = '\strut\vspace*{-6 mm}\\newline'.
3130: ©right_line().' \newpage '.$blankpages.$end_of_student.
3131: '\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent'.
3132: $header_line.$namepostfix.'} \vskip 5 mm '.$current_output;
1.284 albertel 3133: }
1.440 foxr 3134: #
3135: # Close the student bracketing.
3136: #
1.375 foxr 3137: return ($current_output,$fullname, $printed);
1.284 albertel 3138:
3139: }
1.140 sakharuk 3140:
1.3 sakharuk 3141: sub handler {
3142:
3143: my $r = shift;
1.397 albertel 3144:
3145: &init_perm();
1.114 bowersj2 3146:
1.416 foxr 3147:
1.67 www 3148:
1.397 albertel 3149: my $helper = printHelper($r);
3150: if (!ref($helper)) {
3151: return $helper;
1.60 sakharuk 3152: }
1.177 sakharuk 3153:
1.184 sakharuk 3154:
1.454 foxr 3155: %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'});
1.353 foxr 3156:
1.416 foxr 3157:
1.350 foxr 3158:
3159:
1.367 foxr 3160: # If a figure conversion queue file exists for this user.domain
3161: # we delete it since it can only be bad (if it were good, printout.pl
3162: # would have deleted it the last time around.
3163:
1.373 albertel 3164: my $conversion_queuefile = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.dat";
1.367 foxr 3165: if(-e $conversion_queuefile) {
3166: unlink $conversion_queuefile;
3167: }
1.515 foxr 3168:
3169:
1.184 sakharuk 3170: &output_data($r,$helper,\%parmhash);
1.2 sakharuk 3171: return OK;
1.60 sakharuk 3172: }
1.2 sakharuk 3173:
1.131 bowersj2 3174: use Apache::lonhelper;
1.130 sakharuk 3175:
1.223 bowersj2 3176: sub addMessage {
3177: my $text = shift;
3178: my $paramHash = Apache::lonhelper::getParamHash();
3179: $paramHash->{MESSAGE_TEXT} = $text;
3180: Apache::lonhelper::message->new();
3181: }
3182:
1.416 foxr 3183:
1.238 bowersj2 3184:
1.397 albertel 3185: sub init_perm {
3186: undef(%perm);
3187: $perm{'pav'}=&Apache::lonnet::allowed('pav',$env{'request.course.id'});
3188: if (!$perm{'pav'}) {
3189: $perm{'pav'}=&Apache::lonnet::allowed('pav',
3190: $env{'request.course.id'}.'/'.$env{'request.course.sec'});
3191: }
1.465 albertel 3192: $perm{'pfo'}=&Apache::lonnet::allowed('pfo',$env{'request.course.id'});
1.397 albertel 3193: if (!$perm{'pfo'}) {
3194: $perm{'pfo'}=&Apache::lonnet::allowed('pfo',
3195: $env{'request.course.id'}.'/'.$env{'request.course.sec'});
3196: }
1.585 raeburn 3197: $perm{'vgr'}=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
3198: if (!$perm{'vgr'}) {
3199: $perm{'vgr'}=&Apache::lonnet::allowed('vgr',
3200: $env{'request.course.id'}.'/'.$env{'request.course.sec'});
3201: }
1.397 albertel 3202: }
3203:
1.507 albertel 3204: sub get_randomly_ordered_warning {
3205: my ($helper,$map) = @_;
3206:
3207: my $message;
3208:
3209: my $postdata = $env{'form.postdata'} || $helper->{VARS}{'postdata'};
3210: my $navmap = Apache::lonnavmaps::navmap->new();
1.547 raeburn 3211: if (defined($navmap)) {
3212: my $res = $navmap->getResourceByUrl($map);
3213: if ($res) {
3214: my $func =
3215: sub { return ($_[0]->is_map() && $_[0]->randomorder); };
3216: my @matches = $navmap->retrieveResources($res, $func,1,1,1);
3217: if (@matches) {
3218: $message = "Some of the items below are in folders set to be randomly ordered. However, when printing the contents of these folders, they will be printed in the original order for all students, not the randomized order.";
3219: }
3220: }
3221: if ($message) {
3222: return '<message type="warning">'.$message.'</message>';
3223: }
3224: } else {
3225: $message = "Retrieval of information about ordering of resources failed.";
3226: return '<message type="warning">'.$message.'</message>';
1.507 albertel 3227: }
3228: return;
3229: }
3230:
1.131 bowersj2 3231: sub printHelper {
1.115 bowersj2 3232: my $r = shift;
3233:
3234: if ($r->header_only) {
1.373 albertel 3235: if ($env{'browser.mathml'}) {
1.241 www 3236: &Apache::loncommon::content_type($r,'text/xml');
1.131 bowersj2 3237: } else {
1.241 www 3238: &Apache::loncommon::content_type($r,'text/html');
1.131 bowersj2 3239: }
3240: $r->send_http_header;
3241: return OK;
1.115 bowersj2 3242: }
3243:
1.131 bowersj2 3244: # Send header, nocache
1.373 albertel 3245: if ($env{'browser.mathml'}) {
1.241 www 3246: &Apache::loncommon::content_type($r,'text/xml');
1.115 bowersj2 3247: } else {
1.241 www 3248: &Apache::loncommon::content_type($r,'text/html');
1.115 bowersj2 3249: }
3250: &Apache::loncommon::no_cache($r);
3251: $r->send_http_header;
3252: $r->rflush();
3253:
1.131 bowersj2 3254: # Unfortunately, this helper is so complicated we have to
3255: # write it by hand
3256:
3257: Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
3258:
1.176 bowersj2 3259: my $helper = Apache::lonhelper::helper->new("Printing Helper");
1.146 bowersj2 3260: $helper->declareVar('symb');
1.156 bowersj2 3261: $helper->declareVar('postdata');
1.290 sakharuk 3262: $helper->declareVar('curseed');
3263: $helper->declareVar('probstatus');
1.156 bowersj2 3264: $helper->declareVar('filename');
3265: $helper->declareVar('construction');
1.178 sakharuk 3266: $helper->declareVar('assignment');
1.262 sakharuk 3267: $helper->declareVar('style_file');
1.340 foxr 3268: $helper->declareVar('student_sort');
1.363 foxr 3269: $helper->declareVar('FINISHPAGE');
1.366 foxr 3270: $helper->declareVar('PRINT_TYPE');
1.372 foxr 3271: $helper->declareVar("showallfoils");
1.483 foxr 3272: $helper->declareVar("STUDENTS");
1.569 foxr 3273: $helper->declareVar("EXTRASPACE");
1.518 foxr 3274:
3275:
3276:
3277:
1.569 foxr 3278: # The page breaks and extra spaces
3279: # can get loaded initially from the course environment:
1.394 foxr 3280: # But we only do this in the initial state so that they are allowed to change.
3281: #
1.366 foxr 3282:
1.363 foxr 3283:
3284: &Apache::loncommon::restore_course_settings('print',
1.366 foxr 3285: {'pagebreaks' => 'scalar',
1.569 foxr 3286: 'extraspace' => 'scalar',
1.570 foxr 3287: 'extraspace_units' => 'scalar',
1.366 foxr 3288: 'lastprinttype' => 'scalar'});
3289:
1.483 foxr 3290: # This will persistently load in the data we want from the
3291: # very first screen.
1.394 foxr 3292:
3293: if($helper->{VARS}->{PRINT_TYPE} eq $env{'form.lastprinttype'}) {
3294: if (!defined ($env{"form.CURRENT_STATE"})) {
3295:
3296: $helper->{VARS}->{FINISHPAGE} = $env{'form.pagebreaks'};
1.569 foxr 3297: $helper->{VARS}->{EXTRASPACE} = $env{'form.extraspace'};
1.570 foxr 3298: $helper->{VARS}->{EXTRASPACE_UNITS} = $env{'form.extraspace_units'};
1.394 foxr 3299: } else {
3300: my $state = $env{"form.CURRENT_STATE"};
3301: if ($state eq "START") {
3302: $helper->{VARS}->{FINISHPAGE} = $env{'form.pagebreaks'};
1.569 foxr 3303: $helper->{VARS}->{EXTRASPACE} = $env{'form.extraspace'};
1.570 foxr 3304: $helper->{VARS}->{EXTRASPACE_UNITS} = $env{'form.extraspace_units'};
3305:
1.394 foxr 3306: }
3307: }
3308:
1.366 foxr 3309: }
1.481 albertel 3310:
1.156 bowersj2 3311: # Detect whether we're coming from construction space
1.373 albertel 3312: if ($env{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/|\/|)\~([^\/]+)\/(.*)$/) {
1.235 bowersj2 3313: $helper->{VARS}->{'filename'} = "~$1/$2";
1.156 bowersj2 3314: $helper->{VARS}->{'construction'} = 1;
1.481 albertel 3315: } else {
1.373 albertel 3316: if ($env{'form.postdata'}) {
3317: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($env{'form.postdata'});
1.482 albertel 3318: if ( $helper->{VARS}->{'symb'} eq '') {
3319: $helper->{VARS}->{'postdata'} = $env{'form.postdata'};
3320: }
1.156 bowersj2 3321: }
1.373 albertel 3322: if ($env{'form.symb'}) {
3323: $helper->{VARS}->{'symb'} = $env{'form.symb'};
1.156 bowersj2 3324: }
1.373 albertel 3325: if ($env{'form.url'}) {
1.156 bowersj2 3326: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
3327: }
1.416 foxr 3328:
1.157 bowersj2 3329: }
1.481 albertel 3330:
1.373 albertel 3331: if ($env{'form.symb'}) {
3332: $helper->{VARS}->{'symb'} = $env{'form.symb'};
1.146 bowersj2 3333: }
1.373 albertel 3334: if ($env{'form.url'}) {
1.140 sakharuk 3335: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'});
1.153 sakharuk 3336:
1.140 sakharuk 3337: }
1.343 albertel 3338: $helper->{VARS}->{'symb'}=
3339: &Apache::lonenc::check_encrypt($helper->{VARS}->{'symb'});
1.335 albertel 3340: my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu($helper);
1.178 sakharuk 3341: if ($sequenceTitle ne '') {$helper->{VARS}->{'assignment'}=$sequenceTitle;}
1.481 albertel 3342:
1.156 bowersj2 3343:
1.146 bowersj2 3344: # Extract map
3345: my $symb = $helper->{VARS}->{'symb'};
1.156 bowersj2 3346: my ($map, $id, $url);
3347: my $subdir;
1.483 foxr 3348: my $is_published=0; # True when printing from resource space.
1.589 ! foxr 3349: my $res_printable = 1; # By default the current resource is printable.
! 3350: my $userCanPrint = ($perm{'pav'} || $perm{'pfo'});
1.156 bowersj2 3351:
3352: # Get the resource name from construction space
3353: if ($helper->{VARS}->{'construction'}) {
3354: $resourceTitle = substr($helper->{VARS}->{'filename'},
3355: rindex($helper->{VARS}->{'filename'}, '/')+1);
3356: $subdir = substr($helper->{VARS}->{'filename'},
3357: 0, rindex($helper->{VARS}->{'filename'}, '/') + 1);
1.481 albertel 3358: } else {
1.562 foxr 3359: # From course space:
3360:
1.482 albertel 3361: if ($symb ne '') {
3362: ($map, $id, $url) = &Apache::lonnet::decode_symb($symb);
3363: $helper->{VARS}->{'postdata'} =
3364: &Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($url));
1.589 ! foxr 3365: my $navmap = Apache::lonnavmaps::navmap->new();
! 3366: my $res = $navmap->getBySymb($symb);
! 3367: $res_printable = $res->resprintable() || $userCanPrint; #printability in course context
1.482 albertel 3368: } else {
1.589 ! foxr 3369: # Resource space.
! 3370:
1.482 albertel 3371: $url = $helper->{VARS}->{'postdata'};
1.483 foxr 3372: $is_published=1; # From resource space.
1.482 albertel 3373: }
3374: $url = &Apache::lonnet::clutter($url);
1.156 bowersj2 3375: if (!$resourceTitle) { # if the resource doesn't have a title, use the filename
1.238 bowersj2 3376: my $postdata = $helper->{VARS}->{'postdata'};
3377: $resourceTitle = substr($postdata, rindex($postdata, '/') + 1);
1.156 bowersj2 3378: }
3379: $subdir = &Apache::lonnet::filelocation("", $url);
1.589 ! foxr 3380:
! 3381:
1.128 bowersj2 3382: }
1.373 albertel 3383: if (!$helper->{VARS}->{'curseed'} && $env{'form.curseed'}) {
3384: $helper->{VARS}->{'curseed'}=$env{'form.curseed'};
1.230 albertel 3385: }
1.373 albertel 3386: if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {
1.512 foxr 3387: $helper->{VARS}->{'probstatus'}=$env{'form.problemstatus'};
1.290 sakharuk 3388: }
1.115 bowersj2 3389:
1.192 bowersj2 3390: my $userCanSeeHidden = Apache::lonnavmaps::advancedUser();
3391:
1.481 albertel 3392: Apache::lonhelper::registerHelperTags();
1.119 bowersj2 3393:
1.131 bowersj2 3394: # "Delete everything after the last slash."
1.119 bowersj2 3395: $subdir =~ s|/[^/]+$||;
3396:
1.131 bowersj2 3397: # What can be printed is a very dynamic decision based on
3398: # lots of factors. So we need to dynamically build this list.
3399: # To prevent security leaks, states are only added to the wizard
3400: # if they can be reached, which ensures manipulating the form input
3401: # won't allow anyone to reach states they shouldn't have permission
3402: # to reach.
3403:
3404: # printChoices is tracking the kind of printing the user can
3405: # do, and will be used in a choices construction later.
3406: # In the meantime we will be adding states and elements to
3407: # the helper by hand.
3408: my $printChoices = [];
3409: my $paramHash;
1.130 sakharuk 3410:
1.589 ! foxr 3411: # If there is a current resource and it is printable
! 3412: # Give that as a choice.
! 3413:
! 3414: if ($resourceTitle && $res_printable) {
1.458 www 3415: push @{$printChoices}, ["<b><i>$resourceTitle</i></b> (".&mt('the resource you just saw on the screen').")", 'current_document', 'PAGESIZE'];
1.156 bowersj2 3416: }
3417:
1.238 bowersj2 3418: # Useful filter strings
1.589 ! foxr 3419:
! 3420: my $isPrintable = ' && $res->resprintable()';
! 3421:
! 3422: my $isProblem = '(($res->is_problem()||$res->contains_problem||$res->is_practice()))';
! 3423: $isProblem .= $isPrintable unless $userCanPrint;
1.238 bowersj2 3424: $isProblem .= ' && !$res->randomout()' if !$userCanSeeHidden;
1.589 ! foxr 3425: my $isProblemOrMap = '($res->is_problem() || $res->contains_problem() || $res->is_sequence() || $res->is_practice())';
! 3426: $isProblemOrMap .= $isPrintable unless $userCanPrint;
! 3427: my $isNotMap = '(!$res->is_sequence())';
! 3428: $isNotMap .= $isPrintable unless $userCanPrint;
1.238 bowersj2 3429: $isNotMap .= ' && !$res->randomout()' if !$userCanSeeHidden;
1.589 ! foxr 3430: my $isMap = '$res->is_map()';
! 3431: $isMap .= $isPrintable unless $userCanPrint;
! 3432: my $symbFilter = '$res->shown_symb() ';
! 3433: $symbFilter .= $isPrintable unless $userCanPrint;
1.342 albertel 3434: my $urlValue = '$res->link()';
1.238 bowersj2 3435:
3436: $helper->declareVar('SEQUENCE');
3437:
1.465 albertel 3438: # If we're in a sequence...
1.416 foxr 3439:
1.465 albertel 3440: my $start_new_option;
3441: if ($perm{'pav'}) {
3442: $start_new_option =
3443: "<option text='".&mt('Start new page<br />before selected').
1.569 foxr 3444: "' variable='FINISHPAGE' />".
1.570 foxr 3445: "<option text='".&mt('Extra space<br />before selected').
1.569 foxr 3446: "' variable='EXTRASPACE' type='text' />" .
3447: "<option " .
1.570 foxr 3448: "' variable='POSSIBLE_RESOURCES' type='hidden' />".
3449: "<option text='".&mt('Space units<br />check for mm').
3450: "' variable='EXTRASPACE_UNITS' type='checkbox' />"
3451: ;
3452:
1.569 foxr 3453:
1.465 albertel 3454: }
1.238 bowersj2 3455:
1.562 foxr 3456: # If not construction space user can print the components of a page:
3457:
3458: my $page_ispage;
3459: my $page_title;
3460: if (!$helper->{VARS}->{'construction'}) {
3461: my $varspostdata = $helper->{VARS}->{'postdata'};
3462: my $varsassignment = $helper->{VARS}->{'assignment'};
3463: my $page_navmap = Apache::lonnavmaps::navmap->new();
1.563 foxr 3464: if (defined($page_navmap)) {
3465: my @page_resources = $page_navmap->retrieveResources($url);
3466: if(defined($page_resources[0])) {
3467: $page_ispage = $page_resources[0]->is_page();
3468: $page_title = $page_resources[0]->title();
3469: my $resourcesymb = $page_resources[0]->symb();
3470: my ($pagemap, $pageid, $pageurl) = &Apache::lonnet::decode_symb($symb);
3471: if ($page_ispage) {
3472: push @{$printChoices},
3473: [&mt('Selected [_1]Problems[_2] from page [_3]', '<b>', '</b>', '<b><i>'.$page_title.'</i></b>'),
3474: 'map_problems_in_page',
3475: 'CHOOSE_PROBLEMS_PAGE'];
3476: push @{$printChoices},
3477: [&mt('Selected [_1]Resources[_2] from page [_3]', '<b>', '</b>', '<b><i>'.$page_title.'</i></b>'),
3478: 'map_resources_in_page',
3479: 'CHOOSE_RESOURCES_PAGE'];
3480: }
1.562 foxr 3481: my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS_PAGE',
3482: 'Select Problem(s) to print',
3483: "multichoice='1' toponly='1' addstatus='1' closeallpages='1'",
3484: 'RESOURCES',
3485: 'PAGESIZE',
3486: $url,
3487: $isProblem, '', $symbFilter,
3488: $start_new_option);
3489:
3490:
3491: $helperFragment .= &generate_resource_chooser('CHOOSE_RESOURCES_PAGE',
3492: 'Select Resource(s) to print',
3493: 'multichoice="1" toponly="1" addstatus="1" closeallpages="1"',
3494: 'RESOURCES',
3495: 'PAGESIZE',
3496: $url,
3497: $isNotMap, '', $symbFilter,
3498: $start_new_option);
3499:
3500:
3501:
3502:
3503:
3504: &Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
3505:
1.563 foxr 3506: }
3507: }
1.562 foxr 3508: }
3509:
3510: if (($helper->{'VAR'}->{'construction'} ne '1' ) &&
1.243 bowersj2 3511: $helper->{VARS}->{'postdata'} &&
3512: $helper->{VARS}->{'assignment'}) {
1.131 bowersj2 3513: # Allow problems from sequence
1.562 foxr 3514: push @{$printChoices},
3515: [&mt('Selected [_1]Problems[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'),
3516: 'map_problems',
3517: 'CHOOSE_PROBLEMS'];
1.131 bowersj2 3518: # Allow all resources from sequence
1.562 foxr 3519: push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>'),
3520: 'map_problems_pages',
3521: 'CHOOSE_PROBLEMS_HTML'];
3522: my $helperFragment = &generate_resource_chooser('CHOOSE_PROBLEMS',
3523: 'Select Problem(s) to print',
3524: 'multichoice="1" toponly="1" addstatus="1" closeallpages="1"',
3525: 'RESOURCES',
3526: 'PAGESIZE',
3527: $map,
3528: $isProblem, '',
3529: $symbFilter,
3530: $start_new_option);
3531: $helperFragment .= &generate_resource_chooser('CHOOSE_PROBLEMS_HTML',
3532: 'Select Resource(s) to print',
3533: 'multichoice="1" toponly="1" addstatus="1" closeallpages="1"',
3534: 'RESOURCES',
3535: 'PAGESIZE',
3536: $map,
3537: $isNotMap, '',
3538: $symbFilter,
3539: $start_new_option);
1.121 bowersj2 3540:
1.326 sakharuk 3541: &Apache::lonxml::xmlparse($r, 'helper', $helperFragment);
1.121 bowersj2 3542: }
3543:
1.546 bisitz 3544: # If the user has pfo (print for others) allow them to print all
3545: # problems and resources in the entire course, optionally for selected students
1.562 foxr 3546: my $post_data = $helper->{VARS}->{'postdata'};
1.483 foxr 3547: if ($perm{'pfo'} && !$is_published &&
1.562 foxr 3548: ($post_data=~/\/res\// || $post_data =~/\/(syllabus|smppg|aboutme|bulletinboard)$/)) {
1.481 albertel 3549:
1.509 albertel 3550: push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b>'), 'all_problems', 'ALL_PROBLEMS'];
3551: push @{$printChoices}, [&mtn('Selected <b>Resources</b> from <b>entire course</b>'), 'all_resources', 'ALL_RESOURCES'];
1.536 foxr 3552: push @{$printChoices}, [&mtn('Selected <b>Problems</b> from <b>entire course</b> for <b>selected people</b>'), 'all_problems_students', 'ALL_PROBLEMS_STUDENTS'];
1.562 foxr 3553: my $suffixXml = <<ALL_PROBLEMS;
1.536 foxr 3554: <state name="STUDENTS1" title="Select People">
3555: <message><b>Select sorting order of printout</b> </message>
3556: <choices variable='student_sort'>
3557: <choice computer='0'>Sort by section then student</choice>
3558: <choice computer='1'>Sort by students across sections.</choice>
3559: </choices>
3560: <message><br /><hr /><br /> </message>
3561: <student multichoice='1' variable="STUDENTS" nextstate="PRINT_FORMATTING" coursepersonnel="1"/>
3562: </state>
1.284 albertel 3563: ALL_PROBLEMS
1.562 foxr 3564: &Apache::lonxml::xmlparse($r, 'helper',
3565: &generate_resource_chooser('ALL_PROBLEMS',
3566: 'SelectProblem(s) to print',
3567: 'multichoice="1" suppressEmptySequences="0" addstatus="1" closeallpages="1"',
3568: 'RESOURCES',
3569: 'PAGESIZE',
3570: '',
3571: $isProblemOrMap, $isNotMap,
3572: $symbFilter,
3573: $start_new_option) .
3574: &generate_resource_chooser('ALL_RESOURCES',
3575: 'Select Resource(s) to print',
3576: " toponly='0' multichoice='1' suppressEmptySequences='0' addstatus='1' closeallpages='1'",
3577: 'RESOURCES',
3578: 'PAGESIZE',
3579: '',
3580: $isNotMap,'',$symbFilter,
3581: $start_new_option) .
3582: &generate_resource_chooser('ALL_PROBLEMS_STUDENTS',
3583: 'Select Problem(s) to print',
3584: 'toponly="0" multichoice="1" suppressEmptySequences="0" addstatus="1" closeallpages="1"',
3585: 'RESOURCES',
3586: 'STUDENTS1',
3587: '',
3588: $isProblemOrMap,'' , $symbFilter,
3589: $start_new_option) .
3590: $suffixXml
3591: );
1.132 bowersj2 3592:
1.284 albertel 3593: if ($helper->{VARS}->{'assignment'}) {
1.562 foxr 3594:
3595: # If we were looking at a page, allow a selection of problems from the page
3596: # either for selected students or for coded assignments.
3597:
3598: if ($page_ispage) {
3599: push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from page [_3] for [_4]selected people[_5]',
3600: '<b>', '</b>', '<b><i>'.$page_title.'</i></b>', '<b>', '</b>'),
3601: 'problems_for_students_from_page', 'CHOOSE_TGT_STUDENTS_PAGE'];
3602: push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from page [_3] for [_4]CODEd assignments[_5]',
3603: '<b>', '</b>', '<b><i>'.$page_title.'</i></b>', '<b>', '</b>'),
3604: 'problems_for_anon_page', 'CHOOSE_ANON1_PAGE'];
3605: }
3606: push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]selected people[_5]',
3607: '<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'),
3608: 'problems_for_students', 'CHOOSE_STUDENTS'];
3609: push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from folder [_3] for [_4]CODEd assignments[_5]',
3610: '<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'),
3611: 'problems_for_anon', 'CHOOSE_ANON1'];
1.284 albertel 3612: }
1.424 foxr 3613:
1.507 albertel 3614: my $randomly_ordered_warning =
3615: &get_randomly_ordered_warning($helper,$map);
3616:
1.424 foxr 3617: # resource_selector will hold a few states that:
3618: # - Allow resources to be selected for printing.
3619: # - Determine pagination between assignments.
3620: # - Determine how many assignments should be bundled into a single PDF.
3621: # TODO:
3622: # Probably good to do things like separate this up into several vars, each
3623: # with one state, and use REGEXPs at inclusion time to set state names
3624: # and next states for better mix and match capability
3625: #
1.562 foxr 3626: my $resource_selector= &generate_resource_chooser('SELECT_PROBLEMS',
3627: 'Select resources to print',
3628: 'multichoice="1" addstatus="1" closeallpages="1"',
3629: 'RESOURCES',
3630: 'PRINT_FORMATTING',
1.571 droeschl 3631: $map,
1.562 foxr 3632: $isProblem, '', $symbFilter,
3633: $start_new_option);
1.586 raeburn 3634: my $secpdfoption;
3635: unless (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon') ||
3636: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_anon_page') ||
3637: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'resources_for_anon') ) {
3638: $secpdfoption = '<choice computer="sections">Each PDF contains exactly one section</choice>';
3639: }
3640: $resource_selector .= &generate_format_selector($helper,
3641: 'How should results be printed?').
3642: &generate_resource_chooser('CHOOSE_STUDENTS_PAGE',
1.562 foxr 3643: 'Select Problem(s) to print',
3644: "multichoice='1' addstatus='1' closeallpages ='1'",
3645: 'RESOURCES',
3646: 'PRINT_FORMATTING',
3647: $url,
3648: $isProblem, '', $symbFilter,
3649: $start_new_option);
3650:
3651:
3652: # Generate student choosers.
3653:
3654:
1.284 albertel 3655:
1.562 foxr 3656: &Apache::lonxml::xmlparse($r, 'helper',
3657: &generate_student_chooser('CHOOSE_TGT_STUDENTS_PAGE',
3658: 'student_sort',
3659: 'STUDENTS',
3660: 'CHOOSE_STUDENTS_PAGE'));
3661: &Apache::lonxml::xmlparse($r, 'helper',
3662: &generate_student_chooser('CHOOSE_STUDENTS',
3663: 'student_sort',
3664: 'STUDENTS',
3665: 'SELECT_PROBLEMS'));
3666: &Apache::lonxml::xmlparse($r, 'helper', $resource_selector);
1.292 albertel 3667:
1.373 albertel 3668: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
3669: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
1.292 albertel 3670: my @names=&Apache::lonnet::getkeys('CODEs',$cdom,$cnum);
3671: my $namechoice='<choice></choice>';
1.337 albertel 3672: foreach my $name (sort {uc($a) cmp uc($b)} @names) {
1.294 albertel 3673: if ($name =~ /^error: 2 /) { next; }
1.381 albertel 3674: if ($name =~ /^type\0/) { next; }
1.292 albertel 3675: $namechoice.='<choice computer="'.$name.'">'.$name.'</choice>';
3676: }
1.389 foxr 3677:
3678:
3679: my %code_values;
1.405 albertel 3680: my %codes_to_print;
1.411 albertel 3681: foreach my $key (@names) {
1.389 foxr 3682: %code_values = &Apache::grades::get_codes($key, $cdom, $cnum);
1.405 albertel 3683: foreach my $key (keys(%code_values)) {
3684: $codes_to_print{$key} = 1;
1.388 foxr 3685: }
3686: }
1.389 foxr 3687:
1.452 albertel 3688: my $code_selection;
1.405 albertel 3689: foreach my $code (sort {uc($a) cmp uc($b)} (keys(%codes_to_print))) {
1.389 foxr 3690: my $choice = $code;
3691: if ($code =~ /^[A-Z]+$/) { # Alpha code
3692: $choice = &letters_to_num($code);
3693: }
1.432 albertel 3694: push(@{$helper->{DATA}{ALL_CODE_CHOICES}},[$code,$choice]);
1.388 foxr 3695: }
1.436 albertel 3696: if (%codes_to_print) {
3697: $code_selection .='
1.472 albertel 3698: <message><b>Choose single CODE from list:</b></message>
1.448 albertel 3699: <message></td><td></message>
1.452 albertel 3700: <dropdown variable="CODE_SELECTED_FROM_LIST" multichoice="0" allowempty="0">
3701: <choice></choice>
1.448 albertel 3702: <exec>
3703: push(@{$state->{CHOICES}},@{$helper->{DATA}{ALL_CODE_CHOICES}});
3704: </exec>
1.452 albertel 3705: </dropdown>
1.468 foxr 3706: <message></td></tr><tr><td></message>
1.436 albertel 3707: '.$/;
1.448 albertel 3708:
1.436 albertel 3709: }
1.432 albertel 3710:
1.542 raeburn 3711: my @lines = &Apache::grades::get_scantronformat_file();
1.381 albertel 3712: my $codechoice='';
1.542 raeburn 3713: foreach my $line (@lines) {
1.381 albertel 3714: my ($name,$description,$code_type,$code_length)=
3715: (split(/:/,$line))[0,1,2,4];
3716: if ($code_length > 0 &&
3717: $code_type =~/^(letter|number|-1)/) {
3718: $codechoice.='<choice computer="'.$name.'">'.$description.'</choice>';
3719: }
3720: }
3721: if ($codechoice eq '') {
3722: $codechoice='<choice computer="default">Default</choice>';
3723: }
1.562 foxr 3724: my $anon1 = &generate_code_selector($helper,
3725: 'CHOOSE_ANON1',
3726: 'SELECT_PROBLEMS',
3727: $codechoice,
3728: $code_selection,
3729: $namechoice) . $resource_selector;
3730:
3731:
3732: &Apache::lonxml::xmlparse($r, 'helper',$anon1);
3733:
3734: my $anon_page = &generate_code_selector($helper,
3735: 'CHOOSE_ANON1_PAGE',
3736: 'SELECT_PROBLEMS_PAGE',
3737: $codechoice,
3738: $code_selection,
3739: $namechoice) .
3740: &generate_resource_chooser('SELECT_PROBLEMS_PAGE',
3741: 'Select Problem(s) to print',
3742: "multichoice='1' addstatus='1' closeallpages ='1'",
3743: 'RESOURCES',
3744: 'PRINT_FORMATTING',
3745: $url,
3746: $isProblem, '', $symbFilter,
3747: $start_new_option);
3748: &Apache::lonxml::xmlparse($r, 'helper', $anon_page);
1.254 sakharuk 3749:
1.272 sakharuk 3750:
1.254 sakharuk 3751: if ($helper->{VARS}->{'assignment'}) {
1.546 bisitz 3752: push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]selected people[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_students', 'CHOOSE_STUDENTS1'];
3753: push @{$printChoices}, [&mt('Selected [_1]Resources[_2] from folder [_3] for [_4]CODEd assignments[_5]','<b>','</b>','<b><i>'.$sequenceTitle.'</i></b>','<b>','</b>'), 'resources_for_anon', 'CHOOSE_ANON2'];
1.254 sakharuk 3754: }
1.284 albertel 3755:
3756:
3757: $resource_selector=<<RESOURCE_SELECTOR;
1.424 foxr 3758: <state name="SELECT_RESOURCES" title="Select Resources">
1.507 albertel 3759: $randomly_ordered_warning
1.424 foxr 3760: <nextstate>PRINT_FORMATTING</nextstate>
1.254 sakharuk 3761: <message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message>
1.287 albertel 3762: <resource variable="RESOURCES" multichoice="1" addstatus="1"
3763: closeallpages="1">
1.254 sakharuk 3764: <filterfunc>return $isNotMap;</filterfunc>
3765: <mapurl>$map</mapurl>
3766: <valuefunc>return $symbFilter;</valuefunc>
1.465 albertel 3767: $start_new_option
1.254 sakharuk 3768: </resource>
1.424 foxr 3769: </state>
1.284 albertel 3770: RESOURCE_SELECTOR
3771:
1.586 raeburn 3772: my $nextstate = '<nextstate>NUMBER_PER_PDF</nextstate>';
3773: $resource_selector .= &generate_format_selector($helper,
3774: 'Format of the print job',
3775: $nextstate);
1.284 albertel 3776: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS1);
3777: <state name="CHOOSE_STUDENTS1" title="Select Students and Resources">
1.340 foxr 3778: <choices variable='student_sort'>
3779: <choice computer='0'>Sort by section then student</choice>
3780: <choice computer='1'>Sort by students across sections.</choice>
3781: </choices>
1.437 foxr 3782: <message><br /><hr /><br /></message>
1.426 foxr 3783: <student multichoice='1' variable="STUDENTS" nextstate="SELECT_RESOURCES" coursepersonnel="1" />
1.340 foxr 3784:
1.424 foxr 3785: </state>
1.284 albertel 3786: $resource_selector
1.254 sakharuk 3787: CHOOSE_STUDENTS1
3788:
1.284 albertel 3789: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_ANON2);
1.472 albertel 3790: <state name="CHOOSE_ANON2" title="Select CODEd Assignments">
1.424 foxr 3791: <nextstate>SELECT_RESOURCES</nextstate>
1.472 albertel 3792: <message><h4>Fill out one of the forms below</h4></message>
3793: <message><br /><hr /> <br /></message>
3794: <message><h3>Generate new CODEd Assignments</h3></message>
3795: <message><table><tr><td><b>Number of CODEd assignments to print:</b></td><td></message>
1.579 foxr 3796: <string variable="NUMBER_TO_PRINT_TOTAL" maxlength="5" size="5" noproceed="1">
1.362 albertel 3797: <validator>
3798: if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) < 1) &&
1.386 foxr 3799: !\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
1.388 foxr 3800: !\$helper->{'VARS'}{'SINGLE_CODE'} &&
3801: !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
1.362 albertel 3802: return "You need to specify the number of assignments to print";
3803: }
1.578 foxr 3804: if (((\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'}+0) >= 1) &&
3805: (\$helper->{'VARS'}{'SINGLE_CODE'} ne '') ) {
3806: return 'Specifying number of codes to print and a specific code is not compatible';
3807: }
1.362 albertel 3808: return undef;
3809: </validator>
3810: </string>
3811: <message></td></tr><tr><td></message>
1.501 albertel 3812: <message><b>Names to save the CODEs under for later:</b></message>
1.412 albertel 3813: <message></td><td></message>
3814: <string variable="ANON_CODE_STORAGE_NAME" maxlength="50" size="20" />
3815: <message></td></tr><tr><td></message>
3816: <message><b>Bubble sheet type:</b></message>
3817: <message></td><td></message>
3818: <dropdown variable="CODE_OPTION" multichoice="0" allowempty="0">
3819: $codechoice
3820: </dropdown>
1.472 albertel 3821: <message></td></tr><tr><td></table></message>
3822: <message><br /><hr /><h3>Print a Specific CODE </h3><br /><table></message>
3823: <message><tr><td><b>Enter a CODE to print:</b></td><td></message>
1.412 albertel 3824: <string variable="SINGLE_CODE" size="10">
1.386 foxr 3825: <validator>
3826: if(!\$helper->{'VARS'}{'NUMBER_TO_PRINT_TOTAL'} &&
1.388 foxr 3827: !\$helper->{'VARS'}{'REUSE_OLD_CODES'} &&
3828: !\$helper->{'VARS'}{'CODE_SELECTED_FROM_LIST'}) {
1.386 foxr 3829: return &Apache::lonprintout::is_code_valid(\$helper->{'VARS'}{'SINGLE_CODE'},
3830: \$helper->{'VARS'}{'CODE_OPTION'});
1.577 foxr 3831: } elsif (\$helper->{'VARS'}{'SINGLE_CODE'} ne ''){
1.578 foxr 3832: return 'Specifying a code name is incompatible specifying number of codes.';
1.386 foxr 3833: } else {
3834: return undef; # Other forces control us.
3835: }
3836: </validator>
3837: </string>
1.472 albertel 3838: <message></td></tr><tr><td></message>
1.432 albertel 3839: $code_selection
1.472 albertel 3840: <message></td></tr></table></message>
3841: <message><hr /><h3>Reprint a Set of Saved CODEs</h3><table><tr><td></message>
3842: <message><b>Select saved CODEs:</b></message>
1.381 albertel 3843: <message></td><td></message>
1.294 albertel 3844: <dropdown variable="REUSE_OLD_CODES">
3845: $namechoice
3846: </dropdown>
1.412 albertel 3847: <message></td></tr></table></message>
1.424 foxr 3848: </state>
1.284 albertel 3849: $resource_selector
3850: CHOOSE_ANON2
1.481 albertel 3851: }
3852:
1.121 bowersj2 3853: # FIXME: That RE should come from a library somewhere.
1.483 foxr 3854: if (($perm{'pav'}
1.482 albertel 3855: && $subdir ne $Apache::lonnet::perlvar{'lonDocRoot'}.'/res/'
3856: && (defined($helper->{'VARS'}->{'construction'})
3857: ||
3858: (&Apache::lonnet::allowed('bre',$subdir) eq 'F'
3859: &&
3860: $helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)
1.483 foxr 3861: ))
3862: && $helper->{VARS}->{'assignment'} eq ""
1.482 albertel 3863: ) {
3864: my $pretty_dir = &Apache::lonnet::hreflocation($subdir);
1.546 bisitz 3865: push @{$printChoices}, [&mt('Selected [_1]Problems[_2] from current subdirectory [_3]','<b>','</b>','<b><i>'.$pretty_dir.'</i></b>','<b>','</b>'), 'problems_from_directory', 'CHOOSE_FROM_SUBDIR'];
1.139 bowersj2 3866: my $xmlfrag = <<CHOOSE_FROM_SUBDIR;
1.482 albertel 3867: <state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from <b><small>$pretty_dir</small></b> to print">
1.458 www 3868:
1.138 bowersj2 3869: <files variable="FILES" multichoice='1'>
1.144 bowersj2 3870: <nextstate>PAGESIZE</nextstate>
1.138 bowersj2 3871: <filechoice>return '$subdir';</filechoice>
1.139 bowersj2 3872: CHOOSE_FROM_SUBDIR
3873:
1.238 bowersj2 3874: # this is broken up because I really want interpolation above,
3875: # and I really DON'T want it below
1.139 bowersj2 3876: $xmlfrag .= <<'CHOOSE_FROM_SUBDIR';
1.225 bowersj2 3877: <filefilter>return Apache::lonhelper::files::not_old_version($filename) &&
3878: $filename =~ m/\.(problem|exam|quiz|assess|survey|form|library)$/;
1.131 bowersj2 3879: </filefilter>
1.138 bowersj2 3880: </files>
1.131 bowersj2 3881: </state>
3882: CHOOSE_FROM_SUBDIR
1.139 bowersj2 3883: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
1.131 bowersj2 3884: }
1.238 bowersj2 3885:
3886: # Allow the user to select any sequence in the course, feed it to
3887: # another resource selector for that sequence
1.483 foxr 3888: if (!$helper->{VARS}->{'construction'} && !$is_published) {
1.509 albertel 3889: push @$printChoices, [&mtn("Selected <b>Resources</b> from <b>selected folder</b> in course"),
1.249 sakharuk 3890: 'select_sequences', 'CHOOSE_SEQUENCE'];
1.244 bowersj2 3891: my $escapedSequenceName = $helper->{VARS}->{'SEQUENCE'};
3892: #Escape apostrophes and backslashes for Perl
3893: $escapedSequenceName =~ s/\\/\\\\/g;
3894: $escapedSequenceName =~ s/'/\\'/g;
1.239 bowersj2 3895: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_FROM_ANY_SEQUENCE);
1.238 bowersj2 3896: <state name="CHOOSE_SEQUENCE" title="Select Sequence To Print From">
3897: <message>Select the sequence to print resources from:</message>
3898: <resource variable="SEQUENCE">
3899: <nextstate>CHOOSE_FROM_ANY_SEQUENCE</nextstate>
3900: <filterfunc>return \$res->is_sequence;</filterfunc>
3901: <valuefunc>return $urlValue;</valuefunc>
1.447 foxr 3902: <choicefunc>return \$res->hasResource(\$res,sub { return !\$_[0]->is_sequence() },0,0);
1.391 foxr 3903: </choicefunc>
1.238 bowersj2 3904: </resource>
3905: </state>
3906: <state name="CHOOSE_FROM_ANY_SEQUENCE" title="Select Resources To Print">
3907: <message>(mark desired resources then click "next" button) <br /></message>
1.435 foxr 3908: <resource variable="RESOURCES" multichoice="1" toponly='1' addstatus="1"
1.287 albertel 3909: closeallpages="1">
1.238 bowersj2 3910: <nextstate>PAGESIZE</nextstate>
1.466 albertel 3911: <filterfunc>return $isNotMap</filterfunc>
1.244 bowersj2 3912: <mapurl evaluate='1'>return '$escapedSequenceName';</mapurl>
1.238 bowersj2 3913: <valuefunc>return $symbFilter;</valuefunc>
1.465 albertel 3914: $start_new_option
1.238 bowersj2 3915: </resource>
3916: </state>
3917: CHOOSE_FROM_ANY_SEQUENCE
1.239 bowersj2 3918: }
1.481 albertel 3919:
1.131 bowersj2 3920: # Generate the first state, to select which resources get printed.
1.223 bowersj2 3921: Apache::lonhelper::state->new("START", "Select Printing Options:");
1.131 bowersj2 3922: $paramHash = Apache::lonhelper::getParamHash();
1.155 sakharuk 3923: $paramHash->{MESSAGE_TEXT} = "";
1.131 bowersj2 3924: Apache::lonhelper::message->new();
3925: $paramHash = Apache::lonhelper::getParamHash();
3926: $paramHash->{'variable'} = 'PRINT_TYPE';
3927: $paramHash->{CHOICES} = $printChoices;
3928: Apache::lonhelper::choices->new();
1.161 bowersj2 3929:
1.223 bowersj2 3930: my $startedTable = 0; # have we started an HTML table yet? (need
3931: # to close it later)
3932:
1.585 raeburn 3933: if (($perm{'pav'} and $perm{'vgr'}) or
1.170 sakharuk 3934: ($helper->{VARS}->{'construction'} eq '1')) {
1.544 bisitz 3935: &addMessage('<br />'
3936: .'<h3>'.&mt('Print Options').'</h3>'
3937: .&Apache::lonhtmlcommon::start_pick_box()
3938: .&Apache::lonhtmlcommon::row_title(
3939: '<label for="ANSWER_TYPE_forminput">'
3940: .&mt('Print Answers')
3941: .'</label>'
3942: )
3943: );
1.161 bowersj2 3944: $paramHash = Apache::lonhelper::getParamHash();
1.162 sakharuk 3945: $paramHash->{'variable'} = 'ANSWER_TYPE';
3946: $helper->declareVar('ANSWER_TYPE');
1.161 bowersj2 3947: $paramHash->{CHOICES} = [
1.242 sakharuk 3948: ['Without Answers', 'yes'],
3949: ['With Answers', 'no'],
1.368 albertel 3950: ['Only Answers', 'only']
1.289 sakharuk 3951: ];
1.210 sakharuk 3952: Apache::lonhelper::dropdown->new();
1.544 bisitz 3953: &addMessage(&Apache::lonhtmlcommon::row_closure());
1.223 bowersj2 3954: $startedTable = 1;
1.556 foxr 3955:
3956: #
3957: # Select font size.
3958: #
3959:
3960: $helper->declareVar('fontsize');
3961: &addMessage(&Apache::lonhtmlcommon::row_title(&mt('Font Size')));
3962: my $xmlfrag = << "FONT_SELECTION";
3963:
3964:
3965: <dropdown variable='fontsize' multichoice='0', allowempty='0'>
3966: <defaultvalue>
3967: return 'normalsize';
3968: </defaultvalue>
3969: <choice computer='tiny'>Tiny</choice>
3970: <choice computer='sub/superscriptsize'>Script Size</choice>
3971: <choice computer='footnotesize'>Footnote Size</choice>
3972: <choice computer='small'>Small</choice>
3973: <choice computer='normalsize'>Normal (default)</choice>
3974: <choice computer='large'>larger than normal</choice>
3975: <choice computer='Large'>Even larger than normal</choice>
3976: <choice computer='LARGE'>Still larger than normal</choice>
3977: <choice computer='huge'>huge font size</choice>
3978: <choice computer='Huge'>Largest possible size</choice>
3979: </dropdown>
3980: FONT_SELECTION
3981: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
3982: &addMessage(&Apache::lonhtmlcommon::row_closure(1));
1.161 bowersj2 3983: }
1.209 sakharuk 3984:
1.397 albertel 3985: if ($perm{'pav'}) {
1.223 bowersj2 3986: if (!$startedTable) {
1.497 www 3987: addMessage("<hr width='33%' /><table><tr><td align='right'>".
3988: '<label for="LATEX_TYPE_forminput">'.
3989: &mt('LaTeX mode').
3990: "</label>: </td><td>");
1.223 bowersj2 3991: $startedTable = 1;
3992: } else {
1.544 bisitz 3993: &addMessage(&Apache::lonhtmlcommon::row_title(
3994: '<label for="LATEX_TYPE_forminput">'
3995: .&mt('LaTeX mode')
3996: .'</label>'
3997: )
3998: );
1.223 bowersj2 3999: }
1.203 sakharuk 4000: $paramHash = Apache::lonhelper::getParamHash();
4001: $paramHash->{'variable'} = 'LATEX_TYPE';
4002: $helper->declareVar('LATEX_TYPE');
4003: if ($helper->{VARS}->{'construction'} eq '1') {
4004: $paramHash->{CHOICES} = [
1.223 bowersj2 4005: ['standard LaTeX mode', 'standard'],
4006: ['LaTeX batchmode', 'batchmode'], ];
1.203 sakharuk 4007: } else {
4008: $paramHash->{CHOICES} = [
1.223 bowersj2 4009: ['LaTeX batchmode', 'batchmode'],
4010: ['standard LaTeX mode', 'standard'] ];
1.203 sakharuk 4011: }
1.210 sakharuk 4012: Apache::lonhelper::dropdown->new();
1.218 sakharuk 4013:
1.544 bisitz 4014: &addMessage(&Apache::lonhtmlcommon::row_closure()
4015: .&Apache::lonhtmlcommon::row_title(
4016: '<label for="TABLE_CONTENTS_forminput">'
4017: .&mt('Print Table of Contents')
4018: .'</label>'
4019: )
4020: );
1.209 sakharuk 4021: $paramHash = Apache::lonhelper::getParamHash();
4022: $paramHash->{'variable'} = 'TABLE_CONTENTS';
4023: $helper->declareVar('TABLE_CONTENTS');
4024: $paramHash->{CHOICES} = [
1.223 bowersj2 4025: ['No', 'no'],
4026: ['Yes', 'yes'] ];
1.210 sakharuk 4027: Apache::lonhelper::dropdown->new();
1.544 bisitz 4028: &addMessage(&Apache::lonhtmlcommon::row_closure());
1.214 sakharuk 4029:
1.220 sakharuk 4030: if (not $helper->{VARS}->{'construction'}) {
1.545 bisitz 4031: &addMessage(&Apache::lonhtmlcommon::row_title(
4032: '<label for="TABLE_INDEX_forminput">'
4033: .&mt('Print Index')
4034: .'</label>'
4035: )
4036: );
1.220 sakharuk 4037: $paramHash = Apache::lonhelper::getParamHash();
4038: $paramHash->{'variable'} = 'TABLE_INDEX';
4039: $helper->declareVar('TABLE_INDEX');
4040: $paramHash->{CHOICES} = [
1.223 bowersj2 4041: ['No', 'no'],
4042: ['Yes', 'yes'] ];
1.220 sakharuk 4043: Apache::lonhelper::dropdown->new();
1.545 bisitz 4044: &addMessage(&Apache::lonhtmlcommon::row_closure());
4045: &addMessage(&Apache::lonhtmlcommon::row_title(
4046: '<label for="PRINT_DISCUSSIONS_forminput">'
4047: .&mt('Print Discussions')
4048: .'</label>'
4049: )
4050: );
1.309 sakharuk 4051: $paramHash = Apache::lonhelper::getParamHash();
4052: $paramHash->{'variable'} = 'PRINT_DISCUSSIONS';
4053: $helper->declareVar('PRINT_DISCUSSIONS');
4054: $paramHash->{CHOICES} = [
4055: ['No', 'no'],
4056: ['Yes', 'yes'] ];
4057: Apache::lonhelper::dropdown->new();
1.545 bisitz 4058: &addMessage(&Apache::lonhtmlcommon::row_closure());
1.372 foxr 4059:
1.511 foxr 4060: # Prompt for printing annotations too.
4061:
1.545 bisitz 4062: &addMessage(&Apache::lonhtmlcommon::row_title(
4063: '<label for="PRINT_ANNOTATIONS_forminput">'
4064: .&mt('Print Annotations')
4065: .'</label>'
4066: )
4067: );
1.511 foxr 4068: $paramHash = Apache::lonhelper::getParamHash();
4069: $paramHash->{'variable'} = "PRINT_ANNOTATIONS";
4070: $helper->declareVar("PRINT_ANNOTATIONS");
4071: $paramHash->{CHOICES} = [
4072: ['No', 'no'],
4073: ['Yes', 'yes']];
4074: Apache::lonhelper::dropdown->new();
1.545 bisitz 4075: &addMessage(&Apache::lonhtmlcommon::row_closure());
1.511 foxr 4076:
1.545 bisitz 4077: &addMessage(&Apache::lonhtmlcommon::row_title(&mt('Foils')));
1.397 albertel 4078: $paramHash = Apache::lonhelper::getParamHash();
4079: $paramHash->{'multichoice'} = "true";
4080: $paramHash->{'allowempty'} = "true";
4081: $paramHash->{'variable'} = "showallfoils";
1.555 bisitz 4082: $paramHash->{'CHOICES'} = [ [&mt('Show All Foils'), "1"] ];
1.397 albertel 4083: Apache::lonhelper::choices->new();
1.545 bisitz 4084: &addMessage(&Apache::lonhtmlcommon::row_closure(1));
1.220 sakharuk 4085: }
1.219 sakharuk 4086:
1.230 albertel 4087: if ($helper->{'VARS'}->{'construction'}) {
1.505 albertel 4088: my $stylevalue='$Apache::lonnet::env{"construct.style"}';
1.497 www 4089: my $randseedtext=&mt("Use random seed");
4090: my $stylefiletext=&mt("Use style file");
1.506 albertel 4091: my $selectfiletext=&mt("Select style file");
1.497 www 4092:
1.544 bisitz 4093: my $xmlfrag .= '<message>'
4094: .&Apache::lonhtmlcommon::row_title('<label for="curseed_forminput">'
4095: .$randseedtext
4096: .'</label>'
4097: )
4098: .'</message>
4099: <string variable="curseed" size="15" maxlength="15">
4100: <defaultvalue>
4101: return '.$helper->{VARS}->{'curseed'}.';
4102: </defaultvalue>'
4103: .'</string>'
4104: .'<message>'
4105: .&Apache::lonhtmlcommon::row_closure()
4106: .&Apache::lonhtmlcommon::row_title('<label for="style_file">'
4107: .$stylefiletext
4108: .'</label>'
4109: )
4110: .'</message>
1.504 albertel 4111: <string variable="style_file" size="40">
1.544 bisitz 4112: <defaultvalue>
4113: return '.$stylevalue.';
4114: </defaultvalue>
4115: </string><message> '
4116: .qq|<a href="javascript:openbrowser('helpform','style_file_forminput','sty')">|
4117: .$selectfiletext.'</a>'
4118: .&Apache::lonhtmlcommon::row_closure()
1.555 bisitz 4119: .&Apache::lonhtmlcommon::row_title(&mt('Show All Foils'))
1.544 bisitz 4120: .'</message>
1.371 foxr 4121: <choices allowempty="1" multichoice="true" variable="showallfoils">
1.544 bisitz 4122: <choice computer="1"> </choice>
4123: </choices>'
4124: .'<message>'
4125: .&Apache::lonhtmlcommon::row_closure()
4126: .'</message>';
1.230 albertel 4127: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
1.512 foxr 4128:
4129:
1.544 bisitz 4130: &addMessage(&Apache::lonhtmlcommon::row_title(&mt('Problem Type')));
1.512 foxr 4131: #
4132: # Initial value from construction space:
4133: #
4134: if (!$helper->{VARS}->{'probstatus'} && $env{'form.problemtype'}) {
4135: $helper->{VARS}->{'probstatus'} = $env{'form.problemtype'}; # initial value
4136: }
1.518 foxr 4137: $xmlfrag = << "PROBTYPE";
4138: <dropdown variable="probstatus" multichoice="0" allowempty="0">
4139: <defaultvalue>
4140: return "$helper->{VARS}->{'probstatus'}";
4141: </defaultvalue>
4142: <choice computer="problem">Homework Problem</choice>
4143: <choice computer="exam">Exam Problem</choice>
4144: <choice computer="survey">Survey question</choice>
1.572 raeburn 4145: ,choice computer="anonsurvey"Anonymous survey question</choice>
1.518 foxr 4146: </dropdown>
4147: PROBTYPE
4148: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
1.544 bisitz 4149: &addMessage(&Apache::lonhtmlcommon::row_closure(1));
1.512 foxr 4150:
1.556 foxr 4151:
4152:
1.544 bisitz 4153: }
1.223 bowersj2 4154: }
1.264 sakharuk 4155:
4156:
4157:
1.218 sakharuk 4158:
1.223 bowersj2 4159: if ($startedTable) {
1.544 bisitz 4160: &addMessage(&Apache::lonhtmlcommon::end_pick_box());
1.215 sakharuk 4161: }
1.161 bowersj2 4162:
1.131 bowersj2 4163: Apache::lonprintout::page_format_state->new("FORMAT");
4164:
1.144 bowersj2 4165: # Generate the PAGESIZE state which will offer the user the margin
4166: # choices if they select one column
4167: Apache::lonhelper::state->new("PAGESIZE", "Set Margins");
4168: Apache::lonprintout::page_size_state->new('pagesize', 'FORMAT', 'FINAL');
4169:
4170:
1.131 bowersj2 4171: $helper->process();
4172:
1.416 foxr 4173:
1.131 bowersj2 4174: # MANUAL BAILOUT CONDITION:
4175: # If we're in the "final" state, bailout and return to handler
4176: if ($helper->{STATE} eq 'FINAL') {
4177: return $helper;
4178: }
1.130 sakharuk 4179:
1.584 raeburn 4180: my $footer;
1.395 www 4181: if ($helper->{STATE} eq 'START') {
1.584 raeburn 4182: my $prtspool=$r->dir_config('lonPrtDir');
4183: $footer = &recently_generated($prtspool);
1.395 www 4184: }
1.584 raeburn 4185: $r->print($helper->display($footer));
1.333 albertel 4186: &Apache::lonhelper::unregisterHelperTags();
1.115 bowersj2 4187:
4188: return OK;
4189: }
4190:
1.1 www 4191:
4192: 1;
1.119 bowersj2 4193:
4194: package Apache::lonprintout::page_format_state;
4195:
4196: =pod
4197:
1.131 bowersj2 4198: =head1 Helper element: page_format_state
4199:
4200: See lonhelper.pm documentation for discussion of the helper framework.
1.119 bowersj2 4201:
1.131 bowersj2 4202: Apache::lonprintout::page_format_state is an element that gives the
4203: user an opportunity to select the page layout they wish to print
4204: with: Number of columns, portrait/landscape, and paper size. If you
4205: want to change the paper size choices, change the @paperSize array
4206: contents in this package.
1.119 bowersj2 4207:
1.131 bowersj2 4208: page_format_state is always directly invoked in lonprintout.pm, so there
4209: is no tag interface. You actually pass parameters to the constructor.
1.119 bowersj2 4210:
4211: =over 4
4212:
1.131 bowersj2 4213: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
1.119 bowersj2 4214:
4215: =back
4216:
4217: =cut
4218:
1.131 bowersj2 4219: use Apache::lonhelper;
1.119 bowersj2 4220:
4221: no strict;
1.131 bowersj2 4222: @ISA = ("Apache::lonhelper::element");
1.119 bowersj2 4223: use strict;
1.266 sakharuk 4224: use Apache::lonlocal;
1.373 albertel 4225: use Apache::lonnet;
1.119 bowersj2 4226:
4227: my $maxColumns = 2;
1.376 albertel 4228: # it'd be nice if these all worked
4229: #my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",
4230: # "tabloid (ledger) [11x17 in]", "executive [7 1/2x10 in]",
4231: # "a2 [420x594 mm]", "a3 [297x420 mm]", "a4 [210x297 mm]",
4232: # "a5 [148x210 mm]", "a6 [105x148 mm]" );
1.326 sakharuk 4233: my @paperSize = ("letter [8 1/2x11 in]", "legal [8 1/2x14 in]",
1.376 albertel 4234: "a4 [210x297 mm]");
1.119 bowersj2 4235:
4236: # Tentative format: Orientation (L = Landscape, P = portrait) | Colnum |
4237: # Paper type
4238:
4239: sub new {
1.131 bowersj2 4240: my $self = Apache::lonhelper::element->new();
1.119 bowersj2 4241:
1.135 bowersj2 4242: shift;
4243:
1.131 bowersj2 4244: $self->{'variable'} = shift;
1.134 bowersj2 4245: my $helper = Apache::lonhelper::getHelper();
1.135 bowersj2 4246: $helper->declareVar($self->{'variable'});
1.131 bowersj2 4247: bless($self);
1.119 bowersj2 4248: return $self;
4249: }
4250:
4251: sub render {
4252: my $self = shift;
1.131 bowersj2 4253: my $helper = Apache::lonhelper::getHelper();
1.119 bowersj2 4254: my $result = '';
1.131 bowersj2 4255: my $var = $self->{'variable'};
1.266 sakharuk 4256: my $PageLayout=&mt('Page layout');
4257: my $NumberOfColumns=&mt('Number of columns');
4258: my $PaperType=&mt('Paper type');
1.506 albertel 4259: my $landscape=&mt('Landscape');
4260: my $portrait=&mt('Portrait');
1.539 onken 4261: my $pdfFormLabel=&mt('PDF-Formfields');
4262: my $with=&mt('with Formfields');
4263: my $without=&mt('without Formfields');
1.556 foxr 4264:
4265:
1.544 bisitz 4266: $result.='<h3>'.&mt('Layout Options').'</h3>'
4267: .&Apache::loncommon::start_data_table()
4268: .&Apache::loncommon::start_data_table_header_row()
4269: .'<th>'.$PageLayout.'</th>'
4270: .'<th>'.$NumberOfColumns.'</th>'
4271: .'<th>'.$PaperType.'</th>'
4272: .'<th>'.$pdfFormLabel.'</th>'
4273: .&Apache::loncommon::end_data_table_header_row()
4274: .&Apache::loncommon::start_data_table_row()
4275: .'<td>'
4276: .'<label><input type="radio" name="'.${var}.'.layout" value="L" />'.$landscape.'</label><br />'
4277: .'<label><input type="radio" name="'.${var}.'.layout" value="P" checked="checked" />'.$portrait.'</label>'
4278: .'</td>';
1.119 bowersj2 4279:
1.544 bisitz 4280: $result.='<td align="center">'
4281: .'<select name="'.${var}.'.cols">';
1.119 bowersj2 4282:
4283: my $i;
4284: for ($i = 1; $i <= $maxColumns; $i++) {
1.144 bowersj2 4285: if ($i == 2) {
1.553 bisitz 4286: $result .= '<option value="'.$i.'" selected="selected">'.$i.'</option>'."\n";
1.119 bowersj2 4287: } else {
1.553 bisitz 4288: $result .= '<option value="'.$i.'">'.$i.'</option>'."\n";
1.119 bowersj2 4289: }
4290: }
4291:
4292: $result .= "</select></td><td>\n";
4293: $result .= "<select name='${var}.paper'>\n";
4294:
1.373 albertel 4295: my %parmhash=&Apache::lonnet::coursedescription($env{'request.course.id'});
1.398 albertel 4296: my $DefaultPaperSize=lc($parmhash{'default_paper_size'});
4297: $DefaultPaperSize=~s/\s//g;
1.304 sakharuk 4298: if ($DefaultPaperSize eq '') {$DefaultPaperSize='letter';}
1.119 bowersj2 4299: $i = 0;
4300: foreach (@paperSize) {
1.326 sakharuk 4301: $_=~/(\w+)/;
4302: my $papersize=$1;
1.304 sakharuk 4303: if ($paperSize[$i]=~/$DefaultPaperSize/) {
1.553 bisitz 4304: $result .= '<option selected="selected" value="'.$papersize.'">'.$paperSize[$i].'</option>'."\n";
1.119 bowersj2 4305: } else {
1.553 bisitz 4306: $result .= '<option value="'.$papersize.'">'.$paperSize[$i].'</option>'."\n";
1.119 bowersj2 4307: }
4308: $i++;
4309: }
1.539 onken 4310: $result .= <<HTML;
4311: </select>
4312: </td>
4313: <td align='center'>
4314: <select name='${var}.pdfFormFields'>
1.553 bisitz 4315: <option selected="selected" value="no">$without</option>
4316: <option value="yes">$with</option>
1.539 onken 4317: </select>
4318: </td>
4319: HTML
1.544 bisitz 4320: $result.=&Apache::loncommon::end_data_table_row()
4321: .&Apache::loncommon::end_data_table();
1.539 onken 4322:
1.119 bowersj2 4323: return $result;
1.135 bowersj2 4324: }
4325:
4326: sub postprocess {
4327: my $self = shift;
4328:
4329: my $var = $self->{'variable'};
1.136 bowersj2 4330: my $helper = Apache::lonhelper->getHelper();
1.135 bowersj2 4331: $helper->{VARS}->{$var} =
1.373 albertel 4332: $env{"form.$var.layout"} . '|' . $env{"form.$var.cols"} . '|' .
1.539 onken 4333: $env{"form.$var.paper"} . '|' . $env{"form.$var.pdfFormFields"};
1.135 bowersj2 4334: return 1;
1.119 bowersj2 4335: }
4336:
4337: 1;
1.144 bowersj2 4338:
4339: package Apache::lonprintout::page_size_state;
4340:
4341: =pod
4342:
4343: =head1 Helper element: page_size_state
4344:
4345: See lonhelper.pm documentation for discussion of the helper framework.
4346:
4347: Apache::lonprintout::page_size_state is an element that gives the
4348: user the opportunity to further refine the page settings if they
4349: select a single-column page.
4350:
4351: page_size_state is always directly invoked in lonprintout.pm, so there
4352: is no tag interface. You actually pass parameters to the constructor.
4353:
4354: =over 4
4355:
4356: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME.
4357:
4358: =back
4359:
4360: =cut
4361:
4362: use Apache::lonhelper;
1.373 albertel 4363: use Apache::lonnet;
1.144 bowersj2 4364: no strict;
4365: @ISA = ("Apache::lonhelper::element");
4366: use strict;
4367:
4368:
4369:
4370: sub new {
4371: my $self = Apache::lonhelper::element->new();
4372:
4373: shift; # disturbs me (probably prevents subclassing) but works (drops
4374: # package descriptor)... - Jeremy
4375:
4376: $self->{'variable'} = shift;
4377: my $helper = Apache::lonhelper::getHelper();
4378: $helper->declareVar($self->{'variable'});
4379:
4380: # The variable name of the format element, so we can look into
4381: # $helper->{VARS} to figure out whether the columns are one or two
4382: $self->{'formatvar'} = shift;
4383:
1.463 foxr 4384:
1.144 bowersj2 4385: $self->{NEXTSTATE} = shift;
4386: bless($self);
1.467 foxr 4387:
1.144 bowersj2 4388: return $self;
4389: }
4390:
4391: sub render {
4392: my $self = shift;
4393: my $helper = Apache::lonhelper::getHelper();
4394: my $result = '';
4395: my $var = $self->{'variable'};
4396:
1.467 foxr 4397:
4398:
1.144 bowersj2 4399: if (defined $self->{ERROR_MSG}) {
1.464 albertel 4400: $result .= '<br /><span class="LC_error">' . $self->{ERROR_MSG} . '</span><br />';
1.144 bowersj2 4401: }
4402:
1.438 foxr 4403: my $format = $helper->{VARS}->{$self->{'formatvar'}};
1.463 foxr 4404:
4405: # Use format to get sensible defaults for the margins:
4406:
4407:
4408: my ($laystyle, $cols, $papersize) = split(/\|/, $format);
4409: ($papersize) = split(/ /, $papersize);
4410:
1.559 foxr 4411: $laystyle = &Apache::lonprintout::map_laystyle($laystyle);
1.463 foxr 4412:
4413:
4414:
1.464 albertel 4415: my %size;
4416: ($size{'width_and_units'},
4417: $size{'height_and_units'},
4418: $size{'margin_and_units'})=
4419: &Apache::lonprintout::page_format($papersize, $laystyle, $cols);
1.463 foxr 4420:
1.464 albertel 4421: foreach my $dimension ('width','height','margin') {
4422: ($size{$dimension},$size{$dimension.'_unit'}) =
4423: split(/ +/, $size{$dimension.'_and_units'},2);
4424:
4425: foreach my $unit ('cm','in') {
4426: $size{$dimension.'_options'} .= '<option ';
4427: if ($size{$dimension.'_unit'} eq $unit) {
4428: $size{$dimension.'_options'} .= 'selected="selected" ';
4429: }
4430: $size{$dimension.'_options'} .= '>'.$unit.'</option>';
4431: }
1.438 foxr 4432: }
4433:
1.470 foxr 4434: # Adjust margin for LaTeX margin: .. requires units == cm or in.
4435:
4436: if ($size{'margin_unit'} eq 'in') {
4437: $size{'margin'} += 1;
4438: } else {
4439: $size{'margin'} += 2.54;
4440: }
1.548 bisitz 4441: my %lt = &Apache::lonlocal::texthash(
4442: 'format' => 'How should each column be formatted?',
4443: 'width' => 'Width',
4444: 'height' => 'Height',
4445: 'margin' => 'Left Margin'
4446: );
4447:
4448: $result .= '<p>'.$lt{'format'}.'</p>'
4449: .&Apache::lonhtmlcommon::start_pick_box()
4450: .&Apache::lonhtmlcommon::row_title($lt{'width'})
4451: .'<input type="text" name="'.$var.'.width" value="'.$size{'width'}.'" size="4" />'
4452: .'<select name="'.$var.'.widthunit">'
4453: .$size{'width_options'}
4454: .'</select>'
4455: .&Apache::lonhtmlcommon::row_closure()
4456: .&Apache::lonhtmlcommon::row_title($lt{'height'})
4457: .'<input type="text" name="'.$var.'.height" value="'.$size{'height'}.'" size="4" />'
4458: .'<select name="'.$var.'.heightunit">'
4459: .$size{'height_options'}
4460: .'</select>'
4461: .&Apache::lonhtmlcommon::row_closure()
4462: .&Apache::lonhtmlcommon::row_title($lt{'margin'})
4463: .'<input type="text" name="'.$var.'.lmargin" value="'.$size{'margin'}.'" size="4" />'
4464: .'<select name="'.$var.'.lmarginunit">'
4465: .$size{'margin_options'}
4466: .'</select>'
4467: .&Apache::lonhtmlcommon::row_closure(1)
4468: .&Apache::lonhtmlcommon::end_pick_box();
4469: # <p>Hint: Some instructors like to leave scratch space for the student by
4470: # making the width much smaller than the width of the page.</p>
1.144 bowersj2 4471:
4472: return $result;
4473: }
4474:
1.470 foxr 4475:
1.144 bowersj2 4476: sub preprocess {
4477: my $self = shift;
4478: my $helper = Apache::lonhelper::getHelper();
4479:
4480: my $format = $helper->{VARS}->{$self->{'formatvar'}};
1.467 foxr 4481:
4482: # If the user does not have 'pav' privilege, set default widths and
4483: # on to the next state right away.
4484: #
4485: if (!$perm{'pav'}) {
4486: my $var = $self->{'variable'};
4487: my $format = $helper->{VARS}->{$self->{'formatvar'}};
4488:
4489: my ($laystyle, $cols, $papersize) = split(/\|/, $format);
4490: ($papersize) = split(/ /, $papersize);
4491:
4492:
1.560 foxr 4493: $laystyle = &Apache::lonprintout::map_laystyle($laystyle);
1.559 foxr 4494:
1.467 foxr 4495: # Figure out some good defaults for the print out and set them:
4496:
4497: my %size;
4498: ($size{'width'},
4499: $size{'height'},
4500: $size{'lmargin'})=
4501: &Apache::lonprintout::page_format($papersize, $laystyle, $cols);
4502:
4503: foreach my $dim ('width', 'height', 'lmargin') {
4504: my ($value, $units) = split(/ /, $size{$dim});
1.470 foxr 4505:
1.467 foxr 4506: $helper->{VARS}->{"$var.".$dim} = $value;
4507: $helper->{VARS}->{"$var.".$dim.'unit'} = $units;
4508:
4509: }
4510:
4511:
4512: # Transition to the next state
4513:
4514: $helper->changeState($self->{NEXTSTATE});
4515: }
1.144 bowersj2 4516:
4517: return 1;
4518: }
4519:
4520: sub postprocess {
4521: my $self = shift;
4522:
4523: my $var = $self->{'variable'};
4524: my $helper = Apache::lonhelper->getHelper();
1.373 albertel 4525: my $width = $helper->{VARS}->{$var .'.width'} = $env{"form.${var}.width"};
4526: my $height = $helper->{VARS}->{$var .'.height'} = $env{"form.${var}.height"};
4527: my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $env{"form.${var}.lmargin"};
4528: $helper->{VARS}->{$var .'.widthunit'} = $env{"form.${var}.widthunit"};
4529: $helper->{VARS}->{$var .'.heightunit'} = $env{"form.${var}.heightunit"};
4530: $helper->{VARS}->{$var .'.lmarginunit'} = $env{"form.${var}.lmarginunit"};
1.144 bowersj2 4531:
4532: my $error = '';
4533:
4534: # /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed
4535: # by an optional period, followed by digits, ending the string
4536:
1.464 albertel 4537: if ($width !~ /^-?[0-9]*(\.[0-9]*)?$/) {
1.144 bowersj2 4538: $error .= "Invalid width; please type only a number.<br />\n";
4539: }
1.464 albertel 4540: if ($height !~ /^-?[0-9]*(\.[0-9]*)?$/) {
1.144 bowersj2 4541: $error .= "Invalid height; please type only a number.<br />\n";
4542: }
1.464 albertel 4543: if ($lmargin !~ /^-?[0-9]*(\.[0-9]*)?$/) {
1.144 bowersj2 4544: $error .= "Invalid left margin; please type only a number.<br />\n";
1.470 foxr 4545: } else {
4546: # Adjust for LaTeX 1.0 inch margin:
4547:
4548: if ($env{"form.${var}.lmarginunit"} eq "in") {
4549: $helper->{VARS}->{$var.'.lmargin'} = $lmargin - 1;
4550: } else {
4551: $helper->{VARS}->{$var.'.lmargin'} = $lmargin - 2.54;
4552: }
1.144 bowersj2 4553: }
4554:
4555: if (!$error) {
4556: Apache::lonhelper::getHelper()->changeState($self->{NEXTSTATE});
4557: return 1;
4558: } else {
4559: $self->{ERROR_MSG} = $error;
4560: return 0;
4561: }
4562: }
4563:
4564:
1.119 bowersj2 4565:
1.1 www 4566: __END__
1.6 sakharuk 4567:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonprintout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface