loncom/interface/lonsource.pm - diff

Return to lonsource.pm CVS log

Up to [LON-CAPA] / loncom / interface

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.