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

Diff for /loncom/interface/lonmeta.pm between versions 1.254 and 1.254.2.1

version 1.254, 2014/06/22 19:46:48 version 1.254.2.1, 2024/02/28 16:10:27
Line 1473  ENDEDIT Line 1473  ENDEDIT
        'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',         'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
        'obsolete','obsoletereplacement');         'obsolete','obsoletereplacement');
         }          }
           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'}) {
Removed from v.1.254  
changed lines
  Added in v.1.254.2.1

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