| 1 | #!/usr/bin/perl |
1 | #!/usr/local/bin/perl |
| 2 | |
2 | |
| 3 | |
3 | |
| 4 | # file: classlist_DBglue.pl |
4 | # file: classlist_DBglue.pl |
| 5 | |
5 | |
| 6 | # These are the tools for accessing the classlist database which contains |
6 | # These are the tools for accessing the classlist database which contains |
| … | |
… | |
| 378 | } |
378 | } |
| 379 | |
379 | |
| 380 | \%recitation_Hash; |
380 | \%recitation_Hash; |
| 381 | } |
381 | } |
| 382 | |
382 | |
| 383 | |
383 | sub CL_getStudentName { |
|
|
384 | my($user) = @_; |
|
|
385 | my($fname) = &CL_getStudentFirstName($user); |
|
|
386 | my($lname) = &CL_getStudentLastName($user); |
|
|
387 | $fname = '' unless defined $fname; |
|
|
388 | $lname = '' unless defined $lname; |
|
|
389 | my($out) = "$fname $lname"; |
|
|
390 | $out =~ s/\s\s+/ /g; # remove any extra spaces |
|
|
391 | $out; |
|
|
392 | } |
| 384 | |
393 | |
| 385 | #### this will break if the codes are changed !!!!!!!! ############### |
394 | #### this will break if the codes are changed !!!!!!!! ############### |
| 386 | |
395 | |
| 387 | sub CL_byLastName { |
396 | sub CL_byLastName { |
| 388 | |
397 | |
Parent Directory
| 
Revision Log
| 
Patch