loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.925.2.25, 2010/12/06 18:00:41	version 1.925.2.26, 2010/12/07 04:33:49
Line 11021 sub needs_gci_custom {	Line 11021 sub needs_gci_custom {
my %allnums = &get_faculty_cnums();	my %allnums = &get_faculty_cnums();
my $cnums = $allnums{$udom};	my $cnums = $allnums{$udom};
return unless (ref($cnums) eq 'HASH');	return unless (ref($cnums) eq 'HASH');
return unless (scalar(keys(%{$cnums})) > 1);
if ($env{"user.role.st./$udom/$cnums->{'review'}"}) {	if ($env{"user.role.st./$udom/$cnums->{'review'}"}) {
my ($start,$end) =	my ($start,$end) =
split('.',$env{"user.role.st./$udom/$cnums->{'review'}"});	split('.',$env{"user.role.st./$udom/$cnums->{'review'}"});