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

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

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