Mercurial > hg > mlmmj

changeset 552:fee753d23b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Show list name on configure and subscriber pages as well as the number of subscribers on the subscriber page.
author xi
date Fri, 14 Jul 2006 18:04:56 +1000
parents 6f12e58e4e7d
children edb57c97a7a3
files contrib/web/perl-admin/htdocs/subscribers.cgi contrib/web/perl-admin/templates/edit.html contrib/web/perl-admin/templates/subscribers.html
diffstat 3 files changed, 13 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/contrib/web/perl-admin/htdocs/subscribers.cgi	Fri Jun 30 23:49:00 2006 +1000
+++ b/contrib/web/perl-admin/htdocs/subscribers.cgi	Fri Jul 14 18:04:56 2006 +1000
@@ -70,6 +70,7 @@
 my $action = '';
 
 my $subscribers;
+my $subcount;
 
 if (defined $email) {
 	my $subscriber = $q->param("subscriber");
@@ -175,7 +176,8 @@
 			 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 @@
 		$subscribers{$address}->{nomailsub} = 1;
 	}
 
+	$subcount = scalar(keys %subscribers);
+
 	return \%subscribers;
 }
--- a/contrib/web/perl-admin/templates/edit.html	Fri Jun 30 23:49:00 2006 +1000
+++ b/contrib/web/perl-admin/templates/edit.html	Fri Jul 14 18:04:56 2006 +1000
@@ -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">
--- a/contrib/web/perl-admin/templates/subscribers.html	Fri Jun 30 23:49:00 2006 +1000
+++ b/contrib/web/perl-admin/templates/subscribers.html	Fri Jul 14 18:04:56 2006 +1000
@@ -22,6 +22,11 @@
 <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>