From a708e25cb8f5b0ff01c6d6dca358bad0f7c44325 Mon Sep 17 00:00:00 2001
From: Jim Mason <jmason@ibinx.com>
Date: Tue, 25 Jun 2019 10:16:17 +0100
Subject: [PATCH] added chart subscription links

---
 config/config.kzsu.php |  2 ++
 ui/Charts.php          | 25 ++++++++++++++++++++-----
 2 files changed, 22 insertions(+), 5 deletions(-)

diff --git a/config/config.kzsu.php b/config/config.kzsu.php
index ac5aada7..ea267a76 100644
--- a/config/config.kzsu.php
+++ b/config/config.kzsu.php
@@ -189,6 +189,8 @@
           * 0 to limit spin count per show; 1 to limit spin count per DJ
           */
         'apply_limit_per_dj' => 1,
+        'weekly_subscribe' => "https://mailman.stanford.edu/mailman/listinfo/weekly-charts",
+        'monthly_subscribe' => "https://mailman.stanford.edu/mailman/listinfo/monthly-charts",
         'weekly_footer' => "\n\n--\n
 If you ever want to remove yourself from this mailing list,
 visit https://mailman.stanford.edu/mailman/listinfo/weekly-charts.\n
diff --git a/ui/Charts.php b/ui/Charts.php
index 8046f1d9..1e0039ac 100644
--- a/ui/Charts.php
+++ b/ui/Charts.php
@@ -694,6 +694,11 @@ function copymetasearch() {
     
     public function emitSubscribe() {
         $station = Engine::param('station');
+        $chart = Engine::param('chart');
+        $weeklyPage = array_key_exists('weekly_subscribe', $chart)?
+            $chart['weekly_subscribe']:"";
+        $monthlyPage = array_key_exists('monthly_subscribe', $chart)?
+            $chart['monthly_subscribe']:"";
     ?>
     <P>
     The <?php echo $station; ?> Music Department maintains two e-mail lists:</P>
@@ -702,18 +707,28 @@ public function emitSubscribe() {
     <LI><B>Weekly Charts e-mail list</B> - Each week, the number of plays of
     the releases in rotation are tallied up, and a chart is made showing a
     ranked list of the most played stuff on our airwaves for that week.
-    This is what's reported to the trades (CMJ, Gavin, etc).  If you'd like
-    to receive this chart each week by e-mail, please visit the Weekly Charts page.
+    This is what's reported to the trades (CMJ, Gavin, etc). <?php
+    if($weeklyPage) {
+        echo "If you'd like\n    to receive this chart each week by e-mail, ";
+        echo "please visit the\n    ";
+        echo "<A HREF=\"$weeklyPage\">Weekly Charts</A> page.\n";
+    }
+?>
     
     <LI><B>Monthly Charts e-mail list</B> - Each month, the number of plays
     of the releases in rotation for the previous month are tallied up, and
     a chart is made showing a ranked list of the most played stuff on our
-    airwaves for that month. If you'd like to receive this chart each week
-    by e-mail, please visit the Monthly Charts page.
+    airwaves for that month. <?php
+    if($monthlyPage) {
+        echo "If you'd like to receive this chart each week\n    ";
+        echo "by e-mail, please visit the <A HREF=\"$monthlyPage\">Monthly Charts</A> page.\n";
+    }
+?>
     </UL>
     
     <P>These mailing lists are one-way lists, which means you'll receive
     e-mail only from <?php echo $station; ?>.  Any reply by a subscriber will return to <?php echo $station; ?>
+
     but will not be sent to everyone else on the list.  Also, each
     subscriber's e-mail address is suppressed from the header so other
     subscribers can't collect the addresses to create a spamming list.</P>
@@ -724,7 +739,7 @@ public function emitSubscribe() {
     <?php 
         $email = Engine::param('email')['md'];
         if($email)
-            echo "    <P>Any questions can be sent to <A HREF=\"mailto:$email\">$email</A>.</P>\n";
+            echo "<P>Any questions can be sent to <A HREF=\"mailto:$email\">$email</A>.</P>\n";
         UI::setFocus();
     }
 }
\ No newline at end of file