|
version 1.22, 2006/05/01 19:37:33
|
version 1.23, 2006/05/11 19:04:31
|
|
Line 901 sub compout {
|
Line 901 sub compout {
|
| } |
} |
| my $citation=&displayresource(%content); |
my $citation=&displayresource(%content); |
| if ($env{'form.recdom'}) { $defdom=$env{'form.recdom'}; } |
if ($env{'form.recdom'}) { $defdom=$env{'form.recdom'}; } |
| $r->print( |
if ($env{'form.text'}) { $dismsg=$env{'form.text'}; } |
| |
if ($env{'form.subject'}) { $dissub=$env{'form.subject'}; } |
| |
$r->print( |
| '<form action="/adm/email" name="compemail" method="post"'. |
'<form action="/adm/email" name="compemail" method="post"'. |
| ' enctype="multipart/form-data">'."\n". |
' enctype="multipart/form-data">'."\n". |
| '<input type="hidden" name="sendmail" value="on" />'."\n". |
'<input type="hidden" name="sendmail" value="on" />'."\n". |
|
Line 1902 sub handler {
|
Line 1904 sub handler {
|
| ['display','replyto','forward','markread','markdel','markunread', |
['display','replyto','forward','markread','markdel','markunread', |
| 'sendreply','compose','sendmail','critical','recname','recdom', |
'sendreply','compose','sendmail','critical','recname','recdom', |
| 'recordftf','sortedby','block','folder','startdis','interdis', |
'recordftf','sortedby','block','folder','startdis','interdis', |
| 'showcommentbaseurl','dismode','group']); |
'showcommentbaseurl','dismode','group','subject','text']); |
| $sqs='&sortedby='.$env{'form.sortedby'}; |
$sqs='&sortedby='.$env{'form.sortedby'}; |
| |
|
| # ------------------------------------------------------ They checked for email |
# ------------------------------------------------------ They checked for email |
![[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