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

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

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

Revision 4452 Revision 4453
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/SendMail.pm,v 1.49 2006/07/15 16:31:16 gage Exp $ 4# $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Instructor/SendMail.pm,v 1.50 2006/07/16 02:40:41 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.
… …
91# gather database data 91# gather database data
92############################################################################################# 92#############################################################################################
93 # FIXME this might be better done in body? We don't always need all of this data. or do we? 93 # FIXME this might be better done in body? We don't always need all of this data. or do we?
94 my @users = $db->listUsers; 94 my @users = $db->listUsers;
95 my @Users = $db->getUsers(@users); 95 my @Users = $db->getUsers(@users);
96 # filter out users who don't get included in email (fixes bug #938)
97 @Users = grep { $ce->status_abbrev_has_behavior($_->status, "include_in_email") } @Users;
96 my @user_records = (); 98 my @user_records = ();
97 99
98## Mark's code to prefilter userlist 100## Mark's code to prefilter userlist
99 101
100 102
Legend:
Removed from v.4452  
changed lines
  Added in v.4453
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9