[system] / trunk / webwork2 / lib / WeBWorK / Authen.pm Repository:
ViewVC logotype

Diff of /trunk/webwork2/lib/WeBWorK/Authen.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 2994 Revision 2995
1################################################################################ 1################################################################################
2# WeBWorK Online Homework Delivery System 2# WeBWorK Online Homework Delivery System
3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ 3# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/
4# $CVSHeader: webwork-modperl/lib/WeBWorK/Authen.pm,v 1.34 2004/10/09 03:03:13 gage Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/Authen.pm,v 1.35 2004/10/11 23:40:04 gage Exp $
5# 5#
6# This program is free software; you can redistribute it and/or modify it under 6# This program is free software; you can redistribute it and/or modify it under
7# the terms of either: (a) the GNU General Public License as published by the 7# the terms of either: (a) the GNU General Public License as published by the
8# Free Software Foundation; either version 2, or (at your option) any later 8# Free Software Foundation; either version 2, or (at your option) any later
9# version, or (b) the "Artistic License" which comes with this package. 9# version, or (b) the "Artistic License" which comes with this package.
… …
271 ######################################################## 271 ########################################################
272 unless (defined $userRecord->status and 272 unless (defined $userRecord->status and
273 defined($ce->{siteDefaults}->{status}->{$userRecord->status}) 273 defined($ce->{siteDefaults}->{status}->{$userRecord->status})
274 ) { 274 ) {
275 $userRecord-> status('C'); 275 $userRecord-> status('C');
276 #FIXME -- still need to save this value to the database. 276 # need to save this value to the database.
277 $db->putUser($userRecord); 277 $db->putUser($userRecord);
278 warn "Setting status for user $user to C. It was previously undefined or miss defined."; 278 warn "Setting status for user $user to C. It was previously undefined or miss defined.";
279 } 279 }
280 if ($ce->{siteDefaults}->{status}->{$userRecord->status} eq "Drop") { 280 if ($ce->{siteDefaults}->{status}->{$userRecord->status} eq "Drop") {
281 $error = "The user $user has been dropped from this course. "; 281 $error = "The user $user has been dropped from this course. ";
Legend:
Removed from v.2994  
changed lines
  Added in v.2995
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9