--- loncom/homework/bridgetask.pm	2006/06/20 03:33:55	1.174
+++ loncom/homework/bridgetask.pm	2006/06/20 03:56:30	1.176
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: bridgetask.pm,v 1.174 2006/06/20 03:33:55 albertel Exp $
+# $Id: bridgetask.pm,v 1.176 2006/06/20 03:56:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -83,12 +83,7 @@ sub proctor_check_auth {
 		}
 	    }
 	    if ($authenticated) {
-		my $useslots = &Apache::lonnet::EXT("resource.0.useslots");
-		if ( $useslots eq 'map_map') {
-		    &checkin_resource($user,$domain,$slot_name);
-		} else {
-		    &create_new_version($type,$user,$domain,$slot_name);
-		}
+		&check_in($type,$user,$domain,$slot_name);
 		return 1;
 	    }
 	}
@@ -112,7 +107,8 @@ sub check_in_sequence {
     my $navmap = Apache::lonnavmaps::navmap->new();
     my ($symb) = &Apache::lonxml::whichuser();
     my ($map)  = &Apache::lonnet::decode_symb($symb);
-    my @resources = $navmap->retrieveResources($map,undef,1,0);
+    my @resources = 
+	$navmap->retrieveResources($map, sub { $_[0]->is_problem() },0,0);
     my %old_history = %Apache::lonhomework::history;
     my %old_results = %Apache::lonhomework::results;
 
@@ -600,7 +596,7 @@ sub start_Task {
 	if ($status eq 'CAN_ANSWER' && $version eq '') {
 	    # CAN_ANSWR mode, and no current version, unproctored access
 	    # thus self-checkedin
-	    &check_in('Task',undef,undef,$slot_name);
+	    &check_in('Task',undef,undef,$slot_name)
 	    &add_to_queue('gradingqueue',{'type' => 'Task',
 					  'time' => time,
 					  'slot' => $slot_name});