loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.464, 2006/10/12 19:46:27
+version 1.466, 2006/10/31 22:05:53
  Line 2067  sub getnames {
      }
  }
+ sub getemails {
+     my ($uname,$udom)=@_;
+     if ($udom eq 'public' && $uname eq 'public') {
+ 	return;
+     }
+     my $id=$uname.':'.$udom;
+     my ($names,$cached)=&Apache::lonnet::is_cached_new('emailscache',$id);
+     if ($cached) {
+ 	return %{$names};
+     } else {
+ 	my %loadnames=&Apache::lonnet::get('environment',
+                     			   ['notification','critnotification',
+ 					    'permanentemail'],
+ 					   $udom,$uname);
+ 	&Apache::lonnet::do_cache_new('emailscache',$id,\%loadnames);
+ 	return %loadnames;
+     }
+ }
  # ------------------------------------------------------------------ Screenname
  =pod
- Line 3388  table.LC_whatsnew tr.LC_empty_row td {
+ Line 3407  table.LC_whatsnew tr.LC_empty_row td {
    text-align: center;
    padding: 8px;
  }
+ table.LC_whatsnew tr.LC_empty_row td {
+   padding: 4ex
+ }
  table.LC_whatsnew {
  }