[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[albertel]

albertel		Wed Aug 31 04:25:20 2005 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - &EXT('user.resource.resource....',$other_problem_symb); wasn't working corrrectly from inside of a problem (i.e. have one problem check the state of a different problem)
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.650 loncom/lonnet/perl/lonnet.pm:1.651
--- loncom/lonnet/perl/lonnet.pm:1.650	Tue Aug  9 12:33:03 2005
+++ loncom/lonnet/perl/lonnet.pm	Wed Aug 31 04:25:16 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.650 2005/08/09 16:33:03 albertel Exp $
+# $Id: lonnet.pm,v 1.651 2005/08/31 08:25:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4420,8 +4420,10 @@
     if ($realm eq 'user') {
 # --------------------------------------------------------------- user.resource
 	if ($space eq 'resource') {
-	    if (defined($Apache::lonhomework::parsing_a_problem) ||
-		defined($Apache::lonhomework::parsing_a_task)) {
+	    if ( (defined($Apache::lonhomework::parsing_a_problem)
+		  || defined($Apache::lonhomework::parsing_a_task))
+		 &&
+		 ($symbparm eq &symbread()) ) {
 		return $Apache::lonhomework::history{$qualifierrest};
 	    } else {
 		my %restored;