loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

-version 1.8, 2001/03/22 16:10:53
+version 1.10, 2001/03/22 19:25:52
  Line 13  use Fcntl;
  use Tie::RefHash;
  use DBI;
+ my @metalist;
+ # ----------------- Code to enable 'find' subroutine listing of the .meta files
+ require "find.pl";
+ sub wanted {
+     (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
+     -f _ &&
+     /^.*\.meta$/ &&
+     push(@metalist,"$dir/$_");
+ }
  $childmaxattempts=10;
  $run =0;#running counter to generate the query-id
- Line 228  sub make_new_child {
+ Line 238  sub make_new_child {
  	    }
  	    # do custom metadata searching here and build into result
- 	    &logthis("am going to do custom query for $custom");
+ 	    if ($custom) {
+ 		&logthis("am going to do custom query for $custom");
+ 		@metalist=(); pop @metalist;
+ 		&find("$perlvar{'lonDocRoot'}/res");
+ 		&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("queryreply:$queryid:$result",$conserver);