[LON-CAPA-cvs] cvs: loncom /homework essayresponse.pm

[www]

www		Tue Apr 29 16:32:21 2003 EDT

  Modified files:              
    /loncom/homework	essayresponse.pm 
  Log:
  Bug 108: start archiving answers.
  
  
Index: loncom/homework/essayresponse.pm
diff -u loncom/homework/essayresponse.pm:1.31 loncom/homework/essayresponse.pm:1.32
--- loncom/homework/essayresponse.pm:1.31	Mon Apr 21 16:59:02 2003
+++ loncom/homework/essayresponse.pm	Tue Apr 29 16:32:21 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # essay (ungraded) style responses
 #
-# $Id: essayresponse.pm,v 1.31 2003/04/21 20:59:02 albertel Exp $
+# $Id: essayresponse.pm,v 1.32 2003/04/29 20:32:21 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -130,6 +130,24 @@
 		$Apache::lonhomework::results{"resource.$part.$id.awarddetail"}=$award;
 		my %previous=&Apache::response::check_for_previous($response,$part,$id);
 		unless ($uploadedflag) { &Apache::response::handle_previous(\%previous,$award); }
+#
+# Store with resource author for similarity testing
+#
+                if ($award eq 'SUBMITTED') {
+		    my ($symb,$crsid,$domain,$name)=
+			&Apache::lonxml::whichuser();
+		    if ($crsid) {
+			my $akey=$name.'.'.$domain.'.'.$crsid;
+			my $essayurl=
+			    &Apache::lonnet::declutter($ENV{'REQUEST_URI'});
+			my ($adom,$aname,$apath)=
+			    ($essayurl=~/^(\w+)\/(\w+)\/(.*)$/);
+                        $apath=&Apache::lonnet::escape($apath);
+			$apath=~s/\W/\_/gs;
+			&Apache::lonnet::put('nohist_essay_'.$apath,
+					 { $akey => $response },$adom,$aname);
+		    }
+               }
 	    }
 	}
     } elsif ($target eq 'edit') {