version 1.248, 2012/11/09 18:56:50
|
version 1.249, 2013/01/30 13:36:29
|
Line 872 sub report_bombs {
|
Line 872 sub report_bombs {
|
# Set document type |
# Set document type |
$uri =~ s:/adm/bombs/::; |
$uri =~ s:/adm/bombs/::; |
$uri = &Apache::lonnet::declutter($uri); |
$uri = &Apache::lonnet::declutter($uri); |
$r->print('<h1>'.&Apache::lonnet::clutter($uri).'</h1>'); |
$r->print( |
|
'<p>'.&mt('Folder: [_1]', |
|
'<span class="LC_filename">'.&Apache::lonnet::clutter($uri).'</span>') |
|
.'</p>' |
|
); |
my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); |
my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); |
if (!&Apache::lonnet::constructaccess('/priv/'.$domain.'/'.$author.'/')) { |
if (!&Apache::lonnet::constructaccess('/priv/'.$domain.'/'.$author.'/')) { |
$r->print('<p class="LC_error">'.&mt('Not authorized').'</p>'); |
$r->print('<p class="LC_error">'.&mt('Not authorized').'</p>'); |
Line 965 sub present_uneditable_metadata {
|
Line 969 sub present_uneditable_metadata {
|
$currentversion : |
$currentversion : |
&mt('information not available')).')'; |
&mt('information not available')).')'; |
} else { |
} else { |
$versiondisplay='Version: '.$currentversion; |
$versiondisplay=&mt('Version: [_1]',$currentversion); |
} |
} |
} |
} |
# crumbify displayed URL uri target prefix form |
# crumbify displayed URL uri target prefix form |
Line 983 sub present_uneditable_metadata {
|
Line 987 sub present_uneditable_metadata {
|
my $table=''; |
my $table=''; |
my $title = $content{'title'}; |
my $title = $content{'title'}; |
if (! defined($title)) { |
if (! defined($title)) { |
$title = 'Untitled Resource'; |
$title = &mt('Untitled Resource'); |
} |
} |
my @fields; |
my @fields; |
if ($uploaded) { |
if ($uploaded) { |
Line 1174 sub print_dynamic_metadata {
|
Line 1178 sub print_dynamic_metadata {
|
&mt('No Assessment Statistical Data is available for this resource'). |
&mt('No Assessment Statistical Data is available for this resource'). |
'</h4>'); |
'</h4>'); |
} |
} |
|
|
# |
# |
# Evaluation Data |
# Evaluation Data |
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'); |
$r->print('<h4>'.&mt('Evaluation Data').'</h4>'); |
Line 1306 sub present_editable_metadata {
|
Line 1309 sub present_editable_metadata {
|
my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target); |
my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target); |
if ($bombs) { |
if ($bombs) { |
# Display Bombs, not Metadata |
# Display Bombs, not Metadata |
$r->print("<h1>$disuri</h1>"); |
$r->print( |
|
'<h2>'.&mt('Error Messages').'</h2>' |
|
.'<p>'.&mt('Folder: [_1]', |
|
'<span class="LC_filename">'.$disuri.'</span>') |
|
.'</p>' |
|
); |
my $showbuttons=1; |
my $showbuttons=1; |
my $message=''; |
my $message=''; |
my $rc=''; |
my $rc=''; |
Line 1367 sub present_editable_metadata {
|
Line 1375 sub present_editable_metadata {
|
# Display Metadata, not Bombs |
# Display Metadata, not Bombs |
my $displayfile = |
my $displayfile = |
&mt('Metadata for [_1]' |
&mt('Metadata for [_1]' |
,'<span class="LC_filename"'.$disuri.'</span>'); |
,'<span class="LC_filename">'.$disuri.'</span>'); |
if ($disuri=~/\/default$/) { |
if ($disuri=~/\/default$/) { |
my $dir=$disuri; |
my $dir=$disuri; |
$dir=~s/default$//; |
$dir=~s/default$//; |
Line 1403 sub present_editable_metadata {
|
Line 1411 sub present_editable_metadata {
|
} |
} |
} |
} |
$r->print(<<ENDEDIT); |
$r->print(<<ENDEDIT); |
<p>$displayfile</p> |
<h2>$displayfile</h2> |
<form method="post" action="" name="defaultmeta"> |
<form method="post" action="" name="defaultmeta"> |
ENDEDIT |
ENDEDIT |
my %lt=&fieldnames($file_type); |
my %lt=&fieldnames($file_type); |