--- loncom/interface/lonmsg.pm	2006/05/30 12:46:09	1.184
+++ loncom/interface/lonmsg.pm	2006/06/12 22:55:23	1.185
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.184 2006/05/30 12:46:09 www Exp $
+# $Id: lonmsg.pm,v 1.185 2006/06/12 22:55:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -354,6 +354,18 @@ sub all_url_author_res_msg {
     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
 
 sub user_crit_msg_raw {