[LON-CAPA-cvs] cvs: loncom /interface loncommunicate.pm
diwert
diwert@source.lon-capa.org
Tue, 09 Dec 2008 18:04:22 -0000
diwert Tue Dec 9 18:04:22 2008 EDT
Modified files:
/loncom/interface loncommunicate.pm
Log:
removed not used code fragments
Index: loncom/interface/loncommunicate.pm
diff -u loncom/interface/loncommunicate.pm:1.42 loncom/interface/loncommunicate.pm:1.43
--- loncom/interface/loncommunicate.pm:1.42 Tue Dec 9 17:59:51 2008
+++ loncom/interface/loncommunicate.pm Tue Dec 9 18:04:22 2008
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Communicate
#
-# $Id: loncommunicate.pm,v 1.42 2008/12/09 17:59:51 diwert Exp $
+# $Id: loncommunicate.pm,v 1.43 2008/12/09 18:04:22 diwert Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -47,19 +47,6 @@
}
}
-# 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
my ($can_srm,$can_dcm,$can_dff);
@@ -123,53 +110,6 @@
]});
}
$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>');
}