loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

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;