Added a simple flag in ccbs.pm to make the system suitable for public viewing (ie...

[ccbs] / html / do-set-paid.pl

diff --git a/html/do-set-paid.pl b/html/do-set-paid.pl
index 7ac795d55c68c45af01cdccf605e129833bbe871..5622bb7723191dcfe823fb2e467d769f567be8af 100755 (executable)
--- a/html/do-set-paid.pl
+++ b/html/do-set-paid.pl
@@ -4,6 +4,8 @@ use ccbs;
 use strict;
 use warnings;
 
+ccbs::admin_only();
+
 my $dbh = ccbs::db_connect();
 my $cgi = new CGI;