--- loncom/homework/randomlabel.pm	2002/08/27 18:21:27	1.36
+++ loncom/homework/randomlabel.pm	2002/10/14 20:37:27	1.37
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # random labelling tool
 #
-# $Id: randomlabel.pm,v 1.36 2002/08/27 18:21:27 sakharuk Exp $
+# $Id: randomlabel.pm,v 1.37 2002/10/14 20:37:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -200,8 +200,8 @@ sub start_labelgroup {
   my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
   my $type = &Apache::lonxml::get_param('type',$parstack,$safeeval);
   $type =~tr/A-Z/a-z/;
-  if ($target eq 'web' || $target eq 'tex' || 
-      $target eq 'grade' || $target eq 'answer') {
+  if ($target eq 'web' || $target eq 'tex' ||
+      $target eq 'grade' || $target eq 'answer' || $target eq 'analyze') {
     $Apache::randomlabel::groupname=$name;
     $Apache::randomlabel::type=$type;
     @Apache::randomlabel::xcoord = ();
@@ -249,7 +249,8 @@ sub end_labelgroup {
   my $gname = $Apache::randomlabel::groupname;
   my $type  = $Apache::randomlabel::type;
   my $result='';
-  if ($target eq 'web' || $target eq 'answer' || $target eq 'grade') {
+  if ($target eq 'web' || $target eq 'answer' || $target eq 'grade' ||
+      $target eq 'analyze') {
     my @idx_arr = (0 .. $#Apache::randomlabel::label_arr);
     &Apache::structuretags::shuffle(\@idx_arr);
     for(0 .. $#Apache::randomlabel::label_arr) {
@@ -373,8 +374,8 @@ sub start_label {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
   my $result='';
   my $type = &Apache::lonxml::get_param('type',$parstack,$safeeval,-2);
-  if ($target eq 'web' || $target eq 'tex' || 
-      $target eq 'grade' || $target eq 'answer') {
+  if ($target eq 'web' || $target eq 'tex' ||
+      $target eq 'grade' || $target eq 'answer' || $target eq 'analyze') {
     my $ltext=&Apache::lonxml::get_all_text("/label",$$parser[-1]);
     $ltext=&Apache::run::evaluate($ltext,$safeeval,$$parstack[-1]);
     if ($type eq 'image') {