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

Diff for /loncom/interface/lonprintout.pm between versions 1.140 and 1.141

version 1.140, 2003/05/01 20:37:32 version 1.141, 2003/05/02 13:39:04
Line 1417  ENDPART Line 1417  ENDPART
       }        }
   
   
 #    } elsif ($choice eq 'Standard LaTeX output for the primary sequence' or       } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') { 
 #             $choice eq 'Standard LaTeX output for whole primary sequence') {          #-- produce an output string
 #      #-- minimal sequence to which the current document belongs   my $flag_latex_header_remove = 'NO';
 #        #-- where is the primary sequence containing file?   my $flag_page_in_sequence = 'NO';
 #        my @master_seq = ();   my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
 # for (my $i=0; $i<$ENV{'form.numberoffiles'};$i++) {  
 #    if ($ENV{'form.whatfile'.$i}=~/\S/) {  # foreach  my $key (@master_seq) {
 # push @master_seq,$ENV{'form.whatfile'.$i};  #    $r->print(' '.$key.'<br />');
 #    }  # }
 # }  # return OK;
 #        #-- produce an output string  
 # my $flag_latex_header_remove = 'NO';   for (my $i=0;$i<=$#master_seq;$i++) {
 # my $flag_page_in_sequence = 'NO';      $master_seq[$i]=~/___\d+___(.*)$/;
 # for (my $i=0;$i<=$#master_seq;$i++) {      my $urlp='/res/'.$1;
 #           my ($urlp,$symb) = split /&&/, $master_seq[$i];      if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') {
 #    if ($choice eq 'Standard LaTeX output for the primary sequence') {                $selectionmade = 2;
 #              $selectionmade = 2;  
 #    } elsif ($choice eq 'Standard LaTeX output for whole primary sequence') {  #    } elsif ($choice eq 'Standard LaTeX output for whole primary sequence') {
 #              $selectionmade = 3;  #              $selectionmade = 3;
 #    }      }
 #   my %moreenv;      my %moreenv;
 #   $moreenv{'form.grade_target'}='tex';      $moreenv{'form.grade_target'}='tex';
 #   $moreenv{'form.textwidth'}=$LaTeXwidth;      $moreenv{'form.textwidth'}=$LaTeXwidth;
 #   &Apache::lonnet::appenv(%moreenv);      &Apache::lonnet::appenv(%moreenv);
 #   #&Apache::lonnet::logthis("Trying to get $urlp with symb $symb");      #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
 #   my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));      my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$master_seq[$i]));
 #   &Apache::lonnet::delenv('form.grade_target','form.textwidth');      &Apache::lonnet::delenv('form.grade_target','form.textwidth');
 #   if ($urlp =~ m/\.page/) {      if ($urlp=~/\.page$/) {
 #     ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);   ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
 #     if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}    if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} 
 #     $texversion =~ s/\\end{document}\d*/\\end{document}/;   $texversion =~ s/\\end{document}\d*/\\end{document}/;
 #     $flag_page_in_sequence = 'YES';   $flag_page_in_sequence = 'YES';
 #   }       } 
 #   if ($flag_latex_header_remove ne 'NO') {      if ($flag_latex_header_remove ne 'NO') {
 #     $texversion = &latex_header_footer_remove($texversion);   $texversion = &latex_header_footer_remove($texversion);
 #   } else {      } else {
 #     $texversion =~ s/\\end{document}//;   $texversion =~ s/\\end{document}//;
 #   }      }
 #   $result .= $texversion;               $result .= $texversion;         
 #   $flag_latex_header_remove = 'YES';         $flag_latex_header_remove = 'YES';   
 # }   }
 # &Apache::lonnet::delenv('form.counter');   &Apache::lonnet::delenv('form.counter');
 # if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}   if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}
 # $result .= '\end{document}';   $result .= '\end{document}';
 #    }  elsif ($choice eq 'Standard LaTeX output for the top level sequence') {  #    }  elsif ($choice eq 'Standard LaTeX output for the top level sequence') {
 #        # where is the main sequence of the course?  #        # where is the main sequence of the course?
 # $selectionmade = 4;  # $selectionmade = 4;
Line 1660  sub handler { Line 1659  sub handler {
         $helper = $result;          $helper = $result;
           
   
 #    my $key;       my $key; 
 #    foreach $key (keys %{$helper->{'VARS'}}) {  #    foreach $key (keys %{$helper->{'VARS'}}) {
 # $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<br />');  # $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<br />');
 #    }  #    }
   # return OK;
   
   
   
  &output_data_new($r,$helper);   &output_data_new($r,$helper);
   
   
Removed from v.1.140  
changed lines
  Added in v.1.141

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