loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.316, 2004/07/15 16:00:16
+version 1.316.2.1, 2004/08/19 20:03:47
  Line 629  sub print_latex_header {
  }
  sub path_to_problem {
-     my ($urlp,$LaTeXwidth)=@_;
+     my ($urlp,$colwidth)=@_;
      my $newurlp = '';
-     $LaTeXwidth=~s/\s*mm\s*$//;
+     $colwidth=~s/\s*mm\s*$//;
-     my $HowMany = length($urlp)*2;
+ #characters average about 2 mm in width
-     if ($HowMany > $LaTeXwidth) {
+     if (length($urlp)*2 > $LaTeXwidth) {
- 	my @temporrary = split '/',$urlp;
+ 	my @elements = split '/',$urlp;
- 	my $HowManyNew = 0;
+ 	my $curlength=0;
- 	for (my $ii=0;$ii<=$#temporrary;$ii++) {
+ 	foreach my $element (@elements) {
- 	    if ($temporrary[$ii] ne '') {
+ 	    if ($curlength+(length($element)*2) > $colwidth) {
- 		$HowManyNew += length($temporrary[$ii])*2;
+ 		$newurlp .=  '|\vskip -1 mm \noindent \verb|';
- 		if ($HowManyNew < $LaTeXwidth ) {
+ 		$curlength=0;
- 		    $newurlp .=  '/'.$temporrary[$ii];
+ 	    } else {
- 		} else {
+ 		$curlength+=length($element)*2;
- 		    $HowManyNew = 0;
- 		    $newurlp .=  '|\vskip -1 mm \noindent \verb|';
- 		    $ii--;
- 		}
  	    }
+ 	    $newurlp.='/'.$element;
  	}
      } else {
  	$newurlp=$urlp;