web/job_detail.html | 12 ++++++++++++
web/jobs.html | 16 ++++++++++++----
web/media/css/cas-web.css | 6 ++++++
3 files changed, 30 insertions(+), 4 deletions(-)
New commits:
commit c85e31c692c793401b3e226fdec417cd814d4275
Author: uzr <uzr(a)shinzo.(none)>
Date: Wed Apr 29 16:17:47 2009 -0400
- working on getting arguements passed to mason
component
diff --git a/web/job_detail.html b/web/job_detail.html
new file mode 100644
index 0000000..a93d0ab
--- /dev/null
+++ b/web/job_detail.html
@@ -0,0 +1,12 @@
+<& header.html &>
+<div id="content">
+<% $id %>
+<& footer.html &>
+<%args>
+my $id;
+</%args>
+
+<%init>
+use Data::Dumper;
+my $page_id = $id;
+</%init>
diff --git a/web/jobs.html b/web/jobs.html
index 7309e96..5064e46 100644
--- a/web/jobs.html
+++ b/web/jobs.html
@@ -1,18 +1,26 @@
<& header.html &>
<div id="content">
<h3>Jobs</h3>
-<ul>
+<table>
+<tr>
+<th> </th>
+<th>id</th><th>identifier</th><th>timestamp</th><th>email</th>
+</tr>
% foreach my $item (@{$data}) {
% my ($id, $identify, $timestamp, $email) = @{$item};
-<li><% $identify %> :: <% $timestamp %></li>
+<tr>
+<td><a href="/job_detail.html?id=<% $id
%>">Detail</a></td>
+<td><% $id %></td>
+<td><% $identify %></td>
+<td><% $timestamp %></td>
+<td><% $email %></td>
% }
-</ul>
+</table>
</div>
<& footer.html &>
<%init>
use DBI;
-use Data::Dumper;
my $dbh =
DBI->connect("dbi:SQLite:dbname=/var/db/cas/cas.db","","");
# query all jobs
diff --git a/web/media/css/cas-web.css b/web/media/css/cas-web.css
index 7522692..7dbab6d 100644
--- a/web/media/css/cas-web.css
+++ b/web/media/css/cas-web.css
@@ -9,6 +9,12 @@ h1 {
margin: 0;
}
+td, th {
+ padding: 5px;
+ text-align: left;
+ vertical-align: middle;
+}
+
#header {
font-size: small;
padding: 5px;
Show replies by date