--- loncom/interface/lonmeta.pm 2012/11/09 18:56:50 1.248 +++ loncom/interface/lonmeta.pm 2013/01/30 13:36:29 1.249 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.248 2012/11/09 18:56:50 bisitz Exp $ +# $Id: lonmeta.pm,v 1.249 2013/01/30 13:36:29 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -872,7 +872,11 @@ sub report_bombs { # Set document type $uri =~ s:/adm/bombs/::; $uri = &Apache::lonnet::declutter($uri); - $r->print('

'.&Apache::lonnet::clutter($uri).'

'); + $r->print( + '

'.&mt('Folder: [_1]', + ''.&Apache::lonnet::clutter($uri).'') + .'

' + ); my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//); if (!&Apache::lonnet::constructaccess('/priv/'.$domain.'/'.$author.'/')) { $r->print('

'.&mt('Not authorized').'

'); @@ -965,7 +969,7 @@ sub present_uneditable_metadata { $currentversion : &mt('information not available')).')'; } else { - $versiondisplay='Version: '.$currentversion; + $versiondisplay=&mt('Version: [_1]',$currentversion); } } # crumbify displayed URL uri target prefix form @@ -983,7 +987,7 @@ sub present_uneditable_metadata { my $table=''; my $title = $content{'title'}; if (! defined($title)) { - $title = 'Untitled Resource'; + $title = &mt('Untitled Resource'); } my @fields; if ($uploaded) { @@ -1174,7 +1178,6 @@ sub print_dynamic_metadata { &mt('No Assessment Statistical Data is available for this resource'). ''); } - # # Evaluation Data $r->print('

'.&mt('Evaluation Data').'

'); @@ -1306,7 +1309,12 @@ sub present_editable_metadata { my $bombs=&Apache::lonmsg::retrieve_author_res_msg($target); if ($bombs) { # Display Bombs, not Metadata - $r->print("

$disuri

"); + $r->print( + '

'.&mt('Error Messages').'

' + .'

'.&mt('Folder: [_1]', + ''.$disuri.'') + .'

' + ); my $showbuttons=1; my $message=''; my $rc=''; @@ -1367,7 +1375,7 @@ sub present_editable_metadata { # Display Metadata, not Bombs my $displayfile = &mt('Metadata for [_1]' - ,''); + ,''.$disuri.''); if ($disuri=~/\/default$/) { my $dir=$disuri; $dir=~s/default$//; @@ -1403,7 +1411,7 @@ sub present_editable_metadata { } } $r->print(<$displayfile

+

$displayfile

ENDEDIT my %lt=&fieldnames($file_type);