| … | |
… | |
| 5 | |
5 | |
| 6 | package WeBWorK::DB::Classlist; |
6 | package WeBWorK::DB::Classlist; |
| 7 | |
7 | |
| 8 | use strict; |
8 | use strict; |
| 9 | use warnings; |
9 | use warnings; |
| 10 | use WeBWorK::DB::User; |
10 | use WeBWorK::User; |
| 11 | |
11 | |
| 12 | # there should be a `use' line for each database type |
12 | # there should be a `use' line for each database type |
| 13 | use WeBWorK::DB::GDBM; |
13 | use WeBWorK::DB::GDBM; |
| 14 | |
14 | |
| 15 | # new($invocant, $courseEnv) |
15 | # new($invocant, $courseEnv) |
| … | |
… | |
| 144 | # field names and the old ones will wither away. |
144 | # field names and the old ones will wither away. |
| 145 | |
145 | |
| 146 | sub hash2user($%) { |
146 | sub hash2user($%) { |
| 147 | my $userID = shift; |
147 | my $userID = shift; |
| 148 | my %hash = @_; |
148 | my %hash = @_; |
| 149 | my $user = WeBWorK::DB::User->new(id => $userID); |
149 | my $user = WeBWorK::User->new(id => $userID); |
| 150 | $user->first_name ( $hash{stfn} ) if defined $hash{stfn}; |
150 | $user->first_name ( $hash{stfn} ) if defined $hash{stfn}; |
| 151 | $user->last_name ( $hash{stln} ) if defined $hash{stln}; |
151 | $user->last_name ( $hash{stln} ) if defined $hash{stln}; |
| 152 | $user->email_address ( $hash{stea} ) if defined $hash{stea}; |
152 | $user->email_address ( $hash{stea} ) if defined $hash{stea}; |
| 153 | $user->student_id ( $hash{stid} ) if defined $hash{stid}; |
153 | $user->student_id ( $hash{stid} ) if defined $hash{stid}; |
| 154 | $user->status ( $hash{stst} ) if defined $hash{stst}; |
154 | $user->status ( $hash{stst} ) if defined $hash{stst}; |
Parent Directory
| 
Revision Log
| 
Patch