--- loncom/interface/lonmsg.pm	2001/12/19 17:17:46	1.26
+++ loncom/interface/lonmsg.pm	2002/01/01 18:38:51	1.27
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.26 2001/12/19 17:17:46 albertel Exp $
+# $Id: lonmsg.pm,v 1.27 2002/01/01 18:38:51 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -39,7 +39,9 @@
 # 07/27 Guy Albertelli
 # 07/27,07/28,07/30,08/03,08/06,08/08,08/09,08/10,8/13,8/15,
 # 10/1,11/5 Gerd Kortemeyer
-
+# YEAR=2002
+# 1/1 Gerd Kortemeyer
+#
 package Apache::lonmsg;
 
 use strict;
@@ -62,7 +64,6 @@ sub packagemsg {
     $msgcount++;
     my $partsubj=$subject;
     $partsubj=&Apache::lonnet::escape($partsubj);
-    $partsubj=substr($partsubj,0,50);
     my $msgid=&Apache::lonnet::escape(
            $now.':'.$partsubj.':'.$ENV{'user.name'}.':'.
            $ENV{'user.domain'}.':'.$msgcount.':'.$$);
@@ -358,7 +359,10 @@ sub disall {
      '<h1>Display All Messages</h1><form method=post action="/adm/email">'.
      '<table border=2><tr><th colspan=2>&nbsp</th><th>Date</th>'.
      '<th>Username</th><th>Domain</th><th>Subject</th><th>Status</th></tr>');
-    map {
+    foreach (sort split(/\&/,&Apache::lonnet::reply('keys:'.
+					$ENV{'user.domain'}.':'.
+                                        $ENV{'user.name'}.':nohist_email',
+                                        $ENV{'user.home'}))) {
         my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
 	    &Apache::lonmsg::unpackmsgid($_);
        unless ($status eq 'deleted') {
@@ -379,10 +383,7 @@ sub disall {
 		      &Apache::lonnet::unescape($shortsubj).'</td><td>'.
                       $status.'</td></tr>');
        }
-    } sort split(/\&/,&Apache::lonnet::reply('keys:'.
-					$ENV{'user.domain'}.':'.
-                                        $ENV{'user.name'}.':nohist_email',
-                                        $ENV{'user.home'}));
+    }
     $r->print('</table><p>'.
               '<input type=submit name="markeddel" value="Delete Checked">'.
               '</form></body></html>');
@@ -651,7 +652,7 @@ sub handler {
 }
 # ================================================= Main program, reset counter
 
-sub BEGIN {
+BEGIN {
     $msgcount=0;
 }