--- loncom/interface/lonmsgdisplay.pm	2006/12/24 22:13:19	1.59
+++ loncom/interface/lonmsgdisplay.pm	2007/01/17 18:05:57	1.64
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging display
 #
-# $Id: lonmsgdisplay.pm,v 1.59 2006/12/24 22:13:19 raeburn Exp $
+# $Id: lonmsgdisplay.pm,v 1.64 2007/01/17 18:05:57 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -924,19 +924,11 @@ sub disfolder {
                       nome => 'No messages have been selected to apply ths action to.',
                       chec => 'Check the checkbox for at least one message.',  
     );
+    my $jscript = &Apache::loncommon::check_uncheck_jscript();
     $r->print(<<ENDDISHEADER);
 <script type="text/javascript">
-    function checkall() {
-	for (i=0; i<document.forms.disall.delmark.length; i++) {
-	    document.forms.disall.delmark[i].checked=true;
-        }
-    }
+    $jscript
 
-    function uncheckall() {
-	for (i=0; i<document.forms.disall.delmark.length; i++) {
-	    document.forms.disall.delmark[i].checked=false;
-        }
-    }
     function checkfoldermove() {
         if (document.disall.checkedaction.options[document.disall.checkedaction.selectedIndex].value == 'markedmove') {
             if (document.disall.movetofolder.options[document.disall.movetofolder.selectedIndex].value == "") {
@@ -956,11 +948,17 @@ sub disfolder {
             } 
         }
         var checktotal = 0;
-        for (var i=0; i<document.forms.disall.delmark.length; i++) {
-            if (document.forms.disall.delmark[i].checked) {
+        if (document.forms.disall.delmark.length > 0) {
+            for (var i=0; i<document.forms.disall.delmark.length; i++) {
+                if (document.forms.disall.delmark[i].checked) {
+                    checktotal ++;
+                }
+            }
+        } else {
+            if (document.forms.disall.delmark.checked) {
                 checktotal ++;
             }
-        }
+        }   
         if (checktotal == 0) {
             alert("$lt{'nome'}\\n$lt{'chec'}");
             return;
@@ -1072,7 +1070,7 @@ ENDDISHEADER
                       ' value="'.$origID.'" /></nobr></td>');
             foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) {
                 $r->print('<td>'.(($status eq 'new')?'<b>':'').
-                          '<a href="/adm/email?display='.$origID.$sqs.$fsqs.'">'.
+                          '<a href="/adm/email?display='.$origID.$sqs.'">'.
                           $item.(($status eq 'new')?'</b>':'').'</td>');
             }
             my $showstatus;
@@ -1097,8 +1095,8 @@ ENDDISHEADER
     $r->print('<table border="0" cellspacing="2" cellpadding="2">
  <tr>
   <td>'.
-  '<input type="button" onclick="javascript:checkall()" value="'.&mt('Check All').'" /><br />'."\n".
-  '<input type="button" onclick="javascript:uncheckall()" value="'.&mt('Uncheck All').'" />'."\n".
+  '<input type="button" onclick="javascript:checkAll(document.disall.delmark)" value="'.&mt('Check All').'" /><br />'."\n".
+  '<input type="button" onclick="javascript:uncheckAll(document.disall.delmark)" value="'.&mt('Uncheck All').'" />'."\n".
   '<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" /></td><td>&nbsp;</td>'."\n".
   '<td align="center"><b>'.&mt('Action').'</b><br />'."\n".
   '  <select name="checkedaction" onchange="javascript:checkfoldermove()">'."\n");
@@ -2045,25 +2043,36 @@ sub displaymessage {
         if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {
             if ($content{'courseid'} eq $env{'request.course.id'}) {
                 my $symblink;
+                my $showsymb = &Apache::lonenc::check_decrypt($symb);
+                my $showurl = &Apache::lonenc::check_decrypt($baseurl);
+                my $encrypturl = &Apache::lonnet::EXT('resource.0.encrypturl',
+                              $showsymb,$env{'user.domain'},$env{'user.name'});
                 if ($symb) {
-                    &Apache::lonenc::check_decrypt(\$symb);
-                    $symblink = '?symb='.$symb;
+                    if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
+                        $showsymb = &Apache::lonenc::check_encrypt($symb);
+                    }
+                    $symblink = '?symb='.$showsymb;
+                }
+                if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
+                    $showurl = $baseurl;
                 }
-                &Apache::lonenc::check_decrypt(\$baseurl);
-                $r->print('<br /><b>'.&mt('Refers to').':</b> <a href="'.$baseurl.$symblink.'">'.$restitle.'</a>');
+                $r->print('<br /><b>'.&mt('Refers to').':</b> <a href="'.$showurl.$symblink.'">'.$restitle.'</a>');
                 $refers_to = 1;
             }
         }
         if (!$refers_to) {
             if ($baseurl =~ m-^/enc/-) {
                 if (defined($content{'courseid'})) {
-                    my $unencurl = 
-                       &Apache::lonenc::unencrypted($baseurl,
-                                                    $content{'courseid'}); 
-                    if (defined($unencurl)) {
-                        if (&Apache::lonnet::allowed('bre',$unencurl)) {
-                            $r->print('<br /><b>'.&mt('Refers to').
-                                      ':</b> <a href="'.$unencurl.'">'.$restitle.'</a>');
+                    if (!$env{'request.course.id'}) {
+                        my $unencurl =
+                           &Apache::lonenc::unencrypted($baseurl,
+                                                        $content{'courseid'});
+                        if ($unencurl ne '') {
+                            if (&Apache::lonnet::allowed('bre',$unencurl)) {
+                                $r->print('<br /><b>'.&mt('Refers to').
+                                          ':</b> <a href="'.$unencurl.'">'.
+                                          $restitle.'</a>');
+                            }
                         }
                     }
                 }
@@ -2289,11 +2298,9 @@ sub sendoffmail {
             my $msgtxt = $savemsg;
 	    if ($toaddr{$address}) { $msgtxt.='<hr />'.$toaddr{$address}; }
 	    my @thismsg;
-	    if ((($env{'form.critmsg'}) || ($env{'form.sendbck'})) && 
-		(&Apache::lonnet::allowed('srm',$env{'request.course.id'})
-		 || &Apache::lonnet::allowed('srm',$env{'request.course.id'}.
-					     '/'.$env{'request.course.sec'}))) {
-		$r->print(&mt('Sending critical message').' '.$recuname.':'.$recdomain.': ');
+	    if ($msgtype eq 'critical') {
+		$r->print(&mt('Sending critical message').' '.
+                              $recuname.':'.$recdomain.': ');
 		@thismsg=
 		    &Apache::lonmsg::user_crit_msg($recuname,$recdomain,
 						   $msgsubj,$msgtxt,
@@ -2315,7 +2322,7 @@ sub sendoffmail {
 	        $specialmsg_status{$recuname.':'.$recdomain} =
 		    join(' ',@thismsg);
 		foreach my $result (@thismsg) {
-		    if ($result eq 'ok') {
+		    if ($result eq 'ok' || $result eq 'con_delayed') {
 			$numspecial++;
 		    }
 		}