--- loncom/homework/lonhomework.pm	2003/05/23 06:45:45	1.132
+++ loncom/homework/lonhomework.pm	2003/06/16 21:32:43	1.135
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.132 2003/05/23 06:45:45 albertel Exp $
+# $Id: lonhomework.pm,v 1.135 2003/06/16 21:32:43 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -225,10 +225,10 @@ sub check_access {
     }
   }
 
-  if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam') &&
-      (!$Apache::lonhomework::history{"resource.0.outtoken"})) {
-      return ('UNCHECKEDOUT','needs to be checked out');
-  }
+  #if (($status ne 'CLOSED') && ($Apache::lonhomework::type eq 'exam') &&
+  #    (!$Apache::lonhomework::history{"resource.0.outtoken"})) {
+  #    return ('UNCHECKEDOUT','needs to be checked out');
+  #}
 
 
   &Apache::lonxml::debug("sending back :$status:$datemsg:");
@@ -417,7 +417,7 @@ sub analyze {
     }
     &Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state,
 					  'Analyzing Results');
-    foreach my $part (keys(%allparts)) {
+    foreach my $part (sort(keys(%allparts))) {
 	if (defined(@{ $overall{$part.'.answer'} })) {
 	    my $num_cols=scalar(@{ $overall{$part.'.answer'}->[0] });
 	    $request->print('<table><tr><td colspan="'.($num_cols+1).'">Part '.$part.'</td></tr>');
@@ -677,6 +677,8 @@ sub handler {
   }
   if ($ENV{'request.state'} eq "construct") {
     if ( -e $file ) {
+      &Apache::loncommon::get_unprocessed_cgi
+                          ($ENV{'QUERY_STRING'},['problemmode']);
       if (!(defined $ENV{'form.problemmode'})) {
 	#first visit to problem in construction space
 	#&view_or_edit_menu($request);