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

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

version 1.256, 2023/07/14 23:15:10 version 1.257, 2023/11/07 21:31:11
Line 1509  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'}) {
Removed from v.1.256  
changed lines
  Added in v.1.257

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