use new style field macros for the file edit page

[bse.git] / site / cgi-bin / modules / BSE / TB / Site.pm

package BSE::TB::Site;
use strict;
use base qw(BSE::TB::SiteCommon);

our $VERSION = "1.002";

# like an article, but doesn't exist in the database

sub new {
  my ($class) = @_;

  return bless
    {
     id => -1,
     title => "Your site",
     generator => 'BSE::Generate::Article',
     parentid=>0,
     level => 0,
     body => '',
     flags => '',
     listed => 0,
    }, $class;
}

sub id {
  -1;
}

sub data_only {
  my ($self) = @_;

  return
    {
     map { $_ => $self->{$_} } grep /^[^_]/, keys %$self
    };
}

sub restricted_method {
  my ($self, $name) = @_;

  return $name =~ /^new$/;
}

1;