loncom/interface/loncommunicate.pm - diff

Return to loncommunicate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2004/11/09 16:29:32	version 1.25, 2004/11/11 20:41:53
Line 54 sub menu {	Line 54 sub menu {
'Course_Broadcast_Message') {	'Course_Broadcast_Message') {
$help{$_}=&Apache::loncommon::help_open_topic($_);	$help{$_}=&Apache::loncommon::help_open_topic($_);
}	}
my $folderlist=&Apache::lonmsg::folderlist();
# ------------------------------------------------------------------------ Menu	# ------------------------------------------------------------------------ Menu
$r->print(<<END);	$r->print(<<END);
$folderlist
<form method="post" action="/adm/email">	<form method="post" action="/adm/email">
<input type="submit" value="$lt{'mnf'}" />	<input type="submit" value="$lt{'mnf'}" />
<input type="text" size="15" name="newfolder" value="" />	<input type="text" size="15" name="newfolder" value="" />
Line 112 END	Line 110 END
# ---------------------------------------------------------------------- Header	# ---------------------------------------------------------------------- Header
&Apache::lonmsg::header($r);	&Apache::lonmsg::header($r);
&menu($r);	&menu($r);
&Apache::lonmsg::disnew($r);	&Apache::lonmsg::disall($r,'new');
return OK;	return OK;
}	}