loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.26, 2001/03/27 19:57:53	version 1.27, 2001/03/27 20:08:23
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=$_;