Diff of /branches/rel-2-3-dev/webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm

 Legend:



Removed from v.4418
 


changed lines


 
Added in v.4419
 Legend:



Removed from v.4418
 


changed lines


 
Added in v.4419
-Removed from v.4418
+Added in v.4419

aubreyja at gmail dot com	ViewVC Help
Powered by ViewVC 1.0.9

Revision 4418		Revision 4419
1	################################################################################	1	################################################################################
2	# WeBWorK Online Homework Delivery System	2	# WeBWorK Online Homework Delivery System
3	# Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/	3	# Copyright © 2000-2006 The WeBWorK Project, http://openwebwork.sf.net/
4	# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v 1.84 2006/07/12 04:37:43 sh002i Exp $	4	# $CVSHeader$
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.
…		…
1286	my (@replaced, @added, @skipped);	1286	my (@replaced, @added, @skipped);
1287		1287
1288	# get list of hashrefs representing lines in classlist file	1288	# get list of hashrefs representing lines in classlist file
1289	my @classlist = parse_classlist("$dir/$fileName");	1289	my @classlist = parse_classlist("$dir/$fileName");
1290		1290
		1291	# Default status is enrolled -- fetch abbreviation for enrolled
		1292	my $default_status_abbrev = $ce->{statuses}->{Enrolled}->{abbrevs}->[0];
		1293
1291	foreach my $record (@classlist) {	1294	foreach my $record (@classlist) {
1292	my %record = %$record;	1295	my %record = %$record;
1293	my $user_id = $record{user_id};	1296	my $user_id = $record{user_id};
		1297
		1298	$record{status} = $default_status_abbrev unless defined($record{status}) and $record{status};
1294		1299
1295	if ($user_id eq $user) { # don't replace yourself!!	1300	if ($user_id eq $user) { # don't replace yourself!!
1296	push @skipped, $user_id;	1301	push @skipped, $user_id;
1297	next;	1302	next;
1298	}	1303	}