[LON-CAPA-cvs] cvs: loncom /homework bridgetask.pm

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 05 Oct 2005 20:25:00 -0000


albertel		Wed Oct  5 16:25:00 2005 EDT

  Modified files:              
    /loncom/homework	bridgetask.pm 
  Log:
  - lock keys were being considered as real queue entries
  
  
Index: loncom/homework/bridgetask.pm
diff -u loncom/homework/bridgetask.pm:1.67 loncom/homework/bridgetask.pm:1.68
--- loncom/homework/bridgetask.pm:1.67	Tue Oct  4 15:41:02 2005
+++ loncom/homework/bridgetask.pm	Wed Oct  5 16:24:59 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: bridgetask.pm,v 1.67 2005/10/04 19:41:02 albertel Exp $
+# $Id: bridgetask.pm,v 1.68 2005/10/05 20:24:59 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1089,6 +1089,8 @@
 sub pick_from_queue_data {
     my ($queue,$check_section,$queuedata,$cdom,$cnum)=@_;
     foreach my $key (keys(%$queuedata)) {
+	if ($key =~ /\0locked$/) { next; }
+	if ($key =~ /\0timestamp$/) { next; }
 	my ($symb,$uname,$udom)=&decode_queue_key($key);
 	if ($check_section) {
 	    my $section=&Apache::lonnet::getsection($uname,$udom);