--- loncom/xml/lonxml.pm 2002/10/03 13:34:10 1.197 +++ loncom/xml/lonxml.pm 2002/10/03 15:04:29 1.198 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.197 2002/10/03 13:34:10 sakharuk Exp $ +# $Id: lonxml.pm,v 1.198 2002/10/03 15:04:29 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -99,6 +99,7 @@ use Apache::edit(); use Apache::lonnet(); use Apache::File(); use Apache::loncommon(); +use Apache::lonfeedback(); #================================================== Main subroutine: xmlparse #debugging control, to turn on debugging modify the correct handler @@ -232,7 +233,7 @@ sub xmlend { } if ($discussiononly) { $discussion.=(<<ENDDISCUSS); -<form action="/adm/feedback" method="post"> +<form action="/adm/feedback" method="post" name="mailform"> <input type="submit" name="discuss" value="Post Discussion" /> <input type="submit" name="anondiscuss" value="Post Anonymous Discussion" /> <input type="hidden" name="symb" value="$symb" /> @@ -243,6 +244,7 @@ course faculty</font><br /> <textarea name=comment cols=60 rows=10 wrap=hard></textarea> </form> ENDDISCUSS + $discussion.=&Apache::lonfeedback::generate_preview_button(); } } }