Permalink
Browse files

Remove email.tag that is an old version of standard UserTag/email.tag

  • Loading branch information...
jonjensen committed May 23, 2009
1 parent ac13f8d commit 2f7b94228c30334fc6d3b39abd885256694d937d
Showing with 0 additions and 50 deletions.
  1. +0 −1 MANIFEST
  2. +0 −49 eg/survey_wizard/email.tag
View
@@ -1062,7 +1062,6 @@ eg/pg83-implicit-casts.sql
eg/reset_order_number
eg/survey_graph.tag
eg/survey_wizard/code/Widget/user_uploadhelper.widget
-eg/survey_wizard/email.tag
eg/survey_wizard/pages/admin/overall.html
eg/survey_wizard/pages/survey/standard.html
eg/survey_wizard/survey_wizard.coretag
View
@@ -1,49 +0,0 @@
-# Copyright 2002-2007 Interchange Development Group and others
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version. See the LICENSE file for details.
-#
-# $Id: email.tag,v 1.3 2007-03-31 11:31:43 pajamian Exp $
-
-UserTag email Order to subject reply from extra
-UserTag email hasEndTag
-UserTag email addAttr
-UserTag email Interpolate
-UserTag email Version $Revision: 1.3 $
-UserTag email Routine <<EOR
-sub {
- my ($to, $subject, $reply, $from, $extra, $opt, $body) = @_;
- my $ok = 0;
- my @extra;
-
- $subject = '<no subject>' unless defined $subject && $subject;
-
- $reply = '' unless defined $reply;
- $reply = "Reply-to: $reply\n" if $reply;
- if (! $from) {
- $from = $Vend::Cfg->{MailOrderTo};
- $from =~ s/,.*//;
- }
- $extra =~ s/\s*$/\n/ if $extra;
- $extra .= "From: $from\n" if $from;
- @extra = grep /\S/, split(/\n/, $extra);
-
- SEND: {
- $ok = send_mail($to, $subject, $body, $reply, 0, @extra);
- }
-
- if (!$ok) {
- logError("Unable to send mail using $Vend::Cfg->{'SendMailProgram'}\n" .
- "To '$to'\n" .
- "From '$from'\n" .
- "With extra headers '$extra'\n" .
- "With reply-to '$reply'\n" .
- "With subject '$subject'\n" .
- "And body:\n$body");
- }
-
- return $opt->{hide} ? '' : $ok;
-}
-EOR

0 comments on commit 2f7b942

Please sign in to comment.