version 1.150, 2006/05/30 17:15:00
|
version 1.151, 2006/05/30 19:47:36
|
Line 39 use Apache::loncommon;
|
Line 39 use Apache::loncommon;
|
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::lonannounce; |
use Apache::lonannounce; |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use Apache::lonpageflip(); |
use GDBM_File; |
use GDBM_File; |
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
use LONCAPA; |
|
|
|
|
Line 306 ENDENTERKEY
|
Line 306 ENDENTERKEY
|
} |
} |
} |
} |
} |
} |
|
# Are we allowed to look at the first resource? |
|
if (!&Apache::lonnet::allowed('bre',$furl)) { |
|
# Guess not ... |
|
$furl=&Apache::lonpageflip::first_accessible_resource(); |
|
} |
&redirect_user($r,&mt('Entering Course'), |
&redirect_user($r,&mt('Entering Course'), |
$furl,$msg, |
$furl,$msg, |
$env{'environment.remotenavmap'}); |
$env{'environment.remotenavmap'}); |