loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.249, 2008/07/07 23:33:49	version 1.251, 2008/07/10 22:07:18
Line 3130 sub print_main_menu {	Line 3130 sub print_main_menu {
help => 'Course_User_Logs',	help => 'Course_User_Logs',
action => 'changelogs',	action => 'changelogs',
permission => $permission->{'cusr'},	permission => $permission->{'cusr'},
},	},);
{ text => 'View Log-in History',	# { text => 'View Log-in History',
help => 'Course_User_Logins',	# help => 'Course_User_Logins',
action => 'logins',	# action => 'logins',
permission => $permission->{'cusr'},	# permission => $permission->{'cusr'},
});	# });
push(@menu,@courselinks);	push(@menu,@courselinks);
}	}
my $menu_html = '';	my $menu_html = '';
Line 3538 sub selfenroll_inst_types {	Line 3538 sub selfenroll_inst_types {
my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($currdom);	my ($othertitle,$usertypes,$types) = &Apache::loncommon::sorted_inst_types($currdom);
my $othervalue = 'any';	my $othervalue = 'any';
if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) {	if ((ref($types) eq 'ARRAY') && (ref($usertypes) eq 'HASH')) {
if (@{$types} > 0) {	if (keys(%{$usertypes}) > 0) {
$othervalue = 'other';	$othervalue = 'other';
}	}
$output .= '<table><tr>';	$output .= '<table><tr>';