--- loncom/lonsql	2001/03/27 19:57:53	1.26
+++ loncom/lonsql	2001/04/02 20:10:09	1.29
@@ -193,10 +193,8 @@ sub make_new_child {
 	unless (
 		$dbh = DBI->connect("DBI:mysql:loncapa","www","123",{ RaiseError =>0,PrintError=>0})
 		) { 
-	            my $st=120+int(rand(240));
 		    &logthis("<font color=blue>WARNING: Couldn't connect to database  ($st secs): $@</font>");
 		    print "database handle error\n";
-		    sleep($st);
 		    exit;
 
 	  };
@@ -251,7 +249,7 @@ sub make_new_child {
 		}
 	    }
 	    # do custom metadata searching here and build into result
-	    if ($custom) {
+	    if ($custom or $customshow) {
 		&logthis("am going to do custom query for $custom");
 		if ($query) {
 		    @metalist=map {$perlvar{'lonDocRoot'}.$_.'.meta'} @files;
@@ -284,7 +282,7 @@ sub make_new_child {
 			$m2=~s/\.meta$//;
 			unless ($query) {
 			    my $q2="select * from metadata where url like '$m2'";
-			    my $sth = $dbh->prepare($query);
+			    my $sth = $dbh->prepare($q2);
 			    $sth->execute();
 			    my $r1=$sth->fetchall_arrayref;
 			    map {my $a=$_;