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=$_; |