loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.157, 2001/09/20 16:09:07	version 1.158, 2001/09/21 20:38:10
Line 127	Line 127
# 5/30 H. K. Ng	# 5/30 H. K. Ng
# 6/1 Gerd Kortemeyer	# 6/1 Gerd Kortemeyer
# July Guy Albertelli	# July Guy Albertelli
# 8/4,8/7,8/8,8/9,8/11,8/16,8/17,8/18,8/20,8/23,9/20 Gerd Kortemeyer	# 8/4,8/7,8/8,8/9,8/11,8/16,8/17,8/18,8/20,8/23,9/20,9/21 Gerd Kortemeyer

package Apache::lonnet;	package Apache::lonnet;

Line 689 sub flushcourselogs {	Line 689 sub flushcourselogs {

sub courselog {	sub courselog {
my $what=shift;	my $what=shift;
	$what=time.':'.$what;
unless ($ENV{'request.course.id'}) { return ''; }	unless ($ENV{'request.course.id'}) { return ''; }
if (defined $courselogs{$ENV{'request.course.id'}}) {	if (defined $courselogs{$ENV{'request.course.id'}}) {
$courselogs{$ENV{'request.course.id'}}.='&'.$what;	$courselogs{$ENV{'request.course.id'}}.='&'.$what;
Line 700 sub courselog {	Line 701 sub courselog {
}	}
}	}

	sub courseacclog {
	my $fnsymb=shift;
	unless ($ENV{'request.course.id'}) { return ''; }
	my $what=$fnsymb.':'.$ENV{'user.name'}.':'.$ENV{'user.domain'};
	if ($what=~/(problem\|exam\|quiz\|assess\|survey\|form)$/) {
	map {
	if ($_=~/^form\.(.*)/) {
	$what.=':'.$1.'='.$ENV{$_};
	}
	} keys %ENV;
	}
	&courselog($what);
	}

# ----------------------------------------------------------- Check out an item	# ----------------------------------------------------------- Check out an item

sub checkout {	sub checkout {