[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.85 and 1.86

version 1.85, 2002/04/11 14:16:32 version 1.86, 2002/04/12 21:41:13
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 122  sub initsheet { Line 139  sub initsheet {
     $safeeval->permit("sort");      $safeeval->permit("sort");
     $safeeval->deny(":base_io");      $safeeval->deny(":base_io");
     $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');      $safehole->wrap(\&Apache::lonnet::EXT,$safeeval,'&EXT');
       $safehole->wrap(\&send_msg,     $safeeval,"&send_msg");
       $safehole->wrap(\&send_crit_msg,$safeeval,"&send_crit_msg");
     my $code=<<'ENDDEFS';      my $code=<<'ENDDEFS';
 # ---------------------------------------------------- Inside of the safe space  # ---------------------------------------------------- Inside of the safe space
   
Line 708  sub SUMMIN { Line 727  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 2419  $tmpdir=$r->dir_config('lonDaemons').'/t Line 2472  $tmpdir=$r->dir_config('lonDaemons').'/t
   
     function celledit(cn,cf) {      function celledit(cn,cf) {
         var cnf=prompt(cn,cf);          var cnf=prompt(cn,cf);
  if (cnf!=null) {          if (cnf!=null) {
     document.sheet.unewfield.value=cn;              document.sheet.unewfield.value=cn;
             document.sheet.unewformula.value=cnf;              document.sheet.unewformula.value=cnf;
             document.sheet.submit();              document.sheet.submit();
         }          }
Removed from v.1.85  
changed lines
  Added in v.1.86

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