Diff for /loncom/build/lpml_parse.pl between versions 1.5 and 1.8

version 1.5, 2001/09/08 17:45:09 version 1.8, 2001/09/08 22:51:26
Line 579  sub format_directory { Line 579  sub format_directory {
  return $directory="\nDIRECTORY $targetdir $categoryname $description";   return $directory="\nDIRECTORY $targetdir $categoryname $description";
     }      }
     elsif ($mode eq 'install') {      elsif ($mode eq 'install') {
  return "\t".'install '.$categoryhash{$categoryname}.' -d /'.   return "\t".'install '.$categoryhash{$categoryname}.' -d '.
     $targetroot.$targetdir."\n";      $targetroot.'/'.$targetdir."\n";
     }      }
     else {      else {
  return '';   return '';
Line 668  sub format_file { Line 668  sub format_file {
  "\nEND FILE");   "\nEND FILE");
  }   }
  elsif ($mode eq 'install' && $categoryname ne 'conf') {   elsif ($mode eq 'install' && $categoryname ne 'conf') {
     return "\t".'@test -e '.$sourceroot.$source.      return "\t".'@test -e '.$sourceroot.'/'.$source.
  ' && install '.   ' && install '.
  $categoryhash{$categoryname}.' '.   $categoryhash{$categoryname}.' '.
  $sourceroot.$source.' '.   $sourceroot.'/'.$source.' '.
  $targetroot.$target.   $targetroot.'/'.$target.
  ' || echo "**** LON-CAPA WARNING '.   ' || echo "**** LON-CAPA WARNING '.
  '**** CVS source file does not exist: "'.$sourceroot.$source.   '**** CVS source file does not exist: '.$sourceroot.'/'.
         '"'."\n";   $source.'"'."\n";
  }   }
  else {   else {
     return '';      return '';

Removed from v.1.5  
changed lines
  Added in v.1.8


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