loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.67, 2005/04/13 18:39:13	version 1.69, 2005/11/24 20:03:49
Line 431 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 508 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);
#	#