version 1.211, 2008/01/24 10:05:13
|
version 1.216, 2008/11/20 15:19:39
|
Line 42 use Apache::lonmsg;
|
Line 42 use Apache::lonmsg;
|
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
|
|
|
############################################################ |
|
############################################################ |
|
## |
|
## &get_dynamic_metadata_from_sql($url) |
|
## |
|
## Queries sql database for dynamic metdata |
|
## Returns a hash of hashes, with keys of urls which match $url |
|
## Returned fields are given below. |
|
## |
|
## Examples: |
|
## |
|
## %DynamicMetadata = &Apache::lonmeta::get_dynmaic_metadata_from_sql |
|
## ('/res/msu/korte/'); |
|
## |
|
## $DynamicMetadata{'/res/msu/korte/example.problem'}->{$field} |
|
## |
|
############################################################ |
|
############################################################ |
|
sub get_dynamic_metadata_from_sql { |
sub get_dynamic_metadata_from_sql { |
my ($url) = shift(); |
my ($url) = shift(); |
my ($authordom,$author)=($url=~m{^/res/($match_domain)/($match_username)/}); |
my ($authordom,$author)=($url=~m{^/res/($match_domain)/($match_username)/}); |
Line 811 sub handler {
|
Line 793 sub handler {
|
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
&present_editable_metadata($r,$uri); |
&present_editable_metadata($r,$uri); |
} else { |
} else { |
$r->print(&Apache::loncommon::start_page('Catalog Information', |
$r->print(&Apache::loncommon::start_page('Metadata', |
undef, |
undef, |
{'domain' => $resdomain,})); |
{'domain' => $resdomain,})); |
&present_uneditable_metadata($r,$uri); |
&present_uneditable_metadata($r,$uri); |
Line 839 sub report_bombs {
|
Line 821 sub report_bombs {
|
&Apache::lonmsg::clear_author_res_msg($uri); |
&Apache::lonmsg::clear_author_res_msg($uri); |
} |
} |
my $clear=&mt('Clear all Messages in Subdirectory'); |
my $clear=&mt('Clear all Messages in Subdirectory'); |
$r->print(<<ENDCLEAR); |
my $cancel=&mt('Back to Directory'); |
|
my $cancelurl=$uri; |
|
$cancelurl=~s/^\Q$domain\E/\/priv/; |
|
$r->print(<<ENDCLEAR); |
<form method="post"> |
<form method="post"> |
<input type="submit" name="clearbombs" value="$clear" /> |
<input type="submit" name="clearbombs" value="$clear" /> |
</form> |
<a href="$cancelurl">$cancel</a> |
|
</form><hr /> |
ENDCLEAR |
ENDCLEAR |
my %brokenurls = |
my %brokenurls = |
&Apache::lonmsg::all_url_author_res_msg($author,$domain); |
&Apache::lonmsg::all_url_author_res_msg($author,$domain); |
Line 1221 ENDDEL
|
Line 1207 ENDDEL
|
} |
} |
$r->print('<br />'.$bombs); |
$r->print('<br />'.$bombs); |
} else { |
} else { |
my $displayfile=&mt('Catalog Information for [_1]',$disuri); |
my $displayfile=&mt('Metadata for [_1]',$disuri); |
if ($disuri=~/\/default$/) { |
if ($disuri=~/\/default$/) { |
my $dir=$disuri; |
my $dir=$disuri; |
$dir=~s/default$//; |
$dir=~s/default$//; |
$displayfile=&mt('Default Cataloging Information for Directory [_1]',$dir); |
$displayfile=&mt('Default Metadata for Directory [_1]',$dir); |
} |
} |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatafields=(); |
%Apache::lonpublisher::metadatakeys=(); |
%Apache::lonpublisher::metadatakeys=(); |
Line 1388 ENDEDIT
|
Line 1374 ENDEDIT
|
my ($outcome,$result) = &store_metadata($fn,$uri,'store'); |
my ($outcome,$result) = &store_metadata($fn,$uri,'store'); |
$r->print($result); |
$r->print($result); |
} |
} |
$r->print($output.'<br /><input type="submit" name="store" value="'. |
$r->print($output.'<br /><input type="submit" title="Save Metadata" name="store" value="'. |
&mt('Save Catalog Information').'" />'); |
&mt('Save').'" />'); |
|
|
if ($file_type eq 'portfolio' || $file_type eq 'groups') { |
if ($file_type eq 'portfolio' || $file_type eq 'groups') { |
my ($port_path,$group) = &get_port_path_and_group($uri); |
my ($port_path,$group) = &get_port_path_and_group($uri); |
Line 1554 sub update_metadata_table {
|
Line 1540 sub update_metadata_table {
|
1; |
1; |
__END__ |
__END__ |
|
|
|
|
|
=head1 NAME |
|
|
|
Apache::lonmeta - display meta data |
|
|
|
=head1 SYNOPSIS |
|
|
|
Handler to display meta data |
|
|
|
This is part of the LearningOnline Network with CAPA project |
|
described at http://www.lon-capa.org. |
|
|
|
=head1 SUBROUTINES |
|
|
|
=over |
|
|
|
=item &get_dynamic_metadata_from_sql($url) : |
|
|
|
Queries sql database for dynamic metdata |
|
Returns a hash of hashes, with keys of urls which match $url |
|
Returned fields are given below. |
|
|
|
Examples: |
|
|
|
%DynamicMetadata = &Apache::lonmeta::get_dynmaic_metadata_from_sql |
|
('/res/msu/korte/'); |
|
|
|
$DynamicMetadata{'/res/msu/korte/example.problem'}->{$field} |
|
|
|
=item dynamicmeta() |
|
|
|
Fetch and evaluate dynamic metadata |
|
|
|
=item access_count() |
|
|
|
=item alttag() |
|
|
|
Try to make an alt tag if there is none |
|
|
|
=item authordisplay() |
|
|
|
Author display |
|
|
|
=item evalgraph() |
|
|
|
Pretty display |
|
|
|
=item diffgraph() |
|
|
|
=item fieldnames() |
|
|
|
=item portfolio_linked_path() |
|
|
|
=item get_port_path_and_group() |
|
|
|
=item portfolio_display_uri() |
|
|
|
=item pre_select_course() |
|
|
|
=item select_course() |
|
|
|
=item prettyprint() |
|
|
|
Pretty printing of metadata field |
|
|
|
=item direct() |
|
|
|
Pretty input of metadata field |
|
|
|
=item selectbox() |
|
|
|
=item relatedfield() |
|
|
|
=item prettyinput() |
|
|
|
=item report_bombs() |
|
|
|
=item present_uneditable_metadata() |
|
|
|
=item present_editable_metadata() |
|
|
|
=item store_metadata() |
|
|
|
=item store_transferred_addedfields() |
|
|
|
=item store_portfolio_metadata() |
|
|
|
=item update_metadata_table() |
|
|
|
=back |
|
|
|
=cut |