From: xi <none@none>
Date: Fri, 14 Jul 2006 08:04:56 +0000 (+1000)
Subject: Show list name on configure and subscriber pages as well as the number of
X-Git-Tag: RELEASE_1_2_12_RC1~27
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bb3703a6c802e61fc38ddc78f67eda1c553fdbcc;p=thirdparty%2Fmlmmj.git

Show list name on configure and subscriber pages as well as the number of
subscribers on the subscriber page.
---

diff --git a/contrib/web/perl-admin/htdocs/subscribers.cgi b/contrib/web/perl-admin/htdocs/subscribers.cgi
index ca9b02de..38c2e17a 100755
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi
+++ b/contrib/web/perl-admin/htdocs/subscribers.cgi
@@ -70,6 +70,7 @@ $tpl->define(main => "subscribers.html",
 my $action = '';
 
 my $subscribers;
+my $subcount;
 
 if (defined $email) {
 	my $subscriber = $q->param("subscriber");
@@ -175,7 +176,8 @@ $tpl->assign(LIST => encode_entities($list),
 			 MAXID => scalar(@addresses),
 			 SEARCH => defined $search ? $search : '',
 			 PAGINATOR => $paginator,
-			 PAGE => $page);
+			 PAGE => $page,
+			 SUBCOUNT => $subcount);
 
 print "Content-type: text/html\n\n";
 
@@ -212,5 +214,7 @@ sub get_subscribers {
 		$subscribers{$address}->{nomailsub} = 1;
 	}
 
+	$subcount = scalar(keys %subscribers);
+
 	return \%subscribers;
 }
diff --git a/contrib/web/perl-admin/templates/edit.html b/contrib/web/perl-admin/templates/edit.html
index e442aa9d..5c1503a4 100644
--- a/contrib/web/perl-admin/templates/edit.html
+++ b/contrib/web/perl-admin/templates/edit.html
@@ -3,6 +3,9 @@
 <p>
 <a href="index.cgi">Index</a> | <a href="subscribers.cgi?list=$LIST">Subscribers</a>
 </p>
+<p>
+List: $LIST
+</p>
 <form method="post" action="save.cgi">
 <input type="hidden" name="list" value="$LIST">
 <table border="1">
diff --git a/contrib/web/perl-admin/templates/subscribers.html b/contrib/web/perl-admin/templates/subscribers.html
index e802b058..3c9e2f27 100644
--- a/contrib/web/perl-admin/templates/subscribers.html
+++ b/contrib/web/perl-admin/templates/subscribers.html
@@ -22,6 +22,11 @@ $ACTION
 <tr><td><input type="submit" name="searchsubmit" value="Search"></td></tr>
 </table>
 <hr>
+<p>
+List: $LIST<br>
+Subscribers: $SUBCOUNT
+</p>
+<hr>
 $PAGINATOR
 <table border="1">
 <tr><th>Email address</th><th>Normal subscriber</th><th>Digest subscriber</th><th>No-mail subscriber</th></tr>