|
version 1.29, 2001/12/07 04:45:16
|
version 1.30, 2001/12/12 23:20:47
|
|
Line 1285 sub format_fileglob {
|
Line 1285 sub format_fileglob {
|
| # "\nEND FILEGLOB</td></tr>"; |
# "\nEND FILEGLOB</td></tr>"; |
| } |
} |
| elsif ($mode eq 'install') { |
elsif ($mode eq 'install') { |
| |
my $eglob=$glob; |
| |
if ($glob eq '*') { |
| |
$eglob='[^C][^V][^S]'.$glob; |
| |
} |
| return "\t".'install '. |
return "\t".'install '. |
| $categoryhash{$categoryname}.' '. |
$categoryhash{$categoryname}.' '. |
| $sourceroot.'/'.$sourcedir.'[^C][^V][^S]'.$glob.' '. |
$sourceroot.'/'.$sourcedir.$eglob.' '. |
| $targetroot.'/'.$targetdir.'.'."\n"; |
$targetroot.'/'.$targetdir.'.'."\n"; |
| } |
} |
| else { |
else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lpml_parse.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build