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

Diff for /loncom/interface/lonmeta.pm between versions 1.255 and 1.256

version 1.255, 2023/03/28 23:17:18 version 1.256, 2023/07/14 23:15:10
Line 790  sub handler { Line 790  sub handler {
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
   
     if ($env{'request.state'} eq 'construct') {      if ($env{'request.state'} eq 'construct') {
           my $text = 'Authoring Space';
           my $href = &Apache::loncommon::authorspace($uri);
           if ($env{'request.course.id'}) {
               my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
               my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
               if ($href eq "/priv/$cdom/$cnum/") {
                   $text = 'Course Authoring Space';
               }
           }
         &Apache::lonhtmlcommon::add_breadcrumb({          &Apache::lonhtmlcommon::add_breadcrumb({
             'text'  => 'Authoring Space',              'text'  => $text,
             'href'  => &Apache::loncommon::authorspace($uri),              'href'  => $href,
         });          });
     }      }
   
Line 1633  sub store_metadata { Line 1642  sub store_metadata {
         $Apache::lonpublisher::metadatafields{'keywords'} =          $Apache::lonpublisher::metadatafields{'keywords'} =
             join (',', &Apache::loncommon::get_env_multiple('form.new_keywords'));              join (',', &Apache::loncommon::get_env_multiple('form.new_keywords'));
             }              }
       if (($caller eq 'store') && ($env{'request.course.id'})) {
           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           if ($uri =~ m{^\Q/priv/$cdom/$cnum/\E}) {
               unless ($uri eq "/priv/$cdom/$cnum/default.rights.meta") {
                   $Apache::lonpublisher::metadatafields{'copyright'} = 'custom';
                   $Apache::lonpublisher::metadatafields{'customdistributionfile'} =
                       "/res/$cdom/$cnum/default.rights";
               }
           }
       }
     foreach my $field (sort(keys(%Apache::lonpublisher::metadatafields))) {      foreach my $field (sort(keys(%Apache::lonpublisher::metadatafields))) {
         next if ($field =~ /\./);          next if ($field =~ /\./);
         my $unikey=$field;          my $unikey=$field;
Removed from v.1.255  
changed lines
  Added in v.1.256

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