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', |
); |
); |