loncom/interface/lonsupportreq.pm - diff

Return to lonsupportreq.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.38, 2006/10/12 22:47:31	version 1.39, 2006/12/06 22:22:37
Line 37 use Apache::lonnet;	Line 37 use Apache::lonnet;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonacc();	use Apache::lonacc();
use Apache::courseclassifier;	use Apache::courseclassifier;
use lib '/home/httpd/lib/perl/';
use LONCAPA;	use LONCAPA;


Line 769 END	Line 768 END

my %cookies = ();	my %cookies = ();
my $cookie=CGI::Cookie->parse($r->header_in('Cookie'));	my $cookie=CGI::Cookie->parse($r->header_in('Cookie'));
if ($$cookie{'lonID'} =~ /lonID=(\w+);/) {	if ($$cookie{'lonID'} =~ /lonID=($LONCAPA::handle_re);/) {
$cookies{'lonID'} = $1;	$cookies{'lonID'} = $1;
}	}