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

Diff for /loncom/interface/lonprintout.pm between versions 1.87 and 1.88

version 1.87, 2002/11/14 15:39:35 version 1.88, 2002/11/14 20:02:00
Line 94  sub menu_for_output { Line 94  sub menu_for_output {
 ENDMENUOUT1  ENDMENUOUT1
     if ($ENV{'form.postdata'}=~/\/res\//) {      if ($ENV{'form.postdata'}=~/\/res\//) {
  $r->print(<<ENDMENUOUT2);   $r->print(<<ENDMENUOUT2);
 <input type="radio" name="choice" value="Standard LaTeX output for the primary sequence">  All problems from <b>$title_for_sequence</b><br />  <input type="radio" name="choice" value="Standard LaTeX output for the primary sequence">  Problem(s) from <b>$title_for_sequence</b><br />
 <input type="radio" name="choice" value="Standard LaTeX output for whole primary sequence">  All problems plus any pages or html/xml files from <b>$title_for_sequence</b><br />  <input type="radio" name="choice" value="Standard LaTeX output for whole primary sequence">  Problem(s) plus page(s) or html/xml file(s) from <b>$title_for_sequence</b><br />
 ENDMENUOUT2  ENDMENUOUT2
     }      }
     if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($ENV{'form.postdata'}=~/\/res\//)) {       if (($ENV{'request.role'}=~m/^cc\./ or $ENV{'request.role'}=~m/^in\./ or $ENV{'request.role'}=~m/^ta\./) and ($ENV{'form.postdata'}=~/\/res\//)) { 
Line 149  ENDMENUOUT5 Line 149  ENDMENUOUT5
 }  }
   
   
   sub sequence_content_menu {
       my ($key_to,$r) = @_;
       my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'});
       my @sequence = split('___',$symbolic);
       my $primary_sequence = '/res/'.$sequence[0];   
       my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]);
       my @master_seq_view = @master_seq;
       for (my $i=0;$i<=$#master_seq_view;$i++) {
    $master_seq_view[$i]=~/\/([^\/]+)$/;
    $master_seq_view[$i]=$1;
       }
       $r->print(<<ENDMENUOUT1);
   <input type="hidden" name="url" value="$ENV{'form.url'}">
   <input type="hidden" name="choice" value="$ENV{'form.choice'}">
   <input type="hidden" name="layout" value="$ENV{'form.layout'}">
   <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
   <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
   <h1>Mark item(s) which you want to print</h1>
   <script>
       function checkall() {
    for (i=0; i<document.forms.printform.elements.length; i++) {
               if 
             (document.forms.printform.elements[i].name.indexOf('whatfile')==0) {
         document.forms.printform.elements[i].checked=true;
               }
           }
       }
       function uncheckall() {
    for (i=0; i<document.forms.printform.elements.length; i++) {
               if 
             (document.forms.printform.elements[i].name.indexOf('whatfile')==0) {
         document.forms.printform.elements[i].checked=false;
               }
           }
       }
   </script>
   <input type=button onClick="checkall()" value="Check All">&nbsp;
   <input type=button onClick="uncheckall()" value="Uncheck">
   <p>
   ENDMENUOUT1
       my $inc=0; 
       for (my $i=0;$i<=$#master_seq_view;$i++) {
         if ($key_to==1 && $master_seq_view[$i]=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
    $r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '.
                     $master_seq_view[$i]);
           $inc++;
       } elsif ($key_to==0 && $master_seq_view[$i]=~/\.(problem|exam|quiz|assess|survey|form|library|xml|htm|html|page)$/) {
    $r->print('<br /><input type=checkbox name="whatfile'.$inc.'" value="'.$master_seq[$i].'"> '.
                     $master_seq_view[$i]);
           $inc++;
         }
       }
       $r->print(<<ENDMENUOUT2);
   <br />
   <input type="hidden" name="numberoffiles" value="$inc">
   <input type="hidden" name="phase" value="three">
   <input type="submit" value="Submit">
   ENDMENUOUT2
   
   }
   
   
 sub problem_choice_menu {  sub problem_choice_menu {
     my $r = shift;      my $r = shift;
     my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});      my $subdirtoprint = &Apache::lonnet::filelocation("",$ENV{'form.url'});
Line 213  ENDMENUOUT1 Line 275  ENDMENUOUT1
     }      }
     $r->print(<<ENDMENUOUT2);      $r->print(<<ENDMENUOUT2);
 <br />  <br />
   <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
 <input type="hidden" name="numberofproblems" value="$i">  <input type="hidden" name="numberofproblems" value="$i">
 <input type="hidden" name="phase" value="three">  <input type="hidden" name="phase" value="three">
 <input type="submit" value="Submit">  <input type="submit" value="Submit">
Line 312  sub additional_print_menu { Line 375  sub additional_print_menu {
     for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) {      for (my $i=0; $i<$ENV{'form.numberofproblems'};$i++) {
  $what_to_print .= '<input type="hidden" name="whattoprint'.$i.'" value="'.$ENV{'form.whattoprint'.$i}.'">';   $what_to_print .= '<input type="hidden" name="whattoprint'.$i.'" value="'.$ENV{'form.whattoprint'.$i}.'">';
     }      }
       for (my $i=0; $i<$ENV{'form.numberoffiles'};$i++) {
    $what_to_print .= '<input type="hidden" name="whatfile'.$i.'" value="'.$ENV{'form.whatfile'.$i}.'">';
       }
     $r->print(<<ENDMENUOUT);      $r->print(<<ENDMENUOUT);
     $what_to_print      $what_to_print
 <input type="hidden" name="url" value="$ENV{'form.url'}">  <input type="hidden" name="url" value="$ENV{'form.url'}">
Line 320  sub additional_print_menu { Line 386  sub additional_print_menu {
 <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">  <input type="hidden" name="papersize" value="$ENV{'form.papersize'}">
 <input type="hidden" name="numberofstudents" value="$ENV{'form.numberofstudents'}">  <input type="hidden" name="numberofstudents" value="$ENV{'form.numberofstudents'}">
 <input type="hidden" name="numberofproblems" value="$ENV{'form.numberofproblems'}">  <input type="hidden" name="numberofproblems" value="$ENV{'form.numberofproblems'}">
   <input type="hidden" name="numberoffiles" value="$ENV{'form.numberoffiles'}">
 <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">  <input type="hidden" name="numberofcolumns" value="$ENV{'form.numberofcolumns'}">
 <input type="hidden" name="assignment" value="$ENV{'form.assignment'}">  <input type="hidden" name="assignment" value="$ENV{'form.assignment'}">
 Define one column layout parameters: <br />  Define one column layout parameters: <br />
Line 394  ENDPART Line 461  ENDPART
              $choice eq 'Standard LaTeX output for whole primary sequence') {               $choice eq 'Standard LaTeX output for whole primary sequence') {
       #-- minimal sequence to which the current document belongs        #-- minimal sequence to which the current document belongs
         #-- where is the primary sequence containing file?          #-- where is the primary sequence containing file?
  my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'});          my @master_seq = ();
  my @sequence = split('___',$symbolic);   for (my $i=0; $i<$ENV{'form.numberoffiles'};$i++) {
  my $primary_sequence = '/res/'.$sequence[0];         if ($ENV{'form.whatfile'.$i}=~/\S/) {
  my @master_seq = &coming_from_hash($primary_sequence,$sequence[0]);   push @master_seq,$ENV{'form.whatfile'.$i};
       }
    }
         #-- produce an output string          #-- produce an output string
  my $flag_latex_header_remove = 'NO';   my $flag_latex_header_remove = 'NO';
  my $flag_page_in_sequence = 'NO';   my $flag_page_in_sequence = 'NO';
  for (my $i=0;$i<=$#master_seq;$i++) {   for (my $i=0;$i<=$#master_seq;$i++) {
             my ($urlp,$symb) = split /&&/, $master_seq[$i];             my ($urlp,$symb) = split /&&/, $master_seq[$i];
     if ($choice eq 'Standard LaTeX output for the primary sequence') {      if ($choice eq 'Standard LaTeX output for the primary sequence') {
             #prints only problems                $selectionmade = 2;
  $selectionmade = 2;      } elsif ($choice eq 'Standard LaTeX output for whole primary sequence') {
   if ($urlp =~ m/\.(problem|exam|quiz|assess|survey|form|library)/) {                $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 ($flag_latex_header_remove ne 'NO') {  
  $texversion = &latex_header_footer_remove($texversion);  
     } else {  
  $texversion =~ s/\\end{document}//;  
     }  
     $result .= $texversion;          
     $flag_latex_header_remove = 'YES';  
  }  
     } elsif ($urlp =~ /\S+/) {  
               #prints problems, pages and any html/xml files  
  $selectionmade = 3;  
  my %moreenv;  
  $moreenv{'form.grade_target'}='tex';  
  &Apache::lonnet::appenv(%moreenv);  
  my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$symb));  
  &Apache::lonnet::delenv('form.grade_target');  
  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';     
     }      }
      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');   &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}/;}
Line 1218  sub handler { Line 1271  sub handler {
     }      }
 #-- additional menu for class printing  #-- additional menu for class printing
      if ($ENV{'form.phase'} eq 'two') {       if ($ENV{'form.phase'} eq 'two') {
  if($ENV{'form.choice'} eq 'All class print') {   if($ENV{'form.choice'} eq 'Standard LaTeX output for whole primary sequence') {
        &sequence_content_menu(0,$r);
    } elsif($ENV{'form.choice'} eq 'Standard LaTeX output for the primary sequence') {
        &sequence_content_menu(1,$r);
    } elsif($ENV{'form.choice'} eq 'All class print') {
      &additional_class_menu($r);       &additional_class_menu($r);
  } elsif($ENV{'form.choice'} eq 'Subdirectory print') {   } elsif($ENV{'form.choice'} eq 'Subdirectory print') {
      &problem_choice_menu($r);       &problem_choice_menu($r);
Removed from v.1.87  
changed lines
  Added in v.1.88

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