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

[albertel]

albertel		Thu Dec  7 16:06:59 2006 EDT

  Modified files:              
    /loncom/interface	lonmsgdisplay.pm loncommunicate.pm 
  Log:
  - xhtml
  
  
Index: loncom/interface/lonmsgdisplay.pm
diff -u loncom/interface/lonmsgdisplay.pm:1.47 loncom/interface/lonmsgdisplay.pm:1.48
--- loncom/interface/lonmsgdisplay.pm:1.47	Wed Dec  6 20:11:38 2006
+++ loncom/interface/lonmsgdisplay.pm	Thu Dec  7 16:06:57 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging display
 #
-# $Id: lonmsgdisplay.pm,v 1.47 2006/12/07 01:11:38 albertel Exp $
+# $Id: lonmsgdisplay.pm,v 1.48 2006/12/07 21:06:57 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -245,7 +245,7 @@
    <table><tr><td><br />
     <input type="button" value="'.&mt('Make New Folder').
     '" onClick="javascript:folder_choice(this.form,'."'new'".');" /></td>'.
-    '<td align="center"><b>'.&mt('New Folder').'<br />'.
+    '<td align="center"><b>'.&mt('New Folder').'</b><br />'.
     '<input type="text" size="15" name="newfolder" value="" />
     </td></tr></table>
   </td>
@@ -843,7 +843,7 @@
             if (defined($env{'course.'.$fromcid.'.description'})) {
                 $description = $env{'course.'.$fromcid.'.description'};
             } else {
-                my %courseinfo=&Apache::lonnet::coursedescription($fromcid);                $description = $courseinfo{'description'};
+                my %courseinfo=&Apache::lonnet::coursedescription($fromcid);
                 $description = $courseinfo{'description'};
             }
             $$descriptions{$fromcid} = $description;
@@ -889,14 +889,14 @@
                     $blocked{$id} = 'ON';
                     $numblocked ++;
                 } else {
-                    push @newmsgs, { 
+                    push(@newmsgs, { 
                         msgid    => $msgid,
                         sendtime => $sendtime,
                         shortsub => $shortsubj,
                         from     => $fromname,
                         fromdom  => $fromdom,
-                        course   => $description 
-                        }
+                        course   => $description, 
+		    });
                 }
             }
         }
@@ -904,18 +904,18 @@
     if ($#newmsgs >= 0) {
         $r->print(<<TABLEHEAD);
 <h2>$lt{'nm'}</h2>
-<table class="LC_mail_list"><tr><th>&nbsp</th>
+<table class="LC_mail_list"><tr><th>&nbsp;</th>
 <th>$lt{'da'}</th><th>$lt{'us'}</th><th>$lt{'do'}</th><th>$lt{'su'}</th><th>$lt{'co'}</th></tr>
 TABLEHEAD
         foreach my $msg (@newmsgs) {
             $r->print(<<"ENDLINK");
 <tr class="LC_mail_new">
-<td><a href="/adm/email?dismode=new&display=$msg->{'msgid'}">$lt{'op'}</a></td>
+<td><a href="/adm/email?dismode=new&amp;display=$msg->{'msgid'}">$lt{'op'}</a></td>
 ENDLINK
             foreach my $item ('sendtime','from','fromdom','shortsub','course') {
                 $r->print("<td>$msg->{$item}</td>");
             }
-            $r->print("</td></tr>");
+            $r->print("</tr>");
         }
         $r->print('</table>');
     } elsif ($numblocked == 0) {
@@ -993,7 +993,7 @@
     if ($lastdis>$#temp) { $lastdis=$#temp; }
     $r->print(&scrollbuttons($startdis,$number,$firstdis,$lastdis,$totalnumber));
     $r->print('<form method="post" name="disall" action="/adm/email">'.
-	      '<table class="LC_mail_list"><tr><th colspan="3">&nbsp</th><th>');
+	      '<table class="LC_mail_list"><tr><th colspan="3">&nbsp;</th><th>');
     if ($env{'form.sortedby'} eq "revdate") {
 	$r->print('<a href = "?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>');
     } else {
@@ -2278,7 +2278,7 @@
     unless ($dismode) { 
 	$dismode=''; 
     } else {
-	$sqs.='&dismode='.&escape($dismode);
+	$sqs.='&amp;dismode='.&escape($dismode);
     }
 
 # --------------------------------------------------------------------- Display
Index: loncom/interface/loncommunicate.pm
diff -u loncom/interface/loncommunicate.pm:1.36 loncom/interface/loncommunicate.pm:1.37
--- loncom/interface/loncommunicate.pm:1.36	Wed Dec  6 18:44:33 2006
+++ loncom/interface/loncommunicate.pm	Thu Dec  7 16:06:57 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Communicate
 #
-# $Id: loncommunicate.pm,v 1.36 2006/12/06 23:44:33 raeburn Exp $
+# $Id: loncommunicate.pm,v 1.37 2006/12/07 21:06:57 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -107,7 +107,7 @@
     if ($can_dcm) {
         $r->print('
 <td bgcolor="#FFFFAA">
-  <b><a href="/adm/email?block=display">'.$lt{'cbs'}.'</a>
+  <b><a href="/adm/email?block=display">'.$lt{'cbs'}.'</a></b>
 </td>');
     }
     if ($can_srm || $can_dcm) {