|
version 1.184, 2006/05/30 12:46:09
|
version 1.185, 2006/06/12 22:55:23
|
|
Line 354 sub all_url_author_res_msg {
|
Line 354 sub all_url_author_res_msg {
|
| return %returnhash; |
return %returnhash; |
| } |
} |
| |
|
| |
# ====================================== Add a comment to the User Notes screen |
| |
|
| |
sub store_instructor_comment { |
| |
my ($msg,$uname,$udom) = @_; |
| |
my $cid = $env{'request.course.id'}; |
| |
my $cnum = $env{'course.'.$cid.'.num'}; |
| |
my $cdom = $env{'course.'.$cid.'.domain'}; |
| |
my $subject= &mt('Record').' ['.$uname.':'.$udom.']'; |
| |
my $result = &user_normal_msg_raw($cnum,$cdom,$subject,$msg); |
| |
return $result; |
| |
} |
| |
|
| # ================================================== Critical message to a user |
# ================================================== Critical message to a user |
| |
|
| sub user_crit_msg_raw { |
sub user_crit_msg_raw { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmsg.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface