--- loncom/homework/imagechoice.pm 2004/01/09 23:22:19 1.1 +++ loncom/homework/imagechoice.pm 2004/01/12 19:53:54 1.2 @@ -1,4 +1,4 @@ -# $Id: imagechoice.pm,v 1.1 2004/01/09 23:22:19 albertel Exp $ +# $Id: imagechoice.pm,v 1.2 2004/01/12 19:53:54 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,10 +26,11 @@ package Apache::imagechoice; use strict; use Apache::Constants qw(:common :http); -# -# Single coordinate, defined - store it -# +sub deletedata { + my ($id)=@_; + &Apache::lonnet::delenv("imagechoice\\.$id"); +} sub closewindow { my ($r,$output,$filename)=@_; @@ -43,7 +44,7 @@ sub closewindow {