[BACK]Return to lonspreadsheet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/Attic/lonspreadsheet.pm between versions 1.86 and 1.87

version 1.86, 2002/04/12 21:41:13 version 1.87, 2002/04/18 20:21:38
Line 111  my %parmhash; Line 111  my %parmhash;
 my $includedir;  my $includedir;
 my $tmpdir;  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  # ===================================== Implements an instance of a spreadsheet
   
Line 727  sub SUMMIN { Line 710  sub SUMMIN {
     return $sum;         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 {  sub expandnamed {
     my $expression=shift;      my $expression=shift;
     if ($expression=~/^\&/) {      if ($expression=~/^\&/) {
Line 2701  ENDSCRIPT Line 2650  ENDSCRIPT
        }         }
     }      }
     $r->print('>');      $r->print('>');
   
     if (&gettype($asheet) eq 'classcalc') {      if (&gettype($asheet) eq 'classcalc') {
        $r->print(         $r->print(
    ' Output CSV format: <input type=checkbox name=showcsv onClick="submit()"');     ' Output CSV format: <input type=checkbox name=showcsv onClick="submit()"');
Removed from v.1.86  
changed lines
  Added in v.1.87

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>