loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1159, 2012/03/15 18:15:55	version 1.1160, 2012/03/16 21:16:46
Line 96 use Math::Random;	Line 96 use Math::Random;
use File::MMagic;	use File::MMagic;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);
use LONCAPA::Configuration;	use LONCAPA::Configuration;
	use LONCAPA::lonmetadata;

use File::Copy;	use File::Copy;

Line 3398 sub linklog {	Line 3399 sub linklog {
$accesshash{$from.'___'.$to.'___comefrom'}=1;	$accesshash{$from.'___'.$to.'___comefrom'}=1;
$accesshash{$to.'___'.$from.'___goto'}=1;	$accesshash{$to.'___'.$from.'___goto'}=1;
}	}

	sub statslog {
	my ($symb,$part,$users,$av_attempts,$degdiff)=@_;
	if ($users<2) { return; }
	my %dynstore=&LONCAPA::lonmetadata::dynamic_metadata_storage({
	'course' => $env{'request.course.id'},
	'sections' => '"all"',
	'num_students' => $users,
	'part' => $part,
	'symb' => $symb,
	'mean_tries' => $av_attempts,
	'deg_of_diff' => $degdiff});
	foreach my $key (keys(%dynstore)) {
	$accesshash{$key}=$dynstore{$key};
	}
	}

sub userrolelog {	sub userrolelog {
my ($trole,$username,$domain,$area,$tstart,$tend)=@_;	my ($trole,$username,$domain,$area,$tstart,$tend)=@_;