loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.28, 2002/02/26 21:01:33	version 1.29, 2002/03/26 16:05:01
Line 172 sub handler {	Line 172 sub handler {
$requrl=~/\.(\w+)$/;	$requrl=~/\.(\w+)$/;
if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {	if (&Apache::loncommon::fileembstyle($1) eq 'ssi') {
# ------------------------------------- This is serious stuff, get symb and log	# ------------------------------------- This is serious stuff, get symb and log
my $symb=&Apache::lonnet::symbread;	my $query=$r->args;
	my $symb;
	if ($query) {
	&Apache::loncommon::get_unprocessed_cgi($query,['symb']);
	}
	if ($ENV{'form.symb'}) {
	$symb=$ENV{'form.symb'};
	} else {
	$symb=&Apache::lonnet::symbread;
	}
$ENV{'request.symb'}=$symb;	$ENV{'request.symb'}=$symb;
&Apache::lonnet::courseacclog($symb);	&Apache::lonnet::courseacclog($symb);
} else {	} else {