loncom/LONCAPA.pm - diff

Return to LONCAPA.pm CVS log

Up to [LON-CAPA] / loncom

version 1.6, 2006/06/19 09:35:08	version 1.7, 2006/06/19 10:00:27
Line 173 sub untie_user_hash {	Line 173 sub untie_user_hash {
sub locking_hash_tie {	sub locking_hash_tie {
my ($filename,$how)=@_;	my ($filename,$how)=@_;
my ($file_prefix,$namespace)=&db_filename_parts($filename);	my ($file_prefix,$namespace)=&db_filename_parts($filename);
unless ($namespace) { return undef; }	if ($namespace eq '') { return undef; }
return &_locking_hash_tie($file_prefix,$namespace,$how);	return &_locking_hash_tie($file_prefix,$namespace,$how);
}	}

Line 184 sub locking_hash_untie {	Line 184 sub locking_hash_untie {
sub db_filename_parts {	sub db_filename_parts {
my ($filename)=@_;	my ($filename)=@_;
my ($file_path,$namespace)=($filename=~/^(.*)\/([^\/]+)\.db$/);	my ($file_path,$namespace)=($filename=~/^(.*)\/([^\/]+)\.db$/);
unless ($namespace) { return undef; }	if ($namespace eq '') { return undef; }
return ($file_path.'/'.$namespace,$namespace);	return ($file_path.'/'.$namespace,$namespace);
}	}