[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 3766 Revision 3827
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.43 2005/10/08 21:55:41 sh002i Exp $ 4# $CVSHeader: webwork2/lib/WeBWorK/ContentGenerator/Instructor/SendMail.pm,v 1.44 2005/11/18 15:49:31 apizer 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.
… …
755} 755}
756 756
757############################################################################## 757##############################################################################
758# Utility methods 758# Utility methods
759############################################################################## 759##############################################################################
760sub submission_error {
761 my $self = shift;
762 my $msg = join( " ", @_);
763 $self->{submitError} .= CGI::br().$msg;
764 return;
765}
766 760
767sub saveProblem { 761sub saveProblem {
768 my $self = shift; 762 my $self = shift;
769 my ($body, $probFileName)= @_; 763 my ($body, $probFileName)= @_;
770 local(*PROBLEM); 764 local(*PROBLEM);
Legend:
Removed from v.3766  
changed lines
  Added in v.3827
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9