--- loncom/homework/imagechoice.pm 2005/08/25 19:33:14 1.9 +++ loncom/homework/imagechoice.pm 2006/05/30 12:45:37 1.11 @@ -1,4 +1,4 @@ -# $Id: imagechoice.pm,v 1.9 2005/08/25 19:33:14 albertel Exp $ +# $Id: imagechoice.pm,v 1.11 2006/05/30 12:45:37 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,6 +26,9 @@ package Apache::imagechoice; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; +use lib '/home/httpd/lib/perl/'; +use LONCAPA; + sub deletedata { my ($id)=@_; @@ -37,20 +40,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(); + + my $js=<<"ENDSUBM"; +$start_page