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

 Legend:



Removed from v.1953
 


changed lines


 
Added in v.2001
 Legend:



Removed from v.1953
 


changed lines


 
Added in v.2001
-Removed from v.1953
+Added in v.2001

aubreyja at gmail dot com	ViewVC Help
Powered by ViewVC 1.0.9

Revision 1953		Revision 2001
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/SendMail.pm,v 1.23 2004/04/05 20:52:54 gage Exp $	4	# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SendMail.pm,v 1.24 2004/04/07 01:17: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.
…		…
701	# last field is empty, the last element of the returned	701	# last field is empty, the last element of the returned
702	# array is also empty (unlike what the perl split command	702	# array is also empty (unlike what the perl split command
703	# would return). E.G. @lineArray=&getRecord(\$delimitedLine).	703	# would return). E.G. @lineArray=&getRecord(\$delimitedLine).
704		704
705	my(@lineArray);	705	my(@lineArray);
706	$line.=$delimiter; # add 'A' to end of line so that	706	$line.="${delimiter}___"; # add final field which must be non-empty
707	# last field is never empty
708	@lineArray = split(/\s${delimiter}\s/,$line);	707	@lineArray = split(/\s${delimiter}\s/,$line); # split line into fields
709	$lineArray[0] =~s/^\s*//; # remove white space from first element	708	$lineArray[0] =~s/^\s*//; # remove white space from first element
		709	pop @lineArray; # remove the last artificial field
710	@lineArray;	710	@lineArray;
711	}	711	}
712		712
713	sub process_message {	713	sub process_message {
714	my $self = shift;	714	my $self = shift;