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

Diff for /loncom/interface/lonprintout.pm between versions 1.45 and 1.46

version 1.45, 2002/08/02 18:08:12 version 1.46, 2002/08/02 18:27:04
Line 245  ENDPART Line 245  ENDPART
  } else {   } else {
     $subdirtoprint =~ s/.*(\/res\/)/$1/;      $subdirtoprint =~ s/.*(\/res\/)/$1/;
  }   }
    my @content_directory = ();
  if ($ENV{'request.role'}=~m/^au\./) {   if ($ENV{'request.role'}=~m/^au\./) {
     my @content_directory = &Apache::lonnet::dirlist($subdirtoprint,$ENV{'user.domain'}, $ENV{'user.name'},'');      @content_directory = &Apache::lonnet::dirlist($subdirtoprint,$ENV{'user.domain'}, $ENV{'user.name'},'');
     for (my $iy=0;$iy<=$#content_directory;$iy++) {  
  my @tempo_array = split(/&/,$content_directory[$iy]);  
  if ($tempo_array[0] =~ m/^[^\.]+\.problem$/) {  
     push(@list_of_files,$tempo_array[0]);  
  }  
     }  
  } else {   } else {
     my @content_directory = &Apache::lonnet::dirlist($subdirtoprint);      @content_directory = &Apache::lonnet::dirlist($subdirtoprint);
     for (my $iy=0;$iy<=$#content_directory;$iy++) {   }
  my @tempo_array = split(/&/,$content_directory[$iy]);   for (my $iy=0;$iy<=$#content_directory;$iy++) {
  $content_directory[$iy] = $tempo_array[0];      my @tempo_array = split(/&/,$content_directory[$iy]);
  if ($content_directory[$iy] =~ m/^[^\.]+\.problem$/) {      if ($tempo_array[0] =~ m/^[^\.]+\.(problem|exam|quiz|assess|survey|form|library)$/) {
     push @list_of_files,$content_directory[$iy];   push(@list_of_files,$tempo_array[0]);
  }  
     }      }
  }   }
  $subdirtoprint =~ s/\/$//;   $subdirtoprint =~ s/\/$//;
Line 269  ENDPART Line 263  ENDPART
     my %moreenv;      my %moreenv;
     $moreenv{'form.grade_target'}='tex';      $moreenv{'form.grade_target'}='tex';
     &Apache::lonnet::appenv(%moreenv);      &Apache::lonnet::appenv(%moreenv);
     if ($ENV{'request.role'}=~m/^au\./) {      if ($ENV{'request.role'}=~m/^au\./) { $urlp =~ s/\/home\/([^\/]*)\/public_html/\/~$1/; }
  $urlp =~ s/\/home\/([^\/]*)\/public_html/\/~$1/;  
     }  
     my $texversion=&Apache::lonnet::ssi($urlp);      my $texversion=&Apache::lonnet::ssi($urlp);
     &Apache::lonnet::delenv('form.grade_target');      &Apache::lonnet::delenv('form.grade_target');
     $texversion =~ s/(\\begin{document})/$1 {\\tiny\\begin{verbatim}$urlp\\end{verbatim}}/;      $texversion =~ s/(\\begin{document})/$1 {\\tiny\\begin{verbatim}$urlp\\end{verbatim}}/;
Removed from v.1.45  
changed lines
  Added in v.1.46

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