Diff for /nsdl/lonsql between versions 1.5 and 1.6

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);

Removed from v.1.5  
changed lines
  Added in v.1.6


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>