--- loncom/homework/imagechoice.pm 2005/08/25 19:33:14 1.9 +++ loncom/homework/imagechoice.pm 2006/07/03 00:03:56 1.12 @@ -1,4 +1,4 @@ -# $Id: imagechoice.pm,v 1.9 2005/08/25 19:33:14 albertel Exp $ +# $Id: imagechoice.pm,v 1.12 2006/07/03 00:03:56 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,6 +26,8 @@ package Apache::imagechoice; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; +use LONCAPA; + sub deletedata { my ($id)=@_; @@ -37,20 +39,31 @@ sub closewindow { if ($needimage) { $needimage=""; } - $r->print(<<"ENDSUBM"); - - -
+ENDSUBM + + my $start_page = + &Apache::loncommon::start_page('Close Window',$js, + {'bgcolor' => '#FFFFFF', + 'only_body' => 1, + 'add_entries' => { + onload => 'submitthis();'},}); + + my $end_page = + &Apache::loncommon::end_page(); + + $r->print(<<"ENDSUBM"); +$start_page