loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.89, 2007/09/12 20:29:13	version 1.91, 2011/11/07 18:13:38
Line 233 unless ($dbh = DBI->connect("DBI:mysql:l	Line 233 unless ($dbh = DBI->connect("DBI:mysql:l
system("echo 'Cannot connect to MySQL database!' \|".	system("echo 'Cannot connect to MySQL database!' \|".
" mailto $emailto -s '$subj' > /dev/null");	" mailto $emailto -s '$subj' > /dev/null");

open(SMP,'>/home/httpd/html/lon-status/mysql.txt');	open(SMP,">$perlvar{'lonDocRoot'}/lon-status/mysql.txt");
print SMP 'time='.time.'&mysql=defunct'."\n";	print SMP 'time='.time.'&mysql=defunct'."\n";
close(SMP);	close(SMP);

exit 1;	exit 1;
} else {	} else {
unlink('/home/httpd/html/lon-status/mysql.txt');	unlink("$perlvar{'lonDocRoot'}/lon-status/mysql.txt");
$dbh->disconnect;	$dbh->disconnect;
}	}

Line 447 sub make_new_child {	Line 447 sub make_new_child {
($arg2 =~ /\%\%/)) {	($arg2 =~ /\%\%/)) {
($srchby,$srchtype) =	($srchby,$srchtype) =
map {&unescape($_);} (split(/\%\%/,$arg2));	map {&unescape($_);} (split(/\%\%/,$arg2));
my $srchterm = &unescape($arg3);	$srchterm = &unescape($arg3);
} else {	} else {
($srchby,$srchtype,$srchterm) =	($srchby,$srchtype,$srchterm) =
map {&unescape($_);} ($arg1,$arg2,$arg3);	map {&unescape($_);} ($arg1,$arg2,$arg3);