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

Diff for /loncom/interface/lonmeta.pm between versions 1.250 and 1.252

version 1.250, 2013/05/03 14:00:58 version 1.252, 2014/02/11 18:52:20
Line 389  sub select_course { Line 389  sub select_course {
                     &mt('You can choose to transfer data from the added fields to the "Notes" field if you are planning to change the course association.').'<br /><br />'.                      &mt('You can choose to transfer data from the added fields to the "Notes" field if you are planning to change the course association.').'<br /><br />'.
                     &Apache::loncommon::start_data_table().                      &Apache::loncommon::start_data_table().
                     &Apache::loncommon::start_data_table_header_row().                      &Apache::loncommon::start_data_table_header_row().
                     '<th>Copy to notes?</th>'."\n".                      '<th>'.&mt('Copy to notes?').'</th>'."\n".
                     '<th>Field name</th>'."\n".                      '<th>'.&mt('Field Name').'</th>'."\n".
                     '<th>Values</th>'."\n".                      '<th>'.&mt('Values').'</th>'."\n".
                     &Apache::loncommon::end_data_table_header_row().                      &Apache::loncommon::end_data_table_header_row().
                     $transfernotes.                      $transfernotes.
                     &Apache::loncommon::end_data_table().'<br />';                      &Apache::loncommon::end_data_table().'<br />';
Line 455  sub prettyprint { Line 455  sub prettyprint {
     }      }
     # MIME      # MIME
     if ($type eq 'mime') {      if ($type eq 'mime') {
         return '<img src="'.&Apache::loncommon::icon($value).'" />&nbsp;'.          return '<img src="'.&Apache::loncommon::icon($value).'" alt="" />&nbsp;'.
             &Apache::loncommon::filedescription($value);              &Apache::loncommon::filedescription($value);
     }      }
     # Person      # Person
Line 778  sub handler { Line 778  sub handler {
   
     if ($env{'request.state'} eq 'construct') {      if ($env{'request.state'} eq 'construct') {
         &Apache::lonhtmlcommon::add_breadcrumb({          &Apache::lonhtmlcommon::add_breadcrumb({
             'text'  => 'Construction Space',              'text'  => 'Authoring Space',
             'href'  => &Apache::loncommon::authorspace($uri),              'href'  => &Apache::loncommon::authorspace($uri),
         });          });
     }      }
Line 829  sub handler { Line 829  sub handler {
         $r->print(&pageheader());          $r->print(&pageheader());
         &present_editable_metadata($r,$uri,'groups');              &present_editable_metadata($r,$uri,'groups');    
     } elsif ($uri=~m|^/priv|) {       } elsif ($uri=~m|^/priv|) { 
         # Construction space          # Authoring space
         &Apache::lonhtmlcommon::add_breadcrumb({          &Apache::lonhtmlcommon::add_breadcrumb({
             'text'  => 'Edit Metadata',              'text'  => 'Edit Metadata',
             'href'  => '',              'href'  => '',
Line 1292  sub print_dynamic_metadata { Line 1292  sub print_dynamic_metadata {
 #####################################################  #####################################################
 sub present_editable_metadata {  sub present_editable_metadata {
     my ($r,$uri,$file_type) = @_;      my ($r,$uri,$file_type) = @_;
     # Construction Space Call      # Authoring Space Call
     # Header      # Header
     my $disuri=$uri;      my $disuri=$uri;
     my $fn=&Apache::lonnet::filelocation('',$uri);      my $fn=&Apache::lonnet::filelocation('',$uri);
Removed from v.1.250  
changed lines
  Added in v.1.252

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