loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.99, 2004/07/09 23:05:52	version 1.99.2.1, 2004/07/23 20:01:46
Line 635 Attachment (128 KB max size): <input typ	Line 635 Attachment (128 KB max size): <input typ
</p>	</p>
</form>	</form>
ENDDOCUMENT	ENDDOCUMENT
$r->print(&generate_preview_button().	$r->print(&generate_preview_button($onsubmit).
&Apache::lonhtmlcommon::htmlareaselectactive('comment').	&Apache::lonhtmlcommon::htmlareaselectactive('comment').
'</body></html>');	'</body></html>');
}	}
Line 1114 sub show_preview {	Line 1114 sub show_preview {
}	}

sub generate_preview_button {	sub generate_preview_button {
	my ($onsubmit)=@_;
my $pre=&mt("Show Preview");	my $pre=&mt("Show Preview");
return(<<ENDPREVIEW);	return(<<ENDPREVIEW);
<form name="preview" action="/adm/feedback?preview=1" method="post" target="preview">	<form name="preview" action="/adm/feedback?preview=1" method="post" target="preview">
<input type="hidden" name="subject">	<input type="hidden" name="subject">
<input type="hidden" name="comment" />	<input type="hidden" name="comment" />
<input type="button" value="$pre"	<input type="button" value="$pre"
onClick="document.mailform.onsubmit();this.form.comment.value=document.mailform.comment.value;this.form.subject.value=document.mailform.subject.value;this.form.submit();" />	onClick="$onsubmit;this.form.comment.value=document.mailform.comment.value;this.form.subject.value=document.mailform.subject.value;this.form.submit();" />
</form>	</form>
ENDPREVIEW	ENDPREVIEW
}	}