--- loncom/interface/lonsearchcat.pm 2001/03/08 20:54:53 1.6
+++ loncom/interface/lonsearchcat.pm 2001/03/12 17:28:32 1.7
@@ -9,6 +9,7 @@ use strict;
use Apache::Constants qw(:common);
use Apache::lonnet();
use Apache::File();
+use CGI qw(:standard);
my %language;
my $scrout;
@@ -18,6 +19,17 @@ my %mimetag;
sub handler {
my $r = shift;
+
+# -------------------------------------- see if called from an interactive mode
+ map {
+ my ($name, $value) = split(/=/,$_);
+ $value =~ tr/+/ /;
+ $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+ if ($name eq 'catalogmode') {
+ $ENV{'form.'.$name}=$value;
+ }
+ } (split(/&/,$ENV{'QUERY_STRING'}));
+
$r->content_type('text/html');
$r->send_http_header;
return OK if $r->header_only;
@@ -622,6 +634,22 @@ LASTREVISIONDATEEND
The LearningOnline Network with CAPA
+
@@ -630,6 +658,10 @@ LASTREVISIONDATEEND
Basic Search
+
+
+
Enter terms or phrases separated by search operators
such as AND or OR then press SEARCH below. Terms should be specific
to the title, author, subject, notes, or abstract information associated
@@ -630,6 +658,10 @@ LASTREVISIONDATEEND