[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[raeburn]

raeburn		Wed Nov 29 14:33:29 2006 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  More compact display of information about active blocks
  
  Use aboutmewrapper()
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.475 loncom/interface/loncommon.pm:1.476
--- loncom/interface/loncommon.pm:1.475	Wed Nov 29 10:38:22 2006
+++ loncom/interface/loncommon.pm	Wed Nov 29 14:33:29 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.475 2006/11/29 15:38:22 www Exp $
+# $Id: loncommon.pm,v 1.476 2006/11/29 19:33:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2896,7 +2896,6 @@
         ($setuname,$setudom) = split(/:/,$record->{'setter'});
         $title = &unescape($record->{'event'});
         $blocks = $record->{'blocks'};
-
     } else {
         my @data = split(/:/,$record,3);
         if (scalar(@data) eq 2) {
@@ -2919,7 +2918,7 @@
         'blse' => 'Block set by'
     );
     my $output;
-    $output = '<br /><br />'.$lt{'cacb'}.':<br /><br />';
+    $output = '<br />'.$lt{'cacb'}.':<br />';
     $output .= &start_data_table();
     $output .= '
 <tr>
@@ -2932,15 +2931,14 @@
         my %courseinfo=&Apache::lonnet::coursedescription($course);
         for (my $i=0; $i<@{$$setters{$course}{staff}}; $i++) {
             my ($uname,$udom) = @{$$setters{$course}{staff}[$i]};
-            my $fullname = &Apache::loncommon::plainname($uname,$udom);
+            my $fullname = &aboutmewrapper(&plainname($uname,$udom),$uname,$udom);
             my ($openblock,$closeblock) = @{$$setters{$course}{times}[$i]};
             $openblock = &Apache::lonlocal::locallocaltime($openblock);
             $closeblock= &Apache::lonlocal::locallocaltime($closeblock);
             $output .= &Apache::loncommon::start_data_table_row().
                        '<td>'.$courseinfo{'description'}.'</td>'.
                        '<td>'.$openblock.' to '.$closeblock.'</td>'.
-                       '<td>'.$fullname.' ('.$uname.':'.$udom.
-                       ')</td>'.
+                       '<td>'.$fullname.'.</td>'.
                         &Apache::loncommon::end_data_table_row();
         }
     }