loncom/interface/lonprintout.pm - view

File: [LON-CAPA] / loncom / interface / lonprintout.pm
Revision 1.172: download - view: text, annotated - select for diffs
Wed May 14 20:16:56 2003 UTC (21 years ago) by bowersj2
Branches: MAIN
CVS tags: HEAD

For bug 1306 and some other things.

When filtering resources out of the nav maps, such as in printing when
the user is allowed to select just problems out of the course, it is
common that there are folders that contain no problems. Thus, before
this patch those folders just sat there, empty and open, which is a
visually confusing UI state, even to me, so I imagine the users would
be even worse off.

The navmaps part of this patch allows you to specify a parameter such
that empty maps should be suppressed, so they don't display and confuse
the user. The lonhelper part of this patch passes that parameter through
for resource elements. The lonprintout part of this patch turns
that feature on for "print problems from this course", so that empty
folders no longer show up there.

This turned out to require pleasently little code in lonnavmaps, by
putting it in the right place. The real functionality is all in about 20
lines (without comments).

1: # The LearningOnline Network 2: # Printout 3: # 4: # $Id: lonprintout.pm,v 1.172 2003/05/14 20:16:56 bowersj2 Exp $ 5: # 6: # Copyright Michigan State University Board of Trustees 7: # 8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA). 9: # 10: # LON-CAPA is free software; you can redistribute it and/or modify 11: # it under the terms of the GNU General Public License as published by 12: # the Free Software Foundation; either version 2 of the License, or 13: # (at your option) any later version. 14: # 15: # LON-CAPA is distributed in the hope that it will be useful, 16: # but WITHOUT ANY WARRANTY; without even the implied warranty of 17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18: # GNU General Public License for more details. 19: # 20: # You should have received a copy of the GNU General Public License 21: # along with LON-CAPA; if not, write to the Free Software 22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 23: # 24: # /home/httpd/html/adm/gpl.txt 25: # 26: # http://www.lon-capa.org/ 27: # 28: # (Internal Server Error Handler 29: # 30: # (Login Screen 31: # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14, 32: # 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer) 33: # 34: # 3/1/1 Gerd Kortemeyer) 35: # 36: # 3/1 Gerd Kortemeyer 37: # 38: # 9/17 Alex Sakharuk 39: # 40: package Apache::lonprintout; 41: 42: use strict; 43: use Apache::Constants qw(:common :http); 44: use Apache::lonxml; 45: use Apache::lonnet; 46: use Apache::loncommon; 47: use Apache::inputtags; 48: use Apache::grades; 49: use Apache::edit; 50: use Apache::File(); 51: use Apache::lonnavmaps; 52: use POSIX qw(strftime); 53: use GDBM_File; 54: 55: 56: my %hash; 57: my $LaTeXwidth = 0; 58: 59: sub headerform { 60: my $r = shift; 61: $r->print(<<ENDHEADER); 62: <html> 63: <head> 64: <title>LON-CAPA output for printing</title> 65: </head> 66: <body bgcolor="FFFFFF"> 67: <form method="post" enctype="multipart/form-data" action="/adm/printout" name="printform"> 68: ENDHEADER 69: 70: if ($ENV{'form.postdata'}=~m|^/res/|) { 71: $r->print(<<ENDHEADER1); 72: <b>Path to current document: </b><tt>$ENV{'form.postdata'}</tt><p> 73: ENDHEADER1 74: } 75: } 76: 77: 78: sub menu_for_output { 79: my $r = shift; 80: my ($title_for_single_resource,$title_for_sequence,$title_for_main_map) = &details_for_menu; 81: my $assignment = $title_for_sequence; 82: if ($title_for_single_resource ne '') {$title_for_single_resource = '"'.$title_for_single_resource.'"';} 83: if ($title_for_sequence ne '') {$title_for_sequence = '"'.$title_for_sequence.'"';} 84: if ($title_for_main_map ne '') {$title_for_main_map = '"'.$title_for_main_map.'"';} 85: $ENV{'form.postdata'} =~ s|http://[^/]+||; 86: my $subdir_to_print = $ENV{'form.postdata'}; 87: $subdir_to_print =~ m/\/([^\/]+)$/; 88: $subdir_to_print =~ s/\Q$1\E//; 89: $r->print(<<ENDMENUOUT1); 90: <h1>What do you want to print? Make a choice.</h1><br /> 91: <input type="hidden" name="phase" value="two"> 92: <input type="hidden" name="url" value="$ENV{'form.postdata'}"> 93: <input type="hidden" name="assignment" value="$assignment"> 94: <input type="radio" name="choice" value="Standard LaTeX output for current document" checked> Current document <b>$title_for_single_resource</b> 95: (prints what you just saw on the screen)<br /> 96: ENDMENUOUT1 97: if ($ENV{'form.postdata'}=~/\/res\//) { 98: $r->print(<<ENDMENUOUT2); 99: <input type="radio" name="choice" value="Standard LaTeX output for the primary sequence"> Problem(s) from <b>$title_for_sequence</b><br /> 100: <input type="radio" name="choice" value="Standard LaTeX output for whole primary sequence"> Problem(s) plus page(s) or html/xml file(s) from <b>$title_for_sequence</b><br /> 101: ENDMENUOUT2 102: } 103: if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($ENV{'form.postdata'}=~/\/res\//)) { 104: $r->print(<<ENDMENUOUT6); 105: <input type="radio" name="choice" value="Standard LaTeX output for the top level sequence"> All problems in this course (<b>warning:</b> this may be time consuming) <br /> 106: <br /> 107: <input type="radio" name="choice" value="All class print"> All problems from <b>$title_for_sequence</b> for selected students<br /><br /> 108: ENDMENUOUT6 109: } 110: my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'}); 111: $subdirtoprint =~ s/\/[^\/]+$//; 112: if ((&Apache::lonnet::allowed('bre',$subdirtoprint) eq 'F') and ($ENV{'form.postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) { 113: $r->print(<<ENDMENUOUT4); 114: <input type="radio" name="choice" value="Subdirectory print"> Problems from current subdirectory <b>$subdir_to_print</b><br /> 115: ENDMENUOUT4 116: } 117: $r->print(<<ENDMENUOUT5); 118: <br /><hr /><br /> 119: <h1>And what page format do you prefer?</h1> 120: <table> 121: <tr> 122: <td> 123: <input type="radio" name="layout" value="CBI"> Landscape <br /> 124: <input type="radio" name="layout" value="CAPA" checked> Portrait <br /> 125: </td> 126: <td> </td> 127: <td rawspan="2"> 128: Number of columns: <select name="numberofcolumns"> 129: <option> 1 </option> 130: <option selected> 2 </option> 131: </select> 132: </td> 133: <td rawspan="2"> 134: Paper size (format [width x height]): <select name="papersize"> 135: <option selected> Letter [8 1/2x11 in] </option> 136: <option> Legal [8 1/2x14 in] </option> 137: <option> Ledger/Tabloid [11x17 in] </option> 138: <option> Executive [7 1/2x10 in] </option> 139: <option> A2 [420x594 mm] </option> 140: <option> A3 [297x420 mm] </option> 141: <option> A4 [210x297 mm] </option> 142: <option> A5 [148x210 mm] </option> 143: <option> A6 [105x148 mm] </option> 144: </select> 145: </td> 146: </tr> 147: 148: </table> 149: </br> 150: <input type="submit" value="Submit your choice"> 151: ENDMENUOUT5 152: } 153: 154: 155: sub sequence_content_menu { 156: my ($key_to,$r) = @_; 157: my $primary_sequence; 158: my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'}); 159: my @sequence = split('___',$symbolic); 160: $primary_sequence=&Apache::lonnet::clutter($sequence[0]); 161: my @master_seq = &coming_from_hash($primary_sequence); 162: my @titles_master_seq = (); 163: for (my $i=0;$i<=$#master_seq;$i++) { 164: my ($path,$title,$symb) = split /&&/,$master_seq[$i]; 165: $master_seq[$i] = $path.'&&'.$symb; 166: push @titles_master_seq, $title; 167: } 168: my @master_seq_view = @master_seq; 169: if ($ENV{'user.adv'}) { 170: for (my $i=0;$i<=$#master_seq_view;$i++) { 171: $master_seq_view[$i]=~/___\d+___(.+)$/; 172: $master_seq_view[$i]='/'.$1; 173: } 174: } else { 175: for (my $i=0;$i<=$#master_seq_view;$i++) { 176: $master_seq_view[$i]=' '; 177: } 178: } 179: $r->print(<<ENDMENUOUT1); 180: <input type="hidden" name="url" value="$ENV{'form.url'}"> 181: <input type="hidden" name="choice" value="$ENV{'form.choice'}"> 182: <input type="hidden" name="layout" value="$ENV{'form.layout'}"> 183: <input type="hidden" name="papersize" value="$ENV{'form.papersize'}"> 184: <input type="hidden" name="assignment" value="$ENV{'form.assignment'}"> 185: <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}"> 186: <h1>Mark item(s) which you want to print</h1> 187: <script> 188: function checkall() { 189: for (i=0; i<document.forms.printform.elements.length; i++) { 190: if (document.forms.printform.elements[i].name.indexOf('whatfile')==0) { 191: document.forms.printform.elements[i].checked=true; 192: } 193: } 194: } 195: function uncheckall() { 196: for (i=0; i<document.forms.printform.elements.length; i++) { 197: if 198: (document.forms.printform.elements[i].name.indexOf('whatfile')==0) { 199: document.forms.printform.elements[i].checked=false; 200: } 201: } 202: } 203: </script> 204: <b> 205: <input type=button onClick="checkall()" value="Check All">  206: <input type=button onClick="uncheckall()" value="Uncheck">  207: <input type="submit" value="Submit"> 208: <p> 209: ENDMENUOUT1 210: my $inc=0; 211: for (my $i=0;$i<=$#master_seq_view;$i++) { 212: if ($key_to==1 && $master_seq[$i]=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { 213: $r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '."\n".'<b>'. 214: $titles_master_seq[$i].'</b>   <small>'.$master_seq_view[$i].'</small>'); 215: $inc++; 216: } elsif ($key_to==0 && $master_seq[$i]=~/\.(problem|exam|quiz|assess|survey|form|library|xml|htm|html|page)$/) { 217: $r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '."\n".'<b>'. 218: $titles_master_seq[$i].'</b>   <small>'.$master_seq_view[$i].'</small>'); 219: $inc++; 220: } 221: } 222: $r->print(<<ENDMENUOUT2); 223: <br /><br /> 224: <input type="hidden" name="numberoffiles" value="$inc"> 225: <input type="hidden" name="phase" value="three"> 226: <input type=button onClick="checkall()" value="Check All">  227: <input type=button onClick="uncheckall()" value="Uncheck">  228: <input type="submit" value="Submit"> 229: ENDMENUOUT2 230: 231: } 232: 233: 234: sub problem_choice_menu { 235: my $r = shift; 236: my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'}); 237: $subdirtoprint =~ s/\/[^\/]+$//; 238: my @list_of_files = (); 239: my @content_directory = (); 240: $r->print("Subdir: " . $subdirtoprint . "<br />"); 241: if ($subdirtoprint =~ m|/home/([^/]+)/public_html|) { 242: #localmachine CSTR space 243: my $user=$1; 244: my $domain=$Apache::lonnet::perlvar{'lonDefDomain'}; 245: @content_directory = &Apache::lonnet::dirlist($subdirtoprint, 246: $domain, $user,''); 247: } else { 248: #local library server res space (allows to print only from the own library server) 249: @content_directory = &Apache::lonnet::dirlist($subdirtoprint,$ENV{'user.domain'}, $ENV{'user.name'},''); 250: } 251: for (my $iy=0;$iy<=$#content_directory;$iy++) { 252: my @tempo_array = split(/&/,$content_directory[$iy]); 253: if ($tempo_array[0] =~ m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/) { 254: push(@list_of_files,$tempo_array[0]); 255: } 256: } 257: $subdirtoprint =~ s/\/$//; 258: for (my $i=0;$i<=$#list_of_files;$i++) { 259: $list_of_files[$i] = $subdirtoprint.'/'.$list_of_files[$i]; 260: } 261: $r->print(<<ENDMENUOUT1); 262: <input type="hidden" name="url" value="$ENV{'form.url'}"> 263: <input type="hidden" name="choice" value="$ENV{'form.choice'}"> 264: <input type="hidden" name="layout" value="$ENV{'form.layout'}"> 265: <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}"> 266: <h1>Mark problems which you want to print</h1> 267: <script> 268: function checkall() { 269: for (i=0; i<document.forms.printform.elements.length; i++) { 270: if 271: (document.forms.printform.elements[i].name.indexOf('whattoprint')==0) { 272: document.forms.printform.elements[i].checked=true; 273: } 274: } 275: } 276: 277: 278: function uncheckall() { 279: for (i=0; i<document.forms.printform.elements.length; i++) { 280: if 281: (document.forms.printform.elements[i].name.indexOf('whattoprint')==0) { 282: document.forms.printform.elements[i].checked=false; 283: } 284: } 285: } 286: </script> 287: <input type=button onClick="checkall()" value="Check All">  288: <input type=button onClick="uncheckall()" value="Uncheck">  289: <input type="submit" value="Submit"> 290: <p> 291: ENDMENUOUT1 292: my $i=0; 293: foreach my $file (sort @list_of_files) { 294: $r->print('<br /><input type=checkbox name="whattoprint'.$i.'" value="'.$file.'"> '. 295: $file); 296: $i++; 297: } 298: $r->print(<<ENDMENUOUT2); 299: <br /><br /> 300: <input type="hidden" name="papersize" value="$ENV{'form.papersize'}"> 301: <input type="hidden" name="numberofproblems" value="$i"> 302: <input type="hidden" name="phase" value="three"> 303: <input type=button onClick="checkall()" value="Check All">  304: <input type=button onClick="uncheckall()" value="Uncheck">  305: <input type="submit" value="Submit"> 306: ENDMENUOUT2 307: } 308: 309: 310: sub additional_class_menu { 311: my $r = shift; 312: $r->print(<<ENDMENUOUT1); 313: <input type="hidden" name="url" value="$ENV{'form.url'}"> 314: <input type="hidden" name="choice" value="$ENV{'form.choice'}"> 315: <input type="hidden" name="layout" value="$ENV{'form.layout'}"> 316: <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}"> 317: <input type="hidden" name="assignment" value="$ENV{'form.assignment'}"> 318: <h1>Select student(s) whose assignment you want to print</h1> 319: ENDMENUOUT1 320: my %courselist=&Apache::lonnet::dump( 321: 'classlist', 322: $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}, 323: $ENV{'course.'.$ENV{'request.course.id'}.'.num'}); 324: my $now=time; 325: $r->print(<<ENDDISHEADER); 326: <script> 327: function checkall() { 328: for (i=0; i<document.forms.printform.elements.length; i++) { 329: if 330: (document.forms.printform.elements[i].name.indexOf('whomtoprint')==0) { 331: document.forms.printform.elements[i].checked=true; 332: } 333: } 334: } 335: 336: function checksec() { 337: for (i=0; i<document.forms.printform.elements.length; i++) { 338: if 339: (document.forms.printform.elements[i].value.indexOf 340: (document.forms.printform.chksec.value)==0) { 341: document.forms.printform.elements[i].checked=true; 342: } 343: } 344: } 345: 346: function uncheckall() { 347: for (i=0; i<document.forms.printform.elements.length; i++) { 348: if 349: (document.forms.printform.elements[i].name.indexOf('whomtoprint')==0) { 350: document.forms.printform.elements[i].checked=false; 351: } 352: } 353: } 354: </script> 355: <input type=button onClick="checkall()" value="Check All">  356: <input type=button onClick="checksec()" value="Type Section/Group then click"> 357: <input type=text size=5 name=chksec>  358: <input type=button onClick="uncheckall()" value="Uncheck"> 359: <p> 360: ENDDISHEADER 361: my $i = 0; 362: foreach (sort keys %courselist) { 363: my ($end,$start)=split(/\:/,$courselist{$_}); 364: my $active=1; 365: if (($end) && ($now>$end)) { $active=0; } 366: if ($active) { 367: my ($sname,$sdom)=split(/\:/,$_); 368: my %reply=&Apache::lonnet::get('environment', 369: ['firstname','middlename','lastname','generation'], 370: $sdom,$sname); 371: my $section=&Apache::lonnet::usection 372: ($sdom,$sname,$ENV{'request.course.id'}); 373: if ($section == -1) { $section = ''; } 374: $r->print( 375: '<br /><input type=checkbox name="whomtoprint'.$i.'" value="'.$section.':'.$_.'"> '. 376: $reply{'firstname'}.' '. 377: $reply{'middlename'}.' '. 378: $reply{'lastname'}.' '. 379: $reply{'generation'}. 380: ' ('.$_.') '.$section); 381: $i++; 382: } 383: } 384: $r->print(<<ENDMENUOUT2); 385: <br /><br /><br /> 386: <table><tr><td width=300>Number of blank pages added to each student assignments to print these assignments on physically different sheets (<b>requires manual addjustment</b>): <select name="addedpages"><option selected>0</option> 387: <option>1</option> 388: <option>2</option> 389: <option>3</option> 390: </select></td></tr></table> 391: <br /> 392: <input type="hidden" name="papersize" value="$ENV{'form.papersize'}"> 393: <input type="hidden" name="numberofstudents" value="$i"> 394: <input type="hidden" name="phase" value="three"> 395: <input type="submit" value="Submit"> 396: ENDMENUOUT2 397: } 398: 399: 400: sub additional_print_menu { 401: my $r = shift; 402: my $what_to_print = ''; 403: for (my $i=0; $i<$ENV{'form.numberofstudents'};$i++) { 404: $what_to_print .= '<input type="hidden" name="whomtoprint'.$i.'" value="'.$ENV{'form.whomtoprint'.$i}.'">'; 405: } 406: for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) { 407: $what_to_print .= '<input type="hidden" name="whattoprint'.$i.'" value="'.$ENV{'form.whattoprint'.$i}.'">'; 408: } 409: for (my $i=0; $i<$ENV{'form.numberoffiles'};$i++) { 410: $what_to_print .= '<input type="hidden" name="whatfile'.$i.'" value="'.$ENV{'form.whatfile'.$i}.'">'; 411: } 412: $r->print(<<ENDMENUOUT); 413: $what_to_print 414: <input type="hidden" name="url" value="$ENV{'form.url'}"> 415: <input type="hidden" name="choice" value="$ENV{'form.choice'}"> 416: <input type="hidden" name="layout" value="$ENV{'form.layout'}"> 417: <input type="hidden" name="papersize" value="$ENV{'form.papersize'}"> 418: <input type="hidden" name="numberofstudents" value="$ENV{'form.numberofstudents'}"> 419: <input type="hidden" name="numberofproblems" value="$ENV{'form.numberofproblems'}"> 420: <input type="hidden" name="numberoffiles" value="$ENV{'form.numberoffiles'}"> 421: <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}"> 422: <input type="hidden" name="assignment" value="$ENV{'form.assignment'}"> 423: <input type="hidden" name="addedpages" value="$ENV{'form.addedpages'}"> 424: Define one column layout parameters: <br /> 425: <b>Width</b>: <input type="text" name="width" width="8" value="9cm"> <br /> 426: <b>Height</b>: <input type="text" name="height" width="8" value="25.9cm"> <br /> 427: <b>Left margin</b>: <input type="text" name="leftmargin" width="8" value="-0.57in"> <br /> 428: <input type="hidden" name="phase" value="four"> 429: <input type="submit" value="Submit"> 430: </form> 431: </body> 432: </html> 433: ENDMENUOUT 434: } 435: 436: 437: sub output_data { 438: my $r = shift; 439: $r->print(<<ENDPART); 440: <html> 441: <head> 442: <title>LON-CAPA output for printing</title> 443: </head> 444: <body bgcolor="FFFFFF"> 445: <hr> 446: ENDPART 447: 448: my $choice = $ENV{'form.choice'}; 449: my $layout = $ENV{'form.layout'}; 450: my $numberofcolumns = $ENV{'form.numberofcolumns'}; 451: my $papersize = $ENV{'form.papersize'}; 452: my $laystyle = 'book'; 453: my $assignment = $ENV{'form.assignment'}; 454: if ($choice eq 'Subdirectory print') { 455: if ($ENV{'form.layout'} eq '') {$layout = 'CAPA';} 456: if ($ENV{'form.papersize'} eq '') {$papersize = 'Letter [8 1/2x11 in]';} 457: if ($ENV{'form.numberofcolumns'} eq '') {$numberofcolumns = 2;} 458: } 459: if (($choice eq 'Standard LaTeX output for current document') && 460: ($ENV{'form.url'}=~m|^/~|)) { 461: if ($ENV{'form.layout'} eq '') {$layout = 'CAPA';} 462: if ($ENV{'form.papersize'} eq '') {$papersize = 'Letter [8 1/2x11 in]';} 463: if ($ENV{'form.numberofcolumns'} eq '') {$numberofcolumns = 2;} 464: } 465: my $result = ''; 466: my $number_of_columns = 1; #used only for pages to determine the width of the cell 467: my $selectionmade = ''; 468: my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns); 469: if ($numberofcolumns == 1) { 470: $textwidth=$ENV{'form.width'}; 471: $textheight=$ENV{'form.height'}; 472: } 473: my $LaTeXwidth; 474: if ($textwidth=~/(\d+\s*cm)/) { 475: $LaTeXwidth = $1*10; 476: } elsif ($textwidth=~/(\d+\s*mm)/) { 477: $LaTeXwidth = $1; 478: } 479: if ($choice eq 'Standard LaTeX output for current document') { 480: #-- single document - problem, page, html, xml, ... 481: $selectionmade = 1; 482: if ($ENV{'form.url'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) { 483: my %moreenv; 484: if (&Apache::lonnet::allowed('bre',$ENV{'form.url'})) { 485: $ENV{'form.url'}=~s/http:\/\/[^\/]+//; 486: } 487: $moreenv{'request.filename'}=$ENV{'form.url'}; 488: my %form; 489: $form{'textwidth'}=$LaTeXwidth; 490: $form{'grade_target'}='tex'; 491: &Apache::lonnet::appenv(%moreenv); 492: my $texversion=&Apache::lonnet::ssi($ENV{'form.url'},%form); 493: &Apache::lonnet::delenv('form.counter'); 494: $result .= $texversion; 495: if ($ENV{'form.url'}=~m/\.page\s*$/) { 496: ($result,$number_of_columns) = &page_cleanup($result); 497: } 498: } else { 499: $result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: '; 500: if ($ENV{'form.url'}=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) { 501: $result.=$1; 502: } else { 503: $result.=$ENV{'form.url'}; 504: } 505: $result.=' \end{document}' 506: } 507: } elsif ($choice eq 'Standard LaTeX output for the primary sequence' or 508: $choice eq 'Standard LaTeX output for whole primary sequence') { 509: #-- minimal sequence to which the current document belongs 510: #-- where is the primary sequence containing file? 511: my @master_seq = (); 512: for (my $i=0; $i<$ENV{'form.numberoffiles'};$i++) { 513: if ($ENV{'form.whatfile'.$i}=~/\S/) { 514: push @master_seq,$ENV{'form.whatfile'.$i}; 515: } 516: } 517: #-- produce an output string 518: my $flag_latex_header_remove = 'NO'; 519: my $flag_page_in_sequence = 'NO'; 520: for (my $i=0;$i<=$#master_seq;$i++) { 521: my ($urlp,$symb) = split /&&/, $master_seq[$i]; 522: if ($choice eq 'Standard LaTeX output for the primary sequence') { 523: $selectionmade = 2; 524: } elsif ($choice eq 'Standard LaTeX output for whole primary sequence') { 525: $selectionmade = 3; 526: } 527: my %form; 528: $form{'textwidth'}=$LaTeXwidth; 529: $form{'grade_target'}='tex'; 530: $form{'symb'}=$symb; 531: #&Apache::lonnet::logthis("Trying to get $urlp with symb $symb"); 532: my $texversion=&Apache::lonnet::ssi($urlp,%form); 533: if ($urlp =~ m/\.page/) { 534: ($texversion,my $number_of_columns_page) = &page_cleanup($texversion); 535: if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} 536: $texversion =~ s/\\end{document}\d*/\\end{document}/; 537: $flag_page_in_sequence = 'YES'; 538: } 539: if ($flag_latex_header_remove ne 'NO') { 540: $texversion = &latex_header_footer_remove($texversion); 541: } else { 542: $texversion =~ s/\\end{document}//; 543: } 544: $result .= $texversion; 545: $flag_latex_header_remove = 'YES'; 546: } 547: &Apache::lonnet::delenv('form.counter'); 548: if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;} 549: $result .= '\end{document}'; 550: } elsif ($choice eq 'Standard LaTeX output for the top level sequence') { 551: # where is the main sequence of the course? 552: $selectionmade = 4; 553: my $main_seq=&Apache::lonnet::clutter($ENV{'request.course.uri'}); 554: my @file_seq = &coming_from_hash($main_seq); 555: for (my $i=0;$i<=$#file_seq;$i++) { 556: my ($path,$title,$symb) = split /&&/,$file_seq[$i]; 557: $file_seq[$i] = $path.'&&'.$symb; 558: } 559: my $flag_latex_header_remove = 'NO'; 560: #-- produce an output string 561: for (my $i=0;$i<=$#file_seq;$i++) { 562: if (not $file_seq[$i]=~/^&&/) { 563: my ($urlp,$symb) = split /&&/, $file_seq[$i]; 564: $urlp=~s/\/home\/httpd\/html//; 565: if ($urlp=~m/\.(problem|exam|quiz|assess|survey|form|library)/) { 566: my %form; 567: $form{'grade_target'}='tex'; 568: $form{'textwidth'}=$LaTeXwidth; 569: $form{'symb'}=$symb; 570: my $texversion=&Apache::lonnet::ssi($urlp,%form); 571: if ($flag_latex_header_remove ne 'NO') { 572: $texversion = &latex_header_footer_remove($texversion); 573: } else { 574: $texversion =~ s/\\end{document}//; 575: } 576: $result .= $texversion; 577: $flag_latex_header_remove = 'YES'; 578: } 579: } 580: } 581: $result .= '\end{document}'; 582: } elsif ($choice eq 'All class print') { 583: #-- prints assignments for whole class or for selected students 584: $selectionmade = 5; 585: my @students = (); 586: for (my $i=0; $i<$ENV{'form.numberofstudents'};$i++) { 587: if ($ENV{'form.whomtoprint'.$i}=~/:/) { 588: push @students,$ENV{'form.whomtoprint'.$i}; 589: } 590: } 591: #where is the primary sequence containing current resource (the same for all students)? 592: my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'}); 593: my @sequence = split('___',$symbolic); 594: my $primary_sequence; 595: 596: $primary_sequence=&Apache::lonnet::clutter($sequence[0]); 597: my @master_seq = &coming_from_hash($primary_sequence); 598: for (my $i=0;$i<=$#master_seq;$i++) { 599: my ($path,$title,$symb) = split /&&/,$master_seq[$i]; 600: $master_seq[$i] = $path.'&&'.$symb; 601: } 602: #loop over students 603: my $flag_latex_header_remove = 'NO'; 604: my %moreenv; 605: $moreenv{'form.textwidth'}=$LaTeXwidth; 606: &Apache::lonnet::appenv(%moreenv); 607: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1); 608: foreach my $person (@students) { 609: my $current_output = ''; 610: my ($usersection,$username,$userdomain) = split /:/,$person; 611: my $fullname = &get_name($username,$userdomain); 612: #goes through all resources, checks if they are available for current student, and produces output 613: foreach my $curresline (@master_seq) { 614: my ($curres,$symb) = split /&&/, $curresline; 615: if ($curres=~ m/\.(problem|exam|quiz|assess|survey|form|library)/) { 616: my ($map,$id,$res_url) = split(/___/,$symb); 617: if (&Apache::lonnet::allowed('bre',$res_url)) { 618: my $rendered = &Apache::loncommon::get_student_view($symb,$username,$userdomain, 619: $ENV{'request.course.id'},'tex'); 620: if ($flag_latex_header_remove eq 'YES') { 621: $rendered = &latex_header_footer_remove($rendered); 622: } else { 623: $rendered =~ s/\\end{document}//; 624: } 625: $current_output .= $rendered; 626: } 627: $flag_latex_header_remove = 'YES'; 628: } 629: } 630: my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; 631: if ($current_output=~/\\documentclass/) { 632: $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}\\vskip 3 mm /; 633: } else { 634: my $blanspages = ''; 635: for (my $j=0;$j<$ENV{'form.addedpages'};$j++) {$blanspages.='\clearpage\strut\clearpage';} 636: $current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage \\vskip 3mm'.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}\hskip 1.4in } \vskip 5 mm '.$current_output; 637: } 638: $result .= $current_output; 639: &Apache::lonnet::delenv('form.counter'); 640: &Apache::lonxml::init_counter(); 641: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, 642: 'last student '.$fullname); 643: } 644: &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); 645: $result .= '\end{document}'; 646: &Apache::lonnet::delenv('form.textwidth'); 647: } elsif ($choice eq 'Subdirectory print') { 648: #prints selected problems from the subdirectory 649: $selectionmade = 6; 650: my @list_of_files = (); 651: for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) { 652: if ($ENV{'form.whattoprint'.$i}=~/^\//) { 653: push @list_of_files,$ENV{'form.whattoprint'.$i}; 654: } 655: } 656: my $flag_latex_header_remove = 'NO'; 657: for (my $i=0;$i<=$#list_of_files;$i++) { 658: my $urlp = $list_of_files[$i]; 659: if ($urlp=~/\//) { 660: my %form; 661: $form{'grade_target'}='tex'; 662: $form{'textwidth'}=$LaTeXwidth; 663: if ($urlp =~ m|/home/([^/]+)/public_html|) { 664: $urlp =~ s|/home/([^/]*)/public_html|/~$1|; 665: } else { 666: $urlp =~ s|^/home/httpd/html||; 667: } 668: my $texversion=&Apache::lonnet::ssi($urlp,%form); 669: #this chunck is responsible for printing the path to problem 670: my $newurlp = ''; 671: my $HowMany = length($urlp)*2; 672: if ($HowMany > $LaTeXwidth) { 673: my @temporrary = split '/',$urlp; 674: my $HowManyNew = 0; 675: for (my $ii=0;$ii<=$#temporrary;$ii++) { 676: if ($temporrary[$ii] ne '') { 677: $HowManyNew += length($temporrary[$ii])*2; 678: if ($HowManyNew < $LaTeXwidth ) { 679: $newurlp .= '/'.$temporrary[$ii]; 680: } else { 681: $HowManyNew = 0; 682: $newurlp .= '|\vskip -1 mm \noindent \verb|'; 683: $ii--; 684: } 685: } 686: } 687: } 688: $texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 {\\small\\noindent\\verb|$newurlp\|\\vskip 0 mm}/; 689: if ($flag_latex_header_remove ne 'NO') { 690: $texversion = &latex_header_footer_remove($texversion); 691: } else { 692: $texversion =~ s/\\end{document}//; 693: } 694: $result .= $texversion; 695: } 696: $flag_latex_header_remove = 'YES'; 697: } 698: $result .= '\end{document}'; 699: } 700: #-------------------------------------------------------- corrections for the different page formats 701: $result = &page_format_transformation($papersize,$layout,$numberofcolumns,$choice,$result,$assignment); 702: if ($layout eq 'CBI') { 703: $laystyle = 'album'; 704: } 705: $result = &latex_corrections($number_of_columns,$result); 706: #changes page's parameters for the one column output 707: if ($ENV{'form.numberofcolumns'} == 1) { 708: $result =~ s/\\textwidth= 9cm/\\textwidth= $ENV{'form.width'}/; 709: $result =~ s/\\textheight 25\.9cm/\\textheight $ENV{'form.height'}/; 710: $result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $ENV{'form.leftmargin'}/; 711: $result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $ENV{'form.leftmargin'}/; 712: } 713: #-- writing .tex file in prtspool 714: my $temp_file; 715: my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex"; 716: unless ($temp_file = Apache::File->new('>'.$filename)) { 717: $r->log_error("Couldn't open $filename for output $!"); 718: return SERVER_ERROR; 719: } 720: print $temp_file $result; 721: $r->print(<<FINALEND); 722: <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade"> 723: </body> 724: </html> 725: FINALEND 726: } 727: 728: 729: sub coming_from_hash { 730: 731: my $mainsequence = shift; 732: my @resourcelist = (); 733: my $mapid = $hash{'map_pc_'.$mainsequence}; 734: my $mapstart = $hash{'map_start_'.$mainsequence}; 735: my $mapfinish = $hash{'map_finish_'.$mainsequence}; 736: my $current_resource = $mapstart; 737: while ($current_resource ne $mapfinish) { 738: if ($hash{'src_'.$current_resource}=~/\.sequence$/) { 739: push @resourcelist,&coming_from_hash($hash{'src_'.$current_resource}); 740: } else { 741: my $presymb=&Apache::lonnet::declutter($mainsequence); 742: my $rid = $current_resource; 743: if ($rid=~/,/) { 744: my @rid = split /,/, $rid; 745: foreach my $rid_element (@rid) { 746: if ($rid_element =~ m/^$mapid\.(\d*)/) { 747: $rid = $1; 748: last; 749: } 750: } 751: } else { 752: $rid =~ m/^$mapid\.(\d*)/; 753: $rid = $1; 754: } 755: my $symb = $presymb.'___'.$rid.'___'. 756: &Apache::lonnet::declutter($hash{'src_'.$current_resource}); 757: push @resourcelist,$hash{'src_'.$current_resource}.'&&'.$hash{'title_'.$current_resource}.'&&'.$symb; 758: } 759: $current_resource = $hash{'goesto_'.$hash{'to_'.$current_resource}}; 760: } 761: #needs if final resource in the map (type="finish") contains something 762: if ($hash{'src_'.$current_resource}=~/\.sequence$/) { 763: push @resourcelist,&coming_from_hash($hash{'src_'.$current_resource}); 764: } else { 765: my $presymb=&Apache::lonnet::declutter($mainsequence); 766: my $rid = $current_resource; 767: if ($rid=~/,/) { 768: my @rid = split /,/, $rid; 769: foreach my $rid_element (@rid) { 770: if ($rid_element =~ m/^$mapid\.(\d*)/) { 771: $rid = $1; 772: last; 773: } 774: } 775: } else { 776: $rid =~ m/^$mapid\.(\d*)/; 777: $rid = $1; 778: } 779: my $symb = $presymb.'___'.$rid.'___'. 780: &Apache::lonnet::declutter($hash{'src_'.$current_resource}); 781: push @resourcelist,$hash{'src_'.$current_resource}.'&&'.$hash{'title_'.$current_resource}.'&&'.$symb; 782: } 783: $current_resource = $hash{'goesto_'.$hash{'to_'.$current_resource}}; 784: return @resourcelist; 785: } 786: 787: 788: sub latex_header_footer_remove { 789: my $text = shift; 790: $text =~ s/\\end{document}//; 791: $text =~ s/\\documentclass([^&]*)\\begin{document}//; 792: return $text; 793: } 794: 795: 796: sub character_chart { 797: my $result = shift; 798: $result =~ s/&\#0?0?(7|9);//g; 799: $result =~ s/&\#0?(10|13);//g; 800: $result =~ s/&\#0?32;/ /g; 801: $result =~ s/&\#0?33;/!/g; 802: $result =~ s/&(\#0?34|quot);/\"/g; 803: $result =~ s/&\#0?35;/\\\#/g; 804: $result =~ s/&\#0?36;/\\\$/g; 805: $result =~ s/&\#0?37;/\\%/g; 806: $result =~ s/&(\#0?38|amp);/\\&/g; 807: $result =~ s/&\#(0?39|146);/\'/g; 808: $result =~ s/&\#0?40;/(/g; 809: $result =~ s/&\#0?41;/)/g; 810: $result =~ s/&\#0?42;/\*/g; 811: $result =~ s/&\#0?43;/\+/g; 812: $result =~ s/&\#(0?44|130);/,/g; 813: $result =~ s/&\#0?45;/-/g; 814: $result =~ s/&\#0?46;/\./g; 815: $result =~ s/&\#0?47;/\//g; 816: $result =~ s/&\#0?48;/0/g; 817: $result =~ s/&\#0?49;/1/g; 818: $result =~ s/&\#0?50;/2/g; 819: $result =~ s/&\#0?51;/3/g; 820: $result =~ s/&\#0?52;/4/g; 821: $result =~ s/&\#0?53;/5/g; 822: $result =~ s/&\#0?54;/6/g; 823: $result =~ s/&\#0?55;/7/g; 824: $result =~ s/&\#0?56;/8/g; 825: $result =~ s/&\#0?57;/9/g; 826: $result =~ s/&\#0?58;/:/g; 827: $result =~ s/&\#0?59;/;/g; 828: $result =~ s/&(\#0?60|lt|\#139);/\$<\$/g; 829: $result =~ s/&\#0?61;/\$=\$/g; 830: $result =~ s/&(\#0?62|gt|\#155);/\$>\$/g; 831: $result =~ s/&\#0?63;/\?/g; 832: $result =~ s/&\#0?65;/A/g; 833: $result =~ s/&\#0?66;/B/g; 834: $result =~ s/&\#0?67;/C/g; 835: $result =~ s/&\#0?68;/D/g; 836: $result =~ s/&\#0?69;/E/g; 837: $result =~ s/&\#0?70;/F/g; 838: $result =~ s/&\#0?71;/G/g; 839: $result =~ s/&\#0?72;/H/g; 840: $result =~ s/&\#0?73;/I/g; 841: $result =~ s/&\#0?74;/J/g; 842: $result =~ s/&\#0?75;/K/g; 843: $result =~ s/&\#0?76;/L/g; 844: $result =~ s/&\#0?77;/M/g; 845: $result =~ s/&\#0?78;/N/g; 846: $result =~ s/&\#0?79;/O/g; 847: $result =~ s/&\#0?80;/P/g; 848: $result =~ s/&\#0?81;/Q/g; 849: $result =~ s/&\#0?82;/R/g; 850: $result =~ s/&\#0?83;/S/g; 851: $result =~ s/&\#0?84;/T/g; 852: $result =~ s/&\#0?85;/U/g; 853: $result =~ s/&\#0?86;/V/g; 854: $result =~ s/&\#0?87;/W/g; 855: $result =~ s/&\#0?88;/X/g; 856: $result =~ s/&\#0?89;/Y/g; 857: $result =~ s/&\#0?90;/Z/g; 858: $result =~ s/&\#0?91;/[/g; 859: $result =~ s/&\#0?92;/\$\\setminus\$/g; 860: $result =~ s/&\#0?93;/]/g; 861: $result =~ s/&\#(0?94|136);/\$\\wedge\$/g; 862: $result =~ s/&\#(0?95|138|154);/\\underline{\\makebox[2mm]{\\strut}}/g; 863: $result =~ s/&\#(0?96|145);/\`/g; 864: $result =~ s/&\#0?97;/a/g; 865: $result =~ s/&\#0?98;/b/g; 866: $result =~ s/&\#0?99;/c/g; 867: $result =~ s/&\#100;/d/g; 868: $result =~ s/&\#101;/e/g; 869: $result =~ s/&\#102;/f/g; 870: $result =~ s/&\#103;/g/g; 871: $result =~ s/&\#104;/h/g; 872: $result =~ s/&\#105;/i/g; 873: $result =~ s/&\#106;/j/g; 874: $result =~ s/&\#107;/k/g; 875: $result =~ s/&\#108;/l/g; 876: $result =~ s/&\#109;/m/g; 877: $result =~ s/&\#110;/n/g; 878: $result =~ s/&\#111;/o/g; 879: $result =~ s/&\#112;/p/g; 880: $result =~ s/&\#113;/q/g; 881: $result =~ s/&\#114;/r/g; 882: $result =~ s/&\#115;/s/g; 883: $result =~ s/&\#116;/t/g; 884: $result =~ s/&\#117;/u/g; 885: $result =~ s/&\#118;/v/g; 886: $result =~ s/&\#119;/w/g; 887: $result =~ s/&\#120;/x/g; 888: $result =~ s/&\#121;/y/g; 889: $result =~ s/&\#122;/z/g; 890: $result =~ s/&\#123;/\\{/g; 891: $result =~ s/&\#124;/\|/g; 892: $result =~ s/&\#125;/\\}/g; 893: $result =~ s/&\#126;/\~/g; 894: $result =~ s/&\#131;/\\textflorin /g; 895: $result =~ s/&\#132;/\"/g; 896: $result =~ s/&\#133;/\$\\ldots\$/g; 897: $result =~ s/&\#134;/\$\\dagger\$/g; 898: $result =~ s/&\#135;/\$\\ddagger\$/g; 899: $result =~ s/&\#137;/\\textperthousand /g; 900: $result =~ s/&\#140;/{\\OE}/g; 901: $result =~ s/&\#147;/\`\`/g; 902: $result =~ s/&\#148;/\'\'/g; 903: $result =~ s/&\#149;/\$\\bullet\$/g; 904: $result =~ s/&\#150;/--/g; 905: $result =~ s/&\#151;/---/g; 906: $result =~ s/&\#152;/\$\\sim\$/g; 907: $result =~ s/&\#153;/\\texttrademark /g; 908: $result =~ s/&\#156;/\\oe/g; 909: $result =~ s/&\#159;/\\\"Y/g; 910: $result =~ s/&(\#160|nbsp);//g; 911: $result =~ s/&(\#161|iexcl);/!\`/g; 912: $result =~ s/&(\#162|cent);/\\textcent /g; 913: $result =~ s/&(\#163|pound);/\\pounds /g; 914: $result =~ s/&(\#164|curren);/\\textcurrency /g; 915: $result =~ s/&(\#165|yen);/\\textyen /g; 916: $result =~ s/&(\#166|brvbar);/\\textbrokenbar /g; 917: $result =~ s/&(\#167|sect);/\\textsection /g; 918: $result =~ s/&(\#168|uml);/\\texthighdieresis /g; 919: $result =~ s/&(\#169|copy);/\\copyright /g; 920: $result =~ s/&(\#170|ordf);/\\textordfeminine /g; 921: $result =~ s/&(\#172|not);/\$\\neg\$/g; 922: $result =~ s/&(\#173|shy);/ - /g; 923: $result =~ s/&(\#174|reg);/\\textregistered /g; 924: $result =~ s/&(\#175|macr);/\$^{-}\$/g; 925: $result =~ s/&(\#176|deg);/\$^{\\circ}\$/g; 926: $result =~ s/&(\#177|plusmn);/\$\\pm\$/g; 927: $result =~ s/&(\#178|sup2);/\$^2\$/g; 928: $result =~ s/&(\#179|sup3);/\$^3\$/g; 929: $result =~ s/&(\#180|acute);/\\textacute /g; 930: $result =~ s/&(\#181|micro);/\$\\mu\$/g; 931: $result =~ s/&(\#182|para);/\\P/g; 932: $result =~ s/&(\#183|middot);/\$\\cdot\$/g; 933: $result =~ s/&(\#184|cedil);/\\c{\\strut}/g; 934: $result =~ s/&(\#185|sup1);/\$^1\$/g; 935: $result =~ s/&(\#186|ordm);/\\textordmasculine /g; 936: $result =~ s/&(\#188|frac14);/\\textonequarter /g; 937: $result =~ s/&(\#189|frac12);/\\textonehalf /g; 938: $result =~ s/&(\#190|frac34);/\\textthreequarters /g; 939: $result =~ s/&(\#191|iquest);/?\`/g; 940: $result =~ s/&(\#192|Agrave);/\\\`{A}/g; 941: $result =~ s/&(\#193|Aacute);/\\\'{A}/g; 942: $result =~ s/&(\#194|Acirc);/\\^{A}/g; 943: $result =~ s/&(\#195|Atilde);/\\~{A}/g; 944: $result =~ s/&(\#196|Auml);/\\\"{A}/g; 945: $result =~ s/&(\#197|Aring);/{\\AA}/g; 946: $result =~ s/&(\#198|AElig);/{\\AE}/g; 947: $result =~ s/&(\#199|Ccedil);/\\c{c}/g; 948: $result =~ s/&(\#200|Egrave);/\\\`{E}/g; 949: $result =~ s/&(\#201|Eacute);/\\\'{E}/g; 950: $result =~ s/&(\#202|Ecirc);/\\^{E}/g; 951: $result =~ s/&(\#203|Euml);/\\\"{E}/g; 952: $result =~ s/&(\#204|Igrave);/\\\`{I}/g; 953: $result =~ s/&(\#205|Iacute);/\\\'{I}/g; 954: $result =~ s/&(\#206|Icirc);/\\^{I}/g; 955: $result =~ s/&(\#207|Iuml);/\\\"{I}/g; 956: $result =~ s/&(\#209|Ntilde);/\\~{N}/g; 957: $result =~ s/&(\#210|Ograve);/\\\`{O}/g; 958: $result =~ s/&(\#211|Oacute);/\\\'{O}/g; 959: $result =~ s/&(\#212|Ocirc);/\\^{O}/g; 960: $result =~ s/&(\#213|Otilde);/\\~{O}/g; 961: $result =~ s/&(\#214|Ouml);/\\\"{O}/g; 962: $result =~ s/&(\#215|times);/\$\\times\$/g; 963: $result =~ s/&(\#216|Oslash);/{\\O}/g; 964: $result =~ s/&(\#217|Ugrave);/\\\`{U}/g; 965: $result =~ s/&(\#218|Uacute);/\\\'{U}/g; 966: $result =~ s/&(\#219|Ucirc);/\\^{U}/g; 967: $result =~ s/&(\#220|Uuml);/\\\"{U}/g; 968: $result =~ s/&(\#221|Yacute);/\\\'{Y}/g; 969: $result =~ s/&(\#223|szlig);/\\ss/g; 970: $result =~ s/&(\#224|agrave);/\\\`{a}/g; 971: $result =~ s/&(\#225|aacute);/\\\'{a}/g; 972: $result =~ s/&(\#226|acirc);/\\^{a}/g; 973: $result =~ s/&(\#227|atilde);/\\~{a}/g; 974: $result =~ s/&(\#228|auml);/\\\"{a}/g; 975: $result =~ s/&(\#229|aring);/{\\aa}/g; 976: $result =~ s/&(\#230|aelig);/{\\ae}/g; 977: $result =~ s/&(\#231|ccedil);/\\c{c}/g; 978: $result =~ s/&(\#232|egrave);/\\\`{e}/g; 979: $result =~ s/&(\#233|eacute);/\\\'{e}/g; 980: $result =~ s/&(\#234|ecirc);/\\^{e}/g; 981: $result =~ s/&(\#235|euml);/\\\"{e}/g; 982: $result =~ s/&(\#236|igrave);/\\\`{i}/g; 983: $result =~ s/&(\#237|iacute);/\\\'{i}/g; 984: $result =~ s/&(\#238|icirc);/\\^{i}/g; 985: $result =~ s/&(\#239|iuml);/\\\"{i}/g; 986: $result =~ s/&(\#240|eth);/\$\\partial\$/g; 987: $result =~ s/&(\#241|ntilde);/\\~{n}/g; 988: $result =~ s/&(\#242|ograve);/\\\`{o}/g; 989: $result =~ s/&(\#243|oacute);/\\\'{o}/g; 990: $result =~ s/&(\#244|ocirc);/\\^{o}/g; 991: $result =~ s/&(\#245|otilde);/\\~{o}/g; 992: $result =~ s/&(\#246|ouml);/\\\"{o}/g; 993: $result =~ s/&(\#247|divide);/\$\\div\$/g; 994: $result =~ s/&(\#248|oslash);/{\\o}/g; 995: $result =~ s/&(\#249|ugrave);/\\\`{u}/g; 996: $result =~ s/&(\#250|uacute);/\\\'{u}/g; 997: $result =~ s/&(\#251|ucirc);/\\^{u}/g; 998: $result =~ s/&(\#252|uuml);/\\\"{u}/g; 999: $result =~ s/&(\#253|yacute);/\\\'{y}/g; 1000: $result =~ s/&(\#255|yuml);/\\\"{y}/g; 1001: $result =~ s/&\#952;/\$\\theta\$/g; 1002: #Greek Alphabet 1003: $result =~ s/&(alpha|\#945);/\$\\alpha \$/g; 1004: $result =~ s/&(beta|\#946);/\$\\beta \$/g; 1005: $result =~ s/&(gamma|\#947);/\$\\gamma \$/g; 1006: $result =~ s/&(delta|\#948);/\$\\delta \$/g; 1007: $result =~ s/&(epsilon|\#949);/\$\\epsilon \$/g; 1008: $result =~ s/&(zeta|\#950);/\$\\zeta \$/g; 1009: $result =~ s/&(eta|\#951);/\$\\eta \$/g; 1010: $result =~ s/&(theta|\#952);/\$\\theta \$/g; 1011: $result =~ s/&(iota|\#953);/\$\\iota \$/g; 1012: $result =~ s/&(kappa|\#954);/\$\\kappa \$/g; 1013: $result =~ s/&(lambda|\#955);/\$\\lambda \$/g; 1014: $result =~ s/&(mu|\#956);/\$\\mu \$/g; 1015: $result =~ s/&(nu|\#957);/\$\\nu \$/g; 1016: $result =~ s/&(xi|\#958);/\$\\xi \$/g; 1017: $result =~ s/&(pi|\#960);/\$\\pi \$/g; 1018: $result =~ s/&(rho|\#961);/\$\\rho \$/g; 1019: $result =~ s/&(sigma|\#963);/\$\\sigma \$/g; 1020: $result =~ s/&(tau|\#964);/\$\\tau \$/g; 1021: $result =~ s/&(upsilon|\#965);/\$\\upsilon \$/g; 1022: $result =~ s/&(phi|\#966);/\$\\phi \$/g; 1023: $result =~ s/&(chi|\#967);/\$\\chi \$/g; 1024: $result =~ s/&(psi|\#968);/\$\\psi \$/g; 1025: $result =~ s/&(omega|\#969);/\$\\omega \$/g; 1026: $result =~ s/&(Gamma|\#915);/\$\\Gamma \$/g; 1027: $result =~ s/&(Delta|\#916);/\$\\Delta \$/g; 1028: $result =~ s/&(Theta|\#920);/\$\\Theta \$/g; 1029: $result =~ s/&(Lambda|\#923);/\$\\Lambda \$/g; 1030: $result =~ s/&(Xi|\#926);/\$\\Xi \$/g; 1031: $result =~ s/&(Pi|\#928);/\$\\Pi \$/g; 1032: $result =~ s/&(Sigma|\#931);/\$\\Sigma \$/g; 1033: $result =~ s/&(Upsilon|\#933);/\$\\Upsilon \$/g; 1034: $result =~ s/&(Phi|\#934);/\$\\Phi \$/g; 1035: $result =~ s/&(Psi|\#936);/\$\\Psi \$/g; 1036: $result =~ s/&(Omega|\#937);/\$\\Omega \$/g; 1037: return $result; 1038: } 1039: 1040: 1041: sub page_format { 1042: my ($papersize,$layout,$numberofcolumns) = @_; 1043: my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0); 1044: if ($papersize=~/Letter/) { 1045: if ($layout eq 'CAPA') { 1046: if ($numberofcolumns == 1) { 1047: $textwidth = '18 cm'; 1048: $textheight = '25.9 cm'; 1049: $oddoffset = '-0.57 in'; 1050: $evenoffset = '-0.57 in'; 1051: } elsif ($numberofcolumns == 2) { 1052: $textwidth = '93 mm'; 1053: $textheight = '25.9 cm'; 1054: $oddoffset = '-0.57 in'; 1055: $evenoffset = '-0.57 in'; 1056: } 1057: } elsif ($layout eq 'CBI') { 1058: if ($numberofcolumns eq '1') { 1059: $textwidth = '8.8 in'; 1060: $textheight = '6.8 in'; 1061: $oddoffset = '-40 pt'; 1062: $evenoffset = '-60 pt'; 1063: } elsif ($numberofcolumns == 2) { 1064: $textwidth = '4.2 in'; 1065: $textheight = '6.8 in'; 1066: $oddoffset = '-40 pt'; 1067: $evenoffset = '-60 pt'; 1068: } 1069: } 1070: # } elsif($papersize=~/Legal/) { 1071: # } elsif($papersize=~/Ledger/) { 1072: # } elsif($papersize=~/Executive/) { 1073: } elsif($papersize=~/A4/) { 1074: if ($layout eq 'CAPA') { 1075: if ($numberofcolumns == 1) { 1076: $textwidth = '18 cm'; 1077: $textheight = '28 cm'; 1078: $oddoffset = '-0.57 in'; 1079: $evenoffset = '-0.57 in'; 1080: } elsif ($numberofcolumns == 2) { 1081: $textwidth = '96 mm'; 1082: $textheight = '2 cm'; 1083: $oddoffset = '-0.57 in'; 1084: $evenoffset = '-0.57 in'; 1085: } 1086: } elsif ($layout eq 'CBI') { 1087: if ($numberofcolumns eq '1') { 1088: $textwidth = '8.5 in'; 1089: $textheight = '7.7 in'; 1090: $oddoffset = '-40 pt'; 1091: $evenoffset = '-60 pt'; 1092: } elsif ($numberofcolumns == 2) { 1093: $textwidth = '3.9 in'; 1094: $textheight = '7.7 in'; 1095: $oddoffset = '-40 pt'; 1096: $evenoffset = '-60 pt'; 1097: } 1098: } 1099: # } elsif($papersize=~/A3/) { 1100: # } elsif($papersize=~/A2/) { 1101: # } elsif($papersize=~/A5/) { 1102: # } elsif($papersize=~/A6/) { 1103: } 1104: return $textwidth,$textheight,$oddoffset,$evenoffset; 1105: } 1106: 1107: 1108: sub page_format_new { 1109: # 1110: #Correspondence between $papersize variable and real paper format: 1111: # 0 - "Letter [8 1/2x11 in]" 1112: # 1 - "Legal [8 1/2x14 in]" 1113: # 2 - "Ledger/Tabloid [11x17 in]" 1114: # 3 - "Executive [7 1/2x10 in]" 1115: # 4 - "A2 [420x594 mm]" 1116: # 5 - "A3 [297x420 mm]" 1117: # 6 - "A4 [210x297 mm]" 1118: # 7 - "A5 [148x210 mm]" 1119: # 8 - "A6 [105x148 mm]" 1120: # 1121: my ($papersize,$layout,$numberofcolumns) = @_; 1122: my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0); 1123: if ($papersize eq '0') { 1124: if ($layout eq 'book') { 1125: if ($numberofcolumns == 1) { 1126: $textwidth = '18 cm'; 1127: $textheight = '25.9 cm'; 1128: $oddoffset = '-0.57 in'; 1129: $evenoffset = '-0.57 in'; 1130: } elsif ($numberofcolumns == 2) { 1131: $textwidth = '93 mm'; 1132: $textheight = '25.9 cm'; 1133: $oddoffset = '-0.57 in'; 1134: $evenoffset = '-0.57 in'; 1135: } 1136: } elsif ($layout eq 'album') { 1137: if ($numberofcolumns eq '1') { 1138: $textwidth = '8.8 in'; 1139: $textheight = '6.8 in'; 1140: $oddoffset = '-40 pt'; 1141: $evenoffset = '-60 pt'; 1142: } elsif ($numberofcolumns == 2) { 1143: $textwidth = '4.2 in'; 1144: $textheight = '6.8 in'; 1145: $oddoffset = '-40 pt'; 1146: $evenoffset = '-60 pt'; 1147: } 1148: } 1149: # } elsif($papersize eq '1') { 1150: # } elsif($papersize eq '2') { 1151: # } elsif($papersize eq '3'/) { 1152: } elsif($papersize eq '6') { 1153: if ($layout eq 'book') { 1154: if ($numberofcolumns == 1) { 1155: $textwidth = '18 cm'; 1156: $textheight = '28 cm'; 1157: $oddoffset = '-0.57 in'; 1158: $evenoffset = '-0.57 in'; 1159: } elsif ($numberofcolumns == 2) { 1160: $textwidth = '96 mm'; 1161: $textheight = '2 cm'; 1162: $oddoffset = '-0.57 in'; 1163: $evenoffset = '-0.57 in'; 1164: } 1165: } elsif ($layout eq 'album') { 1166: if ($numberofcolumns eq '1') { 1167: $textwidth = '8.5 in'; 1168: $textheight = '7.7 in'; 1169: $oddoffset = '-40 pt'; 1170: $evenoffset = '-60 pt'; 1171: } elsif ($numberofcolumns == 2) { 1172: $textwidth = '3.9 in'; 1173: $textheight = '7.7 in'; 1174: $oddoffset = '-40 pt'; 1175: $evenoffset = '-60 pt'; 1176: } 1177: } 1178: # } elsif($papersize eq '5') { 1179: # } elsif($papersize eq '4') { 1180: # } elsif($papersize eq '7') { 1181: # } elsif($papersize eq '8') { 1182: } 1183: return $textwidth,$textheight,$oddoffset,$evenoffset; 1184: } 1185: 1186: 1187: sub get_name { 1188: my ($uname,$udom)=@_; 1189: if (!defined($uname)) { $uname=$ENV{'user.name'}; } 1190: if (!defined($udom)) { $uname=$ENV{'user.domain'}; } 1191: my $plainname=&Apache::loncommon::plainname($uname,$udom); 1192: if ($plainname=~/^\s*$/) { $plainname=$uname; } 1193: return &Apache::lonxml::latex_special_symbols($plainname,undef,undef, 1194: 'header'); 1195: } 1196: 1197: sub page_format_transformation { 1198: my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_; 1199: my ($textwidth,$textheight,$oddoffset,$evenoffset); 1200: $assignment=~s/_/ /g; 1201: if ($numberofcolumns != 1) { 1202: ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format($papersize,$layout,$numberofcolumns); 1203: } else { 1204: ($textwidth,$textheight,$oddoffset,$evenoffset) = ($ENV{'form.width'},$ENV{'form.height'},$ENV{'form.leftmargin'},$ENV{'form.leftmargin'}); 1205: } 1206: my $name = &get_name(); 1207: if ($name =~ /^\s*$/) { 1208: $name=&Apache::lonxml::latex_special_symbols($ENV{'user.name'},undef, 1209: undef,'header'); 1210: } 1211: my $courseidinfo = &Apache::lonxml::latex_special_symbols(&Apache::lonnet::unescape($ENV{'course.'.$ENV{'request.course.id'}.'.description'}),'','','header'); 1212: if ($layout eq 'CBI') { 1213: $text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$name}} \\hfill $courseidinfo} \\vskip 5 mm /; 1214: } elsif ($layout eq 'CAPA') { 1215: if ($choice ne 'All class print') { 1216: $text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{}\\lhead{\\textbf{$name} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}/; 1217: } else { 1218: $text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\begin{document}\\voffset=-0\.8cm\\setcounter{page}{1} \\vskip 5 mm /; 1219: 1220: } 1221: } 1222: return $text; 1223: } 1224: 1225: 1226: sub page_format_transformation_new { 1227: my ($papersize,$layout,$numberofcolumns,$choice,$text,$assignment) = @_; 1228: my ($textwidth,$textheight,$oddoffset,$evenoffset); 1229: $assignment=~s/_/ /g; 1230: if ($numberofcolumns != 1) { 1231: ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format_new($papersize,$layout,$numberofcolumns); 1232: } else { 1233: ($textwidth,$textheight,$oddoffset,$evenoffset) = ($ENV{'form.width'},$ENV{'form.height'},$ENV{'form.leftmargin'},$ENV{'form.leftmargin'}); 1234: } 1235: my $name = &get_name(); 1236: if ($name =~ /^\s*$/) { 1237: $name=&Apache::lonxml::latex_special_symbols($ENV{'user.name'},undef, 1238: undef,'header'); 1239: } 1240: my $courseidinfo = &Apache::lonxml::latex_special_symbols(&Apache::lonnet::unescape($ENV{'course.'.$ENV{'request.course.id'}.'.description'}),'','','header'); 1241: if ($layout eq 'album') { 1242: $text =~ s/\\begin{document}/\\setlength{\\oddsidemargin}{$oddoffset}\\setlength{\\evensidemargin}{$evenoffset}\\setlength{\\topmargin}{200pt}\\setlength{\\textwidth}{$textwidth}\\setlength{\\textheight}{$textheight}\\setlength{\\parindent}{20pt}\\setlength{\\marginparwidth}{90pt}\\setlength{\\textfloatsep}{8pt plus 2\.0pt minus 4\.0pt}\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm} \\begin{document}\\setcounter{page}{1}\\noindent\\parbox{\\minipagewidth}{\\noindent\\fbox{\\textbf{$name}} \\hfill $courseidinfo} \\vskip 5 mm /; 1243: } elsif ($layout eq 'book') { 1244: if ($choice ne 'All class print') { 1245: $text =~ s/\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{}\\lhead{\\textbf{$name} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}\\begin{document}\\voffset=-0\.8 cm\\setcounter{page}{1}/; 1246: } else { 1247: $text =~ s/\\pagestyle{fancy}\\rhead{}\\chead{}\s*\\begin{document}/\\textheight $textheight\\oddsidemargin = $evenoffset\\evensidemargin = $evenoffset\\textwidth= $textwidth\\newlength{\\minipagewidth}\\setlength{\\minipagewidth}{\\textwidth\/\$number_of_columns-0\.2cm}\\renewcommand{\\ref}{\\keephidden\}\\pagestyle{fancy}\\rhead{}\\chead{}\\begin{document}\\voffset=-0\.8cm\\setcounter{page}{1} \\vskip 5 mm /; 1248: 1249: } 1250: } 1251: return $text; 1252: } 1253: 1254: 1255: 1256: sub page_cleanup { 1257: my $result = shift; 1258: 1259: $result =~ m/\\end{document}(\d*)$/; 1260: my $number_of_columns = $1; 1261: my $insert = '{'; 1262: for (my $id=1;$id<=$number_of_columns;$id++) { $insert .='l'; } 1263: $insert .= '}'; 1264: $result =~ s/(\\begin{longtable})INSERTTHEHEADOFLONGTABLE\\endfirsthead\\endhead/$1$insert/g; 1265: $result =~ s/&\s*REMOVETHEHEADOFLONGTABLE\\\\/\\\\/g; 1266: return $result,$number_of_columns; 1267: } 1268: 1269: 1270: sub details_for_menu { 1271: 1272: my $name_of_resourse = $hash{'title_'.$hash{'ids_'.$ENV{'form.postdata'}}}; 1273: my $symbolic = &Apache::lonnet::symbread($ENV{'form.postdata'}); 1274: my ($map,$id,$resource)=split(/___/,$symbolic); 1275: $map=&Apache::lonnet::clutter($map); 1276: my $name_of_sequence; 1277: $name_of_sequence = $hash{'title_'.$hash{'ids_'.$map}}; 1278: if ($name_of_sequence =~ /^\s*$/) { 1279: $map =~ m|([^/]+)$|; 1280: $name_of_sequence = $1; 1281: } 1282: my $name_of_map = $hash{'title_'.$hash{'ids_'.&Apache::lonnet::clutter($ENV{'request.course.uri'})}}; 1283: if ($name_of_map =~ /^\s*$/) { 1284: $ENV{'request.course.uri'} =~ m|([^/]+)$|; 1285: $name_of_map = $1; 1286: } 1287: return ($name_of_resourse,$name_of_sequence,$name_of_map); 1288: 1289: } 1290: 1291: 1292: sub latex_corrections { 1293: 1294: my ($number_of_columns,$result) = @_; 1295: 1296: $result =~ s/\\includegraphics{/\\includegraphics\[width=\\minipagewidth\]{/g; 1297: $result =~ s/\$number_of_columns/$number_of_columns/g; 1298: $result =~ s/(\\end{document})/\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill}\\newline\\noindent\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License $1/; 1299: $result =~ s/(\\end{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g; 1300: $result =~ s/(\\end{longtable}\s*)\\strut\\newline/$1/g; 1301: #-- LaTeX corrections 1302: my $first_comment = index($result,'',$first_comment); 1305: substr($result,$first_comment,$end_comment-$first_comment+3) = ''; 1306: $first_comment = index($result,'<!--',$first_comment); 1307: } 1308: $result =~ s/^\s+$//gm; #remove empty lines 1309: $result =~ s/(\s)(\s+)/$1/g; #removes more than one empty space 1310: $result =~ s/\\\\\s*\\vskip/\\vskip/gm; 1311: $result =~ s/\\\\\s*\\noindent\s*(\\\\)+/\\\\\\noindent /g; 1312: $result =~ s/{\\par }\s*\\\\/\\\\/gm; 1313: $result =~ s/\\\\\s+\[/ \[/g; 1314: $result =~ s/\b__+\b/\\makebox\[1 cm\]\[b\]{\\hrulefill}/g; 1315: #conversion of html characters to LaTeX equivalents 1316: if ($result =~ m/&(\w+|#\d+);/) { 1317: $result = &character_chart($result); 1318: } 1319: $result =~ s/(\\end{tabular})\s*\\vskip 0 mm/$1/g; 1320: $result =~ s/(\\begin{enumerate})\s*\\noindent/$1/g; 1321: 1322: return $result; 1323: } 1324: 1325: 1326: sub output_data_new { 1327: my ($r,$helper) = @_; 1328: $r->print(<<ENDPART); 1329: <html> 1330: <head> 1331: <title>LON-CAPA output for printing</title> 1332: </head> 1333: <body bgcolor="FFFFFF"> 1334: <hr> 1335: ENDPART 1336: 1337: my $format_from_helper = $helper->{'VARS'}->{'FORMAT'}; 1338: my ($result,$selectionmade) = ('',''); 1339: my $number_of_columns = 1; #used only for pages to determine the width of the cell 1340: my @temporary_array=split /\|/,$format_from_helper; 1341: my ($laystyle,$numberofcolumns,$papersize)=@temporary_array; 1342: if ($laystyle eq 'L') { 1343: $laystyle='album'; 1344: } else { 1345: $laystyle='book'; 1346: } 1347: my ($textwidth,$textheight,$oddoffset,$evenoffset) = &page_format_new($papersize,$laystyle,$numberofcolumns); 1348: my $assignment = $ENV{'form.assignment'}; 1349: my $LaTeXwidth; 1350: if ($textwidth=~/(\d+)\s*cm/) { 1351: $LaTeXwidth = $1*10; 1352: } elsif ($textwidth=~/(\d+)\s*mm/) { 1353: $LaTeXwidth = $1; 1354: } elsif ($textwidth=~/(\d+)\s*in/) { 1355: $LaTeXwidth = $1*25.4; 1356: } 1357: $LaTeXwidth.=' mm'; 1358: 1359: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'current_document') { 1360: #-- single document - problem, page, html, xml, ... 1361: my $currentURL; 1362: if ($helper->{'VARS'}->{'construction'} ne '1') { 1363: #prins published resource 1364: $currentURL=$helper->{'VARS'}->{'postdata'}; 1365: } else { 1366: #prins resource from the construction space 1367: $currentURL=$helper->{'VARS'}->{'filename'}; 1368: $currentURL=~s/\/home\//\/~/; 1369: $currentURL=~s/public_html\///; 1370: } 1371: $selectionmade = 1; 1372: if ($currentURL=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$/) { 1373: my %moreenv; 1374: $moreenv{'request.filename'}=$currentURL; 1375: my %form; 1376: $form{'grade_target'}='tex'; 1377: $form{'textwidth'}=$LaTeXwidth; 1378: my $rndseed=time; 1379: $form{'rndseed'}=$rndseed; 1380: &Apache::lonnet::appenv(%moreenv); 1381: my $texversion=&Apache::lonnet::ssi($currentURL,%form); 1382: &Apache::lonnet::delenv('form.counter'); 1383: &Apache::lonnet::delenv('request.filename'); 1384: if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { 1385: my %form; 1386: $form{'grade_target'}='answer'; 1387: $form{'answer_output_mode'}='tex'; 1388: $form{'rndseed'}=$rndseed; 1389: my $answer=&Apache::lonnet::ssi($currentURL,%form); 1390: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; 1391: } 1392: $result .= $texversion; 1393: if ($currentURL=~m/\.page\s*$/) { 1394: ($result,$number_of_columns) = &page_cleanup($result); 1395: } 1396: } else { 1397: # $result='\documentclass[letterpaper]{article}\usepackage{calc}\begin{document}Printout of this type of document is currently not supported: '; 1398: # if ($ENV{'form.url'}=~/\/(aboutme|syllabus|bulletinboard|smppg)$/) { 1399: # $result.=$1; 1400: # } else { 1401: # $result.=$ENV{'form.url'}; 1402: # } 1403: # $result.=' \end{document}' 1404: } 1405: } elsif (($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') or 1406: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or 1407: ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems')) { 1408: #-- produce an output string 1409: my $flag_latex_header_remove = 'NO'; 1410: my $flag_page_in_sequence = 'NO'; 1411: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; 1412: for (my $i=0;$i<=$#master_seq;$i++) { 1413: $master_seq[$i]=~/___\d+___(.*)$/; 1414: my $urlp='/res/'.$1; 1415: if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') { 1416: $selectionmade = 2; 1417: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') { 1418: $selectionmade = 3; 1419: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') { 1420: $selectionmade = 4; 1421: } 1422: my %form; 1423: $form{'grade_target'}='tex'; 1424: $form{'textwidth'}=$LaTeXwidth; 1425: $form{'symb'}=$master_seq[$i]; 1426: #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]"); 1427: my $texversion=&Apache::lonnet::ssi($urlp,%form); 1428: if ($urlp=~/\.page$/) { 1429: ($texversion,my $number_of_columns_page) = &page_cleanup($texversion); 1430: if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} 1431: $texversion =~ s/\\end{document}\d*/\\end{document}/; 1432: $flag_page_in_sequence = 'YES'; 1433: } 1434: if ($flag_latex_header_remove ne 'NO') { 1435: $texversion = &latex_header_footer_remove($texversion); 1436: } else { 1437: $texversion =~ s/\\end{document}//; 1438: } 1439: if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { 1440: my %form; 1441: $form{'grade_target'}='answer'; 1442: $form{'answer_output_mode'}='tex'; 1443: my $answer=&Apache::lonnet::ssi($urlp,%form); 1444: $texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; 1445: } 1446: $result .= $texversion; 1447: $flag_latex_header_remove = 'YES'; 1448: } 1449: &Apache::lonnet::delenv('form.counter'); 1450: if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;} 1451: $result .= '\end{document}'; 1452: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') { 1453: #-- prints assignments for whole class or for selected students 1454: $selectionmade=5; 1455: my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'}; 1456: my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'}; 1457: #loop over students 1458: my $flag_latex_header_remove = 'NO'; 1459: my %moreenv; 1460: $moreenv{'form.textwidth'}=$LaTeXwidth; 1461: &Apache::lonnet::appenv(%moreenv); 1462: my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1); 1463: foreach my $person (@students) { 1464: my $current_output = ''; 1465: # my ($usersection,$username,$userdomain) = split /:/,$person; 1466: my ($username,$userdomain) = split /:/,$person; 1467: my $fullname = &get_name($username,$userdomain); 1468: #goes through all resources, checks if they are available for current student, and produces output 1469: foreach my $curresline (@master_seq) { 1470: if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) { 1471: my ($map,$id,$res_url) = split(/___/,$curresline); 1472: if (&Apache::lonnet::allowed('bre',$res_url)) { 1473: my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain, 1474: $ENV{'request.course.id'},'tex'); 1475: if ($flag_latex_header_remove eq 'YES') { 1476: $rendered = &latex_header_footer_remove($rendered); 1477: } else { 1478: $rendered =~ s/\\end{document}//; 1479: } 1480: $current_output .= $rendered; 1481: } 1482: $flag_latex_header_remove = 'YES'; 1483: } 1484: } 1485: my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; 1486: if ($current_output=~/\\documentclass/) { 1487: $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}\\vskip 3 mm /; 1488: } else { 1489: my $blanspages = ''; 1490: for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blanspages.='\clearpage\strut\clearpage';} 1491: $current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage \\vskip 3mm'.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}\hskip 1.4in } \vskip 5 mm '.$current_output; 1492: } 1493: $result .= $current_output; 1494: &Apache::lonnet::delenv('form.counter'); 1495: &Apache::lonxml::init_counter(); 1496: &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, 1497: 'last student '.$fullname); 1498: } 1499: &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); 1500: $result .= '\end{document}'; 1501: &Apache::lonnet::delenv('form.textwidth'); 1502: } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_from_directory') { 1503: #prints selected problems from the subdirectory 1504: $selectionmade = 6; 1505: my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'}; 1506: @list_of_files=sort @list_of_files; 1507: my $flag_latex_header_remove = 'NO'; 1508: for (my $i=0;$i<=$#list_of_files;$i++) { 1509: my $urlp = $list_of_files[$i]; 1510: if ($urlp=~/\//) { 1511: my %form; 1512: $form{'grade_target'}='tex'; 1513: $form{'textwidth'}=$LaTeXwidth; 1514: if ($urlp =~ m|/home/([^/]+)/public_html|) { 1515: $urlp =~ s|/home/([^/]*)/public_html|/~$1|; 1516: } else { 1517: $urlp =~ s|^/home/httpd/html||; 1518: } 1519: my $texversion=&Apache::lonnet::ssi($urlp,%form); 1520: #this chunck is responsible for printing the path to problem 1521: my $newurlp = ''; 1522: my $HowMany = length($urlp)*2; 1523: if ($HowMany > $LaTeXwidth) { 1524: my @temporrary = split '/',$urlp; 1525: my $HowManyNew = 0; 1526: for (my $ii=0;$ii<=$#temporrary;$ii++) { 1527: if ($temporrary[$ii] ne '') { 1528: $HowManyNew += length($temporrary[$ii])*2; 1529: if ($HowManyNew < $LaTeXwidth ) { 1530: $newurlp .= '/'.$temporrary[$ii]; 1531: } else { 1532: $HowManyNew = 0; 1533: $newurlp .= '|\vskip -1 mm \noindent \verb|'; 1534: $ii--; 1535: } 1536: } 1537: } 1538: } 1539: $texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 {\\small\\noindent\\verb|$newurlp\|\\vskip 0 mm}/; 1540: if ($flag_latex_header_remove ne 'NO') { 1541: $texversion = &latex_header_footer_remove($texversion); 1542: } else { 1543: $texversion =~ s/\\end{document}//; 1544: } 1545: $result .= $texversion; 1546: } 1547: $flag_latex_header_remove = 'YES'; 1548: } 1549: $result .= '\end{document}'; 1550: } 1551: #-------------------------------------------------------- corrections for the different page formats 1552: $result = &page_format_transformation_new($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'}); 1553: # if ($layout eq 'CBI') { 1554: # $laystyle = 'album'; 1555: # } 1556: $result = &latex_corrections($number_of_columns,$result); 1557: # #changes page's parameters for the one column output 1558: # if ($ENV{'form.numberofcolumns'} == 1) { 1559: # $result =~ s/\\textwidth= 9cm/\\textwidth= $ENV{'form.width'}/; 1560: # $result =~ s/\\textheight 25\.9cm/\\textheight $ENV{'form.height'}/; 1561: # $result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $ENV{'form.leftmargin'}/; 1562: # $result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $ENV{'form.leftmargin'}/; 1563: # } 1564: #-- writing .tex file in prtspool 1565: my $temp_file; 1566: my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex"; 1567: unless ($temp_file = Apache::File->new('>'.$filename)) { 1568: $r->log_error("Couldn't open $filename for output $!"); 1569: return SERVER_ERROR; 1570: } 1571: print $temp_file $result; 1572: 1573: #<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade"> 1574: $r->print(<<FINALEND); 1575: <meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade"> 1576: </body> 1577: </html> 1578: FINALEND 1579: } 1580: 1581: 1582: 1583: sub handler { 1584: 1585: my $r = shift; 1586: my $helper; 1587: 1588: # A hook for me to work without disturbing Alex. 1589: if (!$ENV{'form.jeremy'}) { 1590: my $result = printHelper($r); 1591: if (!ref($result)) { 1592: return $result; 1593: } 1594: $helper = $result; 1595: 1596: 1597: 1598: my $key; 1599: foreach $key (keys %{$helper->{'VARS'}}) { 1600: $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />'); 1601: } 1602: # return OK; 1603: 1604: 1605: &output_data_new($r,$helper); 1606: 1607: 1608: 1609: 1610: 1611: 1612: return OK; 1613: } 1614: # my $loaderror=&Apache::lonnet::overloaderror($r); 1615: # if ($loaderror) { return $loaderror; } 1616: # $loaderror= 1617: # &Apache::lonnet::overloaderror($r, 1618: # $ENV{'course.'.$ENV{'request.course.id'}.'.home'}); 1619: # if ($loaderror) { return $loaderror; } 1620: 1621: $r->content_type('text/html'); 1622: $r->send_http_header; 1623: $r->print(&Apache::loncommon::bodytag("Printing")); 1624: 1625: if ($ENV{'request.course.id'}) { 1626: my $fn=$ENV{'request.course.fn'}; 1627: tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640); 1628: } 1629: 1630: #-- start form 1631: &headerform($r); 1632: #-- menu for output 1633: unless ($ENV{'form.phase'}) { 1634: &menu_for_output($r); 1635: } 1636: #-- additional menu for class printing 1637: if ($ENV{'form.phase'} eq 'two') { 1638: if($ENV{'form.choice'} eq 'Standard LaTeX output for whole primary sequence') { 1639: &sequence_content_menu(0,$r); 1640: } elsif($ENV{'form.choice'} eq 'Standard LaTeX output for the primary sequence') { 1641: &sequence_content_menu(1,$r); 1642: } elsif($ENV{'form.choice'} eq 'All class print') { 1643: &additional_class_menu($r); 1644: } elsif($ENV{'form.choice'} eq 'Subdirectory print') { 1645: &problem_choice_menu($r); 1646: } else { 1647: $ENV{'form.phase'} = 'three'; 1648: } 1649: } 1650: #-- additional menu for page layout (one column case) 1651: if ($ENV{'form.phase'} eq 'three') { 1652: if($ENV{'form.numberofcolumns'} == 1) { 1653: &additional_print_menu($r); 1654: } else { 1655: $ENV{'form.phase'} = 'four'; 1656: } 1657: } 1658: #-- core part 1659: if ($ENV{'form.phase'} eq 'four') { 1660: &output_data($r); 1661: } 1662: untie %hash; 1663: return OK; 1664: 1665: } 1666: 1667: use Apache::lonhelper; 1668: 1669: sub printHelper { 1670: my $r = shift; 1671: 1672: if ($ENV{'request.course.id'}) { 1673: my $fn=$ENV{'request.course.fn'}; 1674: tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640); 1675: } 1676: 1677: if ($r->header_only) { 1678: if ($ENV{'browser.mathml'}) { 1679: $r->content_type('text/xml'); 1680: } else { 1681: $r->content_type('text/html'); 1682: } 1683: $r->send_http_header; 1684: return OK; 1685: } 1686: 1687: # Send header, nocache 1688: if ($ENV{'browser.mathml'}) { 1689: $r->content_type('text/xml'); 1690: } else { 1691: $r->content_type('text/html'); 1692: } 1693: &Apache::loncommon::no_cache($r); 1694: $r->send_http_header; 1695: $r->rflush(); 1696: 1697: # Unfortunately, this helper is so complicated we have to 1698: # write it by hand 1699: 1700: Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING}); 1701: 1702: my $helper = Apache::lonhelper::helper->new("Printing Wizard"); 1703: $helper->declareVar('symb'); 1704: $helper->declareVar('postdata'); 1705: $helper->declareVar('filename'); 1706: $helper->declareVar('construction'); 1707: 1708: # This will persistently load in the data we want from the 1709: # very first screen. 1710: # Detect whether we're coming from construction space 1711: if ($ENV{'form.postdata'} =~ /http:\/\// ) { 1712: $ENV{'form.postdata'} =~ /http:\/\/[a-zA-Z.]+\/~([a-zA-Z0-9]+)\/(.*)/; 1713: $helper->{VARS}->{'filename'} = "/home/$1/public_html/$2"; 1714: $helper->{VARS}->{'construction'} = 1; 1715: } else { 1716: if ($ENV{'form.postdata'}) { 1717: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($ENV{'form.postdata'}); 1718: } 1719: if ($ENV{'form.symb'}) { 1720: $helper->{VARS}->{'symb'} = $ENV{'form.symb'}; 1721: } 1722: if ($ENV{'form.url'}) { 1723: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'}); 1724: } 1725: } 1726: 1727: if ($ENV{'form.symb'}) { 1728: $helper->{VARS}->{'symb'} = $ENV{'form.symb'}; 1729: } 1730: if ($ENV{'form.url'}) { 1731: $helper->{VARS}->{'symb'} = &Apache::lonnet::symbread($helper->{VARS}->{'postdata'}); 1732: 1733: } 1734: 1735: my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu; 1736: $helper->{VARS}->{'assignment'} = $sequenceTitle; 1737: 1738: 1739: # Extract map 1740: my $symb = $helper->{VARS}->{'symb'}; 1741: my ($map, $id, $url); 1742: my $subdir; 1743: 1744: # Get the resource name from construction space 1745: if ($helper->{VARS}->{'construction'}) { 1746: $resourceTitle = substr($helper->{VARS}->{'filename'}, 1747: rindex($helper->{VARS}->{'filename'}, '/')+1); 1748: $subdir = substr($helper->{VARS}->{'filename'}, 1749: 0, rindex($helper->{VARS}->{'filename'}, '/') + 1); 1750: } else { 1751: ($map, $id, $url) = split(/___/, $symb); 1752: $helper->{VARS}->{'postdata'} = Apache::lonnet::clutter($url); 1753: 1754: if (!$resourceTitle) { # if the resource doesn't have a title, use the filename 1755: my $url = $helper->{VARS}->{'postdata'}; 1756: $resourceTitle = substr($url, rindex($url, '/') + 1); 1757: } 1758: $subdir = &Apache::lonnet::filelocation("", $url); 1759: } 1760: 1761: Apache::lonhelper::registerHelperTags(); 1762: 1763: # "Delete everything after the last slash." 1764: $subdir =~ s|/[^/]+$||; 1765: if (not $helper->{VARS}->{'construction'}) { 1766: $subdir='/home/httpd/html/res/'.$subdir; 1767: } 1768: 1769: 1770: # What can be printed is a very dynamic decision based on 1771: # lots of factors. So we need to dynamically build this list. 1772: # To prevent security leaks, states are only added to the wizard 1773: # if they can be reached, which ensures manipulating the form input 1774: # won't allow anyone to reach states they shouldn't have permission 1775: # to reach. 1776: 1777: # printChoices is tracking the kind of printing the user can 1778: # do, and will be used in a choices construction later. 1779: # In the meantime we will be adding states and elements to 1780: # the helper by hand. 1781: my $printChoices = []; 1782: my $paramHash; 1783: 1784: if ($resourceTitle) { 1785: push @{$printChoices}, ["<b>$resourceTitle</b> (prints what you just saw on the screen)", 'current_document', 'PAGESIZE']; 1786: } 1787: 1788: $r->print($helper->{VARS}->{'postdata'}); 1789: 1790: # If we're in a sequence... 1791: if ($helper->{'VARS'}->{'construction'} ne '1') { 1792: # Allow problems from sequence 1793: push @{$printChoices}, ["Problem(s) from <b>$sequenceTitle</b>", 'map_problems', 'CHOOSE_PROBLEMS']; 1794: # Allow all resources from sequence 1795: push @{$printChoices}, ["Everything (problem(s), page(s), html/xml file(s)) from <b>$sequenceTitle</b>", 'map_problems_pages', 'CHOOSE_PROBLEMS_HTML']; 1796: 1797: my $isProblem = '$res->is_problem();'; 1798: my $isProblemOrMap = '$res->is_problem() || $res->is_map()'; 1799: my $isNotMap = '!$res->is_map();'; 1800: my $symb = '$res->symb();'; 1801: my $helperFragment = <<HELPERFRAGMENT; 1802: <state name="CHOOSE_PROBLEMS" title="Select Problem(s) to print"> 1803: <message>(mark them then click "next" button) <br /></message> 1804: <resource variable="RESOURCES" multichoice="1" toponly='1'> 1805: <nextstate>PAGESIZE</nextstate> 1806: <filterfunc>return $isProblem</filterfunc> 1807: <mapurl>$map</mapurl> 1808: <valuefunc>return $symb</valuefunc> 1809: </resource> 1810: </state> 1811: 1812: <state name="CHOOSE_PROBLEMS_HTML" title="Select Resource(s) to print"> 1813: <message>(mark them then click "next" button) <br /></message> 1814: <resource variable="RESOURCES" multichoice="1" toponly='1'> 1815: <nextstate>PAGESIZE</nextstate> 1816: <filterfunc>return $isNotMap;</filterfunc> 1817: <mapurl>$map</mapurl> 1818: <valuefunc>return $symb</valuefunc> 1819: </resource> 1820: </state> 1821: HELPERFRAGMENT 1822: 1823: &Apache::lonxml::xmlparse($r, 'helper', $helperFragment); 1824: } 1825: 1826: # If the user is priviledged, allow them to print all 1827: # problems in the course, optionally for selected students 1828: if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($helper->{VARS}->{'postdata'}=~/\/res\//)) { 1829: push @{$printChoices}, ['<b>Problems</b> in this course', 'all_problems', 'ALL_PROBLEMS']; 1830: push @{$printChoices}, ["Problems from <b>$sequenceTitle</b> for selected students", 'problems_for_students', 'CHOOSE_STUDENTS']; 1831: 1832: my $isProblem = '$res->is_problem();'; 1833: my $isProblemOrMap = '$res->is_problem() || $res->is_map()'; 1834: my $symb = '$res->symb();'; 1835: &Apache::lonxml::xmlparse($r, 'helper', <<CHOOSE_STUDENTS); 1836: <state name="ALL_PROBLEMS" title="Select Problem(s) to print"> 1837: <message>(mark them then click "next" button) <br /></message> 1838: <resource variable="RESOURCES" multichoice="1" suppressEmptySequences='1'> 1839: <nextstate>PAGESIZE</nextstate> 1840: <filterfunc>return $isProblemOrMap</filterfunc> 1841: <choicefunc>return $isProblem</choicefunc> 1842: <valuefunc>return $symb</valuefunc> 1843: </resource> 1844: </state> 1845: 1846: <state name="CHOOSE_STUDENTS" title="Choose Students whose assignments you want to print"> 1847: <message>(do not forget to select assignment itself - make another selection below) <br /></message> 1848: <student multichoice='1' variable="STUDENTS" nextstate="PAGESIZE" /> 1849: <message><br /><big><i><b>Select resources for the assignment</b></i></big><br /></message> 1850: <resource variable="RESOURCES" multichoice="1"> 1851: <filterfunc>return $isProblem</filterfunc> 1852: <mapurl>$map</mapurl> 1853: <valuefunc>return $symb</valuefunc> 1854: </resource> 1855: <message><br /><big><i><b>How should the results be printed?</b></i></big><br /></message> 1856: <choices variable="EMPTY_PAGES"> 1857: <choice computer='0'>Print students assignments without separations (as uniform flow)</choice> 1858: <choice computer='1'>Start student assignment from new page (add pagefeed after each student)</choice> 1859: <choice computer='2'>Add one emty page after each student assignment</choice> 1860: <choice computer='3'>Add two emty page after each student assignment</choice> 1861: </choices> 1862: </state> 1863: CHOOSE_STUDENTS 1864: } 1865: 1866: # FIXME: That RE should come from a library somewhere. 1867: if (((&Apache::lonnet::allowed('bre',$subdir) eq 'F') and ($helper->{VARS}->{'postdata'}=~/\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)/)) or defined $helper->{'VARS'}->{'construction'}) { 1868: push @{$printChoices}, ["Problems from current subdirectory <b>$subdir</b>", 'problems_from_directory', 'CHOOSE_FROM_SUBDIR']; 1869: 1870: my $f = '$filename'; 1871: my $xmlfrag = <<CHOOSE_FROM_SUBDIR; 1872: <state name="CHOOSE_FROM_SUBDIR" title="Select File(s) from <b><small>$subdir</small></b> to print"> 1873: <message>(mark them then click "next" button) <br /></message> 1874: <files variable="FILES" multichoice='1'> 1875: <nextstate>PAGESIZE</nextstate> 1876: <filechoice>return '$subdir';</filechoice> 1877: CHOOSE_FROM_SUBDIR 1878: 1879: $xmlfrag .= <<'CHOOSE_FROM_SUBDIR'; 1880: <filefilter>return $filename =~ 1881: m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/; 1882: </filefilter> 1883: </files> 1884: </state> 1885: CHOOSE_FROM_SUBDIR 1886: &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag); 1887: } 1888: 1889: # Generate the first state, to select which resources get printed. 1890: Apache::lonhelper::state->new("START", "What do you want to print? Make a choice."); 1891: $paramHash = Apache::lonhelper::getParamHash(); 1892: $paramHash->{MESSAGE_TEXT} = ""; 1893: Apache::lonhelper::message->new(); 1894: $paramHash = Apache::lonhelper::getParamHash(); 1895: $paramHash->{'variable'} = 'PRINT_TYPE'; 1896: $helper->declareVar('PRINT_TYPE'); 1897: $paramHash->{CHOICES} = $printChoices; 1898: Apache::lonhelper::choices->new(); 1899: 1900: if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or 1901: ($helper->{VARS}->{'construction'} eq '1')) { 1902: $paramHash = Apache::lonhelper::getParamHash(); 1903: $paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next option is available only for advanced users:</i></b></big><br />"; 1904: Apache::lonhelper::message->new(); 1905: $paramHash = Apache::lonhelper::getParamHash(); 1906: $paramHash->{'variable'} = 'ANSWER_TYPE'; 1907: $helper->declareVar('ANSWER_TYPE'); 1908: $paramHash->{CHOICES} = [ 1909: ['Print without answer', 'yes'], 1910: ['Print with answers', 'no'] ]; 1911: Apache::lonhelper::choices->new(); 1912: } 1913: 1914: Apache::lonprintout::page_format_state->new("FORMAT"); 1915: 1916: # Generate the PAGESIZE state which will offer the user the margin 1917: # choices if they select one column 1918: Apache::lonhelper::state->new("PAGESIZE", "Set Margins"); 1919: Apache::lonprintout::page_size_state->new('pagesize', 'FORMAT', 'FINAL'); 1920: 1921: 1922: $helper->process(); 1923: 1924: # MANUAL BAILOUT CONDITION: 1925: # If we're in the "final" state, bailout and return to handler 1926: if ($helper->{STATE} eq 'FINAL') { 1927: return $helper; 1928: } 1929: 1930: $r->print($helper->display()); 1931: 1932: Apache::lonhelper::unregisterHelperTags(); 1933: 1934: untie %hash; 1935: 1936: return OK; 1937: } 1938: 1939: 1940: 1; 1941: 1942: package Apache::lonprintout::page_format_state; 1943: 1944: =pod 1945: 1946: =head1 Helper element: page_format_state 1947: 1948: See lonhelper.pm documentation for discussion of the helper framework. 1949: 1950: Apache::lonprintout::page_format_state is an element that gives the 1951: user an opportunity to select the page layout they wish to print 1952: with: Number of columns, portrait/landscape, and paper size. If you 1953: want to change the paper size choices, change the @paperSize array 1954: contents in this package. 1955: 1956: page_format_state is always directly invoked in lonprintout.pm, so there 1957: is no tag interface. You actually pass parameters to the constructor. 1958: 1959: =over 4 1960: 1961: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME. 1962: 1963: =back 1964: 1965: =cut 1966: 1967: use Apache::lonhelper; 1968: 1969: no strict; 1970: @ISA = ("Apache::lonhelper::element"); 1971: use strict; 1972: 1973: my $maxColumns = 2; 1974: my @paperSize = ("Letter [8 1/2x11 in]", "Legal [8 1/2x14 in]", 1975: "Ledger/Tabloid [11x17 in]", "Executive [7 1/2x10 in]", 1976: "A2 [420x594 mm]", "A3 [297x420 mm]", "A4 [210x297 mm]", 1977: "A5 [148x210 mm]", "A6 [105x148 mm]" ); 1978: 1979: # Tentative format: Orientation (L = Landscape, P = portrait) | Colnum | 1980: # Paper type 1981: 1982: sub new { 1983: my $self = Apache::lonhelper::element->new(); 1984: 1985: shift; 1986: 1987: $self->{'variable'} = shift; 1988: my $helper = Apache::lonhelper::getHelper(); 1989: $helper->declareVar($self->{'variable'}); 1990: bless($self); 1991: return $self; 1992: } 1993: 1994: sub render { 1995: my $self = shift; 1996: my $helper = Apache::lonhelper::getHelper(); 1997: my $result = ''; 1998: my $var = $self->{'variable'}; 1999: 2000: $result .= <<STATEHTML; 2001: 2002: <p><big><i><b>What page format do you prefer?</b></i></big></p> 2003: <table cellpadding="3"> 2004: <tr> 2005: <td align="center"><b>Page layout</b></td> 2006: <td align="center"><b>Number of columns</b></td> 2007: <td align="center"><b>Paper type</b></td> 2008: </tr> 2009: <tr> 2010: <td> 2011: <input type="radio" name="${var}.layout" value="L" /> Landscape<br /> 2012: <input type="radio" name="${var}.layout" value="P" checked='1' /> Portrait 2013: </td> 2014: <td align="center"> 2015: <select name="${var}.cols"> 2016: STATEHTML 2017: 2018: my $i; 2019: for ($i = 1; $i <= $maxColumns; $i++) { 2020: if ($i == 2) { 2021: $result .= "<option value='$i' selected>$i</option>\n"; 2022: } else { 2023: $result .= "<option value='$i'>$i</option>\n"; 2024: } 2025: } 2026: 2027: $result .= "</select></td><td>\n"; 2028: $result .= "<select name='${var}.paper'>\n"; 2029: 2030: $i = 0; 2031: foreach (@paperSize) { 2032: if ($i == 0) { 2033: $result .= "<option selected value='$i'>" . $paperSize[$i] . "</option>\n"; 2034: } else { 2035: $result .= "<option value='$i'>" . $paperSize[$i] . "</option>\n"; 2036: } 2037: $i++; 2038: } 2039: 2040: $result .= "</select></td></tr></table>"; 2041: return $result; 2042: } 2043: 2044: sub postprocess { 2045: my $self = shift; 2046: 2047: my $var = $self->{'variable'}; 2048: my $helper = Apache::lonhelper->getHelper(); 2049: $helper->{VARS}->{$var} = 2050: $ENV{"form.$var.layout"} . '|' . $ENV{"form.$var.cols"} . '|' . 2051: $ENV{"form.$var.paper"}; 2052: return 1; 2053: } 2054: 2055: 1; 2056: 2057: package Apache::lonprintout::page_size_state; 2058: 2059: =pod 2060: 2061: =head1 Helper element: page_size_state 2062: 2063: See lonhelper.pm documentation for discussion of the helper framework. 2064: 2065: Apache::lonprintout::page_size_state is an element that gives the 2066: user the opportunity to further refine the page settings if they 2067: select a single-column page. 2068: 2069: page_size_state is always directly invoked in lonprintout.pm, so there 2070: is no tag interface. You actually pass parameters to the constructor. 2071: 2072: =over 4 2073: 2074: =item * B<new>(varName): varName is where the print information will be stored in the format FIXME. 2075: 2076: =back 2077: 2078: =cut 2079: 2080: use Apache::lonhelper; 2081: 2082: no strict; 2083: @ISA = ("Apache::lonhelper::element"); 2084: use strict; 2085: 2086: 2087: 2088: sub new { 2089: my $self = Apache::lonhelper::element->new(); 2090: 2091: shift; # disturbs me (probably prevents subclassing) but works (drops 2092: # package descriptor)... - Jeremy 2093: 2094: $self->{'variable'} = shift; 2095: my $helper = Apache::lonhelper::getHelper(); 2096: $helper->declareVar($self->{'variable'}); 2097: 2098: # The variable name of the format element, so we can look into 2099: # $helper->{VARS} to figure out whether the columns are one or two 2100: $self->{'formatvar'} = shift; 2101: 2102: # The state to transition to after selection, or after discovering 2103: # the cols are not set to 1 2104: $self->{NEXTSTATE} = shift; 2105: bless($self); 2106: return $self; 2107: } 2108: 2109: sub render { 2110: my $self = shift; 2111: my $helper = Apache::lonhelper::getHelper(); 2112: my $result = ''; 2113: my $var = $self->{'variable'}; 2114: 2115: if (defined $self->{ERROR_MSG}) { 2116: $result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br />'; 2117: } 2118: 2119: $result .= <<ELEMENTHTML; 2120: 2121: <p>How should the column be formatted?</p> 2122: 2123: <table cellpadding='3'> 2124: <tr> 2125: <td align='right'><b>Width</b>:</td> 2126: <td align='left'><input type='text' name='$var.width' value='18' size='4'></td> 2127: <td align='left'> 2128: <select name='$var.widthunit'> 2129: <option>cm</option><option>in</option> 2130: </select> 2131: </td> 2132: </tr> 2133: <tr> 2134: <td align='right'><b>Height</b>:</td> 2135: <td align='left'><input type='text' name="$var.height" value="25.9" size='4'></td> 2136: <td align='left'> 2137: <select name='$var.heightunit'> 2138: <option>cm</option><option>in</option> 2139: </select> 2140: </td> 2141: </tr> 2142: <tr> 2143: <td align='right'><b>Left margin</b>:</td> 2144: <td align='left'><input type='text' name='$var.lmargin' value='-1.5' size='4'></td> 2145: <td align='left'> 2146: <select name='$var.heightunit'> 2147: <option>cm</option><option>in</option> 2148: </select> 2149: </td> 2150: </tr> 2151: </table> 2152: 2153: <p>Hint: Some instructors like to leave scratch space for the student by 2154: making the width much smaller then the width of the page.</p> 2155: 2156: ELEMENTHTML 2157: 2158: return $result; 2159: } 2160: 2161: # If the user didn't select 1 column, skip this state. 2162: sub preprocess { 2163: my $self = shift; 2164: my $helper = Apache::lonhelper::getHelper(); 2165: 2166: my $format = $helper->{VARS}->{$self->{'formatvar'}}; 2167: if (substr($format, 2, 1) ne '1') { 2168: $helper->changeState($self->{NEXTSTATE}); 2169: } 2170: 2171: return 1; 2172: } 2173: 2174: sub postprocess { 2175: my $self = shift; 2176: 2177: my $var = $self->{'variable'}; 2178: my $helper = Apache::lonhelper->getHelper(); 2179: my $width = $helper->{VARS}->{$var .'.width'} = $ENV{"form.${var}.width"}; 2180: my $height = $helper->{VARS}->{$var .'.height'} = $ENV{"form.${var}.height"}; 2181: my $lmargin = $helper->{VARS}->{$var .'.lmargin'} = $ENV{"form.${var}.lmargin"}; 2182: $helper->{VARS}->{$var .'.widthunit'} = $ENV{"form.${var}.widthunit"}; 2183: $helper->{VARS}->{$var .'.heightunit'} = $ENV{"form.${var}.heightunit"}; 2184: $helper->{VARS}->{$var .'.lmarginunit'} = $ENV{"form.${var}.lmarginunit"}; 2185: 2186: my $error = ''; 2187: 2188: # /^-?[0-9]+(\.[0-9]*)?$/ -> optional minus, at least on digit, followed 2189: # by an optional period, followed by digits, ending the string 2190: 2191: if ($width !~ /^-?[0-9]+(\.[0-9]*)?$/) { 2192: $error .= "Invalid width; please type only a number.<br />\n"; 2193: } 2194: if ($height !~ /^-?[0-9]+(\.[0-9]*)?$/) { 2195: $error .= "Invalid height; please type only a number.<br />\n"; 2196: } 2197: if ($lmargin !~ /^-?[0-9]+(\.[0-9]*)?$/) { 2198: $error .= "Invalid left margin; please type only a number.<br />\n"; 2199: } 2200: 2201: if (!$error) { 2202: Apache::lonhelper::getHelper()->changeState($self->{NEXTSTATE}); 2203: return 1; 2204: } else { 2205: $self->{ERROR_MSG} = $error; 2206: return 0; 2207: } 2208: } 2209: 2210: 2211: 2212: __END__ 2213: