--- loncom/homework/structuretags.pm	2000/11/22 00:03:37	1.12
+++ loncom/homework/structuretags.pm	2000/11/28 20:11:25	1.15
@@ -29,15 +29,20 @@ sub end_tex {
 
 sub start_problem {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;
+  unless ($target eq 'meta') {
   my $args ='';
   if ( $#$parstack > -1 ) {
     $args=$$parstack[$#$parstack];
   }
   my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
-  push (@Apache::inputtags::part,'0');
-  $safeeval->share_from('Apache::lonnet',['&EXT']);
+  $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'}."\">";
+} else {
+    return &Apache::response::mandatory_part_meta;
+}
 }
 
 sub end_problem {
@@ -152,12 +157,15 @@ 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;
+  if ($target eq 'meta') {
+      return &Apache::response::mandatory_part_meta;
+  }
 }
 
 sub end_part {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;
-  pop @Apache::inputtags::part;
+  $Apache::inputtags::part='0';
 }
 
 1;
