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

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

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