version 1.32, 2002/09/16 19:54:01
|
version 1.34, 2002/10/11 20:52:13
|
Line 50 use strict;
|
Line 50 use strict;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonmsg(); |
use Apache::lonmsg(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
|
use Apache::lontexconvert(); |
|
|
sub mail_screen { |
sub mail_screen { |
my ($r,$feedurl,$options) = @_; |
my ($r,$feedurl,$options) = @_; |
Line 114 My question/comment/feedback:<p>
|
Line 115 My question/comment/feedback:<p>
|
<input type=hidden name=sendit value=1> |
<input type=hidden name=sendit value=1> |
<input type=button value="Send Feedback" onClick='gosubmit();'></input> |
<input type=button value="Send Feedback" onClick='gosubmit();'></input> |
</form> |
</form> |
</body> |
|
</html> |
|
ENDDOCUMENT |
ENDDOCUMENT |
|
$r->print(&generate_preview_button().'</body></html>'); |
} |
} |
|
|
sub fail_redirect { |
sub fail_redirect { |
Line 227 sub resource_output {
|
Line 227 sub resource_output {
|
|
|
sub clear_out_html { |
sub clear_out_html { |
my $message=$ENV{'form.comment'}; |
my $message=$ENV{'form.comment'}; |
|
$message=~s/\<\/*m\s*\>//g; |
$message=~s/\</\<\;/g; |
$message=~s/\</\<\;/g; |
$message=~s/\>/\>\;/g; |
$message=~s/\>/\>\;/g; |
return $message; |
return $message; |
Line 293 sub send_msg {
|
Line 294 sub send_msg {
|
if ($_) { |
if ($_) { |
my $declutter=&Apache::lonnet::declutter($feedurl); |
my $declutter=&Apache::lonnet::declutter($feedurl); |
unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_), |
unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_), |
'Feedback ['.$declutter.']',$email,$citations) eq 'ok') { |
'Feedback ['.$declutter.']',$email,$citations)=~/ok/) { |
$status.='<br>Error sending message to '.$_.'<br>'; |
$status.='<br>Error sending message to '.$_.'<br>'; |
} else { |
} else { |
$sendsomething++; |
$sendsomething++; |
Line 358 sub adddiscuss {
|
Line 359 sub adddiscuss {
|
return $status.'<br>'; |
return $status.'<br>'; |
} |
} |
|
|
|
# ----------------------------------------------------------- Preview function |
|
|
|
sub show_preview { |
|
my $r=shift; |
|
my $message=&clear_out_html($ENV{'form.comment'}); |
|
$message=~s/\n/\<br \/\>/g; |
|
$message=&Apache::lontexconvert::msgtexconverted($message); |
|
$r->print('<table border="2"><tr><td>'. |
|
$message.'</td></tr></table>'); |
|
} |
|
|
|
sub generate_preview_button { |
|
return(<<ENDPREVIEW); |
|
<form name="preview" action="/adm/feedback?preview=1" method="post" target="preview"> |
|
<input type="hidden" name="comment" /> |
|
<input type="button" value="Show Preview" |
|
onClick="this.form.comment.value=document.mailform.comment.value;this.form.submit();" /> |
|
</form> |
|
ENDPREVIEW |
|
} |
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
if ($r->header_only) { |
if ($r->header_only) { |
Line 369 sub handler {
|
Line 390 sub handler {
|
# --------------------------- Get query string for limited number of parameters |
# --------------------------- Get query string for limited number of parameters |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['hide','unhide','postdata']); |
['hide','unhide','postdata','preview']); |
|
|
if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { |
if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { |
# ----------------------------------------------------------------- Hide/unhide |
# ----------------------------------------------------------------- Hide/unhide |
Line 401 sub handler {
|
Line 422 sub handler {
|
|
|
&redirect_back($r,&Apache::lonnet::clutter($url), |
&redirect_back($r,&Apache::lonnet::clutter($url), |
'Changed discussion status<p>','0','0'); |
'Changed discussion status<p>','0','0'); |
|
} elsif ($ENV{'form.preview'}) { |
|
# -------------------------------------------------------- User wants a preview |
|
&show_preview($r); |
} else { |
} else { |
# ------------------------------------------------------------- Normal feedback |
# ------------------------------------------------------------- Normal feedback |
my $feedurl=$ENV{'form.postdata'}; |
my $feedurl=$ENV{'form.postdata'}; |