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

[www]

www		Mon Jun  3 17:07:20 2002 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  Bug 495
  forcereg parameter in registerurl was ignored.
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.175 loncom/xml/lonxml.pm:1.176
--- loncom/xml/lonxml.pm:1.175	Wed May 29 12:22:09 2002
+++ loncom/xml/lonxml.pm	Mon Jun  3 17:07:20 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.175 2002/05/29 16:22:09 www Exp $
+# $Id: lonxml.pm,v 1.176 2002/06/03 21:07:20 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -331,8 +331,9 @@
     my $forcereg=shift;
     my $target = shift;
     my $result = '';
-    if (($ENV{'request.publicaccess'}) || 
-       (!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) {
+    if ((($ENV{'request.publicaccess'}) || 
+         (!&Apache::lonnet::is_on_map($ENV{'REQUEST_URI'}))) &&
+        (!$forcereg)) {
 	return 
          '<script>function LONCAPAreg(){} function LONCAPAstale(){}</script>';
     }