[LON-CAPA-cvs] cvs: loncom /interface lonaboutme.pm loncommunicate.pm /interface/statistics lonstudentassessment.pm

[albertel]

albertel		Sat Apr  8 02:59:45 2006 EDT

  Modified files:              
    /loncom/interface	loncommunicate.pm lonaboutme.pm 
    /loncom/interface/statistics	lonstudentassessment.pm 
  Log:
  - update to make use of the moved functions
  
  
Index: loncom/interface/loncommunicate.pm
diff -u loncom/interface/loncommunicate.pm:1.30 loncom/interface/loncommunicate.pm:1.31
--- loncom/interface/loncommunicate.pm:1.30	Sun Mar 19 17:22:49 2006
+++ loncom/interface/loncommunicate.pm	Sat Apr  8 02:59:34 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Communicate
 #
-# $Id: loncommunicate.pm,v 1.30 2006/03/19 22:22:49 albertel Exp $
+# $Id: loncommunicate.pm,v 1.31 2006/04/08 06:59:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,7 +31,7 @@
 
 use strict;
 use Apache::Constants qw(:common);
-use Apache::lonmsg();
+use Apache::lonmsgdisplay();
 use Apache::loncommon;
 use Apache::lonlocal;
 use Apache::lonnet;
@@ -106,9 +106,9 @@
           faq=>12,bug=>'Communication Tools',});
 
 # ---------------------------------------------------------------------- Header
-    &Apache::lonmsg::header($r);
+    &Apache::lonmsgdisplay::header($r);
     &menu($r);
-    &Apache::lonmsg::disall($r,'new');
+    &Apache::lonmsgdisplay::disall($r,'new');
     $r->print(&Apache::loncommon::end_page());
     return OK;
 }
Index: loncom/interface/lonaboutme.pm
diff -u loncom/interface/lonaboutme.pm:1.40 loncom/interface/lonaboutme.pm:1.41
--- loncom/interface/lonaboutme.pm:1.40	Tue Mar 21 16:14:43 2006
+++ loncom/interface/lonaboutme.pm	Sat Apr  8 02:59:34 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "About Me" Personal Information
 #
-# $Id: lonaboutme.pm,v 1.40 2006/03/21 21:14:43 albertel Exp $
+# $Id: lonaboutme.pm,v 1.41 2006/04/08 06:59:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -36,6 +36,7 @@
 use Apache::lonfeedback;
 use Apache::lonrss();
 use Apache::lonlocal;
+use Apache::lonmsgdisplay();
 
 sub handler {
     my $r = shift;
@@ -218,7 +219,7 @@
                           &mt('Shared by course faculty and staff').
                           &Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message").
 '<br />');
-                &Apache::lonmsg::disfacetoface($r,$cnum,$cdom);
+                &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
                 $r->print('<hr />');
                 if (&Apache::lonnet::allowed('vsa',
                                              $env{'request.course.id'}) ||
@@ -232,7 +233,7 @@
                 $r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));
 	    } else {
 		$r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\');
-		&Apache::lonmsg::disfacetoface($r,$cnum,$cdom);
+		&Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
 	    }
         }
     }
Index: loncom/interface/statistics/lonstudentassessment.pm
diff -u loncom/interface/statistics/lonstudentassessment.pm:1.135 loncom/interface/statistics/lonstudentassessment.pm:1.136
--- loncom/interface/statistics/lonstudentassessment.pm:1.135	Tue Mar 21 11:49:59 2006
+++ loncom/interface/statistics/lonstudentassessment.pm	Sat Apr  8 02:59:44 2006
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstudentassessment.pm,v 1.135 2006/03/21 16:49:59 albertel Exp $
+# $Id: lonstudentassessment.pm,v 1.136 2006/04/08 06:59:44 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -50,13 +50,14 @@
 package Apache::lonstudentassessment;
 
 use strict;
-use Apache::lonstatistics;
-use Apache::lonhtmlcommon;
+use Apache::lonstatistics();
+use Apache::lonhtmlcommon();
 use Apache::loncommon();
 use Apache::loncoursedata;
 use Apache::lonnet; # for logging porpoises
 use Apache::lonlocal;
-use Apache::grades;
+use Apache::grades();
+use Apache::lonmsgdisplay();
 use Time::HiRes;
 use Spreadsheet::WriteExcel;
 use Spreadsheet::WriteExcel::Utility();
@@ -1441,7 +1442,7 @@
     foreach my $field (@to_show) {
         my $value = $student->{$field};
         if ($field eq 'comments') {
-            $value = &Apache::lonmsg::retrieve_instructor_comments
+            $value = &Apache::lonmsgdisplay::retrieve_instructor_comments
                 ($student->{'username'},$student->{'domain'});
         }
         $excel_sheet->write($rows_output,$cols_output++,$value);
@@ -1723,7 +1724,7 @@
     foreach my $field (@to_show) {
         my $value = $student->{$field};
         if ($field eq 'comments') {
-            $value = &Apache::lonmsg::retrieve_instructor_comments
+            $value = &Apache::lonmsgdisplay::retrieve_instructor_comments
                 ($student->{'username'},$student->{'domain'});
         }        
         $Str .= '"'.&Apache::loncommon::csv_translate($value).'",';