loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.130, 2009/07/27 11:30:05	version 1.133, 2009/08/28 23:27:32
Line 558 sub discourse {	Line 558 sub discourse {
$result .= '<fieldset id="LC_futureusers"><legend>'	$result .= '<fieldset id="LC_futureusers"><legend>'
.&mt('Bcc: course members with future access')	.&mt('Bcc: course members with future access')
.'</legend>'	.'</legend>'
.'<form name="previoususers">';	.'<form name="futureusers">';
$result .= $tmptext.'</form></fieldset>';	$result .= $tmptext.'</form></fieldset>';
if (ref($statushash) eq 'HASH') {	if (ref($statushash) eq 'HASH') {
$statushash->{'future'} = 1;	$statushash->{'future'} = 1;
Line 1097 ENDDISHEADER	Line 1097 ENDDISHEADER
$r->print("</tr>\n");	$r->print("</tr>\n");

my $suffix = &Apache::lonmsg::foldersuffix($folder);	my $suffix = &Apache::lonmsg::foldersuffix($folder);
my $count = 0;	my $count = $firstdis;
for (my $n=$firstdis;$n<=$lastdis;$n++) {	for (my $n=$firstdis;$n<=$lastdis;$n++) {
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID,	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status,$origID,
$description,$recv_name,$recv_domain)=	$description,$recv_name,$recv_domain)=
Line 1222 sub blocked_in_folder {	Line 1222 sub blocked_in_folder {
# $setters);	# $setters);

my ($blocked, $blocktext) = &Apache::loncommon::blocking_status("com");	my ($blocked, $blocktext) = &Apache::loncommon::blocking_status("com");
$output .="<br />".$blocktext;	$output .="<br /><br />".$blocktext;

return $output;	return $output;
}	}