loncom/homework/bridgetask.pm - diff

Return to bridgetask.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.267, 2016/08/31 19:08:18	version 1.268, 2017/12/22 02:00:39
Line 131 sub check_in_sequence {	Line 131 sub check_in_sequence {
foreach my $res (@resources) {	foreach my $res (@resources) {
&Apache::lonxml::debug("doing ".$res->src);	&Apache::lonxml::debug("doing ".$res->src);
&Apache::structuretags::initialize_storage($res->symb);	&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';
	}
my $result = &create_new_version($type,$user,$domain,$slot_name,$res->symb,$ip,$needsiptied);	my $result = &create_new_version($type,$user,$domain,$slot_name,$res->symb,$ip,$needsiptied);
if ($result eq 'ok') {	if ($result eq 'ok') {
&Apache::structuretags::finalize_storage($res->symb);	&Apache::structuretags::finalize_storage($res->symb);
Line 187 sub create_new_version {	Line 194 sub create_new_version {
$domain = $env{'user.domain'};	$domain = $env{'user.domain'};
}	}

} elsif ($type eq 'problem') {	} elsif (($type eq 'problem') \|\| ($type eq 'tool')) {
&Apache::lonxml::debug("authed $slot_name");	&Apache::lonxml::debug("authed $slot_name");
}	}
if (!defined($user) \|\| !defined($domain)) {	if (!defined($user) \|\| !defined($domain)) {