[BACK]Return to texxml2latex.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / help

Diff for /doc/help/texxml2latex.pl between versions 1.5 and 1.6

version 1.5, 2003/07/18 20:42:27 version 1.6, 2003/07/18 20:58:33
Line 81  while (my $token = $p->get_token()) Line 81  while (my $token = $p->get_token())
     my $file = $attr->{'file'};      my $file = $attr->{'file'};
     my $section = $attr->{'section'};      my $section = $attr->{'section'};
     if (!defined($section)) { $section = ''; }      if (!defined($section)) { $section = ''; }
     else { $section = "-section $section"; }      else { 
    $section = "-section $section";
    # Escape the pipes so they are considered ORs in the
    # RE for podselect's "section" option, and not 
    # pipes by the shell:
    $section =~ s/\|/\\\|/g;
       }
     $file = '../../loncom/' . $file;      $file = '../../loncom/' . $file;
     my $tempfile = 't' . substr($file, rindex($file, '/') + 1);      my $tempfile = 't' . substr($file, rindex($file, '/') + 1);
     system ("cp $file $tmpdir");      system ("cp $file $tmpdir");
     # The "echo" command is necessary; pod2latex can't      # The "echo" command is necessary; pod2latex can't
     # handle a perl file that *starts* with pod.      # handle a perl file that *starts* with pod.
     system ("echo > $tmpdir/$tempfile; cat $file | podselect $section >> $tmpdir/$tempfile; cd $tmpdir; pod2latex $tempfile");      system ("echo > $tmpdir/$tempfile; cat $file | podselect $section >> $tmpdir/$tempfile; cd $tmpdir; pod2latex -h1level 2 $tempfile");
     my $latexFile = substr($tempfile, 0, rindex($tempfile, '.')) . '.tex';      my $latexFile = substr($tempfile, 0, rindex($tempfile, '.')) . '.tex';
     open LATEX_FILE, $tmpdir . '/' . $latexFile;      open LATEX_FILE, $tmpdir . '/' . $latexFile;
     print <LATEX_FILE>;      print <LATEX_FILE>;
Removed from v.1.5  
changed lines
  Added in v.1.6

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