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

[raeburn]

raeburn		Fri Oct 21 21:18:56 2022 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  - Archive file can uploaded to top level of Main or Supplemental Content,
    and contents can be extracted.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1391 loncom/interface/loncommon.pm:1.1392
--- loncom/interface/loncommon.pm:1.1391	Wed Oct 19 00:03:10 2022
+++ loncom/interface/loncommon.pm	Fri Oct 21 21:18:56 2022
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1391 2022/10/19 00:03:10 raeburn Exp $
+# $Id: loncommon.pm,v 1.1392 2022/10/21 21:18:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -14287,7 +14287,9 @@
                             my $url = '/uploaded/'.$docudom.'/'.$docuname.'/'.
                                       $docstype.'/'.$mapinner{$outer}.'/'.$newidx.'/'.
                                       $title;
-                            if (($outer !~ /\D/) && ($mapinner{$outer} !~ /\D/) && ($newidx !~ /\D/)) {
+                            if (($outer !~ /\D/) &&
+                                (($mapinner{$outer} eq 'default') || ($mapinner{$outer} !~ /\D/)) &&
+                                ($newidx !~ /\D/)) {
                                 if (!-e "$prefix$dir/$docstype/$mapinner{$outer}") {
                                     mkdir("$prefix$dir/$docstype/$mapinner{$outer}",0755);
                                 }