--- loncom/interface/loncommon.pm	2010/12/05 16:38:37	1.925.2.21
+++ loncom/interface/loncommon.pm	2010/12/05 17:40:24	1.925.2.22
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.925.2.21 2010/12/05 16:38:37 raeburn Exp $
+# $Id: loncommon.pm,v 1.925.2.22 2010/12/05 17:40:24 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -11041,6 +11041,14 @@ sub needs_gci_custom {
     return $custommenu;
 }
 
+sub ci_tabs {
+    my ($domain) = @_;
+    my %tabs = (
+                 gci  => ['review','submit','managetest','tutorial'],
+                 slci => ['review'],
+    return $tabs{$domain};
+}
+
 sub check_for_gci_dc {
     my $then=$env{'user.login.time'};
     my $numdc = 0;
@@ -11068,8 +11076,6 @@ sub get_faculty_cnums {
                 },
          slci => {
                     review => '',
-                    submit => '',
-                    tutorial' => '',
                  }
     );
     return %cnums;