Mercurial > hg > mlmmj
changeset 552:fee753d23b25
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>