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

Diff for /loncom/interface/lonprintout.pm between versions 1.149 and 1.150

version 1.149, 2003/05/05 18:01:21 version 1.150, 2003/05/05 18:48:15
Line 1430  ENDPART Line 1430  ENDPART
  my $flag_latex_header_remove = 'NO';   my $flag_latex_header_remove = 'NO';
  my $flag_page_in_sequence = 'NO';   my $flag_page_in_sequence = 'NO';
  my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};   my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
   
 # foreach  my $key (@master_seq) {  
 #    $r->print(' '.$key.'<br />');  
 # }  
 # return OK;  
   
  for (my $i=0;$i<=$#master_seq;$i++) {   for (my $i=0;$i<=$#master_seq;$i++) {
     $master_seq[$i]=~/___\d+___(.*)$/;      $master_seq[$i]=~/___\d+___(.*)$/;
     my $urlp='/res/'.$1;      my $urlp='/res/'.$1;
Line 1470  ENDPART Line 1464  ENDPART
  &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 ($helper->{'VARS'}->{'PRINT_TYPE'} eq 'problems_for_students') { 
 #        # where is the main sequence of the course?       #-- prints assignments for whole class or for selected students  
 # $selectionmade = 4;   $selectionmade=5;
 # my $main_seq=&Apache::lonnet::clutter($ENV{'request.course.uri'});   my @students=split /\|\|\|/, $helper->{'VARS'}->{'STUDENTS'};
 # my @file_seq = &coming_from_hash($main_seq);   my @master_seq=split /\|\|\|/, $helper->{'VARS'}->{'RESOURCES'};
 # for (my $i=0;$i<=$#file_seq;$i++) {   #loop over students
 #    my ($path,$title,$symb) = split /&&/,$file_seq[$i];   my $flag_latex_header_remove = 'NO'; 
 #    $file_seq[$i] = $path.'&&'.$symb;   my %moreenv;
 # }   $moreenv{'form.textwidth'}=$LaTeXwidth;
 # my $flag_latex_header_remove = 'NO';   &Apache::lonnet::appenv(%moreenv);
 #        #-- produce an output string   my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1);
 # for (my $i=0;$i<=$#file_seq;$i++) {   foreach my $person (@students) {
 #   if (not $file_seq[$i]=~/^&&/) {      my $current_output = ''; 
 #     my ($urlp,$symb) = split /&&/, $file_seq[$i];  
 #     $urlp=~s/\/home\/httpd\/html//;      
 #     if ($urlp=~m/\.(problem|exam|quiz|assess|survey|form|library)/) {  
 # my %moreenv;  
 # $moreenv{'form.grade_target'}='tex';  
 # $moreenv{'form.textwidth'}=$LaTeXwidth;  
 # &Apache::lonnet::appenv(%moreenv);  
 # 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';  
 #     }  
 #   }  
 # }      
 # $result .= '\end{document}';  
 #    } elsif ($choice eq 'All class print') {   
 #    #-- prints assignments for whole class or for selected students    
 # $selectionmade = 5;  
 #        my @students = ();  
 # for (my $i=0; $i<$ENV{'form.numberofstudents'};$i++) {  
 #    if ($ENV{'form.whomtoprint'.$i}=~/:/) {  
 # push @students,$ENV{'form.whomtoprint'.$i};  
 #    }  
 # }  
 # #where is the primary sequence containing current resource (the same for all students)?  
 # my $symbolic = &Apache::lonnet::symbread($ENV{'form.url'});  
 # my @sequence = split('___',$symbolic);  
 # my $primary_sequence;  
 #  
 # $primary_sequence=&Apache::lonnet::clutter($sequence[0]);  
 # my @master_seq = &coming_from_hash($primary_sequence);   
 # for (my $i=0;$i<=$#master_seq;$i++) {  
 #    my ($path,$title,$symb) = split /&&/,$master_seq[$i];  
 #    $master_seq[$i] = $path.'&&'.$symb;  
 # }  
 #        #loop over students  
 # my $flag_latex_header_remove = 'NO';   
 # my %moreenv;  
 # $moreenv{'form.textwidth'}=$LaTeXwidth;  
 # &Apache::lonnet::appenv(%moreenv);  
 # my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r,'Print Status','Class Print Status',$#students+1);  
 # foreach my $person (@students) {  
 #    my $current_output = '';   
 #    my ($usersection,$username,$userdomain) = split /:/,$person;  #    my ($usersection,$username,$userdomain) = split /:/,$person;
 #    my $fullname = &get_name($username,$userdomain);      my ($username,$userdomain) = split /:/,$person;
 #            #goes through all resources, checks if they are available for current student, and produces output         my $fullname = &get_name($username,$userdomain);
 #    foreach my $curresline (@master_seq)  {              #goes through all resources, checks if they are available for current student, and produces output   
       foreach my $curresline (@master_seq)  {
 # my ($curres,$symb) = split /&&/, $curresline;  # my ($curres,$symb) = split /&&/, $curresline;
 #                if ($curres=~ m/\.(problem|exam|quiz|assess|survey|form|library)/) {  #                if ($curres=~ m/\.(problem|exam|quiz|assess|survey|form|library)/) {
 #    my ($map,$id,$res_url) = split(/___/,$symb);   if ($curresline=~ m/\.(problem|exam|quiz|assess|survey|form|library)$/) {
 #    if (&Apache::lonnet::allowed('bre',$res_url)) {  #    my ($map,$id,$res_url) = split(/___/,$symb);$curresres
 # my $rendered = &Apache::loncommon::get_student_view($symb,$username,$userdomain,      my ($map,$id,$res_url) = split(/___/,$curresline);
 #                                                                        $ENV{'request.course.id'},'tex');      if (&Apache::lonnet::allowed('bre',$res_url)) {
 # if ($flag_latex_header_remove eq 'YES') {   my $rendered = &Apache::loncommon::get_student_view($curresline,$username,$userdomain,
 #    $rendered = &latex_header_footer_remove($rendered);                                                                          $ENV{'request.course.id'},'tex');
 # } else {   if ($flag_latex_header_remove eq 'YES') {
 #    $rendered =~ s/\\end{document}//;      $rendered = &latex_header_footer_remove($rendered);
 # }   } else {
 # $current_output .= $rendered;      $rendered =~ s/\\end{document}//;
 #    }   }
 #    $flag_latex_header_remove = 'YES';   $current_output .= $rendered;
 # }      }
 #    }      $flag_latex_header_remove = 'YES';
 #    my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};   }
 #    if ($current_output=~/\\documentclass/) {      }
 # $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}\\vskip 3 mm /;      my $courseidinfo = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
 #    } else {      if ($current_output=~/\\documentclass/) {
 # my $blanspages = '';   $current_output =~ s/\\begin{document}/\\setlength{\\topmargin}{1cm}\\usepackage{fancyhdr}\\pagestyle{fancy}\\rhead{}\\chead{} \\begin{document}\\noindent\\lhead{\\textit{\\textbf{$fullname}} - $courseidinfo \\hfill \\thepage \\\\ \\textit{$assignment}}\\vskip 3 mm /;
 # for (my $j=0;$j<$ENV{'form.addedpages'};$j++) {$blanspages.='\clearpage\strut\clearpage';}      } else {
 # $current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage \\vskip 3mm'.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}\hskip 1.4in } \vskip 5 mm '.$current_output;   my $blanspages = '';
 #    }   for (my $j=0;$j<$helper->{'VARS'}->{'EMPTY_PAGES'};$j++) {$blanspages.='\clearpage\strut\clearpage';}
 #    $result .= $current_output;   $current_output = '\strut\\newline\\noindent\\makebox[\\textwidth/$number_of_columns][b]{\\hrulefill}\\newline\\noindent{\\tiny Printed from LON-CAPA\\copyright MSU{\\hfill} Licensed under GNU General Public License }\\newpage \\vskip 3mm'.$blanspages.'\setcounter{page}{1}\noindent\parbox{\minipagewidth}{\noindent\\lhead{\\textit{\\textbf{'.$fullname.'}} - '.$courseidinfo.' \\hfill \\thepage \\\\ \\textit{'.$assignment.'}}\hskip 1.4in } \vskip 5 mm '.$current_output;
 #    &Apache::lonnet::delenv('form.counter');          }
 #    &Apache::lonxml::init_counter();       $result .= $current_output;
 #    &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,      &Apache::lonnet::delenv('form.counter');    
 #    'last student '.$fullname);      &Apache::lonxml::init_counter(); 
 # }      &Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
 # &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);      'last student '.$fullname);
 # $result .= '\end{document}';   }
 # &Apache::lonnet::delenv('form.textwidth');   &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
    $result .= '\end{document}';
    &Apache::lonnet::delenv('form.textwidth');
 #    } elsif ($choice eq 'Subdirectory print') {        #    } elsif ($choice eq 'Subdirectory print') {      
 #    #prints selected problems from the subdirectory   #    #prints selected problems from the subdirectory 
 # $selectionmade = 6;  # $selectionmade = 6;
Line 1685  sub handler { Line 1634  sub handler {
   
     return OK;      return OK;
     }      }
     my $loaderror=&Apache::lonnet::overloaderror($r);  #    my $loaderror=&Apache::lonnet::overloaderror($r);
     if ($loaderror) { return $loaderror; }  #    if ($loaderror) { return $loaderror; }
     $loaderror=  #    $loaderror=
        &Apache::lonnet::overloaderror($r,  #       &Apache::lonnet::overloaderror($r,
          $ENV{'course.'.$ENV{'request.course.id'}.'.home'});  #         $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
     if ($loaderror) { return $loaderror; }  #    if ($loaderror) { return $loaderror; }
   
     $r->content_type('text/html');      $r->content_type('text/html');
     $r->send_http_header;      $r->send_http_header;
Removed from v.1.149  
changed lines
  Added in v.1.150

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