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

package BSE::TB::ArticleFileMeta;
use strict;
use base 'Squirrel::Row';

our $VERSION = "1.000";

sub table {
  "bse_article_file_meta";
}

sub columns {
  qw/id file_id name content_type value appdata/;
}

sub defaults {
  content_type => "text/plain",
  appdata => 1,
}

sub is_text {
  $_[0]->content_type eq "text/plain"
}

1;
Commit	Line	Data
6430ee52 TC	1	package BSE::TB::ArticleFileMeta;
	2	use strict;
	3	use base 'Squirrel::Row';
	4
cb7fd78d TC	5	our $VERSION = "1.000";
cb7fd78d TC	6
6430ee52 TC	7	sub table {
	8	"bse_article_file_meta";
	9	}
	10
	11	sub columns {
c840f7f9	12	qw/id file_id name content_type value appdata/;
6430ee52 TC	13	}
	14
	15	sub defaults {
	16	content_type => "text/plain",
c840f7f9	17	appdata => 1,
6430ee52 TC	18	}
6430ee52 TC	19
36e373a9 TC	20	sub is_text {
	21	$_[0]->content_type eq "text/plain"
	22	}
	23
6430ee52	24	1;