loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.103, 2004/07/09 21:08:24
+version 1.104, 2004/07/15 21:08:45
  Line 949  ENDUPLOAD
  # ---------------------------------------------------- Display all face to face
+ sub retrieve_instructor_comments {
+     my ($user,$domain)=@_;
+     my $target=$ENV{'form.grade_target'};
+     if (! $ENV{'request.course.id'}) { return; }
+     if (! &Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
+ 	return;
+     }
+     my %records=&Apache::lonnet::dump('nohist_email',
+ 			 $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
+ 			 $ENV{'course.'.$ENV{'request.course.id'}.'.num'},
+                          '%255b'.$user.'%253a'.$domain.'%255d');
+     my $result='';
+     foreach (sort(keys(%records))) {
+         my %content=&unpackagemsg($records{$_});
+         next if ($content{'senderdomain'} eq '');
+         next if ($content{'subject'} !~ /^Record/);
+         # $content{'message'}=~s/\n/\<br\>/g;
+         $result.='Recorded by '.
+             $content{'sendername'}.'@'.$content{'senderdomain'}."\n";
+         $result.=
+             &Apache::lontexconvert::msgtexconverted($content{'message'})."\n";
+      }
+     return $result;
+ }
  sub disfacetoface {
      my ($r,$user,$domain)=@_;
      my $target=$ENV{'form.grade_target'};