version 1.254, 2006/02/08 21:17:58
|
version 1.255, 2006/03/06 18:23:10
|
Line 77 use LONCAPA::lonmetadata();
|
Line 77 use LONCAPA::lonmetadata();
|
use HTML::Entities(); |
use HTML::Entities(); |
use Parse::RecDescent; |
use Parse::RecDescent; |
use Apache::lonnavmaps; |
use Apache::lonnavmaps; |
|
use Apache::lonindexer(); |
|
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
Line 93 my %persistent_db; # gdbm hash which h
|
Line 94 my %persistent_db; # gdbm hash which h
|
# The different view modes and associated functions |
# The different view modes and associated functions |
|
|
my %Views = ("detailed" => \&detailed_citation_view, |
my %Views = ("detailed" => \&detailed_citation_view, |
|
"detailedpreview" => \&detailed_citation_preview, |
"summary" => \&summary_view, |
"summary" => \&summary_view, |
|
"summarypreview" => \&summary_preview, |
"fielded" => \&fielded_format_view, |
"fielded" => \&fielded_format_view, |
"xml" => \&xml_sgml_view, |
"xml" => \&xml_sgml_view, |
"compact" => \&compact_view); |
"compact" => \&compact_view); |
Line 1080 sub viewoptiontext {
|
Line 1083 sub viewoptiontext {
|
'xml' => 'XML/SGML', |
'xml' => 'XML/SGML', |
'compact' => 'Compact View', |
'compact' => 'Compact View', |
'fielded' => 'Fielded Format', |
'fielded' => 'Fielded Format', |
'summary' => 'Summary View'); |
'summary' => 'Summary View', |
|
'summarypreview' => 'Summary Preview', |
|
'detailedpreview' => 'Detailed Citation Preview'); |
return $desc{$code}; |
return $desc{$code}; |
} |
} |
|
|
Line 3333 sub detailed_citation_view {
|
Line 3338 sub detailed_citation_view {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub detailed_citation_preview { |
|
my ($prefix,%values)=@_; |
|
return '<table><tr><td>'. |
|
&detailed_citation_view($prefix,%values). |
|
'</td><td>'. |
|
&Apache::lonindexer::showpreview($values{'url'}). |
|
'</td></tr></table><hr />'; |
|
} |
|
|
|
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
|
|
Line 3374 END
|
Line 3389 END
|
return $result; |
return $result; |
} |
} |
|
|
|
sub summary_preview { |
|
my ($prefix,%values)=@_; |
|
return '<table><tr><td>'. |
|
&summary_view($prefix,%values). |
|
'</td><td>'. |
|
&Apache::lonindexer::showpreview($values{'url'}). |
|
'</td></tr></table><hr />'; |
|
} |
|
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
|
|