remove some early testing cruft

Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
index d1021ac..1116437 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AutoSuggest.pm
@@ -11,57 +11,16 @@ use Apache2::RequestIO ();
 use Apache2::RequestUtil;
 use CGI;
 
-my @dict = qw/
-    alpha
-    allstate
-    apple
-    appropriate
-    application
-    arizona
-    bears
-    beta
-    beets
-    gamma
-    gone
-    out
-    tool
-    toad
-    tap
-    sock
-    socket
-    sicken
-    sickening
-    rage
-    right
-    road
-    /;
-
-sub search_dict {
-    my $term = shift;
-    (my $re = $term) =~ s/[^a-z0-9]/\./gi;
-
-    return ($term, grep(/^$re/, @dict));
-}
 
 sub handler {
     my $r = shift;
     my $cgi = new CGI;
 
-    my ($term, @matches) = search_dict($cgi->param("query"));
-    my $xml_terms = join("\n", map {
-        qq{<val term="$term" field="123">$_</val>}
-    } @matches);
     print "Content-type: application/xml; charset=utf-8\n\n";
 
-    print qq{<?xml version="1.0"?>
-<as>
-$xml_terms
-</as>
-    };
+    print qq{<?xml version="1.0"?> <as> </as> \n};
     
     return Apache2::Const::OK;
 }
 
 1;
-
-# vim: et:ts=4:sw=4