|
version 1.99, 2001/07/03 20:58:27
|
version 1.100, 2001/07/05 15:53:09
|
|
Line 105 sub fontsettings() {
|
Line 105 sub fontsettings() {
|
| } |
} |
| |
|
| sub registerurl { |
sub registerurl { |
| |
my $forcereg=shift; |
| if ($Apache::lonxml::registered) { return ''; } |
if ($Apache::lonxml::registered) { return ''; } |
| if ($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) { |
if (($ENV{'REQUEST_URI'}!~/^\/(res\/)*adm\//) || ($forcereg)) { |
| my $hwkadd=''; |
my $hwkadd=''; |
| if ($ENV{'REQUEST_URI'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
if ($ENV{'REQUEST_URI'}=~/\.(problem|exam|quiz|assess|survey|form)$/) { |
| if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { |
if (&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) { |
![[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