root/lang/perl/misc/pboard/libs/gerneset.pm @ 12878

package gerneset;

@gerneset::ISA=qw(record);

sub columnProp {
    return ();
    return 
        (
          "project"=>"n",          # Number:   num�Ͽ������ 
          "gerne"=>"n",
          );
}

sub new{
    my $className=shift;
    my $primaryKey=shift;  #�������쥳���ɤξ���  &record::init($className,$primaryKey);
}