loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

version 1.15, 2001/03/26 20:31:25	version 1.19, 2001/03/27 02:22:02
Line 234 sub make_new_child {	Line 234 sub make_new_child {
else {	else {
my $r1=$sth->fetchall_arrayref;	my $r1=$sth->fetchall_arrayref;
my @r2; map {my $a=$_; my @b=map {escape($_)} @$a; push @r2,join(",", @b)} (@$r1);	my @r2; map {my $a=$_; my @b=map {escape($_)} @$a; push @r2,join(",", @b)} (@$r1);
$result=join("&",@r2) . "\n";	$result=join("&",@r2);
}	}

# do custom metadata searching here and build into result	# do custom metadata searching here and build into result
Line 254 sub make_new_child {	Line 254 sub make_new_child {
my @lines=<$fh>;	my @lines=<$fh>;
my $stuff=join('',@lines);	my $stuff=join('',@lines);
if ($stuff=~/$custom/s) {	if ($stuff=~/$custom/s) {
	foreach my $f ('abstract','author','copyright',
	'creationdate','keywords','language',
	'lastrevisiondate','mime','notes',
	'owner','subject','title') {
	$stuff=~s/\n?\<$f[^\>]\>.?<\/$f[^\>]*\>\n?//;
	}
	my $m2=$m; my $docroot=$perlvar{'lonDocRoot'};
	$m2=~s/^$docroot//;
&logthis("found: $stuff");	&logthis("found: $stuff");
	$customresult.='&custom='.escape($m2).','.escape($stuff);
}	}
$customresult.='&custom='.escape($stuff);
}	}
# $result.=$customresult;	$result.=$customresult;
}	}
# reply with result	# reply with result
$result.="ABCABC";	$result.="\n" if $result;
&reply("queryreply:$queryid:${result}DEF",$conserver);	&reply("queryreply:$queryid:$result",$conserver);

}	}