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

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 13 May 2005 15:34:51 -0000


albertel		Fri May 13 11:34:51 2005 EDT

  Modified files:              
    /loncom/homework	bridgetask.pm 
  Log:
  - err whoops
  
  
Index: loncom/homework/bridgetask.pm
diff -u loncom/homework/bridgetask.pm:1.23 loncom/homework/bridgetask.pm:1.24
--- loncom/homework/bridgetask.pm:1.23	Tue May 10 16:58:38 2005
+++ loncom/homework/bridgetask.pm	Fri May 13 11:34:50 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.23 2005/05/10 20:58:38 albertel Exp $
+# $Id: bridgetask.pm,v 1.24 2005/05/13 15:34:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -128,6 +128,7 @@
     }
     if ($target eq 'web' || ($target eq 'grade' && !$env{'form.webgrade'}) || $target eq 'answer' ||
 	$target eq 'tex') {
+	my $version=$Apache::lonhomework::history{'resource.version'};
 	($status,$accessmsg,my $slot_name,$slot) = 
 	    &Apache::lonhomework::check_task_access('0');
 	push(@Apache::inputtags::status,$status);
@@ -623,6 +624,7 @@
 		}
 	    }
 	} elsif ($target eq 'webgrade') {
+	    my $version=$Apache::lonhomework::history{'resource.version'};
 	    foreach my $id (@{$dimension{$instance.'.criterias'}}) {
 		my $link='criteria_'.$instance.'_'.$id;
 		my $status=$Apache::lonhomework::history{"resource.$dim_id.$instance.$id.status"};