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

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

version 1.249, 2013/01/30 13:36:29 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);
Line 1437  ENDEDIT Line 1437  ENDEDIT
         @fields = (split(/,/,$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'}));          @fields = (split(/,/,$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'}));
     } else {      } else {
         # no saved field list, use default list          # no saved field list, use default list
         @fields =  ('author','title','subject','keywords','abstract',          @fields =  ('title','author','subject','keywords','abstract',
     'notes','lowestgradelevel',      'notes','lowestgradelevel',
                     'highestgradelevel','standards');                      'highestgradelevel','standards');
                 if ($Apache::lonpublisher::metadatafields{'courserestricted'} =~ /^course\.($match_domain\_$match_courseid)$/) {                  if ($Apache::lonpublisher::metadatafields{'courserestricted'} =~ /^course\.($match_domain\_$match_courseid)$/) {
Line 1450  ENDEDIT Line 1450  ENDEDIT
                 }                  }
     }      }
  } else {   } else {
     @fields = ('author','title','subject','keywords','abstract','notes',      @fields = ('title','author','subject','keywords','abstract','notes',
        'copyright','customdistributionfile','language',         'copyright','customdistributionfile','language',
        'standards',         'standards',
        'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',         'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
Removed from v.1.249  
changed lines
  Added in v.1.252

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