version 1.21, 2001/03/27 13:35:35
|
version 1.22, 2001/03/27 18:34:03
|
Line 255 sub make_new_child {
|
Line 255 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 |
# if file is indicated in sql database and |
# not part of sql-relevant query, do not pattern match. |
# not part of sql-relevant query, do not pattern match. |
# if file is not in sql database, output error. |
# if file is not in sql database, output error. |