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

[bowersj2]

bowersj2		Tue Oct  8 14:04:04 2002 EDT

  Modified files:              
    /loncom/homework	inputtags.pm response.pm 
  Log:
  - by Guy,
  
  - <dataresponse> used to bacalled <datasubmission> for some silly reason I broke everythingby half renaming, now fully renamed.
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.64 loncom/homework/inputtags.pm:1.65
--- loncom/homework/inputtags.pm:1.64	Wed Oct  2 14:13:47 2002
+++ loncom/homework/inputtags.pm	Tue Oct  8 14:04:04 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.64 2002/10/02 18:13:47 sakharuk Exp $
+# $Id: inputtags.pm,v 1.65 2002/10/08 18:04:04 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -32,7 +32,7 @@
 use strict;
 
 BEGIN {
-  &Apache::lonxml::register('Apache::inputtags',('textfield','textline','datasubmission'));
+  &Apache::lonxml::register('Apache::inputtags',('textfield','textline'));
 }
 
 
@@ -173,40 +173,6 @@
   if    ($target eq 'web') { $Apache::lonxml::evaluate++; }
   elsif ($target eq 'edit') { return ('','no'); }
   return "";
-}
-
-sub start_datasubmission {
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
-  my $id = &Apache::response::start_response($parstack,$safeeval);
-  my $result;
-  if ($target eq 'meta') {
-    $result = &Apache::response::meta_stores_write($token->[2]->{'name'},
-						   $token->[2]->{'type'},
-						   $token->[2]->{'display'});
-    $result .= &Apache::response::meta_package_write('datasubmission');
-  }
-  return $result;
-}
-
-sub end_datasubmission {
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
-  my $result;
-  if ( $target eq 'web' ) {
-  } elsif ($target eq 'grade' ) {
-    if ( defined $ENV{'form.submitted'}) {
-      &Apache::response::setup_params('datasubmission');
-      my $partid = $Apache::inputtags::part;
-      my $id = $Apache::inputtags::response['-1'];
-      my $response = $ENV{'form.HWVAL'.$id};
-      my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
-      if ( $response =~ /[^\s]/) {
-	$Apache::lonhomework::results{"resource.$partid.$id.$name"}=
-	  $response;
-      }
-    }
-  }
-  &Apache::response::end_response;
-  return $result;
 }
 
 sub finalizeawards {
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.64 loncom/homework/response.pm:1.65
--- loncom/homework/response.pm:1.64	Thu Sep 26 16:45:00 2002
+++ loncom/homework/response.pm	Tue Oct  8 14:04:04 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.64 2002/09/26 20:45:00 albertel Exp $
+# $Id: response.pm,v 1.65 2002/10/08 18:04:04 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,7 +33,7 @@
 use strict;
 
 BEGIN {
-  &Apache::lonxml::register('Apache::response',('responseparam','parameter'));
+  &Apache::lonxml::register('Apache::response',('responseparam','parameter','dataresponse'));
 }
 
 sub start_response {