loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

-version 1.9, 2001/03/22 17:23:19
+version 1.13, 2001/03/26 20:17:20
  Line 243  sub make_new_child {
  		@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.
+ 		my $customresult='';
+ 		foreach my $m (@metalist) {
+ 		    my $fh=IO::File->new($m);
+ 		    my @lines=<$fh>;
+ 		    my $stuff=join('',@lines);
+ 		    if ($stuff=~/$custom/s) {
+ 			&logthis("found: $stuff");
+ 		    }
+ 		    $customresult.='&custom='.escape($stuff);
+ 		}
+ 		$result.=$customresult;
  	    }
  	    # reply with result
+ 	    $result.="ABCABC";
              &reply("queryreply:$queryid:$result",$conserver);
          }