loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.867, 2007/04/10 20:29:53	version 1.868, 2007/04/11 21:37:20
Line 830 sub retrieve_inst_usertypes {	Line 830 sub retrieve_inst_usertypes {
return (\%returnhash,\@order);	return (\%returnhash,\@order);
}	}

	sub is_domainimage {
	my ($url) = @_;
	if ($url=~m-^/+res/+($match_domain)/+\1\-domainconfig/+(img\|logo\|domlogo)/+-) {
	if (&domain($1) ne '') {
	return '1';
	}
	}
	return;
	}

# --------------------------------------------------- Assign a key to a student	# --------------------------------------------------- Assign a key to a student

sub assign_access_key {	sub assign_access_key {