|
version 1.177, 2014/10/26 13:10:38
|
version 1.179, 2015/02/12 21:09:24
|
|
Line 2698 sub storedcommentlisting {
|
Line 2698 sub storedcommentlisting {
|
| '^'.&escape(&escape($env{'form.showcommentbaseurl'}))); |
'^'.&escape(&escape($env{'form.showcommentbaseurl'}))); |
| $r->print(&Apache::loncommon::start_page('Saved Comment Listing',undef, |
$r->print(&Apache::loncommon::start_page('Saved Comment Listing',undef, |
| {'onlybody' => 1})); |
{'onlybody' => 1})); |
| if ((keys %msgs)[0]=~/^error\:/) { |
if ((keys(%msgs))[0]=~/^error\:/) { |
| $r->print(&mt('No saved comments yet.')); |
$r->print(&mt('No saved comments yet.')); |
| } else { |
} else { |
| my $found=0; |
my $found=0; |
|
Line 2929 sub sendoffmail {
|
Line 2929 sub sendoffmail {
|
| $env{'form.sendbck'}, |
$env{'form.sendbck'}, |
| $env{'form.permanent'}, |
$env{'form.permanent'}, |
| \$sentmessage{$address}, |
\$sentmessage{$address}, |
| $nosentstore,$recipid); |
$nosentstore,$recipid, |
| |
$attachmenturl); |
| } else { |
} else { |
| $r->print(&mt('Sending').' '.$recuname.':'.$recdomain.': '); |
$r->print(&mt('Sending').' '.$recuname.':'.$recdomain.': '); |
| @thismsg= |
@thismsg= |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmsgdisplay.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface