[LON-CAPA-cvs] cvs: loncom /interface lonspreadsheet.pm

[matthew]

matthew		Thu Apr 18 16:21:38 2002 EDT

  Modified files:              
    /loncom/interface	lonspreadsheet.pm 
  Log:
  Removed subroutines to send internal messages.
  
  
Index: loncom/interface/lonspreadsheet.pm
diff -u loncom/interface/lonspreadsheet.pm:1.86 loncom/interface/lonspreadsheet.pm:1.87
--- loncom/interface/lonspreadsheet.pm:1.86	Fri Apr 12 17:41:13 2002
+++ loncom/interface/lonspreadsheet.pm	Thu Apr 18 16:21:38 2002
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.86 2002/04/12 21:41:13 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.87 2002/04/18 20:21:38 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -111,23 +111,6 @@
 my $includedir;
 my $tmpdir;
 
-# ------------------------------------------------ Send critical message
-sub send_crit_msg {
-    my ($uname,$udom,$subject,$message,$sendback) = @_;
-    my $result = &Apache::lonmsg::user_crit_msg($uname,$udom,$subject,
-                                                $message,$sendback);
-    return ($result eq 'ok' ? 1 : 0);
-}
-
-# ------------------------------------------------ Send noncritical message
-sub send_msg {
-    my ($uname,$udom,$subject,$message) = @_;
-    my $result = &Apache::lonmsg::user_normal_msg($uname,$udom,
-                                                  $subject,$message);
-    return ($result eq 'ok' ? 1 : 0);
-}
-
-
 # =============================================================================
 # ===================================== Implements an instance of a spreadsheet
 
@@ -727,40 +710,6 @@
     return $sum;   
 }
 
-#-------------------------------------------------------
-
-=item SEND_CRIT_MSG(subject,message)
-
-Send a critical message to a student.  
-
-=cut
-
-#-------------------------------------------------------
-sub SEND_CRIT_MSG {
-    my ($subject,$message) = @_;
-    my $name = $uname;
-    my $dom  = $udom;
-    return (&send_crit_msg($name,$dom,$subject,$message) ? 'Message Sent.' 
-                                                    : 'Error sending message');
-}
-
-#-------------------------------------------------------
-
-=item SEND_MSG(subject,message)
-
-Send a message to a student.  
-
-=cut
-
-#-------------------------------------------------------
-sub SEND_MSG {
-    my ($subject,$message) = @_;
-    my $name = $uname;
-    my $dom  = $udom;
-    return (&send_msg($name,$dom,$subject,$message) ? 'Message Sent.' 
-                                                    : 'Error sending message');
-}
-
 sub expandnamed {
     my $expression=shift;
     if ($expression=~/^\&/) {
@@ -2701,6 +2650,7 @@
        }
     }
     $r->print('>');
+
     if (&gettype($asheet) eq 'classcalc') {
        $r->print(
    ' Output CSV format: <input type=checkbox name=showcsv onClick="submit()"');