Return to lonsql CVS log | Up to [LON-CAPA] / nsdl |
version 1.5, 2005/11/18 22:34:21 | 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); |