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

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

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

Revision 1947 Revision 1948
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.20 2004/04/04 04:00:10 gage Exp $ 4# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Instructor/SendMail.pm,v 1.21 2004/04/05 19:33:03 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.
… …
752 CGI::h3( "This sample mail would be sent to $EMAIL"); 752 CGI::h3( "This sample mail would be sent to $EMAIL");
753 753
754 754
755 return $msg, $preview_header; 755 return $msg, $preview_header;
756} 756}
757
758
759# Ê sub data_format {
760#
761# Ê Ê Ê Ê Êmap {$_ =~s/\s/\./g;$_} Ê Ê map {sprintf('%-8.8s',$_);} Ê@_;
757 sub data_format { 762 sub data_format {
758 map {"COL[$_]".' 'x(4-length($_));} @_; 763 map {"COL[$_]".' 'x(3-length($_));} @_; # problems if $_ has length bigger than 4
759 } 764 }
760 sub data_format2 { 765 sub data_format2 {
761 map { $_ . ' 'x(9-length($_));} @_; 766 map {$_ =~s/\s/ /g;$_} map {sprintf('%-8.8s',$_);} @_;
762 } 767 }
7631; 7681;
Legend:
Removed from v.1947  
changed lines
  Added in v.1948
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9