--- loncom/homework/bridgetask.pm 2005/05/03 00:05:41 1.14
+++ loncom/homework/bridgetask.pm 2005/05/03 05:31:51 1.15
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: bridgetask.pm,v 1.14 2005/05/03 00:05:41 albertel Exp $
+# $Id: bridgetask.pm,v 1.15 2005/05/03 05:31:51 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -52,6 +52,8 @@ sub initialize_bridgetask {
@Apache::bridgetask::instance=();
# list of all Instance ids seen in this problem
@Apache::bridgetask::instancelist=();
+ # key of queud user data that we are currently grading
+ $Apache::bridgetask::queue_key='';
}
sub proctor_check_auth {
@@ -174,11 +176,22 @@ sub start_Task {
}
}
} elsif ($target eq 'webgrade') {
- $result.=$head_tag_start.$body_tag_start.$form_tag_start.
- 'Yahoo!';
+ $result.=$head_tag_start.$body_tag_start.$form_tag_start;
$result.=&show_queue();
- $result.=&get_from_queue();
-
+ my $todo=&get_from_queue();
+ if ($todo) {
+ my ($symb,$uname,$udom)=&decode_queue_key($todo);
+ $result.="\n".'