version 1.9, 2001/03/22 17:23:19
|
version 1.10, 2001/03/22 19:25:52
|
Line 243 sub make_new_child {
|
Line 243 sub make_new_child {
|
@metalist=(); pop @metalist; |
@metalist=(); pop @metalist; |
&find("$perlvar{'lonDocRoot'}/res"); |
&find("$perlvar{'lonDocRoot'}/res"); |
&logthis("FILELIST:" . join(":::",@metalist)); |
&logthis("FILELIST:" . join(":::",@metalist)); |
|
# if file is indicated in sql database and |
|
# not part of sql-relevant query, do not pattern match. |
|
# if file is not in sql database, output error. |
|
# if file is indicated in sql database and is |
|
# part of query result list, then do the pattern match. |
} |
} |
# reply with result |
# reply with result |
&reply("queryreply:$queryid:$result",$conserver); |
&reply("queryreply:$queryid:$result",$conserver); |