[BACK]Return to lonmeta.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmeta.pm between versions 1.248 and 1.249

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);
Removed from v.1.248  
changed lines
  Added in v.1.249

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>