loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.231, 2011/02/13 17:44:51	version 1.233, 2012/05/07 17:34:11
Line 527 sub sendnotification {	Line 527 sub sendnotification {
to access the full message.',$url);	to access the full message.',$url);
my %userenv = &Apache::lonnet::get('environment',['notifywithhtml'],$toudom,$touname);	my %userenv = &Apache::lonnet::get('environment',['notifywithhtml'],$toudom,$touname);
my $subject = &mt_user($user_lh,"'New' $critical message from ").$sender;	my $subject = &mt_user($user_lh,"'New' $critical message from ").$sender;
	unless ($subj eq '') {
	$subject = $subj;
	}

my ($blocked,$blocktext);	my ($blocked,$blocktext);
if (!$crit) {	if (!$crit) {
Line 619 sub author_res_msg {	Line 622 sub author_res_msg {
sub retrieve_author_res_msg {	sub retrieve_author_res_msg {
my $url=shift;	my $url=shift;
$url=&Apache::lonnet::declutter($url);	$url=&Apache::lonnet::declutter($url);
	$url=~s/^priv\///; # Respect new authorspace path (BZ 1320)
my ($domain,$author)=($url=~/^($match_domain)\/($match_username)\//);	my ($domain,$author)=($url=~/^($match_domain)\/($match_username)\//);
my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author);	my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author);
my $msgs='';	my $msgs='';