--- loncom/homework/bridgetask.pm 2023/01/23 20:34:54 1.264.8.1.2.2 +++ loncom/homework/bridgetask.pm 2023/07/06 22:23:14 1.264.8.1.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.264.8.1.2.2 2023/01/23 20:34:54 raeburn Exp $ +# $Id: bridgetask.pm,v 1.264.8.1.2.3 2023/07/06 22:23:14 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -119,14 +119,21 @@ sub check_in_sequence { my ($symb) = &Apache::lonnet::whichuser(); my ($map) = &Apache::lonnet::decode_symb($symb); my @resources = - $navmap->retrieveResources($map, sub { $_[0]->is_problem() },0,0); + $navmap->retrieveResources($map, sub { $_[0]->is_problem() || $_[0]->is_tool() },0,0); my %old_history = %Apache::lonhomework::history; my %old_results = %Apache::lonhomework::results; foreach my $res (@resources) { &Apache::lonxml::debug("doing ".$res->src); &Apache::structuretags::initialize_storage($res->symb); - my $type = ($res->is_task()) ? 'Task' : 'problem'; + my $type; + if ($res->is_task()) { + $type = 'Task'; + } elsif ($res->is_tool) { + $type = 'tool'; + } else { + $type = 'problem'; + } &create_new_version($type,$user,$domain,$slot_name); &Apache::structuretags::finalize_storage($res->symb); } @@ -160,7 +167,7 @@ sub create_new_version { $domain = $env{'user.domain'}; } - } elsif ($type eq 'problem') { + } elsif (($type eq 'problem') || ($type eq 'tool')) { &Apache::lonxml::debug("authed $slot_name"); } if (!defined($user) || !defined($domain)) {