loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.66, 2005/02/09 20:39:47	version 1.69, 2005/11/24 20:03:49
Line 241 unless ($dbh = DBI->connect("DBI:mysql:l	Line 241 unless ($dbh = DBI->connect("DBI:mysql:l

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

Line 430 sub make_new_child {	Line 431 sub make_new_child {
my $locresult = '';	my $locresult = '';
my $querystr = &unescape($arg3);	my $querystr = &unescape($arg3);
foreach (split/%%/,$querystr) {	foreach (split/%%/,$querystr) {
if (/^(\w+)=([^=]+)$/) {	if (/^([^=]+)=([^=]+)$/) {
@{$affiliates{$1}} = split/,/,$2;	@{$affiliates{$1}} = split/,/,$2;
}	}
}	}
Line 507 sub process_file {	Line 508 sub process_file {

sub do_sql_query {	sub do_sql_query {
my ($query,$custom,$customshow) = @_;	my ($query,$custom,$customshow) = @_;
&logthis('doing query '.$query);	# &logthis('doing query '.$query);
$custom = &unescape($custom);	$custom = &unescape($custom);
$customshow = &unescape($customshow);	$customshow = &unescape($customshow);
#	#