Annotation of loncom/interface/lonprintout.pm, revision 1.519.2.2

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>