--- loncom/lonsql 2001/04/16 18:51:22 1.34 +++ loncom/lonsql 2001/08/30 13:57:04 1.36 @@ -3,6 +3,8 @@ # 7/25 Gerd Kortemeyer # many different dates Scott Harrison # 03/22/2001 Scott Harrison +# 8/30 Gerd Kortemeyer + use IO::Socket; use Symbol; use POSIX; @@ -79,6 +81,8 @@ while ($configline=) { } close(CONFIG); +$PREFORK=int($PREFORK/4); + $unixsock = "mysqlsock"; my $localfile="$perlvar{'lonSockDir'}/$unixsock"; my $server; @@ -301,7 +305,7 @@ sub make_new_child { $m2=~s/^$docroot//; $m2=~s/\.meta$//; unless ($query) { - my $q2="select * from metadata where url like '$m2'"; + my $q2="select * from metadata where url like binary '$m2'"; my $sth = $dbh->prepare($q2); $sth->execute(); my $r1=$sth->fetchall_arrayref;