--- loncom/interface/lonmsgdisplay.pm 2006/12/07 01:11:38 1.47
+++ loncom/interface/lonmsgdisplay.pm 2006/12/07 21:21:04 1.49
@@ -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.49 2006/12/07 21:21:04 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -245,7 +245,7 @@ function folder_choice(targetform,caller
@@ -843,7 +843,7 @@ sub get_course_desc {
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 @@ sub disnew {
$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 @@ sub disnew {
if ($#newmsgs >= 0) {
$r->print(<$lt{'nm'}
-  |
+ |
$lt{'da'} | $lt{'us'} | $lt{'do'} | $lt{'su'} | $lt{'co'} |
TABLEHEAD
foreach my $msg (@newmsgs) {
$r->print(<<"ENDLINK");
-$lt{'op'} |
+$lt{'op'} |
ENDLINK
foreach my $item ('sendtime','from','fromdom','shortsub','course') {
$r->print("$msg->{$item} | ");
}
- $r->print("
");
+ $r->print("");
}
$r->print('
');
} elsif ($numblocked == 0) {
@@ -993,7 +993,7 @@ ENDDISHEADER
if ($lastdis>$#temp) { $lastdis=$#temp; }
$r->print(&scrollbuttons($startdis,$number,$firstdis,$lastdis,$totalnumber));
$r->print('
---|