--- loncom/homework/imageresponse.pm	2008/12/21 05:22:01	1.94.2.1
+++ loncom/homework/imageresponse.pm	2008/11/12 20:01:21	1.95
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # image click response style
 #
-# $Id: imageresponse.pm,v 1.94.2.1 2008/12/21 05:22:01 raeburn Exp $
+# $Id: imageresponse.pm,v 1.95 2008/11/12 20:01:21 jms Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -29,6 +29,152 @@
 #FIXME LATER assumes multiple possible submissions but only one is possible 
 #currently
 
+
+=head1 NAME
+
+Apache::imageresponse
+
+=head1 SYNOPSIS
+
+Coordinates the response to clicking an image.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 HANDLER SUBROUTINE
+
+
+
+=head1 OTHER SUBROUTINES
+
+=over
+
+=item *
+
+start_imageresponse()
+
+=item *
+
+end_imageresponse()
+
+=item *
+
+start_foilgroup()
+
+=item *
+
+getfoilcounts()
+
+=item *
+
+whichfoils()
+
+=item *
+
+prep_image()
+
+=item *
+
+draw_image()
+
+=item *
+
+displayfoils()
+
+=item *
+
+format_prior_response()
+
+=item *
+
+display_answers()
+
+=item *
+
+clean_up_image()
+
+=item *
+
+gradefoils()
+
+=item *
+
+stringify_submission()
+
+=item *
+
+get_submission()
+
+=item *
+
+end_foilgroup()
+
+=item *
+
+start_conceptgroup()
+
+=item *
+
+end_conceptgroup()
+
+=item *
+
+insert_foil()
+
+=item *
+
+start_foil()
+
+=item *
+
+end_foil()
+
+=item *
+
+start_text()
+
+=item *
+
+end_text()
+
+=item *
+
+start_image()
+
+
+=item *
+
+end_image()
+
+=item *
+
+start_rectangle()
+
+=item *
+
+grade_rectangle()
+
+=item *
+
+end_rectangle()
+
+=item *
+
+start_polygon()
+
+=item *
+
+grade_polygon()
+
+=item *
+
+end_polygon()
+
+=back
+
+=cut
+
+
 package Apache::imageresponse;
 use strict;
 use Image::Magick();
@@ -239,7 +385,7 @@ sub displayfoils {
 	my $image=$Apache::response::foilgroup{"$name.image"};
 	&Apache::lonxml::debug("image is $image");
 	if ( ($target eq 'web' || $target eq 'answer') 
-	     && $image !~ /^https?\:/ ) {
+	     && $image !~ /^http:/ ) {
 	    $image=&clean_up_image($image);
 	}
 	push(@images,$image);
@@ -305,7 +451,7 @@ sub display_answers {
 	my $image=$Apache::response::foilgroup{"$name.image"};
 	&Apache::lonxml::debug("image is $image");
 	if ( ($target eq 'web' || $target eq 'answer')
-	     && $image !~ /^https?\:/ ) {
+	     && $image !~ /^http:/ ) {
 	    $image = &clean_up_image($image);
 	} 
 	my $token=&prep_image($image,'answeronly',$name);
@@ -320,7 +466,7 @@ sub clean_up_image {
     my ($image)=@_;
     if ($image =~ /\s*<img\s*/) {
 	($image) = ($image =~ /src\s*=\s*[\"\']([^\"\']+)[\"\']/i);
-	if ($image !~ /^https?\:/) {
+	if ($image !~ /^http:/) {
 	    $image=&Apache::lonnet::hreflocation('',$image);
 	}
 	if (!$image) {