version 1.175, 2006/06/20 03:38:58
|
version 1.178, 2006/06/23 22:32:39
|
Line 50 my %dimension;
|
Line 50 my %dimension;
|
sub initialize_bridgetask { |
sub initialize_bridgetask { |
# id of current Dimension, 0 means that no dimension is current |
# id of current Dimension, 0 means that no dimension is current |
# (inside <Task> only) |
# (inside <Task> only) |
%Apache::bridgetask::dimension=(); |
@Apache::bridgetask::dimension=(); |
# list of all Dimension ids seen |
# list of all Dimension ids seen |
%Apache::bridgetask::top_dimensionlist=(); |
%Apache::bridgetask::top_dimensionlist=(); |
# list of all current Instance ids |
# list of all current Instance ids |
Line 83 sub proctor_check_auth {
|
Line 83 sub proctor_check_auth {
|
} |
} |
} |
} |
if ($authenticated) { |
if ($authenticated) { |
my $useslots = &Apache::lonnet::EXT("resource.0.useslots"); |
&check_in($type,$user,$domain,$slot_name); |
if ( $useslots eq 'map_map') { |
|
&checkin_resource($user,$domain,$slot_name); |
|
} else { |
|
&create_new_version($type,$user,$domain,$slot_name); |
|
} |
|
return 1; |
return 1; |
} |
} |
} |
} |
Line 149 sub create_new_version {
|
Line 144 sub create_new_version {
|
#setup new version and who did it |
#setup new version and who did it |
$Apache::lonhomework::results{'resource.0.version'}=$version; |
$Apache::lonhomework::results{'resource.0.version'}=$version; |
$id = "$version.0"; |
$id = "$version.0"; |
if (!defined($user) || defined($domain)) { |
if (!defined($user) || !defined($domain)) { |
$user = $env{'user.name'}; |
$user = $env{'user.name'}; |
$domain = $env{'user.domain'}; |
$domain = $env{'user.domain'}; |
} |
} |
Line 599 sub start_Task {
|
Line 594 sub start_Task {
|
($status,$accessmsg,my $slot_name,$slot) = |
($status,$accessmsg,my $slot_name,$slot) = |
&Apache::lonhomework::check_slot_access('0','Task'); |
&Apache::lonhomework::check_slot_access('0','Task'); |
if ($status eq 'CAN_ANSWER' && $version eq '') { |
if ($status eq 'CAN_ANSWER' && $version eq '') { |
# CAN_ANSWR mode, and no current version, unproctored access |
# CAN_ANSWER mode, and no current version, unproctored access |
# thus self-checkedin |
# thus self-checkedin |
&check_in('Task',undef,undef,$slot_name); |
&check_in('Task',undef,undef,$slot_name); |
&add_to_queue('gradingqueue',{'type' => 'Task', |
&add_to_queue('gradingqueue',{'type' => 'Task', |