#!/usr/bin/perl /usr/local/bin/asp-perl

<!--#include file="inc/head.inc" -->

<%
  use LinkDB;
  my ($id, $url, $name, $description);

  # Set up to fetch the rows of links from the db
  my $sth = $db->prepare("SELECT * FROM link");
  $sth->execute;
  $sth->bind_columns(\$id, \$url, \$name, \$description);
%>

    <h1>List of links:</h1>
    <center>
    <table cellspacing=0 cellpadding=4 border=1
      style="border-width: 1px;">
      <tr>
        <th>Name</th>
        <th>Description</th>
        <th>Action</th>
      </tr>
      <% while ($sth->fetch) { %>
        <tr>
          <td><a href="<%=$url%>"><%=$name%></a></td>
          <td><%
            my $desc = LinkDB::unquote($description);
            $Response->Include(\$desc); %></td>
          <td>  <a href="action.pl?id=<%=$id%>&op=link/edit">Edit</a>
              | <a href="action.pl?id=<%=$id%>&op=link/del">Delete</a>
          </td>
        </tr>
      <% } %>
    </table>
    <br>
    [ <a href="action.pl?op=link/addform">Add a link</a> ]
    <br><br>
    <table cellspacing=0 cellpadding=4 border=1
      stype="border-width: 1px">
      <tr>
        <th>Category</th>
        <th>Description</th>
        <th>Action</th>
      </tr>
      <%
        # Set up to fetch the rows of categories from the db
        my $sth = $db->prepare("SELECT * FROM category");
        $sth->execute;
        $sth->bind_columns(\$id, \$name, \$description);
        while($sth->fetch)
        { %>
          <tr>
            <td><%=$name%></td>
            <td><%=$description%></td>
            <td>  <a href="action.pl?id=<%=$id%>&op=category/edit">Edit</a>
                | <a href="action.pl?id=<%=$id%>&op=category/del">Delete</a>
            </td>
          </tr>
        <% }
      %>
    </table>
    <br>
    [ <a href="action.pl?op=category/addform">Add a category</a> ]
    <br><br>
    <table cellspacing=0 cellpadding=4 border=1
      stype="border-width: 1px">
      <tr>

    <%
      my $cat_st = $db->prepare("SELECT * FROM category ORDER BY name");
      $cat_st->execute;
      while(my $cat = $cat_st->fetchrow_hashref)
      {
        print "$cat->{name}<br>\n";
        my $link_st  = $db->prepare("
          SELECT * FROM link, link_to_category
            WHERE id=link_id AND category_id=$cat->{id}
            ORDER BY name
          ");
        $link_st->execute;
        while(my $link = $link_st->fetchrow_hashref)
        {
          print "<ul>$link->{name}</ul>\n";
        }
      }
      
    %>
    </center>



<!--#include file="inc/foot.inc" -->