[LON-CAPA-cvs] cvs: nsdl / lonsql

[www]

www		Thu Nov 24 15:21:15 2005 EDT

  Modified files:              
    /nsdl	lonsql 
  Log:
  Exclude our own stuff
  
  
Index: nsdl/lonsql
diff -u nsdl/lonsql:1.5 nsdl/lonsql:1.6
--- nsdl/lonsql:1.5	Fri Nov 18 17:34:21 2005
+++ nsdl/lonsql	Thu Nov 24 15:21:15 2005
@@ -3,7 +3,7 @@
 # The LearningOnline Network
 # lonsql - LON TCP-NSDL Query Handler.
 #
-# $Id: lonsql,v 1.5 2005/11/18 22:34:21 www Exp $
+# $Id: lonsql,v 1.6 2005/11/24 20:21:15 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -453,7 +453,7 @@
 
 sub do_sql_query {
     my ($query) = @_;
-    &logthis('doing query '.$query);
+#    &logthis('doing query '.$query);
  
     my @results = ();
  
@@ -853,7 +853,7 @@
     my ($keyword)=($query=~/\"\%([^\%]+)\%\"/);
     $keyword=&escape($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 $response=$ua->get($url);
     my $parser=HTML::LCParser->new(\$response->content);