Se agrega pantalla para agregar créditos a usuarios.

diff --git a/src/admin.creditos.php b/src/admin.creditos.php
new file mode 100644 (file)
index 0000000..6b7fb75
--- /dev/null
+++ b/src/admin.creditos.php
@@ -0,0 +1,53 @@
+<?php
+// vim: set binary noeol et sw=4 sts=4 :
+// Grupo 10
+//
+// Lucarella, Schein, Arena
+//
+// Creado: Leandro Lucarella (jue may  5 00:32:00 ART 2005)
+//
+// $Id$
+
+require_once 'lib/pagina.php';
+require_once 'lib/validacion.php';
+require_once 'lib/Usuario.php';
+require_once 'lib/admin.forms.php';
+
+marco_cabecera('Asignación de créditos');
+
+// Solo para admins
+if (!$_SESSION['user']->esAdmin()) {
+    error('Acceso denegado!');
+    marco_pie('Leandro Lucarella', 'llucare@fi.uba.ar');
+    exit;
+}
+
+// Si llenó el formulario
+if (isset($_POST['admin_cred']) and isset($_POST['admin_cred_user'])
+        and isset($_POST['admin_cred_pass']))
+{
+    if (check_numero($_POST['admin_cred'])
+            and check_asociado($_POST['admin_cred_user'])
+            and check_password($_SESSION['user']->getId(),
+                $_POST['admin_cred_pass']))
+    {
+        $u = new Usuario($_POST['admin_cred_user']);
+        $u->addCreditos($_POST['admin_cred']);
+        ok('Se agregaron '.$_POST['admin_cred'].' créditos al usuario '
+            .$u->getNombre().' '.$u->getApellido());
+        admin_form_creditos(Usuario::getAll(), $u->getId(),$_POST['admin_cred']);
+    }
+    else
+    {
+        admin_form_creditos(Usuario::getAll(), $_POST['admin_cred_user'],
+            $_POST['admin_cred']);
+    }
+}
+else // Si no llenó el formulario
+{
+    admin_form_creditos(Usuario::getAll());
+}
+
+marco_pie('Leandro Lucarella', 'llucare@fi.uba.ar');
+
+?>
\ No newline at end of file