[system] / branches / rel-2-2-dev / webwork2 / lib / WeBWorK / ContentGenerator / Instructor / UserList.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-2-dev/webwork2/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm

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

Revision 3892 Revision 3893
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/ContentGenerator/Instructor/UserList.pm,v 1.74 2005/10/11 21:13:26 sh002i Exp $ 4# $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v 1.75 2005/12/26 22:02:58 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.
… …
1325 if (not exists $allUserIDs{$user_id} and not $createNew) { 1325 if (not exists $allUserIDs{$user_id} and not $createNew) {
1326 push @skipped, $user_id; 1326 push @skipped, $user_id;
1327 next; 1327 next;
1328 } 1328 }
1329 1329
1330 # make sure permission level is defined
1331 if (not defined $record{permission}) {
1332 $record{permission} = $default_permission_level;
1333 }
1334
1330 # make sure permission level is numeric 1335 # make sure permission level is numeric
1331 unless ($record{permission} =~ m/^[+\-]?\d*$/) { 1336 unless ($record{permission} =~ m/^[+\-]?\d*$/) {
1332 $self->addbadmessage("permission level '$record{permission}' for user '$user_id' is not an integer. using default permission level '$default_permission_level'.\n"); 1337 $self->addbadmessage("permission level '$record{permission}' for user '$user_id' is not an integer. using default permission level '$default_permission_level'.\n");
1333 $record{permission} = $default_permission_level; 1338 $record{permission} = $default_permission_level;
1334 } 1339 }
Legend:
Removed from v.3892  
changed lines
  Added in v.3893
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9