loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.360, 2003/04/03 22:25:49	version 1.361, 2003/04/12 15:58:43
Line 634 sub generate_access_keys {	Line 634 sub generate_access_keys {
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'} unless (defined($cdom));	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'} unless (defined($cdom));
$cnum=	$cnum=
$ENV{'course.'.$ENV{'request.course.id'}.'.num'} unless (defined($cnum));	$ENV{'course.'.$ENV{'request.course.id'}.'.num'} unless (defined($cnum));
unless (&allowed('ccc',$cdom)) { return 0; }	unless (&allowed('mky',$cdom)) { return 0; }
unless (($cdom) && ($cnum)) { return 0; }	unless (($cdom) && ($cnum)) { return 0; }
if ($number>10000) { return 0; }	if ($number>10000) { return 0; }
sleep(2); # make sure don't get same seed twice	sleep(2); # make sure don't get same seed twice
Line 1149 sub countacc {	Line 1149 sub countacc {
}	}
}	}

	sub linklog {
	my ($from,$to)=@_;
	$from=&declutter($from);
	$to=&declutter($to);
	$accesshash{$from.'___'.$to.'___comefrom'}=1;
	$accesshash{$to.'___'.$from.'___goto'}=1;
	}

sub userrolelog {	sub userrolelog {
my ($trole,$username,$domain,$area,$tstart,$tend)=@_;	my ($trole,$username,$domain,$area,$tstart,$tend)=@_;
if (($trole=~/^ca/) \|\| ($trole=~/^in/) \|\|	if (($trole=~/^ca/) \|\| ($trole=~/^in/) \|\|