[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.257

version 1.255, 2023/03/28 23:17:18 version 1.257, 2023/11/07 21:31:11
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 1500  ENDEDIT Line 1509  ENDEDIT
             $Apache::lonpublisher::metadatafields{'copyright'}='custom';              $Apache::lonpublisher::metadatafields{'copyright'}='custom';
             $Apache::lonpublisher::metadatafields{'customdistributionfile'}=$crsaurights;              $Apache::lonpublisher::metadatafields{'customdistributionfile'}=$crsaurights;
         }          }
           my (%domdefs,$got_domdefs);
         if (! $Apache::lonpublisher::metadatafields{'copyright'}) {          if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
                 $Apache::lonpublisher::metadatafields{'copyright'}=              my $copyright = 'default';
     'default';              if ($env{'environment.copyright'} ne '') {
                   $copyright = $env{'environment.copyright'};
               } else {
                   my $defdom = $env{'request.role.domain'};
                   if ($disuri =~ m{^/priv/($match_domain)/}) {
                       $defdom = $1;
                   }
                   if ($defdom ne '') {
                       %domdefs = &Apache::lonnet::get_domain_defaults($defdom);
                       $got_domdefs = 1;
                       if ($domdefs{'copyright'} ne '') {
                           $copyright = $domdefs{'copyright'};
                       }
                   }
               }
               $Apache::lonpublisher::metadatafields{'copyright'}=
    $copyright;
           }
           if (! $Apache::lonpublisher::metadatafields{'sourceavail'}) {
               my $sourceavail = 'closed';
               if ($env{'environment.sourceavail'} ne '') {
                   $sourceavail = $env{'environment.sourceavail'};
               } else {
                   my $defdom = $env{'request.role.domain'};
                   if ($disuri =~ m{^/priv/($match_domain)/}) {
                       $defdom = $1;
                   }
                   if ($defdom ne '') {
                       unless ($got_domdefs) {
                           %domdefs = &Apache::lonnet::get_domain_defaults($defdom);
                           $got_domdefs = 1;
                       }
                       if ($domdefs{'sourceavail'} ne '') {
                           $sourceavail = $domdefs{'sourceavail'};
                       }
                   }
               }
               $Apache::lonpublisher::metadatafields{'sourceavail'}=
                   $sourceavail;
         }          }
  if (($file_type eq 'portfolio') || ($file_type eq 'groups'))  {   if (($file_type eq 'portfolio') || ($file_type eq 'groups'))  {
     if (! $Apache::lonpublisher::metadatafields{'mime'}) {      if (! $Apache::lonpublisher::metadatafields{'mime'}) {
Line 1633  sub store_metadata { Line 1681  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.257

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