[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm rat lonpage.pm

[albertel]

albertel		Wed Jun 29 15:02:18 2005 EDT

  Modified files:              
    /rat	lonpage.pm 
    /loncom/xml	lonxml.pm 
  Log:
  - discussion per reource on a page was happening
  
  
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.70 rat/lonpage.pm:1.71
--- rat/lonpage.pm:1.70	Thu Apr  7 02:56:27 2005
+++ rat/lonpage.pm	Wed Jun 29 15:02:14 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Page Handler
 #
-# $Id: lonpage.pm,v 1.70 2005/04/07 06:56:27 albertel Exp $
+# $Id: lonpage.pm,v 1.71 2005/06/29 19:02:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -235,6 +235,7 @@
 			      
 			      my $prefix=$_.'_';
                               my %posthash=('request.prefix' => $prefix,
+					    'LONCAPA_INTERNAL_no_discussion' => 'true',
 					    'symb' => $symb);
 			      if ($env{'form.grade_target'} eq 'tex') {
 				  $posthash{'grade_target'}=$env{'form.grade_target'};
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.378 loncom/xml/lonxml.pm:1.379
--- loncom/xml/lonxml.pm:1.378	Fri Jun 24 17:09:31 2005
+++ loncom/xml/lonxml.pm	Wed Jun 29 15:02:14 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.378 2005/06/24 21:09:31 albertel Exp $
+# $Id: lonxml.pm,v 1.379 2005/06/29 19:02:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -180,8 +180,8 @@
 	$status=$Apache::inputtags::status[-1]; 
     }
     my $discussion;
-    &Apache::loncommon::get_unprocessed_cgi
-        ($env{'query_string'},['LONCAPA_INTERNAL_no_discussion']);
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+					   ['LONCAPA_INTERNAL_no_discussion']);
     if (! exists($env{'form.LONCAPA_INTERNAL_no_discussion'}) ||
         $env{'form.LONCAPA_INTERNAL_no_discussion'} ne 'true') {
         $discussion=&Apache::lonfeedback::list_discussion($mode,$status);