loncom/interface/loncss.pm - diff

Return to loncss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2006/09/27 22:48:42	version 1.6, 2006/11/27 16:47:16
Line 33 use Apache::loncommon;	Line 33 use Apache::loncommon;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use POSIX qw(strftime);	use POSIX qw(strftime);
use CGI::Cookie();	use CGI::Cookie();
	use LONCAPA;

sub handler {	sub handler {
my ($r) = @_;	my ($r) = @_;
Line 53 sub handler {	Line 54 sub handler {

my $handle;	my $handle;
if ($cookies{'lonID'}) {	if ($cookies{'lonID'}) {
$handle=$cookies{'lonID'}->value;	$handle=&LONCAPA::clean_handle($cookies{'lonID'}->value);
$handle=~s/\W//g;
}	}

if ($handle ne ''	if ($handle ne ''