loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.434, 2009/12/03 17:43:19	version 1.437, 2010/02/21 02:02:51
Line 3129 sub dump_with_regexp {	Line 3129 sub dump_with_regexp {
if ($clientversion =~ /^(\d+)\.(\d+)$/) {	if ($clientversion =~ /^(\d+)\.(\d+)$/) {
my $major = $1;	my $major = $1;
my $minor = $2;	my $minor = $2;
next if (($major < 2) \|\| (($major == 2) && ($minor < 10)));	next if (($major < 2) \|\| (($major == 2) && ($minor < 9)));
}	}
}	}
}	}
Line 3870 sub dump_course_id_handler {	Line 3870 sub dump_course_id_handler {
$items->{'cloners'} = $cloneruname.':'.$clonerudom;	$items->{'cloners'} = $cloneruname.':'.$clonerudom;
$valchange = 1;	$valchange = 1;
}	}
	unless ($canclone) {
	if ($items->{'owner'} =~ /:/) {
	if ($items->{'owner'} eq $cloner) {
	$canclone = 1;
	}
	} elsif ($cloner eq $udom.':'.$items->{'owner'}) {
	$canclone = 1;
	}
	if ($canclone) {
	$items->{'cloners'} = $cloneruname.':'.$clonerudom;
	$valchange = 1;
	}
	}
}	}
}	}
if ($unpack \|\| !$rtn_as_hash) {	if ($unpack \|\| !$rtn_as_hash) {
Line 6553 sub rewrite_password_file {	Line 6566 sub rewrite_password_file {

# Returns the authorization type or nouser if there is no such user.	# Returns the authorization type or nouser if there is no such user.
#	#
sub get_auth_type	sub get_auth_type {
{

my ($domain, $user) = @_;	my ($domain, $user) = @_;

Debug("get_auth_type( $domain, $user ) \n");	Debug("get_auth_type( $domain, $user ) \n");