--- loncom/interface/loncommon.pm	2010/10/04 22:30:42	1.925.2.15
+++ loncom/interface/loncommon.pm	2010/12/06 02:19:38	1.925.2.24
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.925.2.15 2010/10/04 22:30:42 raeburn Exp $
+# $Id: loncommon.pm,v 1.925.2.24 2010/12/06 02:19:38 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1980,7 +1980,7 @@ sub select_dom_form {
             if ($dom ne '') {
                 my $domdesc;
                 if ($name eq 'srchdomain') {
-                    if ($dom eq 'gci') {
+                    if ($dom =~ /^\w+ci$/) {
                         $domdesc = 'Faculty';
                     } else {
                         $domdesc = 'Students';
@@ -4463,6 +4463,11 @@ sub bodytag {
     my ($title,$function,$addentries,$bodyonly,$domain,$forcereg,
         $no_nav_bar,$bgcolor,$no_inline_link,$args)=@_;
 
+    my $public;
+    if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
+        || ($env{'user.name'} eq '') && ($env{'user.domain'} eq '')) {
+        $public = 1;
+    }
     if (!$args->{'no_auto_mt_title'}) { $title = &mt($title); }
 
     $function = &get_users_function() if (!$function);
@@ -4491,16 +4496,20 @@ sub bodytag {
 # realm
     if ($env{'request.course.id'}) {
         if ($env{'request.role'} !~ /^cr/) {
-            if (($custommenu) && ($role eq 'cm')) {
+            if (($custommenu) && (($role eq 'cm') || ($env{'form.context'} eq 'requestcrs'))) {
                 undef($role);
             } else {
                 $role = &Apache::lonnet::plaintext($role,&course_type());
             }
         }
-        if ($env{'request.course.sec'}) {
+        if (defined($role) && $env{'request.course.sec'}) {
             $role .= (' 'x2).'- '.&mt('section:').' '.$env{'request.course.sec'};
-        }   
-	$realm = $env{'course.'.$env{'request.course.id'}.'.description'};
+        }
+        if ($env{'form.context'} eq 'requestcrs') {
+            undef($realm);
+        } else {
+	    $realm = $env{'course.'.$env{'request.course.id'}.'.description'};
+        }
     } else {
         if (($custommenu) && ($role eq 'cm')) {
             undef($role);
@@ -4524,7 +4533,7 @@ sub bodytag {
     } 
 
     my $name = &plainname($env{'user.name'},$env{'user.domain'});
-    if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
+    if ($public) {
 	undef($role);
     } else {
 	$name = &aboutmewrapper($name,$env{'user.name'},$env{'user.domain'});
@@ -4545,7 +4554,7 @@ sub bodytag {
     $role = '<span class="LC_nobreak">('.$role.')</span>' if $role;
     &get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);
 
-    if ($env{'environment.remote'} eq 'off') {
+    if ($env{'environment.remote'} ne 'on') {
         # No Remote
         if ($no_nav_bar || $env{'form.inhibitmenu'} eq 'yes') { 
             return $bodytag; 
@@ -4558,8 +4567,9 @@ sub bodytag {
         #    }
 
         my $role_selector;
-        if (($custommenu) && ($env{'request.course.id'}) && 
-            ($env{'course.'.$env{'request.course.id'}.'.domain'} eq 'gcitest')) {
+        if (($custommenu) && !($env{'form.context'} eq 'requestcrs') && 
+            ($env{'request.course.id'}) && 
+            ($env{'course.'.$env{'request.course.id'}.'.domain'} =~ /^\w+citest$/)) {
             $role_selector = &Apache::lonmenu::roles_selector(
                         $env{'course.' . $env{'request.course.id'} . '.domain'},
                         $env{'course.' . $env{'request.course.id'} . '.num'}  );
@@ -4568,12 +4578,17 @@ sub bodytag {
             }
         }
         my $cid = $env{'request.course.id'};
-        my %gcicourses = (
-                           gci_9615072b469884921gcil1 => 'review',
-                           gci_1H96711d710194bfegcil1 => 'submit',
-                           gci_5422913620b814c90gcil1 => 'tutorial',
-                         );
-        if (($custommenu && $cid && !$gcicourses{$cid}) || ($env{'user.domain'} eq 'gcitest')) {
+        my %cicourses;
+        my $udom = $env{'user.domain'};
+        my %allnums = &get_faculty_cnums();
+        if (($udom ne '') && (ref($allnums{$udom}) eq 'HASH')) {
+             foreach my $key (%{$allnums{$udom}}) {
+                 $cicourses{$udom.'_'.$key} = $allnums{$udom}->{$key};
+             }
+        }
+        if (($custommenu && $cid && !$cicourses{$cid}) && 
+             !($env{'form.context'} eq 'requestcrs') ||
+             ($env{'user.domain'} =~ /^\w+citest$/)) {
             my $role = 'st';
             if ($custommenu) {
                 $role = 'cc';
@@ -4595,7 +4610,7 @@ sub bodytag {
                     $current = $role.'./'.$env{'course.'.$cid.'.domain'}.
                                '/'.$env{'course.'.$cid.'.num'};
                 }
-                $switcher_js = &Apache::loncommon::gcitest_switcher_js($current,$numcourses,$formname);
+                $switcher_js = &gcitest_switcher_js($current,$numcourses,$formname);
                 if ($switcher_js) {  
                     $switcher_js= <<"ENDSCRIPT";
 <script type="text/javascript">
@@ -4626,10 +4641,15 @@ ENDSCRIPT
                 <em>$realm</em> $dc_info</div>|;
             return $bodytag;
         }
+        if ($env{'request.noversionuri'} eq '/adm/navmaps' &&
+                $env{'environment.remotenavmap'} eq 'on') {
+            return $bodytag;
+        }
 
-        if ($cid && $gcicourses{$cid} eq 'tutorial') {
+        if ($cid && $cicourses{$cid} eq 'tutorial') {
             $bodytag .= '<div class="LC_page_header">';
-        } 
+        }
+ 
         $bodytag .= qq|<div id="LC_nav_bar">$name $role $role_selector</div>|;
 
         $bodytag .= Apache::lonhtmlcommon::scripttag(
@@ -4641,16 +4661,16 @@ ENDSCRIPT
             $dc_info = &dc_courseid_toggle($dc_info);
         }
         $bodytag .= qq|<div id="LC_realm">$realm $dc_info</div>|;
-        if ($cid && $gcicourses{$cid} eq 'tutorial') {
+        if ($cid && $cicourses{$cid} eq 'tutorial') {
             $bodytag .= '</div>';
         }
 
         #don't show menus for public users
-        if($env{'user.name'} ne 'public' && $env{'user.domain'} ne 'public'){
+        if(!$public){
             if (($custommenu) && 
-                ($env{'request.role'} !~ m{^st\./gcitest/$match_courseid})) {
+                ($env{'request.role'} !~ m{^st\./(\w+)citest/$match_courseid})) {
                 $bodytag .= &Apache::lonmenu::gci_secondary_menu();
-            } else { 
+            } elsif ($env{'request.role'} ne 'cm' || &check_for_gci_dc()) {    
                 $bodytag .= Apache::lonmenu::secondary_menu();
             }
             $bodytag .= Apache::lonmenu::serverform();
@@ -4662,8 +4682,19 @@ ENDSCRIPT
                 $bodytag .= &Apache::lonmenu::innerregister($forcereg);
             } elsif ($custommenu && $env{'request.course.id'} && 
                      &Apache::lonnet::allowed('mdc', $env{'request.course.id'})) {
-                if ($env{'request.noversionuri'} eq '/adm/navmaps') {
+                if ((($env{'request.noversionuri'} eq '/adm/navmaps') && 
+                    ($env{'request.noversionuri'} ne 'on')) ||
+                    (($env{'request.noversionuri'} eq '/adm/coursedocs') &&
+                     (!($env{'form.context'} eq 'requestcrs'))) ||
+                    (($env{'request.noversionuri'} eq '/adm/createuser') &&
+                     (!($env{'form.context'} eq 'requestcrs'))) ||
+                    ($env{'request.noversionuri'} eq '/adm/whatsnew') ||
+                    ($env{'request.noversionuri'} eq '/cgi-bin/printout.pl') ||
+                    ($env{'request.noversionuri'} eq '/adm/printout') ||
+                    ($env{'request.noversionuri'} eq '/adm/statistics')) {
+
                     my @advtools = &concept_test_manager();
+                    &Apache::lonhtmlcommon::clear_breadcrumbs();
                     &Apache::lonhtmlcommon::add_breadcrumb_tool(
                                       'advtools',@advtools);
                     my $advlinks;
@@ -6158,11 +6189,6 @@ ol.LC_primary_menu {
   margin: 0.2em 0 0 0;
 }
 
-span.LC_new_message{
-  font-weight:bold;
-  color: darkred;
-}
-
 ol#LC_PathBreadcrumbs {
   margin: 0;
 }
@@ -6183,6 +6209,11 @@ ol.LC_primary_menu a {
   text-decoration: none;
 }
 
+ol.LC_primary_menu a.LC_new_message {
+  font-weight:bold;
+  color: darkred;
+}
+
 ul#LC_secondary_menu {
   clear: both;
   color: $fontmenu;
@@ -6546,6 +6577,10 @@ a#LC_content_toolbar_changefolder_toggle
   background-image:url(/res/adm/pages/open-all-folders.gif);
 }
 
+a#LC_content_toolbar_management {
+  background-image:url(/res/adm/pages/navtomenu.png);
+}
+
 ul#LC_toolbar li a:hover {
   background-position: bottom center;
 }
@@ -6620,7 +6655,7 @@ ul.LC_funclist li {
 }
 #gciheader ul {
   margin:0;
-  padding:10px 5px 0;
+  padding:10px 10px 0;
   list-style:none;
 }
 #gciheader li {
@@ -6935,8 +6970,10 @@ sub start_page {
 		#if bread_crumbs_component exists show it as headline else show only the breadcrumbs
 		if(exists($args->{'bread_crumbs_component'})){
 			$result .= &Apache::lonhtmlcommon::breadcrumbs($args->{'bread_crumbs_component'});
-		} else {
-                	$result .= &Apache::lonhtmlcommon::breadcrumbs(); 
+		} elsif (exists($args->{'bread_crumbs_menulink'})) {
+			$result .= &Apache::lonhtmlcommon::breadcrumbs('','',$args->{'bread_crumbs_menulink'});
+                } else {
+			$result .= &Apache::lonhtmlcommon::breadcrumbs(); 
 		}
     }
     return $result;
@@ -10976,22 +11013,23 @@ sub clean_symb {
 sub needs_gci_custom {
     my $custommenu;
     my $numdc = &check_for_gci_dc();
+    my $udom = $env{'user.domain'};
+    return if ($udom eq '');
     unless ($numdc) {
         my $then=$env{'user.login.time'};
         my $now = time;
-        my %cnums = (
-                        review => '9615072b469884921gcil1',
-                        submit => '1H96711d710194bfegcil1',
-                    );
-        if ($env{'user.role.st./gci/'.$cnums{'review'}}) {
+        my %allnums = &get_faculty_cnums();
+        my $cnums = $allnums{$udom};
+        return unless (ref($cnums) eq 'HASH');
+        if ($env{'user.role.st./\Q$udom\E/'.$cnums->{'review'}}) {
             my ($start,$end) =
-                split('.',$env{'user.role.st./gci/'.$cnums{'review'}});
+                split('.',$env{'user.role.st./\Q$udom\E/'.$cnums->{'review'}});
             if (((!$start) || ($start && $start <= $now)) &&
                 ((!$end) || ($end > $now))) {
                 $custommenu = 1;
-                if ($env{'user.role.cc./gci/'.$cnums{'review'}}) {
+                if ($env{'user.role.cc./\Q$udom\E/'.$cnums->{'review'}}) {
                     my ($ccstart,$ccend) =
-                        split('.',$env{'user.role.cc./gci/'.$cnums{'review'}});
+                        split('.',$env{'user.role.cc./\Q$udom\E/'.$cnums->{'review'}});
                     if (((!$start) || ($start && $start <= $now)) &&
                             ((!$end) || ($end > $now))) {
                         $custommenu = '';
@@ -11003,10 +11041,20 @@ 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;
-    foreach my $dom ('gci','gcitest') {
+    my @doms = &Apache::lonnet::current_machine_domains();
+    foreach my $dom (@doms) {
         if ($env{'user.role.dc./'.$dom.'/'}) {
             my $livedc = 1;
             my ($tstart,$tend)=split(/\./,$env{'user.role.dc./'.$dom.'/'});
@@ -11020,10 +11068,24 @@ sub check_for_gci_dc {
     return $numdc;
 }
 
+sub get_faculty_cnums {
+    my %cnums = (
+         gci => { 
+                    review => '9615072b469884921gcil1',
+                    submit => '1H96711d710194bfegcil1',
+                    tutorial => '5422913620b814c90gcil1',
+                },
+         slci => {
+                    review => '4V80581c93ffc4c38gcil1',
+                 }
+    );
+    return %cnums;
+}
+
 sub existing_gcitest_courses {
     my ($role) = @_;
     my %courses;
-    my $cdom = 'gcitest';
+    my $cdom = $env{'user.domain'}.'test';
     my $now = time;
     foreach my $envkey (keys(%env)) {
         my $cnum;
@@ -11032,7 +11094,7 @@ sub existing_gcitest_courses {
         } else {
             next;
         }
-        my ($tstart,$tend) = split('.',$env{$envkey});
+        my ($tstart,$tend) = split(/\./,$env{$envkey});
         if (((!$tstart) || ($tstart < $now)) && ((!$tend) || ($tend > $now))) {
             my $descr = $env{'course.'.$cdom.'_'.$cnum.'.description'};
             if ($descr ne '') {
@@ -11116,7 +11178,14 @@ ENDJS
     return $output;
 }
 
-
+sub get_citest_map {
+    my ($cdom) = @_;
+    my %questionnaires = (
+                           gcitest  => 'default_1261144274.sequence',
+                           slcitest => 'default_1261144274.sequence',
+                         );
+    return $questionnaires{$cdom};
+}
 
 =pod