--- loncom/homework/imagechoice.pm 2006/05/30 12:45:37 1.11 +++ loncom/homework/imagechoice.pm 2006/07/03 00:03:56 1.12 @@ -1,4 +1,4 @@ -# $Id: imagechoice.pm,v 1.11 2006/05/30 12:45:37 www Exp $ +# $Id: imagechoice.pm,v 1.12 2006/07/03 00:03:56 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,7 +26,6 @@ package Apache::imagechoice; use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; -use lib '/home/httpd/lib/perl/'; use LONCAPA; @@ -59,7 +58,7 @@ ENDSUBM my $end_page = &Apache::loncommon::end_page(); - my $js=<<"ENDSUBM"; + $r->print(<<"ENDSUBM"); $start_page

Position Selected

$display