nsdl/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / nsdl

version 1.4, 2005/11/17 22:51:59	version 1.6, 2005/11/24 20:21:15
Line 453 sub process_file {	Line 453 sub process_file {

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

my @results = ();	my @results = ();

Line 853 sub nsdl_query {	Line 853 sub nsdl_query {
my ($keyword)=($query=~/\"\%([^\%]+)\%\"/);	my ($keyword)=($query=~/\"\%([^\%]+)\%\"/);
$keyword=&escape($keyword);	$keyword=&escape($keyword);
&logthis('Doing '.$keyword);	&logthis('Doing '.$keyword);
my $url='http://search.nsdl.org?verb=Search&s=0&n=500&q='.$keyword;	my $url='http://search.nsdl.org?verb=Search&s=0&n=500&q=-link.primaryCollection:oai\:nsdl.org\:nsdl.nsdl\:00254%20'.$keyword;
my $ua=new LWP::UserAgent;	my $ua=new LWP::UserAgent;
my $response=$ua->get($url);	my $response=$ua->get($url);
my $parser=HTML::LCParser->new(\$response->content);	my $parser=HTML::LCParser->new(\$response->content);
Line 868 sub nsdl_query {	Line 868 sub nsdl_query {
} elsif ($token->[0] eq 'S') {	} elsif ($token->[0] eq 'S') {
if ($token->[1] eq 'record') {	if ($token->[1] eq 'record') {
%result=();	%result=();
} elsif ($token->[1]=/^dc\:/) {	} elsif ($token->[1]=~/^dc\:/) {
$is=$token->[1];	$is=$token->[1];
$cont='';	$cont='';
}	}
Line 877 sub nsdl_query {	Line 877 sub nsdl_query {
#	#
# Now store it away	# Now store it away
#	#
} elsif ($token->[1]=/^dc\:/) {	} elsif ($token->[1]=~/^dc\:/) {
$result{$is}=$cont;	$result{$is}=$cont;
}	}
}	}