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; |
} |
} |
|
|