version 1.34, 2001/04/16 18:51:22
|
version 1.35, 2001/04/17 15:47:19
|
Line 301 sub make_new_child {
|
Line 301 sub make_new_child {
|
$m2=~s/^$docroot//; |
$m2=~s/^$docroot//; |
$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 binary '$m2'"; |
my $sth = $dbh->prepare($q2); |
my $sth = $dbh->prepare($q2); |
$sth->execute(); |
$sth->execute(); |
my $r1=$sth->fetchall_arrayref; |
my $r1=$sth->fetchall_arrayref; |