[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.142

version 1.140, 2003/05/01 20:37:32 version 1.142, 2003/05/02 14:17:57
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') or
 #             $choice eq 'Standard LaTeX output for whole primary sequence') {               ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') or
 #      #-- minimal sequence to which the current document belongs               ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems')) { 
 #        #-- where is the primary sequence containing file?          #-- produce an output string
 #        my @master_seq = ();   my $flag_latex_header_remove = 'NO';
 # for (my $i=0; $i<$ENV{'form.numberoffiles'};$i++) {   my $flag_page_in_sequence = 'NO';
 #    if ($ENV{'form.whatfile'.$i}=~/\S/) {   my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
 # push @master_seq,$ENV{'form.whatfile'.$i};  
 #    }  # foreach  my $key (@master_seq) {
 # }  #    $r->print(' '.$key.'<br />');
 #        #-- produce an output string  
 # my $flag_latex_header_remove = 'NO';  
 # my $flag_page_in_sequence = 'NO';  
 # for (my $i=0;$i<=$#master_seq;$i++) {  
 #           my ($urlp,$symb) = split /&&/, $master_seq[$i];  
 #    if ($choice eq 'Standard LaTeX output for the primary sequence') {  
 #              $selectionmade = 2;  
 #    } elsif ($choice eq 'Standard LaTeX output for whole primary sequence') {  
 #              $selectionmade = 3;  
 #    }  
 #   my %moreenv;  
 #   $moreenv{'form.grade_target'}='tex';  
 #   $moreenv{'form.textwidth'}=$LaTeXwidth;  
 #   &Apache::lonnet::appenv(%moreenv);  
 #   #&Apache::lonnet::logthis("Trying to get $urlp with symb $symb");  
 #   my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));  
 #   &Apache::lonnet::delenv('form.grade_target','form.textwidth');  
 #   if ($urlp =~ m/\.page/) {  
 #     ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);  
 #     if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}   
 #     $texversion =~ s/\\end{document}\d*/\\end{document}/;  
 #     $flag_page_in_sequence = 'YES';  
 #   }   
 #   if ($flag_latex_header_remove ne 'NO') {  
 #     $texversion = &latex_header_footer_remove($texversion);  
 #   } else {  
 #     $texversion =~ s/\\end{document}//;  
 #   }  
 #   $result .= $texversion;           
 #   $flag_latex_header_remove = 'YES';     
 # }  # }
 # &Apache::lonnet::delenv('form.counter');  # return OK;
 # if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}  
 # $result .= '\end{document}';   for (my $i=0;$i<=$#master_seq;$i++) {
       $master_seq[$i]=~/___\d+___(.*)$/;
       my $urlp='/res/'.$1;
       if ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems') {
    $selectionmade = 2;
       } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'map_problems_pages') {
    $selectionmade = 3;
       } elsif ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'all_problems') {
    $selectionmade = 4;
       }
       my %moreenv;
       $moreenv{'form.grade_target'}='tex';
       $moreenv{'form.textwidth'}=$LaTeXwidth;
       &Apache::lonnet::appenv(%moreenv);
       #&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
       my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$master_seq[$i]));
       &Apache::lonnet::delenv('form.grade_target','form.textwidth');
       if ($urlp=~/\.page$/) {
    ($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
    if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} 
    $texversion =~ s/\\end{document}\d*/\\end{document}/;
    $flag_page_in_sequence = 'YES';
       } 
       if ($flag_latex_header_remove ne 'NO') {
    $texversion = &latex_header_footer_remove($texversion);
       } else {
    $texversion =~ s/\\end{document}//;
       }
       $result .= $texversion;         
       $flag_latex_header_remove = 'YES';   
    }
    &Apache::lonnet::delenv('form.counter');
    if ($flag_page_in_sequence eq 'YES') {$result =~ s/\\usepackage{calc}/\\usepackage{calc}\\usepackage{longtable}/;}
    $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 1664  sub handler { Line 1667  sub handler {
 #    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.142

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