version 1.55, 2001/03/21 02:34:35
|
version 1.59, 2001/03/21 03:40:39
|
Line 107 END
|
Line 107 END
|
{ |
{ |
my $fh=Apache::File->new($r->dir_config('lonTabDir').'/language.tab'); |
my $fh=Apache::File->new($r->dir_config('lonTabDir').'/language.tab'); |
map { |
map { |
$_=~/(\w+)\s+([\w\s\-]+)/; |
$_=~/(\w+)\s+([\w\s\-]+)/; chomp; |
$language{$1}=$2; |
$language{$1}=$2; |
} <$fh>; |
} <$fh>; |
} |
} |
Line 117 END
|
Line 117 END
|
{ |
{ |
my $fh=Apache::File->new($r->dir_config('lonIncludes').'/copyright.tab'); |
my $fh=Apache::File->new($r->dir_config('lonIncludes').'/copyright.tab'); |
map { |
map { |
$_=~/(\w+)\s+([\w\s\-]+)/; |
$_=~/(\w+)\s+([\w\s\-]+)/; chomp; |
$cprtag{$1}=$2; |
$cprtag{$1}=$2; |
} <$fh>; |
} <$fh>; |
} |
} |
Line 127 END
|
Line 127 END
|
{ |
{ |
my $fh=Apache::File->new($r->dir_config('lonTabDir').'/filetypes.tab'); |
my $fh=Apache::File->new($r->dir_config('lonTabDir').'/filetypes.tab'); |
map { |
map { |
$_=~/(\w+)\s+(\w+)\s+([\w\s\-]+)/; |
$_=~/(\w+)\s+(\w+)\s+([\w\s\-]+)/; chomp; |
$mimetag{$1}=".$1 $3"; |
$mimetag{$1}=".$1 $3"; |
} <$fh>; |
} <$fh>; |
} |
} |
Line 494 sub advancedsearch {
|
Line 494 sub advancedsearch {
|
|
|
my @queries; |
my @queries; |
# Go through logical expression AND/OR/NOT phrase fields. |
# Go through logical expression AND/OR/NOT phrase fields. |
foreach my $field ('title','author','subject','notes','abstract') { |
|
|
foreach my $field ('title','author','subject','notes','abstract','url', |
|
'keywords','version','owner') { |
if ($ENV{'form.'.$field}) { |
if ($ENV{'form.'.$field}) { |
push @queries,&build_SQL_query($field,$ENV{'form.'.$field}); |
push @queries,&build_SQL_query($field,$ENV{'form.'.$field}); |
} |
} |
} |
} |
|
if ($ENV{'form.language'} and $ENV{'form.language'} ne 'any') { |
|
push @queries,"(language like \"\%$ENV{'form.language'}\%\")"; |
|
} |
|
if ($ENV{'form.mime'} and $ENV{'form.mime'} ne 'any') { |
|
push @queries,"(mime like \"\%$ENV{'form.mime'}\%\")"; |
|
} |
|
if ($ENV{'form.copyright'} and $ENV{'form.copyright'} ne 'any') { |
|
push @queries,"(copyright like \"\%$ENV{'form.copyright'}\%\")"; |
|
} |
if (@queries) { |
if (@queries) { |
$query=join(" and ",@queries); |
$query=join(" AND ",@queries); |
$query="select * from metadata where $query"; |
$query="select * from metadata where $query"; |
my $reply=&Apache::lonnet::metadata_query($query); |
my $reply=&Apache::lonnet::metadata_query($query); |
&output_results('Advanced',$r,$envhash,$query,$reply); |
&output_results('Advanced',$r,$envhash,$query,$reply); |
Line 625 sub output_results {
|
Line 636 sub output_results {
|
$shortabstract=substr($abstract,0,200) if length($abstract)>200; |
$shortabstract=substr($abstract,0,200) if length($abstract)>200; |
$fields[7]=$shortabstract; |
$fields[7]=$shortabstract; |
$compiledresult.=<<END; |
$compiledresult.=<<END; |
<p>($title) |
<p> |
END |
END |
$compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive'; |
$compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive'; |
<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" |
<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" |
Line 784 sub detailed_citation_view {
|
Line 795 sub detailed_citation_view {
|
$notes,$shortabstract,$mime,$lang, |
$notes,$shortabstract,$mime,$lang, |
$creationdate,$lastrevisiondate,$owner,$copyright, |
$creationdate,$lastrevisiondate,$owner,$copyright, |
$hostname,$httphost)=@_; |
$hostname,$httphost)=@_; |
return 'abc'; |
|
my $result=<<END; |
my $result=<<END; |
DETAILED |
<i>$owner</i>, last revised $lastrevisiondate |
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
<h3><A HREF="http://$httphost$url" TARGET='search_preview'>$title</A></h3> |
<br> |
<h3>$author</h3> |
<b>Title:</b> $title<br> |
</p> |
<b>Author(s):</b> $author<br> |
<p> |
<b>Subject:</b> $subject<br> |
<b>Subject:</b> $subject<br> |
<b>Keyword(s):</b> $keywords<br> |
<b>Keyword(s):</b> $keywords<br> |
<b>Notes:</b> $notes<br> |
<b>Notes:</b> $notes<br> |
<b>Abstract:</b> $shortabstract<br> |
|
<b>MIME Type:</b> $mimetag{$mime}<br> |
<b>MIME Type:</b> $mimetag{$mime}<br> |
<b>Language:</b> $language{$lang}<br> |
<b>Language:</b> $language{$lang}<br> |
<b>Creation Date:</b> $creationdate<br> |
<b>Copyright/Distribution:</b> $cprtag{$copyright}<br> |
<b>Last Revision Date:</b> $lastrevisiondate<br> |
$shortabstract |
<b>Publisher/Owner:</b> $owner<br> |
|
<b>Copyright/Distribution:</b> $copyright<br> |
|
<b>Repository Location:</b> $hostname |
|
</p> |
</p> |
END |
END |
return $result; |
return $result; |
Line 814 sub summary_view {
|
Line 820 sub summary_view {
|
$creationdate,$lastrevisiondate,$owner,$copyright, |
$creationdate,$lastrevisiondate,$owner,$copyright, |
$hostname,$httphost)=@_; |
$hostname,$httphost)=@_; |
my $result=<<END; |
my $result=<<END; |
SUMMARY |
<a href="http://$httphost$url" TARGET='search_preview'>$author</a><br /> |
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
$title<br /> |
<br> |
$owner -- $lastrevisiondate<br /> |
<b>Title:</b> $title<br> |
$cprtag{$copyright}<br /> |
<b>Author(s):</b> $author<br> |
|
<b>Subject:</b> $subject<br> |
|
<b>Keyword(s):</b> $keywords<br> |
|
<b>Notes:</b> $notes<br> |
|
<b>Abstract:</b> $shortabstract<br> |
|
<b>MIME Type:</b> $mimetag{$mime}<br> |
|
<b>Language:</b> $language{$lang}<br> |
|
<b>Creation Date:</b> $creationdate<br> |
|
<b>Last Revision Date:</b> $lastrevisiondate<br> |
|
<b>Publisher/Owner:</b> $owner<br> |
|
<b>Copyright/Distribution:</b> $copyright<br> |
|
<b>Repository Location:</b> $hostname |
|
</p> |
</p> |
END |
END |
return $result; |
return $result; |
Line 842 sub fielded_format_view {
|
Line 836 sub fielded_format_view {
|
$creationdate,$lastrevisiondate,$owner,$copyright, |
$creationdate,$lastrevisiondate,$owner,$copyright, |
$hostname,$httphost)=@_; |
$hostname,$httphost)=@_; |
my $result=<<END; |
my $result=<<END; |
FIELDED |
|
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
<br> |
<br /> |
<b>Title:</b> $title<br> |
<b>Title:</b> $title<br /> |
<b>Author(s):</b> $author<br> |
<b>Author(s):</b> $author<br /> |
<b>Subject:</b> $subject<br> |
<b>Subject:</b> $subject<br /> |
<b>Keyword(s):</b> $keywords<br> |
<b>Keyword(s):</b> $keywords<br /> |
<b>Notes:</b> $notes<br> |
<b>Notes:</b> $notes<br /> |
<b>Abstract:</b> $shortabstract<br> |
<b>MIME Type:</b> $mimetag{$mime}<br /> |
<b>MIME Type:</b> $mimetag{$mime}<br> |
<b>Language:</b> $language{$lang}<br /> |
<b>Language:</b> $language{$lang}<br> |
<b>Creation Date:</b> $creationdate<br /> |
<b>Creation Date:</b> $creationdate<br> |
<b>Last Revision Date:</b> $lastrevisiondate<br /> |
<b>Last Revision Date:</b> $lastrevisiondate<br> |
<b>Publisher/Owner:</b> $owner<br /> |
<b>Publisher/Owner:</b> $owner<br> |
<b>Copyright/Distribution:</b> $cprtag{$copyright}<br /> |
<b>Copyright/Distribution:</b> $copyright<br> |
<b>Repository Location:</b> $hostname<br /> |
<b>Repository Location:</b> $hostname |
<b>Abstract:</b> $shortabstract<br /> |
</p> |
</p> |
END |
END |
return $result; |
return $result; |
Line 870 sub xml_sgml_view {
|
Line 863 sub xml_sgml_view {
|
$creationdate,$lastrevisiondate,$owner,$copyright, |
$creationdate,$lastrevisiondate,$owner,$copyright, |
$hostname,$httphost)=@_; |
$hostname,$httphost)=@_; |
my $result=<<END; |
my $result=<<END; |
XML/SGML |
<pre> |
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
<LonCapaResource> |
<br> |
<url>$url</url> |
<b>Title:</b> $title<br> |
<title>$title</title> |
<b>Author(s):</b> $author<br> |
<author>$author</author> |
<b>Subject:</b> $subject<br> |
<subject>$subject</subject> |
<b>Keyword(s):</b> $keywords<br> |
<keywords>$keywords</keywords> |
<b>Notes:</b> $notes<br> |
<notes>$notes</notes> |
<b>Abstract:</b> $shortabstract<br> |
<mimeInfo> |
<b>MIME Type:</b> $mimetag{$mime}<br> |
<mime>$mime</mime> |
<b>Language:</b> $language{$lang}<br> |
<mimetag>$mimetag{$mime}</mimetag> |
<b>Creation Date:</b> $creationdate<br> |
</mimeInfo> |
<b>Last Revision Date:</b> $lastrevisiondate<br> |
<languageInfo> |
<b>Publisher/Owner:</b> $owner<br> |
<language>$lang</language> |
<b>Copyright/Distribution:</b> $copyright<br> |
<languagetag>$language{$lang}</languagetag> |
<b>Repository Location:</b> $hostname |
</languageInfo> |
</p> |
<creationdate>$creationdate</creationdate> |
|
<lastrevisiondate>$lastrevisiondate</lastrevisiondate> |
|
<owner>$owner</owner> |
|
<copyrightInfo> |
|
<copyright>$copyright</copyright> |
|
<copyrighttag>$cprtag{$copyright}</copyrighttag> |
|
</copyrightInfo> |
|
<repositoryLocation>$hostname</repositoryLocation> |
|
<shortabstract>$shortabstract</shortabstract> |
|
</LonCapaResource> |
|
</pre> |
END |
END |
return $result; |
return $result; |
} |
} |