version 1.69, 2003/10/15 21:10:24
|
version 1.73, 2003/12/30 14:57:49
|
Line 284 sub author_res_msg {
|
Line 284 sub author_res_msg {
|
return 'no_host'; |
return 'no_host'; |
} |
} |
|
|
|
# =========================================== Retrieve author resource messages |
|
|
|
sub retrieve_author_res_msg { |
|
my ($author,$domain,$url)=@_; |
|
$url=&Apache::lonnet::declutter($url); |
|
my %errormsgs=&Apache::lonnet::dump('nohist_res_msgs',$1,$2); |
|
my $msgs=''; |
|
foreach (keys %errormsgs) { |
|
if ($_=~/^\Q$url\E\_\d+$/) { |
|
my %content=&unpackagemsg($errormsgs{$_}); |
|
$msgs.='<b>'.$content{'time'}.'</b>: '.$content{'message'}. |
|
'<br />'; |
|
} |
|
} |
|
return $msgs; |
|
} |
|
|
|
|
|
# =============================== Delete all author messages related to one URL |
|
|
|
sub del_url_author_res_msg { |
|
my ($author,$domain,$url)=@_; |
|
$url=&Apache::lonnet::declutter($url); |
|
} |
|
|
|
# ================= Return hash with URLs for which there is a resource message |
|
|
|
sub all_url_author_res_msg { |
|
my ($author,$domain)=@_; |
|
} |
|
|
# ================================================== Critical message to a user |
# ================================================== Critical message to a user |
|
|
sub user_crit_msg_raw { |
sub user_crit_msg_raw { |
Line 1060 $content{'sendername'},$content{'senderd
|
Line 1091 $content{'sendername'},$content{'senderd
|
&statuschange($msgid,'replied'); |
&statuschange($msgid,'replied'); |
if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) && |
if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) && |
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { |
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { |
$r->print(&mt('Sending critical').': '. |
$r->print(&mt('Sending critical message').': '. |
&user_crit_msg($content{'sendername'}, |
&user_crit_msg($content{'sendername'}, |
$content{'senderdomain'}, |
$content{'senderdomain'}, |
&Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), |
&Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), |
Line 1118 $content{'sendername'},$content{'senderd
|
Line 1149 $content{'sendername'},$content{'senderd
|
} elsif ($ENV{'form.recordftf'}) { |
} elsif ($ENV{'form.recordftf'}) { |
&facetoface($r,$ENV{'form.recordftf'}); |
&facetoface($r,$ENV{'form.recordftf'}); |
} elsif ($ENV{'form.sendmail'}) { |
} elsif ($ENV{'form.sendmail'}) { |
|
my $sendstatus=''; |
if ($ENV{'form.send'}) { |
if ($ENV{'form.send'}) { |
my %content=(); |
my %content=(); |
undef %content; |
undef %content; |
Line 1160 $content{'sendername'},$content{'senderd
|
Line 1192 $content{'sendername'},$content{'senderd
|
if ($toaddr{$_}) { $msgtxt.='<hr>'.$toaddr{$_}; } |
if ($toaddr{$_}) { $msgtxt.='<hr>'.$toaddr{$_}; } |
if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) && |
if ((($ENV{'form.critmsg'}) || ($ENV{'form.sendbck'})) && |
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { |
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { |
$r->print('Sending critical: '. |
$r->print(&mt('Sending critical message').' ...'); |
&user_crit_msg($recuname,$recdomain, |
$sendstatus.=' '.&user_crit_msg($recuname,$recdomain, |
&Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), |
&Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), |
$msgtxt, |
$msgtxt, |
$ENV{'form.sendbck'})); |
$ENV{'form.sendbck'}); |
} else { |
} else { |
$r->print('Sending: '.&user_normal_msg($recuname,$recdomain, |
$r->print(&mt('Sending').' ...'); |
&Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), |
$sendstatus.=' '.&user_normal_msg($recuname,$recdomain, |
|
&Apache::lonfeedback::clear_out_html($ENV{'form.subject'}), |
$msgtxt, |
$msgtxt, |
$content{'citation'})); |
$content{'citation'}); |
} |
} |
$r->print('<br />'); |
$r->print('<br />'); |
} |
} |
} |
} |
if ($ENV{'form.displayedcrit'}) { |
if ($sendstatus=~/^(\s*(?:ok|con_delayed)\s*)*$/) { |
&discrit($r); |
if ($ENV{'form.displayedcrit'}) { |
|
&discrit($r); |
|
} else { |
|
&disall($r); |
|
} |
} else { |
} else { |
&disall($r); |
$r->print( |
|
'<h2><font color="red">'.&mt('Could not deliver message').'</font></h2>'. |
|
&mt('Please use the browser "Back" button and correct the recipient addresses') |
|
); |
} |
} |
} else { |
} else { |
&disall($r); |
&disall($r); |