loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.5, 2001/05/13 20:01:34
+version 1.6, 2001/05/13 21:40:32
  Line 36  sub tag_end {
    return $result;
  }
+ sub get_insert_list2 {
+   my ($token) = @_;
+   my $result='';
+   if ($Apache::lonxml::insertlist{"$token->[1].which"}) {
+     my @tagnums= @{ $Apache::lonxml::insertlist{"$token->[1].which"} };
+     foreach my $tagnum (@tagnums) {
+       $result.='<option value="'.$tagnum.'">'.$Apache::lonxml::insertlist{"$tag.description"}."</option>\n";
+     }
+     if ($result) { $result='<option selected="on"></option>'.$result; }
+   }
+   return $result;
+ }
  sub get_insert_list {
    my ($token) = @_;
    my $result='';
- Line 62  $optionlist
+ Line 75  $optionlist
      }
    }
    return $result;
+ }
+ sub handle_insert2 {
+   if (!$ENV{"form.insert_$Apache::lonxml::curdepth"}) { return ''; }
+   my $result;
+   my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"};
+   my $func=$Apache::lonxml::insertlist{"$tagnum.function"};
+   if ($func eq 'default') {
+     my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"};
+     $result.="\n<$newtag>\n</$newtag>";
+   } else {
+     {
+       no strict 'refs';
+       $result.=&$func;
+     }
+   }
+   return $result;
  }
  sub handle_insert {