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(); |
} |
} |