--- loncom/interface/loncommon.pm	2009/12/14 22:40:45	1.925.2.4
+++ loncom/interface/loncommon.pm	2010/01/19 19:00:02	1.933
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.925.2.4 2009/12/14 22:40:45 raeburn Exp $
+# $Id: loncommon.pm,v 1.933 2010/01/19 19:00:02 droeschl Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -483,9 +483,9 @@ ENDAUTHORBRW
 
 sub coursebrowser_javascript {
     my ($domainfilter,$sec_element,$formname,$role_element,$crstype) = @_;
-    my $wintitle = &mt('Course Browser');
-    if ($crstype ne '') {
-        $wintitle = &mt($crstype);
+    my $wintitle = 'Course_Browser';
+    if ($crstype eq 'Community') {
+        $wintitle = 'Community_Browser';
     }
     my $id_functions = &javascript_index_functions();
     my $output = '
@@ -1719,10 +1719,13 @@ sub create_workbook {
     my $workbook  = Spreadsheet::WriteExcel->new('/home/httpd'.$filename);
     if (! defined($workbook)) {
         $r->log_error("Error creating excel spreadsheet $filename: $!");
-        $r->print('<p>'.&mt("Unable to create new Excel file.  ".
-                            "This error has been logged.  ".
-                            "Please alert your LON-CAPA administrator").
-                  '</p>');
+        $r->print(
+            '<p class="LC_error">'
+           .&mt('Problems occurred in creating the new Excel file.')
+           .' '.&mt('This error has been logged.')
+           .' '.&mt('Please alert your LON-CAPA administrator.')
+           .'</p>'
+        );
         return (undef);
     }
     #
@@ -1762,9 +1765,13 @@ sub create_text_file {
     $fh = Apache::File->new('>/home/httpd'.$filename);
     if (! defined($fh)) {
         $r->log_error("Couldn't open $filename for output $!");
-        $r->print(&mt('Problems occurred in creating the output file. '
-                     .'This error has been logged. '
-                     .'Please alert your LON-CAPA administrator.'));
+        $r->print(
+            '<p class="LC_error">'
+           .&mt('Problems occurred in creating the output file.')
+           .' '.&mt('This error has been logged.')
+           .' '.&mt('Please alert your LON-CAPA administrator.')
+           .'</p>'
+        );
     }
     return ($fh,$filename)
 }
@@ -4467,10 +4474,6 @@ sub bodytag {
 		   'link'    => &designparm($function.'.link',$domain),);
     @design{keys(%$addentries)} = @$addentries{keys(%$addentries)}; 
 
-    my $custommenu;
-    if ($env{'environment.remote'} eq 'off') {
-        $custommenu = &needs_gci_custom();
-    }
  # role and realm
     my ($role,$realm) = split(/\./,$env{'request.role'},2);
     if ($role  eq 'ca') {
@@ -4480,22 +4483,14 @@ sub bodytag {
 # realm
     if ($env{'request.course.id'}) {
         if ($env{'request.role'} !~ /^cr/) {
-            if (($custommenu) && ($role eq 'cm')) {
-                undef($role);
-            } else {
-                $role = &Apache::lonnet::plaintext($role,&course_type());
-            }
+            $role = &Apache::lonnet::plaintext($role,&course_type());
         }
         if ($env{'request.course.sec'}) {
             $role .= ('&nbsp;'x2).'-&nbsp;'.&mt('section:').'&nbsp;'.$env{'request.course.sec'};
         }   
 	$realm = $env{'course.'.$env{'request.course.id'}.'.description'};
     } else {
-        if (($custommenu) && ($role eq 'cm')) {
-            undef($role);
-        } else {
-            $role = &Apache::lonnet::plaintext($role);
-        }
+        $role = &Apache::lonnet::plaintext($role);
     }
 
     if (!$realm) { $realm='&nbsp;'; }
@@ -4546,16 +4541,7 @@ sub bodytag {
         #        $titleinfo = &CSTR_pageheader(); #FIXME: Will be removed once all scripts have their own calls
         #    }
 
-        my $role_selector;
-        if (($custommenu) && ($env{'request.course.id'}) && 
-            ($env{'course.'.$env{'request.course.id'}.'.domain'} eq 'gcitest')) {
-            $role_selector = &Apache::lonmenu::roles_selector(
-                        $env{'course.' . $env{'request.course.id'} . '.domain'},
-                        $env{'course.' . $env{'request.course.id'} . '.num'}  );
-            if ($role_selector) {
-                $role_selector = '<br />'.$role_selector;
-            }
-        }
+
 
         if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) {
              if ($dc_info) {
@@ -4566,10 +4552,12 @@ sub bodytag {
             return $bodytag;
         }
 
-        $bodytag .= qq|<div id="LC_nav_bar">$name $role $role_selector</div>|;
+        unless ($env{'request.symb'} =~ m/\.page___\d+___/) {
+            $bodytag .= qq|<div id="LC_nav_bar">$name $role</div>|;
+        }
 
         $bodytag .= Apache::lonhtmlcommon::scripttag(
-            Apache::lonmenu::utilityfunctions('',$custommenu), 'start');
+            Apache::lonmenu::utilityfunctions(), 'start');
 
         $bodytag .= Apache::lonmenu::primary_menu();
 
@@ -4580,11 +4568,7 @@ sub bodytag {
 
         #don't show menus for public users
         if($env{'user.name'} ne 'public' && $env{'user.domain'} ne 'public'){
-            if ($custommenu) {
-                $bodytag .= &Apache::lonmenu::gci_secondary_menu();
-            } else { 
-                $bodytag .= Apache::lonmenu::secondary_menu();
-            }
+            $bodytag .= Apache::lonmenu::secondary_menu();
             $bodytag .= Apache::lonmenu::serverform();
             $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end');
             if ($env{'request.state'} eq 'construct') {
@@ -4600,8 +4584,6 @@ sub bodytag {
             $bodytag .= Apache::lonhtmlcommon::scripttag('', 'end'); 
         }
 
-        #SD testing
-        #$bodytag .= Apache::lonmenu::menubuttons($forcereg);
         return $bodytag;
     }
 
@@ -4928,7 +4910,7 @@ table#LC_title_bar {
 }
 
 table#LC_title_bar,
-table.LC_breadcrumbs,
+table.LC_breadcrumbs, /* obsolete? */
 table#LC_title_bar.LC_with_remote {
   width: 100%;
   border-color: $pgbg;
@@ -4941,46 +4923,26 @@ table#LC_title_bar.LC_with_remote {
   margin: 0;
 }
 
-/* #SD START (work in progress)*/
-
-ul.LC_bct {
+ul.LC_breadcrumb_tools_outerlist {
     margin: 0;
     padding: 0;
+    position: relative;
+    list-style: none;
 }
-ul.LC_bct ol {
+ul.LC_breadcrumb_tools_outerlist li {
     display: inline;
 }
-ul.LC_bct ul {
-    display: inline;
-    padding: 0;
-}
-ul.LC_bct li {
-    list-style-type: none;
-    display: inline;
-}
-
-
-ul.LC_breadcrumb_tools {
-}
 
-li.LC_breadcrumb_tools {
-}
-li.LC_breadcrumb_tools img{
-    vertical-align: middle;
-}
-
-.LC_breadcrumb_tools_A {
-    margin: 0 0 0 1em;
-}
-.LC_breadcrumb_tools_B {
-    float: right;
-    margin-top: 0.4em;
+.LC_breadcrumb_tools_navigation {
+    padding: 0;
+    margin: 0;
+    float: left;
 }
-.LC_breadcrumb_tools_C {
-    margin: 0 1em 0 0;
+.LC_breadcrumb_tools_tools {
+    padding: 0;
+    margin: 0;
     float: right;
 }
-/* #SD END */
 
 table#LC_title_bar td {
   background: $tabbg;
@@ -5011,9 +4973,7 @@ td.LC_table_cell_checkbox {
   background: $sidebg;
   border-bottom: 1px solid $lg_border_color;
   line-height: 2.5em;
-     /* SD working here 
-     height: 2.5em;
-     overflow: hidden; */
+  overflow: hidden;
   margin: 0;
   padding: 0;
 }
@@ -5090,6 +5050,14 @@ table.LC_nested {
   width: 100%;
 }
 
+.ui-accordion,
+.ui-accordion table.LC_data_table,
+.ui-accordion table.LC_nested_outer{
+  border: 0px;
+  border-spacing: 0px;
+  margin: 3px;
+}
+
 table.LC_data_table tr th,
 table.LC_calendar tr th,
 table.LC_mail_list tr th,
@@ -5199,6 +5167,22 @@ table.LC_nested tr td.LC_right_item {
   text-align: right;
 }
 
+.ui-accordion table.LC_nested tr.LC_odd_row td.LC_left_item,
+.ui-accordion table.LC_nested tr.LC_even_row td.LC_left_item {
+  text-align: right;
+  width: 40%;
+  padding-right:10px;
+  vertical-align: top;
+  padding: 5px;
+}
+
+.ui-accordion table.LC_nested tr.LC_odd_row td.LC_right_item,
+.ui-accordion table.LC_nested tr.LC_even_row td.LC_right_item {
+  text-align: left;
+  width: 60%;
+  padding: 2px 4px;
+}
+
 table.LC_nested tr.LC_odd_row td {
   background-color: #EEEEEE;
 }
@@ -5540,10 +5524,6 @@ table.LC_notify_front_page td {
   font-size: 1.2em;
 }
 
-.LC_topic_bar img {
-  vertical-align: bottom;
-}
-
 table.LC_course_group_status {
   margin: 20px;
 }
@@ -6007,6 +5987,11 @@ ol.LC_primary_menu {
   margin: 0.2em 0 0 0;
 }
 
+span.LC_new_message{
+  font-weight:bold;
+  color: darkred;
+}
+
 ol#LC_PathBreadcrumbs {
   margin: 0;
 }
@@ -6160,18 +6145,14 @@ ol#LC_MenuBreadcrumbs,
 ol#LC_PathBreadcrumbs {
   padding-left: 10px;
   margin: 0;
-  list-style-position: inside;
-    /* SD working here 
-    white-space: nowrap; */
+  height: 2.5em;  /* equal to #LC_breadcrumbs line-height */
 }
 
 ol#LC_MenuBreadcrumbs li,
 ol#LC_PathBreadcrumbs li,
 ul.LC_CourseBreadcrumbs li {
   display: inline;
-  white-space: nowrap;
-    /* SD working here  
-    white-space: normal; */ 
+  white-space: normal;  
 }
 
 ol#LC_MenuBreadcrumbs li a,
@@ -6424,6 +6405,11 @@ ul.LC_funclist {
     padding: 0.5em 1em 0.5em 0;
 }
 
+ul.LC_funclist > li:first-child {
+    font-weight:bold; 
+    margin-left:0.8em;
+}
+
 ul.LC_funclist + ul.LC_funclist {
     /* 
        left border as a seperator if we have more than
@@ -6444,35 +6430,10 @@ ul.LC_funclist li {
   line-height: 150%;
 }
 
-#gciheader {
-  float:left;
-  width:100%;
-  background:#DAE0D2 url("/gcimenu_bg.gif") repeat-x bottom;
-  font-size:93%;
-  line-height:normal;
-}
-#gciheader ul {
-  margin:0;
-  padding:10px 10px 0;
-  list-style:none;
-}
-#gciheader li {
-  float:left;
-  background:url("/gcimenu_left.gif") no-repeat left top;
-  margin:0;
-  padding:0 0 0 9px;
-}
-#gciheader a {
-  display:block;
-  background:url("/gcimenu_right.gif") no-repeat right top;
-  padding:5px 15px 4px 6px;
-}
-#gciheader #current {
-  background-image:url("/gcimenu_left_on.gif");
-}
-#gciheader #current a {
-  background-image:url("/gcimenu_right_on.gif");
-  padding-bottom:5px;
+.ui-accordion .LC_advanced_toggle {
+  float: right;
+  font-size: 90%;
+  padding: 0px 4px
 }
 
 END
@@ -10736,76 +10697,6 @@ sub clean_symb {
     return ($symb,$enc);
 }
 
-sub needs_gci_custom {
-    my $custommenu;
-    my $numdc = &check_for_gci_dc();
-    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 ($start,$end) =
-                split('.',$env{'user.role.st./gci/'.$cnums{'review'}});
-            if (((!$start) || ($start && $start <= $now)) &&
-                ((!$end) || ($end > $now))) {
-                $custommenu = 1;
-                if ($env{'user.role.cc./gci/'.$cnums{'review'}}) {
-                    my ($ccstart,$ccend) =
-                        split('.',$env{'user.role.cc./gci/'.$cnums{'review'}});
-                    if (((!$start) || ($start && $start <= $now)) &&
-                            ((!$end) || ($end > $now))) {
-                        $custommenu = '';
-                    }
-                }
-            }
-        }
-    }
-    return $custommenu;
-}
-
-sub check_for_gci_dc {
-    my $then=$env{'user.login.time'};
-    my $numdc = 0;
-    foreach my $dom ('gci','gcitest') {
-        if ($env{'user.role.dc./'.$dom.'/'}) {
-            my $livedc = 1;
-            my ($tstart,$tend)=split(/\./,$env{'user.role.dc./'.$dom.'/'});
-            if ($tstart && $tstart>$then) { $livedc = 0; }
-            if ($tend   && $tend  <$then) { $livedc = 0; }
-            if ($livedc) {
-                $numdc++;
-            }
-        }
-    }
-    return $numdc;
-}
-
-sub existing_gcitest_courses {
-    my %courses;
-    my $cdom = 'gcitest';
-    my $role = 'cc';
-    my $now = time;
-    foreach my $envkey (keys(%env)) {
-        my $cnum;
-        if ($envkey =~ m{^user\.role\.\Q$role\E\./\Q$cdom\E/($match_courseid)$}) {
-            $cnum = $1;
-        } else {
-            next;
-        }
-        my ($tstart,$tend) = split(':',$env{$envkey});
-        if (((!$tstart) || ($tstart < $now)) && ((!$tend) || ($tend > $now))) {
-            my $descr = $env{'course.'.$cdom.'_'.$cnum.'.description'};
-            if ($descr ne '') {
-                $courses{$cdom.'_'.$cnum}{'description'} = $descr;
-            }
-        }
-    }
-    return %courses;
-}
-
 =pod
 
 =back