[LON-CAPA-cvs] cvs: loncom /interface loncourseauthor.pm

[raeburn]

raeburn		Thu Mar 23 22:53:46 2023 EDT

  Modified files:              
    /loncom/interface	loncourseauthor.pm 
  Log:
  - "In course" authoring.
   - Display form items and "Create problem" button when location selected
     is "Course Resource" and no subdirectories exist currently. 
  
  
Index: loncom/interface/loncourseauthor.pm
diff -u loncom/interface/loncourseauthor.pm:1.1 loncom/interface/loncourseauthor.pm:1.2
--- loncom/interface/loncourseauthor.pm:1.1	Sat Dec 31 14:08:59 2022
+++ loncom/interface/loncourseauthor.pm	Thu Mar 23 22:53:46 2023
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: loncourseauthor.pm,v 1.1 2022/12/31 14:08:59 raeburn Exp $
+# $Id: loncourseauthor.pm,v 1.2 2023/03/23 22:53:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -87,7 +87,7 @@
                             $is_home = 1;
                         } 
                     }
-                } elsif ($role =~ m{^(ca|aa)\./($match_domain)/($match_username)$}) { 
+                } elsif ($role =~ m{^(ca|aa)\./($match_domain)/($match_username)$}) {
                     my ($rolecode,$audom,$auname) = ($1,$2,$3);
                     if (exists($env{"user.role.$role"})) {
                         my ($start,$end) = split(/\./,$env{"user.role.$role"});
@@ -139,6 +139,8 @@
         } else {
             push(@dirs,(sort { lc($a) cmp lc($b) } (keys(%dirhash))));
         }
+    } elsif (($env{'form.role'} eq 'course') && ($env{'form.path'} eq '') && (!$env{'form.nonempty'})) {
+        push(@dirs,'/');
     }
     my %files;
     if (%filehash) {