--- loncom/interface/lonmsg.pm	2002/02/16 19:59:10	1.28
+++ loncom/interface/lonmsg.pm	2002/03/18 18:38:04	1.29
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.28 2002/02/16 19:59:10 harris41 Exp $
+# $Id: lonmsg.pm,v 1.29 2002/03/18 18:38:04 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,7 +40,7 @@
 # 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
+# 1/1,3/18 Gerd Kortemeyer
 #
 package Apache::lonmsg;
 
@@ -355,8 +355,30 @@ ENDREPLY
 
 sub disall {
     my $r=shift;
-    $r->print(
-     '<h1>Display All Messages</h1><form method=post action="/adm/email">'.
+     $r->print(<<ENDDISHEADER);
+<script>
+    function checkall() {
+	for (i=0; i<document.forms.disall.elements.length; i++) {
+            if 
+          (document.forms.disall.elements[i].name.indexOf('delmark_')==0) {
+	      document.forms.disall.elements[i].checked=true;
+            }
+        }
+    }
+
+    function uncheckall() {
+	for (i=0; i<document.forms.disall.elements.length; i++) {
+            if 
+          (document.forms.disall.elements[i].name.indexOf('delmark_')==0) {
+	      document.forms.disall.elements[i].checked=false;
+            }
+        }
+    }
+</script>
+ENDDISHEADER
+   $r->print(
+ '<h1>Display All Messages</h1><form method=post name=disall '.
+ '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>');
     foreach (sort split(/\&/,&Apache::lonnet::reply('keys:'.
@@ -385,6 +407,8 @@ sub disall {
        }
     }
     $r->print('</table><p>'.
+              '<a href="javascript:checkall()">Check All</a>&nbsp;'.
+              '<a href="javascript:uncheckall()">Uncheck All</a><p>'.
               '<input type=submit name="markeddel" value="Delete Checked">'.
               '</form></body></html>');
 }