--- loncom/interface/loncommon.pm	2006/06/22 13:02:22	1.384
+++ loncom/interface/loncommon.pm	2006/06/22 20:31:56	1.390
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.384 2006/06/22 13:02:22 raeburn Exp $
+# $Id: loncommon.pm,v 1.390 2006/06/22 20:31:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3315,6 +3315,55 @@ table.LC_mail_list tr.LC_mail_other {
 table.LC_mail_list tr.LC_mail_other:hover {
   background-color: $mail_other_hover;
 }
+
+table#LC_portfolio_actions {
+  width: auto;
+  background: $pgbg;
+  border: 0px;
+  border-spacing: 2px 2px;
+  padding: 0px;
+  margin: 0px;
+  border-collapse: separate;
+}
+table#LC_portfolio_actions td.LC_label {
+  background: $tabbg;
+  text-align: right;
+}
+table#LC_portfolio_actions td.LC_value {
+  background: $tabbg;
+}
+
+table#LC_browser {
+ 
+}
+table#LC_browser tr th {
+  background: #DDDDDD;
+}
+table#LC_browser tr td {
+  padding: 2px;
+}
+table#LC_browser tr.LC_browser_file,
+table#LC_browser tr.LC_browser_file_published {
+  background: #CCFF88;
+}
+table#LC_browser tr.LC_browser_file_locked,
+table#LC_browser tr.LC_browser_file_unpublished {
+  background: #FFAA99;
+}
+table#LC_browser tr.LC_browser_file_obsolete {
+  background: #AAAAAA;
+}
+table#LC_browser tr.LC_browser_file_modified {
+  background: #FFFF77;
+}
+table#LC_browser tr.LC_browser_folder {
+  background: #CCCCFF;
+}
+span.LC_current_location {
+  font-size: x-large;
+  background: $pgbg;
+}
+
 END
 }
 
@@ -3680,29 +3729,29 @@ sub simple_error_page {
     my $row_count;
     sub start_data_table {
 	undef($row_count);
-	return '<table class="LC_data_table">';
+	return '<table class="LC_data_table">'."\n";
     }
 
     sub end_data_table {
 	undef($row_count);
-	return '</table>';
+	return '</table>'."\n";;
     }
 
     sub start_data_table_row {
 	$row_count++;
-	return  '<tr '.(($row_count % 2)?'':'class="LC_even_row"').'>';
+	return  '<tr '.(($row_count % 2)?'':'class="LC_even_row"').'>'."\n";;
     }
 
     sub end_data_table_row {
-	return '</tr>';
+	return '</tr>'."\n";;
     }
 
     sub start_data_table_header_row {
-	return  '<tr class="LC_header_row">';
+	return  '<tr class="LC_header_row">'."\n";;
     }
 
     sub end_data_table_header_row {
-	return '</tr>';
+	return '</tr>'."\n";;
     }
 }
 
@@ -3999,8 +4048,11 @@ sub get_secgrprole_info {
                   };
     if ($needroles) {
         $rolehash = {'all' => 'all'};
-        my %dumphash = &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum);
-        foreach my $item (keys(%dumphash)) {
+        my %user_roles = &Apache::lonnet::dump('nohist_userroles',$cdom,$cnum);
+	if (&Apache::lonnet::error(%user_roles)) {
+	    undef(%user_roles);
+	}
+        foreach my $item (keys(%user_roles)) {
             my ($role)=split(/\:/,$item,2);
             if ($role eq 'cr') { next; }
             if ($role =~ /^cr/) {