version 1.42, 2008/12/09 17:59:51
|
version 1.43, 2008/12/09 18:04:22
|
Line 47 sub menu {
|
Line 47 sub menu {
|
} |
} |
} |
} |
|
|
# my %lt=&Apache::lonlocal::texthash( |
|
# 'vcm' => 'View Critical Messages', |
|
# 'smu' => 'Send Message to User(s)', |
|
# 'bmc' => "Broadcast Message to $crstype", |
|
# 'dmu' => "Distribute Messages from Uploaded File to $crstype", |
|
# 'unr' => 'User Notes, Records of Face-to-Face Discussions, and Critical Messages', |
|
# 'cbs' => "Configure Blocking of $usertype Communication during Exams", |
|
# ); |
|
|
|
# my %help=(); |
|
# foreach ('Course_Face_To_Face_Records,Course_Critical_Message', 'Course_Broadcast_Message') { |
|
# $help{$_}=&Apache::loncommon::help_open_topic($_); |
|
# } |
|
|
|
# ------------------------------------------------------------------------ Menu |
# ------------------------------------------------------------------------ Menu |
my ($can_srm,$can_dcm,$can_dff); |
my ($can_srm,$can_dcm,$can_dff); |
Line 123 sub menu {
|
Line 110 sub menu {
|
]}); |
]}); |
} |
} |
$r->print(&Apache::lonhtmlcommon::generate_menu(@reports)); |
$r->print(&Apache::lonhtmlcommon::generate_menu(@reports)); |
|
|
# $r->print(<<END); |
|
#<table cellspacing="10" cellpadding="2"> |
|
#<tr> |
|
#<td bgcolor="#FFFFAA"> |
|
# <b><a href="/adm/email?compose=individual">$lt{'smu'}</a></b> |
|
#</td> |
|
#<td></td> |
|
#</tr> |
|
#END |
|
|
|
# if ($can_srm) { |
|
# $r->print(<<END); |
|
#<tr> |
|
#<td bgcolor="#FFFFAA"> |
|
# <b><a href="/adm/email?compose=group">$lt{'bmc'}</a></b>$help{'Course_Broadcast_Message'} |
|
#</td> |
|
#<td bgcolor="#FFFFAA"> |
|
# <b><a href="/adm/email?compose=upload">$lt{'dmu'}</a></b> |
|
#</td></tr> |
|
#END |
|
# } |
|
|
|
# if ($can_dcm || $can_dff) { |
|
# $r->print('<tr>'); |
|
# } |
|
|
|
# if ($can_dff) { |
|
# $r->print(<<END); |
|
#<td bgcolor="#FFFFAA"> |
|
#<b><a href="/adm/email?recordftf=query">$lt{'unr'}</a></b>$help{'Course_Face_To_Face_Records,Course_Critical_Message'} |
|
#</td> |
|
#END |
|
# } |
|
|
|
# if ($can_dcm) { |
|
# $r->print(' |
|
#<td bgcolor="#FFFFAA"> |
|
# <b><a href="/adm/email?block=display">'.$lt{'cbs'}.'</a></b> |
|
#</td>'); |
|
# } |
|
|
|
# if ($can_dff || $can_dcm) { |
|
# $r->print('</tr>'); |
|
# } |
|
|
|
# $r->print('</table>'); |
|
|
|
} |
} |
|
|