version 1.36, 2001/08/30 13:57:04
|
version 1.37, 2001/10/17 02:15:59
|
Line 299 sub make_new_child {
|
Line 299 sub make_new_child {
|
'creationdate','keywords','language', |
'creationdate','keywords','language', |
'lastrevisiondate','mime','notes', |
'lastrevisiondate','mime','notes', |
'owner','subject','title') { |
'owner','subject','title') { |
$stuff=~s/\n?\<$f[^\>]*\>.*?<\/$f[^\>]*\>\n?//; |
$stuff=~s/\n?\<$f[^\>]*\>.*?<\/$f[^\>]*\>\n?//s; |
} |
} |
my $m2=$m; my $docroot=$perlvar{'lonDocRoot'}; |
my $m2=$m; my $docroot=$perlvar{'lonDocRoot'}; |
$m2=~s/^$docroot//; |
$m2=~s/^$docroot//; |