--- loncom/interface/lonsearchcat.pm 2003/10/24 21:09:24 1.191
+++ loncom/interface/lonsearchcat.pm 2003/12/11 20:59:54 1.194
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Search Catalog
#
-# $Id: lonsearchcat.pm,v 1.191 2003/10/24 21:09:24 albertel Exp $
+# $Id: lonsearchcat.pm,v 1.194 2003/12/11 20:59:54 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -545,14 +545,15 @@ sub print_basic_search_form{
$bodytag
ENDDOCUMENT
if (&Apache::lonnet::allowed('bre',$ENV{'request.role.domain'})) {
+ my $CatalogSearch=&mt('Catalog Search');
+ my $Statement=&mt('Enter terms or phrases separated by AND, OR, or NOT then press SEARCH below');
$scrout.=(<$CatalogSearch
@@ -2880,8 +2883,9 @@ extra custom metadata to show.
######################################################################
sub detailed_citation_view {
my ($prefix,%values) = @_;
+ my $icon=&Apache::loncommon::icon($values{'url'});
my $result=<
$values{'author'}, $values{'owner'}
@@ -2914,8 +2918,9 @@ END
######################################################################
sub summary_view {
my ($prefix,%values) = @_;
+ my $icon=&Apache::loncommon::icon($values{'url'});
my $result=<
$values{'title'}
$values{'owner'} -- $values{'lastrevisiondate'}
@@ -2940,8 +2945,9 @@ END
######################################################################
sub compact_view {
my ($prefix,%values) = @_;
+ my $icon=&Apache::loncommon::icon($values{'url'});
my $result=<
END
@@ -2962,8 +2968,9 @@ END
######################################################################
sub fielded_format_view {
my ($prefix,%values) = @_;
+ my $icon=&Apache::loncommon::icon($values{'url'});
my $result=<
@@ -3183,7 +3190,6 @@ sub start_fresh_session {
sub cleanup {
if (tied(%groupsearch_db)) {
- &Apache::lonnet::logthis('Cleanup searchcat: groupsearch_db');
unless (untie(%groupsearch_db)) {
&Apache::lonnet::logthis('Failed cleanup searchcat: groupsearch_db');
}