--- loncom/interface/lonmsg.pm 2002/12/27 16:33:36 1.45 +++ loncom/interface/lonmsg.pm 2002/12/30 14:10:58 1.46 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.45 2002/12/27 16:33:36 www Exp $ +# $Id: lonmsg.pm,v 1.46 2002/12/30 14:10:58 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -533,10 +533,11 @@ sub compout { ''); unless (($broadcast eq 'group') || ($broadcast eq 'upload')) { my $domform = &Apache::loncommon::select_dom_form($defdom,'recdomain'); - + my $selectlink=&Apache::loncommon::selectstudent_link + ('compemail','recuname','recdomain'); $r->print(<<"ENDREC");
- + ENDREC @@ -623,7 +624,7 @@ $content{'sendername'}.'@'. } # Check to see if there were any messages. if ($result eq '') { - $r->print("

No face-to-face records or critical messages in this course.

"); + $r->print("

No notes, face-to-face discussion records, or critical messages in this course.

"); } else { $r->print($result); } @@ -636,16 +637,25 @@ sub facetoface { unless (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { return; } +# from query string + if ($ENV{'form.recname'}) { $ENV{'form.recuname'}=$ENV{'form.recname'}; } + if ($ENV{'form.recdom'}) { $ENV{'form.recdomain'}=$ENV{'form.recdom'}; } + my $defdom=$ENV{'user.domain'}; +# already filled in if ($ENV{'form.recdomain'}) { $defdom=$ENV{'form.recdomain'}; } +# generate output my $domform = &Apache::loncommon::select_dom_form($defdom,'recdomain'); + my $stdbrws = &Apache::loncommon::selectstudent_link + ('stdselect','recuname','recdomain'); $r->print(<<"ENDTREC"); -

User Records of Face-To-Face Discussions and Critical Messages in Course

- +

User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course

+
Username:
Username:$selectlink
Domain: $domform
@@ -663,6 +673,8 @@ ENDTREC 'Record ['.$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}.']', $ENV{'form.newrecord'}); } + $r->print('

'.&Apache::loncommon::plainname($ENV{'form.recuname'}, + $ENV{'form.recdomain'}).'

'); &disfacetoface($r,$ENV{'form.recuname'},$ENV{'form.recdomain'}); $r->print(< @@ -702,7 +714,8 @@ sub handler { &Apache::lonnet::put('email_status',{'recnewemail'=>0}); # --------------------------------------------------------------- Render Output - $r->print('EMail and Messaging'. + $r->print('EMail and Messaging'. + &Apache::loncommon::studentbrowser_javascript().''. &Apache::loncommon::bodytag('EMail and Messages')); if ($ENV{'form.display'}) { my $msgid=$ENV{'form.display'};
Username: +$stdbrws
Domain: