version 1.6, 2004/07/07 20:01:02
|
version 1.8, 2004/07/08 20:17:59
|
Line 212 sub handler {
|
Line 212 sub handler {
|
if ($source ne 'open') { |
if ($source ne 'open') { |
$ENV{'user.error.msg'}="$filename:cre:1:1:Source code not available"; |
$ENV{'user.error.msg'}="$filename:cre:1:1:Source code not available"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} if ((!&Apache::lonnet::allowed('cre',$filename)) || |
} |
|
if ((!&Apache::lonnet::allowed('cre',$filename)) || |
(!&Apache::lonnet::allowed('bre',$filename))) { |
(!&Apache::lonnet::allowed('bre',$filename))) { |
$ENV{'user.error.msg'}="$filename:bre:1:1:Access to resource denied"; |
$ENV{'user.error.msg'}="$filename:bre:1:1:Access to resource denied"; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} if ($ENV{'form.action'} eq 'stage2') { |
} |
|
if ($ENV{'form.action'} eq 'stage2') { |
my $author = &Apache::lonnet::metadata($filename,'authorspace'); |
my $author = &Apache::lonnet::metadata($filename,'authorspace'); |
$author =~ m|@|; |
$author =~ m|@|; |
$author = $`; #This just tells who the author name is for later processing. |
$author = $`; #This just tells who the author name is for later processing. |