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

[albertel]

albertel		Wed Mar  8 17:16:28 2006 EDT

  Modified files:              
    /loncom/homework	response.pm 
  Log:
  - switch id getting to use new mechansim for ids
  
  
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.135 loncom/homework/response.pm:1.136
--- loncom/homework/response.pm:1.135	Sat Jan 21 03:17:51 2006
+++ loncom/homework/response.pm	Wed Mar  8 17:16:28 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.135 2006/01/21 08:17:51 albertel Exp $
+# $Id: response.pm,v 1.136 2006/03/08 22:16:28 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -37,8 +37,7 @@
 
 sub start_response {
     my ($parstack,$safeeval)=@_;
-    my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
-    if ($id eq '') { $id = $Apache::lonxml::curdepth; }
+    my $id = &Apache::lonxml::get_id($parstack,$safeeval);
     if ($#Apache::inputtags::import > -1) {
 	&Apache::lonxml::debug("Turning :$id: into");
 	$id = join('_',@Apache::inputtags::import).'_'.$id;
@@ -69,8 +68,7 @@
 
 sub start_hintresponse {
     my ($parstack,$safeeval)=@_;
-    my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
-    if ($id eq '') { $id = $Apache::lonxml::curdepth; }
+    my $id = &Apache::lonxml::get_id($parstack,$safeeval);
     push (@Apache::inputtags::hint,$id);
     push (@Apache::inputtags::hintlist,$id);
     push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]);