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

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 21 Dec 2005 18:08:29 -0000


albertel		Wed Dec 21 13:08:29 2005 EDT

  Modified files:              
    /loncom/homework	bridgetask.pm 
  Log:
  - the ++ was being hidden in there
  
  
Index: loncom/homework/bridgetask.pm
diff -u loncom/homework/bridgetask.pm:1.89 loncom/homework/bridgetask.pm:1.90
--- loncom/homework/bridgetask.pm:1.89	Tue Dec 20 13:09:49 2005
+++ loncom/homework/bridgetask.pm	Wed Dec 21 13:08:28 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.89 2005/12/20 18:09:49 albertel Exp $
+# $Id: bridgetask.pm,v 1.90 2005/12/21 18:08:28 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -81,8 +81,9 @@
 	    }
 	    if ($authenticated && $type eq 'Task') {
 		my $version=
-		    $Apache::lonhomework::results{'resource.0.version'}=
-		    ++$Apache::lonhomework::history{'resource.0.version'};
+		    $Apache::lonhomework::history{'resource.0.version'};
+		$version++;
+		$Apache::lonhomework::results{'resource.0.version'}=$version;
 		$Apache::lonhomework::results{"resource.$version.0.checkedin"}=
 		    $user.'@'.$domain;
 		$Apache::lonhomework::results{"resource.$version.0.checkedin.slot"}=
@@ -94,7 +95,7 @@
 		}
 		return 1;
 	    } elsif ($authenticated && $type eq 'problem') {
-		&Apache::lonxml::debug("authed #slot_name");
+		&Apache::lonxml::debug("authed $slot_name");
 		$Apache::lonhomework::results{"resource.0.checkedin"}=
 		    $user.'@'.$domain;
 		$Apache::lonhomework::results{"resource.0.checkedin.slot"}=