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

[raeburn]

raeburn		Sun Dec  5 19:35:39 2010 EDT

  Modified files:              (Branch: GCI_3)
    /loncom/interface	loncommon.pm 
  Log:
  - Customization for GCI_3.
    - Missing closing parenthesis.
    - Remove extra single quote.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.925.2.22 loncom/interface/loncommon.pm:1.925.2.23
--- loncom/interface/loncommon.pm:1.925.2.22	Sun Dec  5 17:40:24 2010
+++ loncom/interface/loncommon.pm	Sun Dec  5 19:35:38 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.925.2.22 2010/12/05 17:40:24 raeburn Exp $
+# $Id: loncommon.pm,v 1.925.2.23 2010/12/05 19:35:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4581,7 +4581,7 @@
         my %cicourses;
         my $udom = $env{'user.domain'};
         my %allnums = &get_faculty_cnums();
-        if ($udom ne '' && ref($allnums{$udom} eq 'HASH') {
+        if (($udom ne '') && (ref($allnums{$udom}) eq 'HASH')) {
              foreach my $key (%{$allnums{$udom}}) {
                  $cicourses{$udom.'_'.$key} = $allnums{$udom}->{$key};
              }
@@ -11046,6 +11046,7 @@
     my %tabs = (
                  gci  => ['review','submit','managetest','tutorial'],
                  slci => ['review'],
+               );
     return $tabs{$domain};
 }
 
@@ -11072,7 +11073,7 @@
          gci => { 
                     review => '9615072b469884921gcil1',
                     submit => '1H96711d710194bfegcil1',
-                    tutorial' => '5422913620b814c90gcil1',
+                    tutorial => '5422913620b814c90gcil1',
                 },
          slci => {
                     review => '',