![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml|
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)) { |