[LON-CAPA-cvs] cvs: loncom /interface lonmsgdisplay.pm /localize/localize de.pm

[bisitz]

bisitz		Fri May  8 12:06:36 2009 EDT

  Modified files:              
    /loncom/interface	lonmsgdisplay.pm 
    /loncom/localize/localize	de.pm 
  Log:
  Optimized screen layout for "Message Log for Selected Users":
  - Replaced hardcoded table by standard pick_box
  - Added <hr> for better separation of selection options and output
  - Extended headline for output:
      - Added message about what kind of content is displayed
      - Added username:domain
      - Added aboutmewrapper to username
  
  
Index: loncom/interface/lonmsgdisplay.pm
diff -u loncom/interface/lonmsgdisplay.pm:1.122 loncom/interface/lonmsgdisplay.pm:1.123
--- loncom/interface/lonmsgdisplay.pm:1.122	Sat Apr 25 20:22:07 2009
+++ loncom/interface/lonmsgdisplay.pm	Fri May  8 12:06:32 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging display
 #
-# $Id: lonmsgdisplay.pm,v 1.122 2009/04/25 20:22:07 www Exp $
+# $Id: lonmsgdisplay.pm,v 1.123 2009/05/08 12:06:32 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1890,21 +1890,23 @@
 				       'subm' => 'Retrieve discussion and message records',
 				       'newr' => 'New Record (record is visible to '.lc($crstype).' '.$leaders.')',
 				       'post' => 'Post this Record');
-    $r->print(<<"ENDTREC");
-<h3>$lt{'head'}</h3>
-<form method="post" action="/adm/email" name="stdselect">
-<input type="hidden" name="recordftf" value="retrieve" />
-<table>
-<tr><td>$lt{'user'}:</td><td><input type="text" size="12" name="recuname" value="$env{'form.recuname'}" /></td>
-<td rowspan="2">
-$stdbrws
-<input type="submit" value="$lt{'subm'}" /></td>
-</tr>
-<tr><td>$lt{'dom'}:</td>
-<td>$domform</td></tr>
-</table>
-</form>
-ENDTREC
+
+    $r->print('<h2>'.$lt{'head'}.'</h2>'
+             .'<form method="post" action="/adm/email" name="stdselect">'
+             .'<input type="hidden" name="recordftf" value="retrieve" />'
+             .&Apache::lonhtmlcommon::start_pick_box()
+             .&Apache::lonhtmlcommon::row_title($lt{'user'})
+             .'<input type="text" size="12" name="recuname" value="'.$env{'form.recuname'}.'" />'
+             .' '.$stdbrws
+             .&Apache::lonhtmlcommon::row_closure()
+             .&Apache::lonhtmlcommon::row_title($lt{'dom'})
+             .$domform
+             .&Apache::lonhtmlcommon::row_closure(1)
+             .&Apache::lonhtmlcommon::end_pick_box()
+             .'<br />'
+             .'<input type="submit" value="'.$lt{'subm'}.'" />'
+    );
+
     if (($stage ne 'query') &&
         ($env{'form.recdomain'}) && ($env{'form.recuname'})) {
         chomp($env{'form.newrecord'});
@@ -1913,8 +1915,17 @@
 						      $env{'form.recuname'},
 						      $env{'form.recdomain'});
         }
-        $r->print('<h3>'.&Apache::loncommon::plainname($env{'form.recuname'},
-				     $env{'form.recdomain'}).'</h3>');
+        my $aboutmelink=&Apache::loncommon::aboutmewrapper(
+                            &Apache::loncommon::plainname($env{'form.recuname'}
+                                                         ,$env{'form.recdomain'})
+                           ,$env{'form.recuname'},$env{'form.recdomain'});
+        $r->print('<hr />'
+                 .'<h2>'
+                 .&mt('Discussion and message records for [_1] ([_2])'
+                     ,$aboutmelink
+                     ,$env{'form.recuname'}.':'.$env{'form.recdomain'})
+                 .'<h2>'
+       );
         &disfacetoface($r,$env{'form.recuname'},$env{'form.recdomain'});
 	$r->print(<<ENDRHEAD);
 <form method="post" action="/adm/email">
Index: loncom/localize/localize/de.pm
diff -u loncom/localize/localize/de.pm:1.291 loncom/localize/localize/de.pm:1.292
--- loncom/localize/localize/de.pm:1.291	Thu May  7 19:36:54 2009
+++ loncom/localize/localize/de.pm	Fri May  8 12:06:36 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # German Localization Lexicon
 #
-# $Id: de.pm,v 1.291 2009/05/07 19:36:54 www Exp $
+# $Id: de.pm,v 1.292 2009/05/08 12:06:36 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -77,6 +77,9 @@
    'User notes, records of face-to-face discussions, critical messages, broadcast messages and archived messages in Course.'
 => 'Benutzeranmerkungen, Aufzeichnungen von persönlichen Diskussionsbeiträgen, wichtige Nachrichten, Broadcast-Nachrichten und archivierte Nachrichten.',
 
+   'Discussion and message records for [_1] ([_2])'
+=> 'Aufzeichnungen von Diskussionen und Nachrichten für [_1] ([_2])',
+
    'Domain'
 => 'Domäne',
 
@@ -10263,7 +10266,7 @@
 => 'BCC:',
 
    'Retrieve discussion and message records'
-=> 'Aufzeichungen von Diskussionen und Nachrichten abrufen',
+=> 'Aufzeichnungen von Diskussionen und Nachrichten abrufen',
 
    'New Record (record is visible to course faculty and staff)'
 => 'Neue Aufzeichnung (nur für Kursverwaltung und Personal sichtbar):',