[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /interface loncommon.pm
From: raeburn via LON-CAPA-cvs <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2022-10-21 21:18:56
Message-ID: cvsraeburn1666387136 () cvsserver
[Download RAW message or body]
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);
}
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic