[LON-CAPA-cvs] cvs: loncom /interface lonsearchcat.pm

matthew lon-capa-cvs@mail.lon-capa.org
Mon, 10 May 2004 13:06:29 -0000


matthew		Mon May 10 09:06:29 2004 EDT

  Modified files:              
    /loncom/interface	lonsearchcat.pm 
  Log:
  Removed debugging code.  
  &parse_advanced_search: now spell "SELECT" properly.
  &detailed_citation_view: now use 'sequsage_list' instead of 'usage_list'.
  
  
Index: loncom/interface/lonsearchcat.pm
diff -u loncom/interface/lonsearchcat.pm:1.225 loncom/interface/lonsearchcat.pm:1.226
--- loncom/interface/lonsearchcat.pm:1.225	Sun May  9 18:55:17 2004
+++ loncom/interface/lonsearchcat.pm	Mon May 10 09:06:29 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.225 2004/05/09 22:55:17 matthew Exp $
+# $Id: lonsearchcat.pm,v 1.226 2004/05/10 13:06:29 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1400,7 +1400,7 @@
     $pretty_search_string .= $pretty_domains_string."<br />\n";
     #
     if (@queries) {
-	$query="SELET * FROM metadata WHERE ".join(" AND ",@queries);
+	$query="SELECT * FROM metadata WHERE ".join(" AND ",@queries);
     } elsif ($customquery) {
         $query = '';
     }
@@ -1600,9 +1600,7 @@
 			  -build => 'Text::Query::Build');
     $q->prepare($logic_statement);
     my $matchexp=${$q}{'matchexp'}; chomp $matchexp;
-    &Apache::lonnet::logthis('matchexp = '.$matchexp);
     my $sql_query=&recursive_SQL_query_build($field_name,$matchexp);
-    &Apache::lonnet::logthis('sql_query = '.$sql_query);
     return $sql_query;
 }
 
@@ -2972,7 +2970,7 @@
          { name=>'goto_list',
            type => 'list',
            translate => 'Resources that follow this resource in maps',},
-         { name=>'usage_list',
+         { name=>'sequsage_list',
            type => 'list',
            translate => 'Resources using or importing resource',},
          ) {