--- loncom/interface/lonmenu.pm	2009/12/07 20:04:18	1.309.2.1
+++ loncom/interface/lonmenu.pm	2009/12/16 14:21:59	1.310
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.309.2.1 2009/12/07 20:04:18 raeburn Exp $
+# $Id: lonmenu.pm,v 1.310 2009/12/16 14:21:59 wenzelju Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -150,6 +150,9 @@ sub prep_menuitem {
     } else {             # textual Link
         $link = &mt($$menuitem[3]);
     }
+    if($$menuitem[4] eq 'newmsg'){   #special style for New Messages
+        return '<li><a href="'.$$menuitem[0].'"><span class="LC_new_message">'.$link.'</span></a></li>';
+    }
     return '<li><a href="'.$$menuitem[0].'">'.$link.'</a></li>';
 }
 
@@ -160,7 +163,6 @@ sub prep_menuitem {
 # entries from mydesk.tab
 sub primary_menu {
     my $menu;
-    my $custommenu = &Apache::loncommon::needs_gci_custom();
     # each element of @primary contains following array:
     # (link url, icon path, alt text, link text, condition)
     foreach my $menuitem (@primary_menu) {
@@ -176,10 +178,6 @@ sub primary_menu {
         next if    $$menuitem[4]        eq 'onlypublic'# hide links which are 
                 && $env{'user.name'}    ne 'public'    # only visible to public
                 && $env{'user.domain'}  ne 'public';   # users
-        next if    $$menuitem[4]        eq 'roles'     # hide links which are
-                && $custommenu;                        # not visible when GCI
-        next if    $$menuitem[4]        eq 'courses'   # tabbed interface in use
-                && $custommenu;                        # 
         next if    $$menuitem[4]        eq 'roles'     ##show links depending on
                 && &Apache::loncommon::show_course();  ##term 'Courses' or 
         next if    $$menuitem[4]        eq 'courses'   ##'Roles' wanted
@@ -282,53 +280,6 @@ sub secondary_menu {
     return "<ul id=\"LC_secondary_menu\">$menu</ul>";
 }
 
-sub gci_secondary_menu {
-    my %courses = (
-        'review' => 'gci_9615072b469884921gcil1',
-        'submit' => 'gci_1H96711d710194bfegcil1',
-    );
-    my %linktext = (
-        'review'      => 'Review Questions',
-        'submit'      => 'Submit Questions',
-        'createtest'  => 'Create a Test',
-    );
-    my (%links,$current);
-    foreach my $key (keys(%courses)) {
-        $links{$key} = "javascript:switchpage('$key');";
-        if ($env{'request.course.id'} eq $courses{$key}) {
-            $links{$key} = '/adm/navmaps';
-            $current = $key;
-        }
-    }
-    $links{'createtest'} = "javascript:switchpage('createtest');";
-    if (($ENV{'REQUEST_URI'} eq '/adm/requestcourse') ||
-        ($env{'form.orgurl'} eq '/adm/requestcourse')) {
-        $current = 'createtest';
-    }
-    my @menutabs = ('review','submit','createtest');
-    if ($env{'user.adv'}) {
-        my $key = 'managetest';
-        push(@menutabs,$key);
-        $linktext{$key} = 'Manage Tests';
-        $links{$key} = "javascript:switchpage('$key');";
-        if (($current eq '') && (($ENV{'REQUEST_URI'} eq '/adm/menu') ||
-            ($env{'form.orgurl'} eq '/adm/menu'))) {
-            $current = $key;
-        }
-    }
-    my $tabs;
-    foreach my $item (@menutabs) {
-        if ($item eq $current) {
-            $tabs .= ' <li id="current"><a href="'.$links{$item}.'">'.
-                     $linktext{$item}.'</a></li>';
-        } else {
-            $tabs .= ' <li><a href="'.$links{$item}.'">'.
-                     $linktext{$item}.'</a></li>';
-        }
-    }
-    return '<div id="gciheader">'.
-           '<ul>'.$tabs.'</ul></div><br />';
-}
 
 #
 # This routine returns a translated hash for the menu items in the top inline menu row
@@ -1384,58 +1335,36 @@ sub openmenu {
 }
 
 sub inlinemenu {
-    my ($context,$switcher) = @_;
     undef(@inlineremote);
     undef(%category_members);
-    my $output;
-    if ($context eq 'gcicustom') {
-        $output.='<div class="LC_left_float">'.
-                 '<fieldset id="LC_mainmenu_fieldset">'.
-                 '<legend class="LC_mainmenu_fieldset_category">'.&mt('Utilities').'</legend>'.
-                '<table id="LC_menubuttons_mainmenu">';
-        if ($switcher) {
-            $output .= '<tr><td class="LC_menubuttons_img" align="left"><a href="javascript:courseswitcher('."'icon'".');"><img alt="choose role" src="/res/adm/pages/roles.png" align="left" /></a></td><td class="LC_menubuttons_text" colspan="3"><span class="LC_menubuttons_inline_text">'.$switcher.'</span></td></tr>';
-        }
-        $output .= '<tr><td class="LC_menubuttons_img" align="left"><a href="javascript:go('."'/adm/communicate'".');"><img alt="communication" src="/res/adm/pages/com.png" align="left" /></a></td><td class="LC_menubuttons_text" colspan="3"><a class="LC_menubuttons_link" href="javascript:go('."'/adm/communicate'".');"><span class="LC_menubuttons_inline_text">'.&mt('Send and display messages').'</span></a></td></tr></table></fieldset></div>';
-        if (($env{'request.course.id'}) &&
-            (&Apache::lonnet::allowed('mdc',$env{'request.course.id'}))) {
-            $output.= '<div class="LC_left_float">'.
-                '<fieldset id="LC_mainmenu_fieldset">'.
-                '<legend class="LC_mainmenu_fieldset_category">'.&mt('Test Management').'</legend>'.
-                '<table id="LC_menubuttons_mainmenu">'.
-                '<tr><td class="LC_menubuttons_img" align="left"><a href="javascript:go('."'/adm/createuser'".');"><img alt="user privs" src="/res/adm/pages/cprv.png" align="left" /></a></td><td class="LC_menubuttons_text" colspan="3"><a class="LC_menubuttons_link" href="javascript:go('."'/adm/createuser'".');"><span class="LC_menubuttons_inline_text">'.&mt('Manage Enrollment').'</span></a></td></tr>'."\n".
-                '<tr><td class="LC_menubuttons_img" align="left"><a href="javascript:go('."'/adm/whatsnew'".');"><img alt="what is new" src="/res/adm/pages/new.png" align="left" /></a></td><td class="LC_menubuttons_text" colspan="3"><a class="LC_menubuttons_link" href="javascript:go('."'/adm/whatsnew'".');"><span class="LC_menubuttons_inline_text">'.&mt("What's New?").'</span></a></td></tr></table></fieldset></div>';
-        }
-        $output.='<br clear="all />';
-    } else 
-        # calling rawconfig with "1" will evaluate mydesk.tab, 
-        # even if there is no active remote control
-        &rawconfig(1);
-        my $output='<table><tr>';
-        for (my $col=1; $col<=2; $col++) {
-            $output.='<td class="LC_mainmenu_col_fieldset">';
-            for (my $row=1; $row<=8; $row++) {
-                foreach my $cat (keys(%category_members)) {
-                    if ($category_positions{$cat} ne "$col,$row") { next; }
-                    $output.='<div class="LC_Box LC_400Box">';
-	            $output.='<h3 class="LC_hcell">'.&mt($category_names{$cat}).'</h3>';
-                    $output.='<table>';
-                    my %active=();
-                    foreach my $menu_item (split(/\:/,$category_members{$cat})) {
-                        if ($inlineremote[$menu_item]) {
-                            $active{$menu_item}=1;
-                        }
-                    }
-                    foreach my $item (sort(keys(%active))) {
-                        $output.=$inlineremote[$item];
-                    }
-                    $output.='</table>';
-                    $output.='</div>';
+# calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control
+    &rawconfig(1);
+    my $output='<table><tr>';
+    for (my $col=1; $col<=2; $col++) {
+        $output.='<td class="LC_mainmenu_col_fieldset">';
+        for (my $row=1; $row<=8; $row++) {
+            foreach my $cat (keys(%category_members)) {
+               if ($category_positions{$cat} ne "$col,$row") { next; }
+               #$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';
+               $output.='<div class="LC_Box LC_400Box">';
+	       $output.='<h3 class="LC_hcell">'.&mt($category_names{$cat}).'</h3>';
+               $output.='<table>';
+               my %active=();
+               foreach my $menu_item (split(/\:/,$category_members{$cat})) {
+                  if ($inlineremote[$menu_item]) {
+                     $active{$menu_item}=1;
+                  }
+               }  
+               foreach my $item (sort(keys(%active))) {
+                  $output.=$inlineremote[$item];
+               }
+               $output.='</table>';
+               $output.='</div>';
             }
-            $output.="</td>";
-        }
-        $output.="</tr></table>";
+         }
+         $output.="</td>";
     }
+    $output.="</tr></table>";
     return $output;
 }
 
@@ -1730,51 +1659,11 @@ END
 }
 
 sub utilityfunctions {
-    my ($caller,$custommenu) = @_;
+    my $caller = shift;
     unless ($env{'environment.remote'} eq 'off' || 
             $caller eq '/adm/menu') { 
             return ''; }
-     
-    my $gcimenujs;
-    if ($custommenu) {
-        my %concepttests = &Apache::loncommon::existing_gcitest_courses();
-        my $managetesturl = '/adm/menu';
-        my $createtesturl = '/adm/requestcourse';
-        if (($env{'request.course.id'}) &&
-            ($env{'course.'.$env{'request.course.id'}.'.domain'} eq 'gci')) {
-            my @items = keys(%concepttests);
-            if (@items== 1) {
-                my $newrole = $items[0];
-                $newrole =~ s{_}{/};
-                $managetesturl = '/adm/roles?selectrole=1&cc./'.$newrole.'=1';
-            } else {
-                $managetesturl = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu';
-            }
-        }
-        if ($env{'request.course.id'}) {
-            $createtesturl = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2frequestcourse';
-        }
-        $gcimenujs = <<"ENDCUSTOM";
-
-function switchpage(caller) {
-    if (caller == 'review') {
-        document.location.href = '/adm/roles?selectrole=1&st./gci/9615072b469884921gcil1=1';
-    }
-    if (caller == 'submit') {
-        document.location.href = '/adm/roles?selectrole=1&st./gci/1H96711d710194bfegcil1=1';
-    }
-    if (caller == 'createtest') {
-        document.location.href = '$createtesturl';
-    }
-    if (caller == 'managetest') {
-        document.location.href = '$managetesturl';
-    }
-    return;
-}
-
-ENDCUSTOM
-    }
-       
+            
     my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
     if ($currenturl =~ m{^/adm/wrapper/ext/}) {
         if ($env{'request.external.querystring'}) {
@@ -1822,8 +1711,6 @@ return (<<ENDUTILITY)
 $nav_control
 $dc_popup_cid
 
-$gcimenujs
-
 function go(url) {
    if (url!='' && url!= null) {
        currentURL = null;