--- loncom/interface/lonmsg.pm 2011/02/13 17:44:51 1.231 +++ loncom/interface/lonmsg.pm 2012/05/07 17:34:11 1.233 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.231 2011/02/13 17:44:51 raeburn Exp $ +# $Id: lonmsg.pm,v 1.233 2012/05/07 17:34:11 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -527,6 +527,9 @@ sub sendnotification { to access the full message.',$url); my %userenv = &Apache::lonnet::get('environment',['notifywithhtml'],$toudom,$touname); my $subject = &mt_user($user_lh,"'New' $critical message from ").$sender; + unless ($subj eq '') { + $subject = $subj; + } my ($blocked,$blocktext); if (!$crit) { @@ -619,6 +622,7 @@ sub author_res_msg { sub retrieve_author_res_msg { my $url=shift; $url=&Apache::lonnet::declutter($url); + $url=~s/^priv\///; # Respect new authorspace path (BZ 1320) my ($domain,$author)=($url=~/^($match_domain)\/($match_username)\//); my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$domain,$author); my $msgs='';