--- loncom/homework/structuretags.pm	2000/11/21 18:40:59	1.11
+++ loncom/homework/structuretags.pm	2000/11/28 19:15:48	1.14
@@ -34,7 +34,10 @@ sub start_problem {
     $args=$$parstack[$#$parstack];
   }
   my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
-  push (@Apache::inputtags::part,'0');
+  $Apache::inputtags::part='0';
+  my $expression='$external::part='.$Apache::inputtags::part.';';
+  $safeeval->share_from('Apache::inputtags',['@part']);
+  &Apache::run::run($expression)
   return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">";
 }
 
@@ -150,12 +153,12 @@ sub start_part {
   my $args ='';
   if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
   my $id = &Apache::run::run("{$args;".'return $id}',$safeeval);
-  push (@Apache::inputtags::part,$id);
+  $Apache::inputtags::part=$id;
 }
 
 sub end_part {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;
-  pop @Apache::inputtags::part;
+  $Apache::inputtags::part='0';
 }
 
 1;
