--- loncom/xml/lonxml.pm	2001/09/14 20:18:13	1.129
+++ loncom/xml/lonxml.pm	2001/09/26 14:43:50	1.130
@@ -14,6 +14,9 @@
 # 6/16 Gerd Kortemeyer
 # 7/27 H. K. Ng
 # 8/7,8/9,8/10,8/11,8/15,8/16,8/17,8/18,8/20,8/23,8/24 Gerd Kortemeyer
+# Guy Albertelli
+# 9/26 Gerd Kortemeyer
+
 
 package Apache::lonxml; 
 use vars 
@@ -260,6 +263,10 @@ sub fontsettings() {
 
 sub registerurl {
     my $forcereg=shift;
+    if ($ENV{'request.publicaccess'}) {
+	return 
+         '<script>function LONCAPAreg(){} function LONCAPAstale(){}</script>';
+    }
     if ($Apache::lonxml::registered && !$forcereg) { return ''; }
     $Apache::lonxml::registered=1;
     if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) {