#!/usr/bin/perl

# $rcs = ' $Id: home.cgi,v 1.2 1998/06/20 04:00:04 fitz Exp $ ' ;

unshift(@INC, "../lib");

require 'config.pl';
require 'bib.pl';
require 'web.pl';

print "Content-type: text/html\n\n";


&bib::load("META", "TITLE", "SUBMITNAME")
  || &error("Database error: $bib::error");

foreach $id (sort bib::id_by_title keys %bib::db)
{
    next unless $bib::db{$id}->{META} =~ /submit|delete/i;

    if ($bib::db{$id}->{META} =~ /submit/i)
    {
        $submittals .=
          " <LI> <CITE><A HREF=$bib::admin_cgi/edit.cgi/$id>" .
            "$bib::db{$id}->{TITLE}</A></CITE>";
        
        $submittals .= ", submitted by $bib::db{$id}->{SUBMITNAME}\n"
          if $bib::db{$id}->{SUBMITNAME};
    }
    elsif ($bib::db{$id}->{META} =~ /delete/i)
    {
        $deleted .=
          " <LI> <CITE><A HREF=$bib::admin_cgi/edit.cgi/$id>" .
            "$bib::db{$id}->{TITLE}</A></CITE>";
    }
}

$submittals = " <LI> No entries are marked as submitted." unless $submittals;
$deleted = " <LI> No entries are marked as deleted." unless $deleted;

# Create the HTML page
print &bib::template("admin-home.html",
                     "SUBMITTALS", $submittals,
                     "DELETED", $deleted,);
exit 0;