Return to lonxml.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.129, 2001/09/14 20:18:13 | version 1.130, 2001/09/26 14:43:50 |
---|---|
Line 14 | Line 14 |
# 6/16 Gerd Kortemeyer | # 6/16 Gerd Kortemeyer |
# 7/27 H. K. Ng | # 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 | # 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; | package Apache::lonxml; |
use vars | use vars |
Line 260 sub fontsettings() { | Line 263 sub fontsettings() { |
sub registerurl { | sub registerurl { |
my $forcereg=shift; | my $forcereg=shift; |
if ($ENV{'request.publicaccess'}) { | |
return | |
'<script>function LONCAPAreg(){} function LONCAPAstale(){}</script>'; | |
} | |
if ($Apache::lonxml::registered && !$forcereg) { return ''; } | if ($Apache::lonxml::registered && !$forcereg) { return ''; } |
$Apache::lonxml::registered=1; | $Apache::lonxml::registered=1; |
if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) { | if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) { |