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

[raeburn]

raeburn		Tue Mar 11 00:57:24 2014 EDT

  Modified files:              
    /loncom/interface	lonmodifycourse.pm londocs.pm 
  Log:
  - Institutional code is stored as internal.coursecode in a course's
    environment.db
  
  
Index: loncom/interface/lonmodifycourse.pm
diff -u loncom/interface/lonmodifycourse.pm:1.67 loncom/interface/lonmodifycourse.pm:1.68
--- loncom/interface/lonmodifycourse.pm:1.67	Thu Feb 27 11:44:40 2014
+++ loncom/interface/lonmodifycourse.pm	Tue Mar 11 00:57:23 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # handler for DC-only modifiable course settings
 #
-# $Id: lonmodifycourse.pm,v 1.67 2014/02/27 11:44:40 bisitz Exp $
+# $Id: lonmodifycourse.pm,v 1.68 2014/03/11 00:57:23 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -436,7 +436,7 @@
                            coursequota   => 20,
                            uploadquota   => 500,
                          );
-    my %settings = &Apache::lonnet::get('environment',['internal.coursequota','internal.uploadquota','internal.instcode'],
+    my %settings = &Apache::lonnet::get('environment',['internal.coursequota','internal.uploadquota','internal.coursecode'],
                                         $cdom,$cnum);
     my $coursequota = $settings{'internal.coursequota'};
     my $uploadquota = $settings{'internal.uploadquota'};
@@ -447,7 +447,7 @@
         my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
         if ($type eq 'Community') {
             $uploadquota = $domdefs{$lctype.'quota'};
-        } elsif ($settings{'internal.instcode'}) {
+        } elsif ($settings{'internal.coursecode'}) {
             $uploadquota = $domdefs{'officialquota'};
         } elsif ($settings{'internal.textbook'}) {
             $uploadquota = $domdefs{'textbookquota'};
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.579 loncom/interface/londocs.pm:1.580
--- loncom/interface/londocs.pm:1.579	Mon Mar 10 20:42:29 2014
+++ loncom/interface/londocs.pm	Tue Mar 11 00:57:23 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.579 2014/03/10 20:42:29 raeburn Exp $
+# $Id: londocs.pm,v 1.580 2014/03/11 00:57:23 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3175,7 +3175,7 @@
     my $quotatype = 'unofficial';
     if ($crstype eq 'Community') {
         $quotatype = 'community';    
-    } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.instcode'}) {
+    } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.coursecode'}) {
         $quotatype = 'official';
     } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.textbook'}) {
         $quotatype = 'textbook';