--- loncom/interface/lonsearchcat.pm 2002/09/16 20:57:28 1.158
+++ loncom/interface/lonsearchcat.pm 2003/02/10 21:25:43 1.166
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Search Catalog
#
-# $Id: lonsearchcat.pm,v 1.158 2002/09/16 20:57:28 matthew Exp $
+# $Id: lonsearchcat.pm,v 1.166 2003/02/10 21:25:43 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -79,7 +79,6 @@ use Apache::lonnet();
use Apache::File();
use CGI qw(:standard);
use Text::Query;
-use DBI;
use GDBM_File;
use Apache::loncommon();
use Apache::lonmysql();
@@ -439,7 +438,9 @@ ENDDOCUMENT
' ';
my $checkbox = &simplecheckbox('related',$ENV{'form.related'});
$scrout.=<Advanced Search |
+Advanced Search |
$checkbox use related words | |
@@ -542,13 +543,13 @@ ENDHEADER
$ENV{'form.abstract'});
# Hack - an empty table row.
$scrout.=" | | |
\n";
- $scrout.=&searchphrasefield('file
extension','mime',
- $ENV{'form.mime'});
+ $scrout.=&searchphrasefield('file
extension','extension',
+ $ENV{'form.extension'});
$scrout.=" | | |
\n";
$scrout.=&searchphrasefield('publisher
owner','owner',
$ENV{'form.owner'});
$scrout.="\n";
- $ENV{'form.category'}='any' unless length($ENV{'form.category'});
+ $ENV{'form.category'}='any' if (! defined($ENV{'form.category'}));
$scrout.=&selectbox('File Category','category',
$ENV{'form.category'},
'any','Any category',
@@ -569,7 +570,7 @@ ENDHEADER
my @domains =&Apache::loncommon::get_domains();
# adjust the size of the select box
my $size = 4;
- my $size = (scalar @domains < ($size - 1) ? scalar @domains + 1 : $size);
+ $size = (scalar @domains < ($size - 1) ? scalar @domains + 1 : $size);
$scrout.="\n".''.
'DOMAINS
'.
'