[LON-CAPA-cvs] cvs: loncom /homework imageresponse.pm randomlylabel.pm structuretags.pm

albertel lon-capa-cvs-allow@mail.lon-capa.org
Tue, 25 Sep 2007 23:16:16 -0000


This is a MIME encoded message

--albertel1190762176
Content-Type: text/plain

albertel		Tue Sep 25 19:16:16 2007 EDT

  Modified files:              
    /loncom/homework	structuretags.pm imageresponse.pm randomlylabel.pm 
  Log:
  - BUG#1566, coverting imageresponse to not submit on click, rather
    fetches new image with a click marked, stores the click in an input
    and submits only when submit is pressed
  
  
--albertel1190762176
Content-Type: text/plain
Content-Disposition: attachment; filename="albertel-20070925191616.txt"

Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.399 loncom/homework/structuretags.pm:1.400
--- loncom/homework/structuretags.pm:1.399	Wed Sep 12 04:35:44 2007
+++ loncom/homework/structuretags.pm	Tue Sep 25 19:16:13 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.399 2007/09/12 08:35:44 www Exp $
+# $Id: structuretags.pm,v 1.400 2007/09/25 23:16:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -92,6 +92,31 @@
     return '';
 }
 
+sub homework_js {
+    return &Apache::loncommon::resize_textarea_js().
+	<<'JS';
+<script type="text/javascript">
+function setSubmittedPart (part) {
+   this.document.lonhomework.submitted.value="part_"+part;
+}
+
+function image_response_click (which, e) {
+    init_geometry();
+    if (!e) { e = window.event; } //IE
+    var input_element = document.lonhomework.elements[which];
+    var token_element = document.lonhomework.elements['token_'+which];
+    var token = token_element.value;
+    var img_element   = document.getElementById('imageresponse_'+which);
+    var x= e.clientX-getX(img_element)+Geometry.getHorizontalScroll();
+    var y= e.clientY-getY(img_element)+Geometry.getVerticalScroll();
+    var click = x+':'+y;
+    input_element.value = click;
+    img_element.src = '/adm/randomlabel.png?token='+token+'&clickdata='+click;
+}
+</script>
+JS
+}
+
 sub page_start {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$name,
 	$extra_head)=@_;
@@ -108,13 +133,7 @@
 					   $parstack,$parser,$safeeval);
     }
 
-    $extra_head.= '
-<script type="text/javascript">
-function setSubmittedPart (part) {
-   this.document.lonhomework.submitted.value="part_"+part;
-}
-</script>
-';
+    $extra_head .= &homework_js();
 
     my %body_args;
     if (defined($found{'html'})) {
Index: loncom/homework/imageresponse.pm
diff -u loncom/homework/imageresponse.pm:1.84 loncom/homework/imageresponse.pm:1.85
--- loncom/homework/imageresponse.pm:1.84	Wed Aug 29 06:07:42 2007
+++ loncom/homework/imageresponse.pm	Tue Sep 25 19:16:13 2007
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # image click response style
 #
-# $Id: imageresponse.pm,v 1.84 2007/08/29 10:07:42 foxr Exp $
+# $Id: imageresponse.pm,v 1.85 2007/09/25 23:16:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -132,9 +132,9 @@
 
 sub prep_image {
     my ($image,$mode,$name)=@_;
-    my $part=$Apache::inputtags::part;
-    my $respid=$Apache::inputtags::response['-1'];
-    my ($x,$y)=split(/:/,$Apache::lonhomework::history{"resource.$part.$respid.submission"});
+
+    my ($x,$y)= &get_submission($name);
+    &Apache::lonxml::debug("for $name drawing click at $x and $y");
     &draw_image($mode,$image,$x,$y,$Apache::response::foilgroup{"$name.area"});
 }
 
@@ -211,10 +211,9 @@
 sub displayfoils {
     my ($target,@whichopt) = @_;
     my $result ='';
-    my $name;
     my $temp=1;
     my @images;
-    foreach $name (@whichopt) {
+    foreach my $name (@whichopt) {
 	$result.=$Apache::response::foilgroup{"$name.text"};
 	&Apache::lonxml::debug("Text is $result");
 	if ($target eq 'tex') {$result.="\\vskip 0 mm \n";} else {$result.="<br />\n";}
@@ -236,31 +235,45 @@
 	    if ($target eq 'tex') {
 		$result.=$Apache::response::foilgroup{"$name.image"}."\\vskip 0 mm \n";
 	    } else {
-		my $id=$Apache::inputtags::response['-1'];
-		my $token=&prep_image($image);
-		my $temp=1;
-		$result.="<input type=\"image\" name=\"HWVAL_$id:$temp\" ".
-		    "src=\"/adm/randomlabel.png?token=$token\" /><br />\n";
+		my $respid=$Apache::inputtags::response['-1'];
+		my $token=&prep_image($image,'submission',$name);
+		my $id = "HWVAL_$respid:$temp";
+		$result.='<img onclick="image_response_click(\''.$id.'\',event);"
+	                       src="/adm/randomlabel.png?token='.$token.'" 
+                               id="imageresponse_'.$id.'"
+                                />'.
+			       '<br />'.
+			       '<input type="hidden" name="token_'.$id.'" value="'.$token.'" />'.
+			       '<input type="hidden" name="'.$id.'" value="'.
+			       join(':',&get_submission($name)).'" />';
 	    }
 	}
 	$temp++;
     }
     if ($target eq 'web') {
 	&Apache::response::setup_prior_tries_hash(\&format_prior_response,
-						  [\@images]);
+						  [\@images,\@whichopt]);
     }
     return $result;
 }
 
 sub format_prior_response {
     my ($mode,$answer,$other_data) = @_;
-    my ($x,$y)=split(/:/,$answer);
-    my $images = $other_data->[0];
-
-    my $token = &draw_image('submission',$images->[0],$x,$y);
-
-    return "<img class=\"LC_prior_image\" src=\"/adm/randomlabel.png?token=$token\" />";
     
+    my $result;
+
+    # make a copy of the data in the refs
+    my @images = @{ $other_data->[0] };
+    my @foils = @{ $other_data->[1] };
+    foreach my $name (@foils) {
+	my $image = pop(@images);
+	my ($x,$y) = &get_submission($name,$answer);
+	my $token = &draw_image('submission',$image,$x,$y);
+	$result .=
+	    '<img class="LC_prior_image"
+                  src="/adm/randomlabel.png?token='.$token.'" /><br />';
+    }
+    return $result;
 }
 
 sub display_answers {
@@ -313,13 +326,12 @@
 	return;
     }
     
-    my $x;
-    my $y;
-    my $result;
+    my @results;
     my $temp=1;
+    my %response;
     foreach my $name (@whichopt) {
-	$x=$env{"form.HWVAL_$id:$temp.x"};
-	$y=$env{"form.HWVAL_$id:$temp.y"};
+	my ($x,$y) = split(':',$env{"form.HWVAL_$id:$temp"});
+	$response{$name} = $env{"form.HWVAL_$id:$temp"};
 	&Apache::lonxml::debug("Got a x of $x and a y of $y for $name");
 	if (defined($x) && defined($y) &&
 	    defined(@{ $Apache::response::foilgroup{"$name.area"} })) {
@@ -340,23 +352,53 @@
 		if ($grade eq 'APPROX_ANS') { last; }
 	    }
 	    &Apache::lonxml::debug("Foil was $grade");
-	    if ($grade eq 'INCORRECT') { $result= 'INCORRECT'; }
-	    if (($grade eq 'APPROX_ANS') && ($result ne 'APPROX_ANS')) { $result=$grade; }
-	    &Apache::lonxml::debug("Question is $result");
-	    $temp++;
+	    push(@results, $grade)
+	} else {
+	    push(@results, 'MISSING_ANSWER')
 	}
+	$temp++;
     }
-    my $responsestr="$x:$y";
+    my ($result) = &Apache::inputtags::finalizeawards(\@results,[]);
+    &Apache::lonxml::debug("Question is $result");
+
     my $part=$Apache::inputtags::part;
-    my %previous=&Apache::response::check_for_previous($responsestr,$part,$id);
+    my %previous=
+	&Apache::response::check_for_previous(&stringify_submission(\%response),
+					      $part,$id);
     if ($result 
 	&& $Apache::lonhomework::type eq 'survey') { $result='SUBMITTED'; }
     &Apache::response::handle_previous(\%previous,$result);
-    $Apache::lonhomework::results{"resource.$part.$id.submission"}=$responsestr;
+    $Apache::lonhomework::results{"resource.$part.$id.submission"}=
+	&stringify_submission(\%response);
     $Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$result;
     return;
 }
 
+sub stringify_submission {
+    my ($response) = @_;
+    return
+	join("\0",map {$_."\1".$response->{$_}} (sort(keys(%{ $response }))));
+    
+}
+
+sub get_submission {
+    my ($name,$string) = @_;
+
+    if (!defined($string)) {
+	my $part=$Apache::inputtags::part;
+	my $respid=$Apache::inputtags::response['-1'];
+   	$string = 
+	    $Apache::lonhomework::history{"resource.$part.$respid.submission"};
+    }
+
+    if ($string !~ /\0/) {
+	return split(':',$string);
+    } else {
+	my %response = map { split("\1",$_,2) } (split("\0",$string));
+	return split(':',$response{$name});
+    }
+}
+
 sub end_foilgroup {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result='';
Index: loncom/homework/randomlylabel.pm
diff -u loncom/homework/randomlylabel.pm:1.29 loncom/homework/randomlylabel.pm:1.30
--- loncom/homework/randomlylabel.pm:1.29	Tue Sep 25 18:56:48 2007
+++ loncom/homework/randomlylabel.pm	Tue Sep 25 19:16:13 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # randomlabel.png: composite together text and images into 1 image
 #
-# $Id: randomlylabel.pm,v 1.29 2007/09/25 22:56:48 albertel Exp $
+# $Id: randomlylabel.pm,v 1.30 2007/09/25 23:16:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -267,6 +267,23 @@
     return $imcolor;
 }
 
+sub add_click {
+    my ($image) = @_;
+
+    my $length=6;
+    my $bgcolor=&get_color_from_hexstring($image,'FFFFFF');
+    my $fgcolor=&get_color_from_hexstring($image,'009999');
+
+    my ($x,$y) = split(':',$env{'form.clickdata'});
+
+    $image->setThickness(3);
+    $image->line($x-$length,$y,        $x+$length,$y,        $bgcolor);
+    $image->line($x,        $y-$length,$x,        $y+$length,$bgcolor);
+    $image->setThickness(1);
+    $image->line($x-$length,$y,        $x+$length,$y,        $fgcolor);
+    $image->line($x,        $y-$length,$x,        $y+$length,$fgcolor);
+}
+
 sub handler {
     my $r = shift;
     $r->content_type('image/png');
@@ -429,6 +446,7 @@
 	    &Apache::lonnet::logthis("randomlylabel unable to handle object of type $type");
 	}
     }
+    if (exists($env{'form.clickdata'})) { &add_click($image); }
     $image->setThickness(1);
     $r->print($image->png);
     return OK;

--albertel1190762176--