--- loncom/interface/loncoursedata.pm	2006/04/28 21:51:35	1.162
+++ loncom/interface/loncoursedata.pm	2006/04/29 18:00:17	1.165
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.162 2006/04/28 21:51:35 albertel Exp $
+# $Id: loncoursedata.pm,v 1.165 2006/04/29 18:00:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -902,6 +902,15 @@ sub clear_internal_caches {
     undef(%students_by_id);
 }
 
+
+################################################
+################################################
+
+sub symb_is_for_task {
+    my ($symb) = @_;
+    return ($symb =~ /\.task$/);
+}
+
 ################################################
 ################################################
 
@@ -993,7 +1002,60 @@ sub update_full_student_data {
             next;
         } elsif ($parameter eq 'version') {
             next;
-        } elsif ($parameter =~ /^resource\.(.*)\.(tries|
+	} elsif (&symb_is_for_task($symb)) {
+	    next if ($parameter !~ /^resource\.(.*)\.(award|
+						      awarded|
+						      solved|
+						      submission|
+						      portfiles|
+						      status|
+						      version|
+						      regrader)\s*$/x);
+	    my ($version_and_part_id, $field) = ($1,$2);
+
+	    next if ($version_and_part_id !~ /\./ 
+		     && $field ne 'regrader' && $field ne 'version');
+
+	    my ($version, $part, $instance) = 
+		split(/\./,$version_and_part_id);
+
+	    #skip and instance dimension or criteria specific data
+	    next if (defined($instance) 
+		     && $instance ne $field
+		     && $instance ne 'bridgetask');
+	    
+	    if (!defined($part)) {
+		$part = $version;
+	    }
+	    my $resp_id = &get_part_id('0');
+	    my $part_id = &get_part_id($part);
+	    
+	    if ($field eq 'version') {
+		# for tasks each version is an attempt at it thus
+		#     version -> tries
+		$partdata->{$symb_id}{$part_id}{$transaction}{'tries'}=
+		    $value;
+		# at new version time the record gets reset thus adding a
+		# virtual response awarddetail of 'new_version'
+		$respdata->{$symb_id}{$part_id}{$resp_id}{$transaction}{'response_specific'}='status';
+		$respdata->{$symb_id}{$part_id}{$resp_id}{$transaction}{'response_specific_value'}='new_version';
+
+	    } elsif ($field eq 'award' || $field eq 'awarded' 
+		     || $field eq 'solved') {
+		$partdata->{$symb_id}{$part_id}{$transaction}{$field}=
+		    $value;
+	    } elsif ($field eq 'portfiles') {
+		# tasks only accepts portfolio submissions
+		$value = $dbh->quote($value);
+		$respdata->{$symb_id}{$part_id}{$resp_id}{$transaction}{'submission'}=$value;
+	    } elsif ($field eq 'status') {
+		$respdata->{$symb_id}{$part_id}{$resp_id}{$transaction}{'response_specific'}=$field;
+		$respdata->{$symb_id}{$part_id}{$resp_id}{$transaction}{'response_specific_value'}=$value;
+	    } elsif ($field eq 'regrader') {
+		$respdata->{$symb_id}{$part_id}{$resp_id}{$transaction}{'response_specific_2'}=$field;
+		$respdata->{$symb_id}{$part_id}{$resp_id}{$transaction}{'response_specific_value_2'}=$value;
+	    }
+	} elsif ($parameter =~ /^resource\.(.*)\.(tries|
                                                   award|
                                                   awarded|
                                                   previous|
@@ -1292,6 +1354,10 @@ sub store_student_data {
             my $award   = $param_hash->{'resource.'.$part.'.award'};
             my $awarddetail = $param_hash->{'resource.'.$part.'.awarddetail'};
             my $timestamp = $param_hash->{'timestamp'};
+	    my $tries   = $param_hash->{'resource.'.$part.'.tries'};
+	    if (&symb_is_for_task($current_symb)) {
+		$tries   = $param_hash->{'resource.'.$part.'.version'};
+	    }
             #
             $solved      = '' if (! defined($solved));
             $tries       = '' if (! defined($tries));