version 1.37, 2001/07/12 19:27:48
|
version 1.38, 2001/07/13 14:02:35
|
Line 31 sub initialize_inputtags {
|
Line 31 sub initialize_inputtags {
|
sub start_input { |
sub start_input { |
my ($parstack,$safeeval)=@_; |
my ($parstack,$safeeval)=@_; |
my $id = &Apache::lonxml::get_param('id',$parstack,$safeeval); |
my $id = &Apache::lonxml::get_param('id',$parstack,$safeeval); |
|
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
push (@Apache::inputtags::input,$id); |
push (@Apache::inputtags::input,$id); |
push (@Apache::inputtags::inputlist,$id); |
push (@Apache::inputtags::inputlist,$id); |
return $id; |
return $id; |