--- loncom/interface/lonsearchcat.pm 2005/04/07 07:34:52 1.245
+++ loncom/interface/lonsearchcat.pm 2005/11/26 02:42:45 1.247
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Search Catalog
#
-# $Id: lonsearchcat.pm,v 1.245 2005/04/07 07:34:52 albertel Exp $
+# $Id: lonsearchcat.pm,v 1.247 2005/11/26 02:42:45 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -860,10 +860,12 @@ ENDHEADER
'abstract' => 1,
'standards'=> 1,
'mime' => 1,
+ 'subject' => 1,
);
#
- foreach my $field ('title','author','owner','authorspace','modifyinguser',
- 'keywords','notes','abstract','standards','mime') {
+ foreach my $field ('title','author','subject','owner','authorspace',
+ 'modifyinguser','keywords','notes','abstract',
+ 'standards','mime') {
$scrout.='
'.&titlefield($fields{$field}).' | '.
&Apache::lonmeta::prettyinput($field,
$env{'form.'.$field},
@@ -3220,9 +3222,11 @@ extra custom metadata to show.
sub detailed_citation_view {
my ($prefix,%values) = @_;
my $result;
+ my $jumpurl=$values{'url'};
+ $jumpurl=~s/^\/ext\//http\:\/\//;
$result .= ''.$prefix.
' '.' '.
- ''.$values{'title'}."\n";
$result .= "\n";
$result .= ''.$values{'author'}.','.
@@ -3291,7 +3295,7 @@ sub detailed_citation_view {
foreach my $item (split(',',$values{$field->{'name'}})){
$result .= ' '.
''.$item.'';
+ 'href="'.$jumpurl.'">'.$item.'';
}
$result .= '';
} elsif (exists($field->{'format'}) && $field->{'format'} ne ''){
@@ -3302,7 +3306,7 @@ sub detailed_citation_view {
if ($field->{'special'} eq 'url link') {
$result.=
&mt($field->{'translate'},
- ''.
$values{$field->{'name'}}.
'');
@@ -3350,8 +3354,11 @@ sub summary_view {
if (! defined($tmp)) { $tmp = 'undefined'; }
$result .= ' '.$tmp.' ';
}
+ my $jumpurl=$values{'url'};
+ $jumpurl=~s/^\/ext\//http\:\/\//;
+
$result.=<$values{'title'}
$values{'author'}, $values{'owner'} -- $values{'lastrevisiondate'}
$values{'copyrighttag'}
@@ -3375,6 +3382,9 @@ END
######################################################################
sub compact_view {
my ($prefix,%values) = @_;
+ my $jumpurl=$values{'url'};
+ $jumpurl=~s/^\/ext\//http\:\/\//;
+
my $result =
$prefix.' ';
if (exists($env{'form.sortfield'}) &&
@@ -3383,9 +3393,9 @@ sub compact_view {
if (! defined($tmp)) { $tmp = 'undefined'; }
$result .= ' '.$tmp.' ';
}
- $result.=' '.
+ $result.=' '.
$values{'title'}.''.(' 'x2).
- ''.$values{'author'}.' ';
+ ''.$values{'author'}.' ('.$values{'domain'}.') ';
return $result;
}
@@ -3405,11 +3415,14 @@ sub fielded_format_view {
my ($prefix,%values) = @_;
my $icon=&Apache::loncommon::icon($values{'url'});
my %Translated = &Apache::lonmeta::fieldnames();
+ my $jumpurl=$values{'url'};
+ $jumpurl=~s/^\/ext\//http\:\/\//;
+
my $result=<
- URL:
- - $values{'url'}
END
foreach my $field ('title','author','domain','subject','keywords','notes',
|