rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.107, 2006/03/03 22:32:49	version 1.109, 2006/05/05 15:50:20
Line 413 sub accinit {	Line 413 sub accinit {
foreach my $key (keys(%hash)) {	foreach my $key (keys(%hash)) {
if ($key=~/^conditions/) {	if ($key=~/^conditions/) {
my $expr=$hash{$key};	my $expr=$hash{$key};
	# try to find and factor out common sub-expressions
foreach my $sub ($expr=~m/($\([_\.\d]+(?:\&[_\.\d]+)+$(?:\\|$[_\.\d]+(?:\&[_\.\d]+)+$)+\))/g) {	foreach my $sub ($expr=~m/($\([_\.\d]+(?:\&[_\.\d]+)+$(?:\\|$[_\.\d]+(?:\&[_\.\d]+)+$)+\))/g) {
my $orig=$sub;	my $orig=$sub;
$sub=~/$\(([_\.\d]+\&(:?[_\.\d]+\&))(?:[_\.\d]+\&)+$(?:\\|$\1(?:[_\.\d]+\&*)+$)+\)/;
my $factor=$1;	my ($factor) = ($sub=~/$\(([_\.\d]+\&(:?[_\.\d]+\&))(?:[_\.\d]+\&)+$(?:\\|$\1(?:[_\.\d]+\&*)+$)+\)/);
$sub=~s/$factor//g;	next if (!defined($factor));

	$sub=~s/\Q$factor\E//g;
$sub=~s/^\(/\($factor\(/;	$sub=~s/^\(/\($factor\(/;
$sub.=')';	$sub.=')';
$sub=simplify($sub);	$sub=simplify($sub);
$orig=~s/(\W)/\\$1/g;	$expr=~s/\Q$orig\E/$sub/;
$expr=~s/$orig/$sub/;
}	}
$hash{$key}=$expr;	$hash{$key}=$expr;
unless (defined($captured{$expr})) {	unless (defined($captured{$expr})) {
Line 543 sub hiddenurls {	Line 545 sub hiddenurls {
sub readmap {	sub readmap {
my $short=shift;	my $short=shift;
$short=~s/^\///;	$short=~s/^\///;
my %cenv=&Apache::lonnet::coursedescription($short);	my %cenv=&Apache::lonnet::coursedescription($short,{'freshen_cache'=>1});
my $fn=$cenv{'fn'};	my $fn=$cenv{'fn'};
my $uri;	my $uri;
$short=~s/\//\_/g;	$short=~s/\//\_/g;