--- loncom/interface/lonsearchcat.pm 2001/03/21 01:03:06 1.47
+++ loncom/interface/lonsearchcat.pm 2001/03/21 02:18:14 1.51
@@ -54,8 +54,10 @@ my %mimetag;
my $closebutton;
my $viewselect=<
-
-
+
+
+
+
END
@@ -490,7 +492,7 @@ sub advancedsearch {
}
}
if (@queries) {
- $query="(" . (join(") and ("),@queries) . ")";
+ $query=join(" and ",@queries);
$query="select * from metadata where $query";
my $reply=&Apache::lonnet::metadata_query($query);
&output_results('Advanced',$r,$envhash,$query,$reply);
@@ -605,12 +607,15 @@ sub output_results {
}
foreach my $result (@results) {
+ my @fields=map
+ {&Apache::lonnet::unescape($_)}
+ (split(/\,/,$result));
my ($title,$author,$subject,$url,$keywords,$version,
$notes,$abstract,$mime,$lang,
- $creationdate,$lastrevisiondate,$owner,$copyright
- )=map {&Apache::lonnet::unescape($_)} (split(/\,/,$result));
+ $creationdate,$lastrevisiondate,$owner,$copyright)=@fields;
my $shortabstract=$abstract;
$shortabstract=substr($abstract,0,200) if length($abstract)>200;
+ $fields[7]=$shortabstract;
$compiledresult.=<
END
@@ -620,24 +625,22 @@ onClick="javascript:select_data('$title'
END
- $compiledresult.=<URL: $url
-
-Title: $title
-Author(s): $author
-Subject: $subject
-Keyword(s): $keywords
-Notes: $notes
-Abstract: $shortabstract
-MIME Type: $mimetag{$mime}
-Language: $language{$lang}
-Creation Date: $creationdate
-Last Revision Date: $lastrevisiondate
-Publisher/Owner: $owner
-Copyright/Distribution: $copyright
-Repository Location: $hostname
-
-END
+ my $httphost=$ENV{'HTTP_HOST'};
+ if ($ENV{'form.viewselect'} eq 'Detailed Citation View') {
+ $compiledresult.=&detailed_citation_view(@fields,
+ $hostname,$httphost);
+ }
+ elsif ($ENV{'form.viewselect'} eq 'Summary View') {
+ $compiledresult.=&summary_view(@fields,$hostname,$httphost);
+ }
+ elsif ($ENV{'form.viewselect'} eq 'Fielded Format') {
+ $compiledresult.=&fielded_format_view(@fields,$hostname,
+ $httphost);
+ }
+ elsif ($ENV{'form.viewselect'} eq 'XML/SGML') {
+ $compiledresult.=&xml_sgml_view(@fields,$hostname,$httphost);
+ }
+
}
unless ($compiledresult) {
@@ -758,5 +761,117 @@ sub recursive_SQL_query_build {
&recursive_SQL_query_build($dkey,$pattern);
}
+# ------------------------------------------------------ Detailed Citation View
+sub detailed_citation_view {
+ my ($title,$author,$subject,$url,$keywords,$version,
+ $notes,$shortabstract,$mime,$lang,
+ $creationdate,$lastrevisiondate,$owner,$copyright,
+ $hostname,$httphost)=@_;
+ my $result=<URL: $url
+
+Title: $title
+Author(s): $author
+Subject: $subject
+Keyword(s): $keywords
+Notes: $notes
+Abstract: $shortabstract
+MIME Type: $mimetag{$mime}
+Language: $language{$lang}
+Creation Date: $creationdate
+Last Revision Date: $lastrevisiondate
+Publisher/Owner: $owner
+Copyright/Distribution: $copyright
+Repository Location: $hostname
+
+END
+ return $result;
+}
+
+# ---------------------------------------------------------------- Summary View
+sub summary_view {
+ my ($title,$author,$subject,$url,$keywords,$version,
+ $notes,$shortabstract,$mime,$lang,
+ $creationdate,$lastrevisiondate,$owner,$copyright,
+ $hostname,$httphost)=@_;
+ my $result=<URL: $url
+
+Title: $title
+Author(s): $author
+Subject: $subject
+Keyword(s): $keywords
+Notes: $notes
+Abstract: $shortabstract
+MIME Type: $mimetag{$mime}
+Language: $language{$lang}
+Creation Date: $creationdate
+Last Revision Date: $lastrevisiondate
+Publisher/Owner: $owner
+Copyright/Distribution: $copyright
+Repository Location: $hostname
+
+END
+ return $result;
+}
+
+# -------------------------------------------------------------- Fielded Format
+sub fielded_format_view {
+ my ($title,$author,$subject,$url,$keywords,$version,
+ $notes,$shortabstract,$mime,$lang,
+ $creationdate,$lastrevisiondate,$owner,$copyright,
+ $hostname,$httphost)=@_;
+ my $result=<URL: $url
+
+Title: $title
+Author(s): $author
+Subject: $subject
+Keyword(s): $keywords
+Notes: $notes
+Abstract: $shortabstract
+MIME Type: $mimetag{$mime}
+Language: $language{$lang}
+Creation Date: $creationdate
+Last Revision Date: $lastrevisiondate
+Publisher/Owner: $owner
+Copyright/Distribution: $copyright
+Repository Location: $hostname
+
+END
+ return $result;
+}
+
+# -------------------------------------------------------------------- XML/SGML
+sub xml_sgml_view {
+ my ($title,$author,$subject,$url,$keywords,$version,
+ $notes,$shortabstract,$mime,$lang,
+ $creationdate,$lastrevisiondate,$owner,$copyright,
+ $hostname,$httphost)=@_;
+ my $result=<URL: $url
+
+Title: $title
+Author(s): $author
+Subject: $subject
+Keyword(s): $keywords
+Notes: $notes
+Abstract: $shortabstract
+MIME Type: $mimetag{$mime}
+Language: $language{$lang}
+Creation Date: $creationdate
+Last Revision Date: $lastrevisiondate
+Publisher/Owner: $owner
+Copyright/Distribution: $copyright
+Repository Location: $hostname
+
+END
+ return $result;
+}
+
1;
__END__