loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.206, 2006/06/29 22:20:22	version 1.207, 2006/06/30 04:49:03
Line 2197 sub redirect_back {	Line 2197 sub redirect_back {
"if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }";	"if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }";
}	}
my $start_page=	my $start_page=
&Apache::loncommon::start_page('New posts marked as read',undef,	&Apache::loncommon::start_page('Feedback sent',undef,
{'redirect' => [2,$feedurl],	{'redirect' => [2,$feedurl],
'only_body' => 1,	'only_body' => 1,
'add_entries' => \%onload});	'add_entries' => \%onload});
Line 3417 ENDREDIR	Line 3417 ENDREDIR
$attachmenturl,%to);	$attachmenturl,%to);

# Discussion? Store that.	# Discussion? Store that.

my $numpost=0;	my $numpost=0;
if ($env{'form.discuss'} =~/^(?:non\|)anon$/	if ( ($env{'form.discuss'} ne ''
\|\| $env{'form.anondiscuss'}) {	&& $env{'form.discuss'} !~ /^(?:author\|question\|course\|policy)/)
	\|\| $env{'form.anondiscuss'} ne '') {
my $subject = &clear_out_html($env{'form.subject'},undef,1);	my $subject = &clear_out_html($env{'form.subject'},undef,1);
my $anonmode=($env{'form.discuss'} eq 'anon' \|\| $env{'form.anondiscuss'} );	my $anonmode=($env{'form.discuss'} eq 'anon' \|\| $env{'form.anondiscuss'} );
$typestyle.=&adddiscuss($symb,$message,$anonmode,$attachmenturl,	$typestyle.=&adddiscuss($symb,$message,$anonmode,$attachmenturl,