loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.26, 2001/03/27 19:57:53	version 1.28, 2001/04/02 14:42:26
Line 251 sub make_new_child {	Line 251 sub make_new_child {
}	}
}	}
# do custom metadata searching here and build into result	# do custom metadata searching here and build into result
if ($custom) {	if ($custom or $customshow) {
&logthis("am going to do custom query for $custom");	&logthis("am going to do custom query for $custom");
if ($query) {	if ($query) {
@metalist=map {$perlvar{'lonDocRoot'}.$_.'.meta'} @files;	@metalist=map {$perlvar{'lonDocRoot'}.$_.'.meta'} @files;
Line 284 sub make_new_child {	Line 284 sub make_new_child {
$m2=~s/\.meta$//;	$m2=~s/\.meta$//;
unless ($query) {	unless ($query) {
my $q2="select * from metadata where url like '$m2'";	my $q2="select * from metadata where url like '$m2'";
my $sth = $dbh->prepare($query);	my $sth = $dbh->prepare($q2);
$sth->execute();	$sth->execute();
my $r1=$sth->fetchall_arrayref;	my $r1=$sth->fetchall_arrayref;
map {my $a=$_;	map {my $a=$_;