loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.925.2.24, 2010/12/06 02:19:38	version 1.925.2.25, 2010/12/06 18:00:41
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');
if ($env{'user.role.st./\Q$udom\E/'.$cnums->{'review'}}) {	return unless (scalar(keys(%{$cnums})) > 1);
	if ($env{"user.role.st./$udom/$cnums->{'review'}"}) {
my ($start,$end) =	my ($start,$end) =
split('.',$env{'user.role.st./\Q$udom\E/'.$cnums->{'review'}});	split('.',$env{"user.role.st./$udom/$cnums->{'review'}"});
if (((!$start) \|\| ($start && $start <= $now)) &&	if (((!$start) \|\| ($start && $start <= $now)) &&
((!$end) \|\| ($end > $now))) {	((!$end) \|\| ($end > $now))) {
$custommenu = 1;	$custommenu = 1;
if ($env{'user.role.cc./\Q$udom\E/'.$cnums->{'review'}}) {	if ($env{"user.role.cc./$udom/$cnums->{'review'}"}) {
my ($ccstart,$ccend) =	my ($ccstart,$ccend) =
split('.',$env{'user.role.cc./\Q$udom\E/'.$cnums->{'review'}});	split('.',$env{"user.role.cc./$udom/$cnums->{'review'}"});
if (((!$start) \|\| ($start && $start <= $now)) &&	if (((!$start) \|\| ($start && $start <= $now)) &&
((!$end) \|\| ($end > $now))) {	((!$end) \|\| ($end > $now))) {
$custommenu = '';	$custommenu = '';