# $Id: SerialAlias.pm,v 1.2 2008-04-02 13:00:47 mike Exp $
package Keystone::Resolver::DB::SerialAlias;
use strict;
use warnings;
use Keystone::Resolver::DB::Object;
use vars qw(@ISA);
@ISA = qw(Keystone::Resolver::DB::Object);
sub table { "serial_alias" }
sub fields { (id => undef,
serial_id => undef,
alias => undef,
canonical_title => [ serial_id => "Serial", "id" ],
) }
sub name { shift()->alias() }
sub search_fields { (alias => "t25",
) }
sub sort_fields { ("alias") }
sub display_fields { (alias => "Lt",
canonical_title => "t",
) }
1;