[BACK]Return to lonprintout.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.485 and 1.491

version 1.485, 2006/10/10 02:18:50 version 1.491, 2006/11/02 21:06:06
Line 23 Line 23
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA  # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 #  #
 # /home/httpd/html/adm/gpl.txt  # /home/httpd/html/adm/gpl.txt
 #  
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 #  #
Line 39  use Apache::grades; Line 38  use Apache::grades;
 use Apache::edit;  use Apache::edit;
 use Apache::File();  use Apache::File();
 use Apache::lonnavmaps;  use Apache::lonnavmaps;
 use Apache::lonratedt;  use LONCAPA::map();
 use POSIX qw(strftime);  use POSIX qw(strftime);
 use Apache::lonlocal;  use Apache::lonlocal;
 use Carp;  use Carp;
 use lib '/home/httpd/lib/perl/';  
 use LONCAPA;  use LONCAPA;
   
 my %perm;  my %perm;
 my %parmhash;  my %parmhash;
 my $resources_printed;  my $resources_printed;
   
   #
   #   printf_style_subst  item format_string repl
   #  
   # Does printf style substitution for a format string that
   # can have %[n]item in it.. wherever, %[n]item occurs,
   # rep is substituted in format_string.  Note that
   # [n] is an optional integer length.  If provided,
   # repl is truncated to at most [n] characters prior to 
   # substitution.
   #
   sub printf_style_subst {
       my ($item, $format_string, $repl) = @_;
       my $result = "";
       while ($format_string =~ /(%)(\d*)\Q$item\E/g ) {
    my $fmt = $1;
    my $size = $2;
    my $subst = $repl;
    if ($size ne "") {
       $subst = substr($subst, 0, $size);
       
       #  Here's a nice edge case.. supose the end of the
       #  substring is a \.  In that case may have  just
       #  chopped off a TeX escape... in that case, we append
       #   " " for the trailing character, and let the field 
       #  spill over a bit (sigh).
       #  We don't just chop off the last character in order to deal
       #  with one last pathology, and that would be if substr had
       #  trimmed us to e.g. \\\  
   
   
       if ($subst =~ /\\$/) {
    $subst .= " ";
       }
    }
    my $item_pos = pos($format_string);
    $result .= substr($format_string, 0, $item_pos - length($size) -2) . $subst;
           $format_string = substr($format_string, pos($format_string));
       }
   
       # Put the residual format string into the result:
   
       $result .= $format_string;
   
       return $result;
   }
   
   
 # Format a header according to a format.    # Format a header according to a format.  
 #   # 
Line 60  my $resources_printed; Line 104  my $resources_printed;
 #     %n    - Student name.  #     %n    - Student name.
 #  #
 sub format_page_header {  sub format_page_header {
     my ($format, $assignment, $course, $student) = @_;      my ($width, $format, $assignment, $course, $student) = @_;
           
       $width = &recalcto_mm($width); # Get width in mm.
     #  Default format?      #  Default format?
   
     if ($format eq '') {      if ($format eq '') {
    # For the default format, we may need to truncate
    # elements..  To do this we need to get the page width.
    # we assume that each character is about 2mm in width.
    # (correct for the header text size??).  We ignore
    # any formatting (e.g. boldfacing in this).
    # 
    # - Allow the student/course to be one line.
    #   but only truncate the course.
    # - Allow the assignment to be 2 lines (wrapped).
    #
    my $chars_per_line = $width/2; # Character/textline.
   
   
    my $firstline = "$student $course";
    if (length($firstline) > $chars_per_line) {
       my $lastchar = $chars_per_line - length($student) - 1;
       if ($lastchar > 0) {
    $course = substr($course, 0, $lastchar);
       } else { # Nothing left of course:
    $course = '';
       }
    }
    if (length($assignment) > $chars_per_line) {
       $assignment = substr($assignment, 0, $chars_per_line);
    }
   
  $format =  "\\textbf{$student} $course \\hfill \\thepage \\\\ \\textit{$assignment}";   $format =  "\\textbf{$student} $course \\hfill \\thepage \\\\ \\textit{$assignment}";
   
     } else {      } else {
  $format =~ s/%a/$assignment/g;   # An open question is how to handle long user formatted page headers...
  $format =~ s/%c/$course/g;   # A possible future is to support e.g. %na so that the user can control
  $format =~ s/%n/$student/g;   # the truncation of the elements that can appear in the header.
    #
    $format =  &printf_style_subst("a", $format, $assignment);
    $format =  &printf_style_subst("c", $format, $course);
    $format =  &printf_style_subst("n", $format, $student);
   
    # If the user put %'s in the format string, they  must be escaped
    # to \% else LaTeX will think they are comments and terminate
    # the line.. which is bad!!!
   
   
     }      }
           
   
Line 94  sub num_to_letters { Line 175  sub num_to_letters {
 sub letters_to_num {  sub letters_to_num {
     my ($letters) = @_;      my ($letters) = @_;
     my @letters = split('', uc($letters));      my @letters = split('', uc($letters));
     my %substitution;     my %substitution;
     my $digit = 0;      my $digit = 0;
     foreach my $letter ('A'..'J') {      foreach my $letter ('A'..'J') {
  $substitution{$letter} = $digit;   $substitution{$letter} = $digit;
Line 761  sub page_format_transformation { Line 842  sub page_format_transformation {
     my $courseidinfo = &get_course();      my $courseidinfo = &get_course();
     if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }      if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
     my $header_text  = $parmhash{'print_header_format'};      my $header_text  = $parmhash{'print_header_format'};
     $header_text     = &format_page_header($header_text, $assignment,      $header_text     = &format_page_header($textwidth, $header_text, $assignment,
    $courseidinfo, $name);     $courseidinfo, $name);
     my $topmargintoinsert = '';      my $topmargintoinsert = '';
     if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';}      if ($topmargin ne '0') {$topmargintoinsert='\setlength{\topmargin}{'.$topmargin.'}';}
Line 1084  sub print_construction_sequence { Line 1165  sub print_construction_sequence {
     if ($helper->{'VARS'}->{'curseed'}) {      if ($helper->{'VARS'}->{'curseed'}) {
  $rndseed=$helper->{'VARS'}->{'curseed'};   $rndseed=$helper->{'VARS'}->{'curseed'};
     }      }
     my $errtext=&Apache::lonratedt::mapread($currentURL);      my $errtext=&LONCAPA::map::mapread($currentURL);
     #       # 
     #  These make this all support recursing for subsequences.      #  These make this all support recursing for subsequences.
     #      #
     my @order    = @Apache::lonratedt::order;      my @order    = @LONCAPA::map::order;
     my @resources = @Apache::lonratedt::resources;       my @resources = @LONCAPA::map::resources; 
     for (my $member=0;$member<=$#order;$member++) {      for (my $member=0;$member<=$#order;$member++) {
  $resources[$order[$member]]=~/^([^:]*):([^:]*):/;   $resources[$order[$member]]=~/^([^:]*):([^:]*):/;
  my $urlp=$2;   my $urlp=$2;
Line 1467  ENDPART Line 1548  ENDPART
     if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }      if (defined($courseidinfo)) { $courseidinfo=' - '.$courseidinfo }
     $prevassignment=$assignment;      $prevassignment=$assignment;
     my $header_text = $parmhash{'print_header_format'};      my $header_text = $parmhash{'print_header_format'};
     $header_text    = &format_page_header($header_text,      $header_text    = &format_page_header($textwidth, $header_text,
   $assignment,     $assignment, 
   $courseidinfo,     $courseidinfo, 
   $name);    $name);
Line 2005  sub print_resources { Line 2086  sub print_resources {
     if ($usersection ne '') {$courseidinfo.=' - Sec. '.$usersection}      if ($usersection ne '') {$courseidinfo.=' - Sec. '.$usersection}
     my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');      my $currentassignment=&Apache::lonxml::latex_special_symbols($helper->{VARS}->{'assignment'},'header');
     my $header_line =      my $header_line =
  &format_page_header($parmhash{'print_header_format'},   &format_page_header($LaTeXwidth, $parmhash{'print_header_format'},
     $currentassignment, $courseidinfo, $fullname);      $currentassignment, $courseidinfo, $fullname);
     my $header_start = ($columns_in_format == 1) ? '\lhead'      my $header_start = ($columns_in_format == 1) ? '\lhead'
                                          : '\fancyhead[LO]';                                           : '\fancyhead[LO]';
Removed from v.1.485  
changed lines
  Added in v.1.491

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