modules/gci/localenroll.pm - diff

Return to localenroll.pm CVS log

Up to [LON-CAPA] / modules / gci

version 1.1, 2010/11/16 03:12:39	version 1.2, 2010/12/06 03:16:27
Line 829 sub get_userinfo {	Line 829 sub get_userinfo {

sub inst_usertypes {	sub inst_usertypes {
my ($dom,$usertypes,$order) = @_;	my ($dom,$usertypes,$order) = @_;
if ($dom eq 'gci') {	if ($dom =~ /^\w+ci$/) {
%{$usertypes} = (	%{$usertypes} = (
Faculty => 'Faculty',	Faculty => 'Faculty',
Postdoc => 'Postdoctoral Researcher',	Postdoc => 'Postdoctoral Researcher',
Line 837 sub inst_usertypes {	Line 837 sub inst_usertypes {
Undergraduate => 'Undergraduate',	Undergraduate => 'Undergraduate',
);	);
@{$order}=('Faculty','Postdoc','Graduate','Undergraduate');	@{$order}=('Faculty','Postdoc','Graduate','Undergraduate');
} elsif ($dom eq 'gcitest') {	} elsif ($dom =~ /^\w+citest$/) {
%{$usertypes} = (	%{$usertypes} = (
Student => 'Student',	Student => 'Student',
);	);