loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1164, 2012/04/14 00:52:16	version 1.1165, 2012/04/24 20:31:59
Line 1535 sub idput {	Line 1535 sub idput {

# ------------------------------dump from db file owned by domainconfig user	# ------------------------------dump from db file owned by domainconfig user
sub dump_dom {	sub dump_dom {
my ($namespace,$udom,$regexp,$range)=@_;	my ($namespace, $udom, $regexp) = @_;
if (!$udom) {
$udom=$env{'user.domain'};	$udom \|\|= $env{'user.domain'};
}
my %returnhash;	return () unless $udom;
if ($udom) {
my $uname = &get_domainconfiguser($udom);	return &dump($namespace, $udom, &get_domainconfiguser($udom), $regexp);
%returnhash = &dump($namespace,$udom,$uname,$regexp,$range);
}
return %returnhash;
}	}

# ------------------------------------------ get items from domain db files	# ------------------------------------------ get items from domain db files