version 1.387, 2012/09/12 05:14:17
|
version 1.388, 2012/10/29 17:38:56
|
Line 587 sub innerregister {
|
Line 587 sub innerregister {
|
|
|
# Check that the user has permission to edit this resource |
# Check that the user has permission to edit this resource |
my $setpriv = 1; |
my $setpriv = 1; |
($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$setpriv); |
($cfuname,$cfudom)=&Apache::lonnet::constructaccess($file,$setpriv); |
if (defined($cfudom)) { |
if (defined($cfudom)) { |
$home=&Apache::lonnet::homeserver($cfuname,$cfudom); |
$home=&Apache::lonnet::homeserver($cfuname,$cfudom); |
my $allowed=0; |
my $allowed=0; |