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

Diff for /loncom/interface/lonprintout.pm between versions 1.126 and 1.128

version 1.126, 2003/03/03 20:58:18 version 1.128, 2003/03/06 18:16:04
Line 605  ENDPART Line 605  ENDPART
  my %moreenv;   my %moreenv;
  $moreenv{'form.textwidth'}=$LaTeXwidth;   $moreenv{'form.textwidth'}=$LaTeXwidth;
  &Apache::lonnet::appenv(%moreenv);   &Apache::lonnet::appenv(%moreenv);
    my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin2($r,'Print Status','Class Print Status',$#students+1);
  foreach my $person (@students) {   foreach my $person (@students) {
     my $current_output = '';       my $current_output = ''; 
     my ($usersection,$username,$userdomain) = split /:/,$person;      my ($usersection,$username,$userdomain) = split /:/,$person;
Line 638  ENDPART Line 639  ENDPART
     $result .= $current_output;      $result .= $current_output;
     &Apache::lonnet::delenv('form.counter');          &Apache::lonnet::delenv('form.counter');    
     &Apache::lonxml::init_counter();       &Apache::lonxml::init_counter(); 
       &Apache::lonhtmlcommon::Increment_PrgWin2($r,\%prog_state,
       'last student '.$fullname);
  }   }
    &Apache::lonhtmlcommon::Close_PrgWin2($r,\%prog_state);
  $result .= '\end{document}';   $result .= '\end{document}';
  &Apache::lonnet::delenv('form.textwidth');   &Apache::lonnet::delenv('form.textwidth');
     } elsif ($choice eq 'Subdirectory print') {            } elsif ($choice eq 'Subdirectory print') {      
Line 1308  sub printWizard { Line 1312  sub printWizard {
     $r->rflush();      $r->rflush();
   
     my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu;      my ($resourceTitle,$sequenceTitle,$mapTitle) = &details_for_menu;
       if (!$resourceTitle) { # if the resource doesn't have a title, use the filename
           my $url = $ENV{'form.postdata'};
           $resourceTitle = substr($url, rindex($url, '/') + 1);
       }
   
     my $wizard = Apache::lonwizard->new("Printing Wizard", $ENV{QUERY_STRING});      my $wizard = Apache::lonwizard->new("Printing Wizard", $ENV{QUERY_STRING});
     # PRINT_TYPE: What the user wants to print (current docs,      # PRINT_TYPE: What the user wants to print (current docs,
Removed from v.1.126  
changed lines
  Added in v.1.128

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