--- loncom/homework/structuretags.pm	2001/01/06 16:35:36	1.28
+++ loncom/homework/structuretags.pm	2001/01/15 21:44:21	1.31
@@ -62,10 +62,15 @@ sub start_problem {
     my $args ='';
     if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
     my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
+    if ($name eq '') { 
+      $name=&Apache::lonnet::EXT('resource.title');
+      if ($name eq 'con_lost') { $name = ''; }
+    }
+    $Apache::lonhomework::name=$name;
     if ($status eq 'CAN_ANSWER') {
       # create a page header and exit
-      return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">";
-    } elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER' ) {
+      return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n<form name=\"lonhomework\" method=\"POST\" action=\"".$ENV{'request.uri'}."\">".'<input type="hidden" name="submitted" value="yes">';
+    } elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER' || $status eq 'CLOSED') {
       return "<title>$name</title>\n<body bgcolor=#FFFFFF>\n";
     }
   }
@@ -244,8 +249,8 @@ sub end_part {
 sub start_preduedate {
   my ($target,$token,$parstack,$parser,$safeeval)=@_;
   if ($target ne 'meta') {
-    if ($Apache::inputtags::status['-1'] eq 'CAN_ANSWER' ||
-	$Apache::inputtags::status['-1'] eq 'CANNOT_ANSWER' ) {
+    if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
+	$Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER' ) {
       &Apache::lonxml::get_all_text("/preduedate",$$parser[$#$parser]);
     }
   }
