--- loncom/lonsql 2017/10/13 20:37:46 1.96 +++ loncom/lonsql 2024/06/22 14:29:36 1.99 @@ -3,7 +3,7 @@ # The LearningOnline Network # lonsql - LON TCP-MySQL-Server Daemon for handling database requests. # -# $Id: lonsql,v 1.96 2017/10/13 20:37:46 raeburn Exp $ +# $Id: lonsql,v 1.99 2024/06/22 14:29:36 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -228,10 +228,10 @@ unless ($dbh = DBI->connect("DBI:mysql:l $perlvar{'lonSqlAccess'}, { RaiseError =>0,PrintError=>0})) { print "Cannot connect to database!\n"; - my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; + my $emailto="$perlvar{'lonAdmEMail'} $perlvar{'lonSysEMail'}"; my $subj="LON: $perlvar{'lonHostID'} Cannot connect to database!"; system("echo 'Cannot connect to MySQL database!' |". - " mailto $emailto -s '$subj' > /dev/null"); + " mail -s '$subj' $emailto > /dev/null"); open(SMP,">$perlvar{'lonDocRoot'}/lon-status/mysql.txt"); print SMP 'time='.time.'&mysql=defunct'."\n"; @@ -540,6 +540,7 @@ sub do_user_search { } } else { my %srchfield = ( + uname_ci => 'username collate latin1_general_ci', uname => 'username', lastname => 'lastname', email => 'permanentemail',