--- loncom/interface/lonmeta.pm	2014/06/22 19:46:48	1.254
+++ loncom/interface/lonmeta.pm	2023/07/14 23:15:10	1.256
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Metadata display handler
 #
-# $Id: lonmeta.pm,v 1.254 2014/06/22 19:46:48 raeburn Exp $
+# $Id: lonmeta.pm,v 1.256 2023/07/14 23:15:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -550,13 +550,17 @@ sub direct {
 }
 
 sub selectbox {
-    my ($name,$value,$functionref,@idlist)=@_;
+    my ($name,$value,$readonly,$functionref,@idlist)=@_;
     if (! defined($functionref)) {
         $functionref=\&direct;
     }
+    my $disabled;
+    if ($readonly) {
+        $disabled = ' disabled="disabled"';
+    }
     my $selout='<select name="'.$name.'">';
     foreach my $id (@idlist) {
-        $selout.='<option value="'.$id.'"';
+        $selout.='<option value="'.$id.'"'.$disabled;
         if ($id eq $value) {
 	    $selout.=' selected="selected">'.&{$functionref}($id).'</option>';
         } else {
@@ -582,7 +586,7 @@ sub relatedfield {
 }
 
 sub prettyinput {
-    my ($type,$value,$fieldname,$formname,
+    my ($type,$value,$readonly,$fieldname,$formname,
 	$relatedsearchflag,$relatedsep,$relatedvalue,$size,$course_key)=@_;
     if (! defined($size)) {
         $size = 80;
@@ -661,7 +665,7 @@ sub prettyinput {
     # Language
     if ($type eq 'language') {
 	return &selectbox($fieldname,
-			  $value,
+			  $value,'',
 			  \&Apache::loncommon::languagedescription,
 			  (&Apache::loncommon::languageids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);
@@ -669,7 +673,7 @@ sub prettyinput {
     # Copyright
     if ($type eq 'copyright') {
 	return &selectbox($fieldname,
-			  $value,
+			  $value,$readonly,
 			  \&Apache::loncommon::copyrightdescription,
 			  (&Apache::loncommon::copyrightids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);
@@ -677,7 +681,7 @@ sub prettyinput {
     # Source Copyright
     if ($type eq 'sourceavail') {
 	return &selectbox($fieldname,
-			  $value,
+			  $value,'',
 			  \&Apache::loncommon::source_copyrightdescription,
 			  (&Apache::loncommon::source_copyrightids)).
                               &relatedfield(0,$relatedsearchflag,$relatedsep);
@@ -704,11 +708,20 @@ sub prettyinput {
     }
     # Customdistribution file
     if ($type eq 'customdistributionfile') {
-	return '<input type="text" name="'.$fieldname.
-	    '" size="60" value="'.$value.'" /><a href="javascript:openbrowser'.
-	    "('".$formname."','".$fieldname."'".
-	    ",'rights')\">".&mt('Select').'</a>'.
-            &relatedfield(0,$relatedsearchflag,$relatedsep); 
+        my $disabled;
+        if ($readonly) {
+            $disabled = ' disabled="disabled"';
+        }
+        my $output;
+	$output = '<input type="text" name="'.$fieldname.
+	    '" size="60" value="'.$value.'"'.$disabled.' />';
+        unless ($readonly) {
+            $output .= '<a href="javascript:openbrowser'.
+	               "('".$formname."','".$fieldname."'".
+	               ",'rights')\">".&mt('Select').'</a>';
+        }
+        $output .= &relatedfield(0,$relatedsearchflag,$relatedsep);
+        return $output;
     }
     # Source Customdistribution file
     if ($type eq 'sourcerights') {
@@ -777,9 +790,18 @@ sub handler {
     &Apache::lonhtmlcommon::clear_breadcrumbs();
 
     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({
-            'text'  => 'Authoring Space',
-            'href'  => &Apache::loncommon::authorspace($uri),
+            'text'  => $text,
+            'href'  => $href,
         });
     }
 
@@ -1312,6 +1334,16 @@ sub present_editable_metadata {
     # Authoring Space Call
     # Header
     my $disuri=$uri;
+    my ($courseauthor,$crsaurights,$readonly);
+    if ($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}) {
+            $courseauthor = $cnum.':'.$cdom;
+            $crsaurights = "/res/$cdom/$cnum/default.rights";
+            $readonly = 1;
+        }
+    }
     my $fn=&Apache::lonnet::filelocation('',$uri);
     $disuri=~s{^/\~}{/priv/};
     $disuri=~s/\.meta$//;
@@ -1473,6 +1505,10 @@ ENDEDIT
 		       'lowestgradelevel','highestgradelevel','sourceavail','sourcerights',
 		       'obsolete','obsoletereplacement');
         }
+        if ($courseauthor) {
+            $Apache::lonpublisher::metadatafields{'copyright'}='custom';
+            $Apache::lonpublisher::metadatafields{'customdistributionfile'}=$crsaurights;
+        }
         if (! $Apache::lonpublisher::metadatafields{'copyright'}) {
                 $Apache::lonpublisher::metadatafields{'copyright'}=
 		    'default';
@@ -1554,17 +1590,16 @@ ENDEDIT
                     $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})
                               .&prettyinput($field_name,
 				   $Apache::lonpublisher::metadatafields{$field_name},
-				                    'new_'.$field_name,'defaultmeta',
+				                    $readonly,'new_'.$field_name,'defaultmeta',
 				                    undef,undef,undef,undef,
                                                     $Apache::lonpublisher::metadatafields{'courserestricted'});
                     $output .= &Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);
                  }
             } else {
-
                     $output .= &Apache::lonhtmlcommon::row_title($lt{$field_name})
                               .&prettyinput($field_name,
 					   $Apache::lonpublisher::metadatafields{$field_name},
-                                           'new_'.$field_name,'defaultmeta')
+                                           $readonly,'new_'.$field_name,'defaultmeta')
                               .&Apache::lonhtmlcommon::row_closure($rowcount == $last?1:0);
                
             }
@@ -1607,6 +1642,17 @@ sub store_metadata {
         $Apache::lonpublisher::metadatafields{'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))) {
         next if ($field =~ /\./);
         my $unikey=$field;