Reportero updates.

diff --git a/reportero b/reportero
index e6e2ed1..9d75b63 100755 (executable)
--- a/reportero
+++ b/reportero
@@ -15,9 +15,11 @@ sub
 db_search
 {
   my $dbh = shift ;
+#my $sql = param('date');
+#my $sql = "SELECT * from llamada where fecha_hora = day('4/3/2008')";
+
   my $sql = param('query');
 
-  warn "SQL = $sql;\n";
 
   my $sth = $dbh->prepare("$sql");
   $sth->execute();
@@ -34,6 +36,7 @@ db_search
   {
     print 
       "$hash->{id},$hash->{fecha_hora},$hash->{origen},$hash->{destino}<br/>";
+    print map{ "$_ "} values %$hash;
     $count++;
   }