loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.151 and 1.152

-version 1.151, 2003/05/05 20:14:32
+version 1.152, 2003/05/06 13:50:23
  Line 1511  ENDPART
          my @list_of_files=split /\|\|\|/, $helper->{'VARS'}->{'FILES'};
  	my $flag_latex_header_remove = 'NO';
  	for (my $i=0;$i<=$#list_of_files;$i++) {
- #	    my $urlp = $list_of_files[$i];
+ 	    my $urlp = $list_of_files[$i];
- #	    if ($urlp=~/\//) {
+ 	    if ($urlp=~/\//) {
  		my %moreenv;
  		$moreenv{'form.grade_target'}='tex';
  		$moreenv{'form.textwidth'}=$LaTeXwidth;
  		&Apache::lonnet::appenv(%moreenv);
- #		if ($urlp =~ m|/home/([^/]+)/public_html|) {
+ 		if ($urlp =~ m|/home/([^/]+)/public_html|) {
- #		    $urlp =~ s|/home/([^/]*)/public_html|/~$1|;
+ 		    $urlp =~ s|/home/([^/]*)/public_html|/~$1|;
- #		} else {
+ 		} else {
- #		    $urlp =~ s|^/home/httpd/html||;
+ 		    $urlp =~ s|^/home/httpd/html||;
- #		}
+ 		}
- #		my $texversion=&Apache::lonnet::ssi($urlp);
+ 		my $texversion=&Apache::lonnet::ssi($urlp);
  		&Apache::lonnet::delenv('form.grade_target','form.textwidth');
                  #this chunck is responsible for printing the path to problem
- #		my $newurlp = '';
+ 		my $newurlp = '';
- #		my $HowMany = length($urlp)*2;
+ 		my $HowMany = length($urlp)*2;
- #		if ($HowMany > $LaTeXwidth) {
+ 		if ($HowMany > $LaTeXwidth) {
- #		    my @temporrary = split '/',$urlp;
+ 		    my @temporrary = split '/',$urlp;
- #		    my $HowManyNew = 0;
+ 		    my $HowManyNew = 0;
- #		    for (my $ii=0;$ii<=$#temporrary;$ii++) {
+ 		    for (my $ii=0;$ii<=$#temporrary;$ii++) {
- #			if ($temporrary[$ii] ne '') {
+ 			if ($temporrary[$ii] ne '') {
- #			    $HowManyNew += length($temporrary[$ii])*2;
+ 			    $HowManyNew += length($temporrary[$ii])*2;
- #			    if ($HowManyNew < $LaTeXwidth ) {
+ 			    if ($HowManyNew < $LaTeXwidth ) {
- #				$newurlp .=  '/'.$temporrary[$ii];
+ 				$newurlp .=  '/'.$temporrary[$ii];
- #			    } else {
+ 			    } else {
- #				$HowManyNew = 0;
+ 				$HowManyNew = 0;
- #				$newurlp .=  '|\vskip -1 mm \noindent \verb|';
+ 				$newurlp .=  '|\vskip -1 mm \noindent \verb|';
- #				$ii--;
+ 				$ii--;
- #			    }
+ 			    }
- #			}
+ 			}
- #		    }
+ 		    }
- #		}
+ 		}
- #		$texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 {\\small\\noindent\\verb|$newurlp\|\\vskip 0 mm}/;
+ 		$texversion =~ s/(\\begin{minipage}{\\textwidth})/$1 {\\small\\noindent\\verb|$newurlp\|\\vskip 0 mm}/;
- #		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';
  	}
- #	$result .= '\end{document}';
+ 	$result .= '\end{document}';
      }
  #-------------------------------------------------------- corrections for the different page formats
      $result = &page_format_transformation_new($papersize,$laystyle,$numberofcolumns,$helper->{'VARS'}->{'PRINT_TYPE'},$result,$helper->{VARS}->{'assignment'});
  Line 1741  sub printHelper {
      # "Delete everything after the last slash."
      $subdir =~ s|/[^/]+$||;
-     $subdir =  '/home/httpd/html/res'.$subdir.'/';
+     $subdir =  '/home/httpd/html/res'.$subdir;   #needs additional work for the construction space
      # What can be printed is a very dynamic decision based on
      # lots of factors. So we need to dynamically build this list.

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

Removed from v.1.151
changed lines
	Added in v.1.152