version 1.18, 2001/03/27 02:09:50
|
version 1.19, 2001/03/27 02:22:02
|
Line 258 sub make_new_child {
|
Line 258 sub make_new_child {
|
'creationdate','keywords','language', |
'creationdate','keywords','language', |
'lastrevisiondate','mime','notes', |
'lastrevisiondate','mime','notes', |
'owner','subject','title') { |
'owner','subject','title') { |
$stuff=~s/\<$f[^\>]*\>.*?<\/$f[^\>]*\>//; |
$stuff=~s/\n?\<$f[^\>]*\>.*?<\/$f[^\>]*\>\n?//; |
} |
} |
|
my $m2=$m; my $docroot=$perlvar{'lonDocRoot'}; |
|
$m2=~s/^$docroot//; |
&logthis("found: $stuff"); |
&logthis("found: $stuff"); |
$customresult.='&custom='.escape($stuff); |
$customresult.='&custom='.escape($m2).','.escape($stuff); |
} |
} |
} |
} |
$result.=$customresult; |
$result.=$customresult; |