From: Michael Andreen <harv@ruin.nu>
Date: Tue, 17 Jan 2017 22:33:32 +0000 (+0100)
Subject: Show avilable credits
X-Git-Url: https://ruin.nu/git/?p=ndwebbie.git;a=commitdiff_plain;h=b8b4989cd6ad0d0a3f45f6a7972293f79aadd087

Show avilable credits
---

diff --git a/lib/NDWeb/Controller/Users.pm b/lib/NDWeb/Controller/Users.pm
index efb48d3..40e9aaa 100644
--- a/lib/NDWeb/Controller/Users.pm
+++ b/lib/NDWeb/Controller/Users.pm
@@ -216,6 +216,8 @@ ORDER BY time desc
 		});
 	$query->execute;
 	$c->stash(sms => $query->fetchall_arrayref({}));
+
+	$c->stash(credits => $dbh->selectrow_array(q{SELECT credits FROM clickatell}));
 }
 
 sub postsms : Local {
diff --git a/root/src/users/sms.tt2 b/root/src/users/sms.tt2
index 21a611b..0a5e127 100644
--- a/root/src/users/sms.tt2
+++ b/root/src/users/sms.tt2
@@ -2,6 +2,7 @@
 
 <form action="postsms" method="post" id="sms"><fieldset class="forum-post">
 <legend>New SMS</legend>
+	<p>Available credits: [% credits %]</p>
 	<p><span id="recadd">Receiver(s): </span><select name="uid" multiple size="5">
 [% FOR u IN users %]
 		<option value="[% u.uid %]" [% IF uid == u.uid %]selected[% END %]>[% u.username %]</option>