loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.17, 2001/03/26 20:43:04	version 1.18, 2001/03/27 02:09:50
Line 254 sub make_new_child {	Line 254 sub make_new_child {
my @lines=<$fh>;	my @lines=<$fh>;
my $stuff=join('',@lines);	my $stuff=join('',@lines);
if ($stuff=~/$custom/s) {	if ($stuff=~/$custom/s) {
	foreach my $f ('abstract','author','copyright',
	'creationdate','keywords','language',
	'lastrevisiondate','mime','notes',
	'owner','subject','title') {
	$stuff=~s/\<$f[^\>]\>.?<\/$f[^\>]*\>//;
	}
&logthis("found: $stuff");	&logthis("found: $stuff");
	$customresult.='&custom='.escape($stuff);
}	}
$customresult.='&custom='.escape($stuff);
}	}
$result.=$customresult;	$result.=$customresult;
}	}