[LON-CAPA-cvs] cvs: loncom /homework bridgetask.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Tue, 20 Jun 2006 03:56:31 -0000
albertel Mon Jun 19 23:56:31 2006 EDT
Modified files:
/loncom/homework bridgetask.pm
Log:
- replace other create_new_version call with the new check_in
Index: loncom/homework/bridgetask.pm
diff -u loncom/homework/bridgetask.pm:1.175 loncom/homework/bridgetask.pm:1.176
--- loncom/homework/bridgetask.pm:1.175 Mon Jun 19 23:38:58 2006
+++ loncom/homework/bridgetask.pm Mon Jun 19 23:56:30 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: bridgetask.pm,v 1.175 2006/06/20 03:38:58 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 @@
}
}
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;
}
}
@@ -601,7 +596,7 @@
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});