From 01978afbd19eeebf30398df3d61052f14824d794 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Wed, 1 Sep 2010 18:44:15 +0000
Subject: [PATCH] packages and recurdates for impending_recur templates

---
 FS/FS/Cron/notify.pm  | 4 +++-
 FS/FS/msg_template.pm | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/FS/FS/Cron/notify.pm b/FS/FS/Cron/notify.pm
index ece96fcfd..dcc7b30fe 100644
--- a/FS/FS/Cron/notify.pm
+++ b/FS/FS/Cron/notify.pm
@@ -4,7 +4,7 @@ use strict;
 use vars qw( @ISA @EXPORT_OK $DEBUG );
 use Exporter;
 use FS::UID qw( dbh driver_name );
-use FS::Record qw(qsearch);
+use FS::Record qw(qsearch qsearchs);
 use FS::cust_main;
 use FS::cust_pkg;
 
@@ -106,6 +106,8 @@ END
     my $msgnum = $conf->config('impending_recur_msgnum',$cust_main->agentnum);
     if ( $msgnum ) {
       my $msg_template = qsearchs('msg_template', { msgnum => $msgnum });
+      $cust_main->setfield('packages', \\@packages);
+      $cust_main->setfield('recurdates', \\@recurdates);
       $error = $msg_template->send('cust_main' => $cust_main);
     }
     else {
diff --git a/FS/FS/msg_template.pm b/FS/FS/msg_template.pm
index 071a3c465..50298d278 100644
--- a/FS/FS/msg_template.pm
+++ b/FS/FS/msg_template.pm
@@ -316,6 +316,7 @@ sub substitutions {
 
       signupdate dundate
       expdate
+      packages recurdates
       ),
       # expdate is a special case
       [ signupdate_ymd    => sub { time2str('%Y-%m-%d', shift->signupdate) } ],
-- 
2.11.0