loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.925.2.21, 2010/12/05 16:38:37	version 1.925.2.24, 2010/12/06 02:19:38
Line 4581 sub bodytag {	Line 4581 sub bodytag {
my %cicourses;	my %cicourses;
my $udom = $env{'user.domain'};	my $udom = $env{'user.domain'};
my %allnums = &get_faculty_cnums();	my %allnums = &get_faculty_cnums();
if ($udom ne '' && ref($allnums{$udom} eq 'HASH') {	if (($udom ne '') && (ref($allnums{$udom}) eq 'HASH')) {
foreach my $key (%{$allnums{$udom}}) {	foreach my $key (%{$allnums{$udom}}) {
$cicourses{$udom.'_'.$key} = $allnums{$udom}->{$key};	$cicourses{$udom.'_'.$key} = $allnums{$udom}->{$key};
}	}
Line 11041 sub needs_gci_custom {	Line 11041 sub needs_gci_custom {
return $custommenu;	return $custommenu;
}	}

	sub ci_tabs {
	my ($domain) = @_;
	my %tabs = (
	gci => ['review','submit','managetest','tutorial'],
	slci => ['review'],
	);
	return $tabs{$domain};
	}

sub check_for_gci_dc {	sub check_for_gci_dc {
my $then=$env{'user.login.time'};	my $then=$env{'user.login.time'};
my $numdc = 0;	my $numdc = 0;
Line 11064 sub get_faculty_cnums {	Line 11073 sub get_faculty_cnums {
gci => {	gci => {
review => '9615072b469884921gcil1',	review => '9615072b469884921gcil1',
submit => '1H96711d710194bfegcil1',	submit => '1H96711d710194bfegcil1',
tutorial' => '5422913620b814c90gcil1',	tutorial => '5422913620b814c90gcil1',
},	},
slci => {	slci => {
review => '',	review => '4V80581c93ffc4c38gcil1',
submit => '',
tutorial' => '',
}	}
);	);
return %cnums;	return %cnums;