loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.91, 2008/08/25 14:29:12	version 1.93, 2008/10/08 14:56:50
Line 1256 sub compout {	Line 1256 sub compout {
'atta' => 'Attachment',	'atta' => 'Attachment',
);	);
my %attachmax = (	my %attachmax = (
text => '(128 KB max size)',	text => &mt('(128 KB max size)'),
num => 131072,	num => 131072,
);	);
if (!$forwarding && !$multiforward) {	if (!$forwarding && !$multiforward) {
Line 2096 sub displaymessage {	Line 2096 sub displaymessage {
my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);	my %message=&Apache::lonnet::get('nohist_email'.$suffix,[$msgid]);
my %content=&Apache::lonmsg::unpackagemsg($message{$msgid});	my %content=&Apache::lonmsg::unpackagemsg($message{$msgid});
my $counter=0;	my $counter=0;
$r->print('<pre>');
my $escmsgid=&escape($msgid);	my $escmsgid=&escape($msgid);
foreach (@messages) {	foreach (@messages) {
if ($_->[5] eq $escmsgid){	if ($_->[5] eq $escmsgid){
Line 2104 sub displaymessage {	Line 2103 sub displaymessage {
}	}
$counter++;	$counter++;
}	}
$r->print('</pre>');

my $see_anonymous;	my $see_anonymous;
my $from_student = 0;	my $from_student = 0;
Line 2356 sub displaymessage {	Line 2354 sub displaymessage {
.&displayresource(%content)	.&displayresource(%content)
);	);
}	}
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1).
	&Apache::lonhtmlcommon::end_pick_box());
# Display LON-CAPA Message (End)	# Display LON-CAPA Message (End)
return;	return;
}	}