--- loncom/xml/lonxml.pm	2001/07/03 20:58:27	1.99
+++ loncom/xml/lonxml.pm	2001/07/05 15:53:09	1.100
@@ -105,8 +105,9 @@ sub fontsettings() {
 }
 
 sub registerurl {
+    my $forcereg=shift;
     if ($Apache::lonxml::registered) { return ''; }
-    if ($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) {
+    if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) {
         my $hwkadd='';
         if ($ENV{'REQUEST_URI'}=~/\.(problem|exam|quiz|assess|survey|form)$/) {
 	    if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {