643fc66fe7fbcd179737306af6ba73068ddca217
[bse.git] / site / cgi-bin / modules / BSE / TB / ArticleFileMeta.pm
1 package BSE::TB::ArticleFileMeta;
2 use strict;
3 use base 'Squirrel::Row';
4
5 our $VERSION = "1.000";
6
7 sub table {
8   "bse_article_file_meta";
9 }
10
11 sub columns {
12   qw/id file_id name content_type value appdata/;
13 }
14
15 sub defaults {
16   content_type => "text/plain",
17   appdata => 1,
18 }
19
20 sub is_text {
21   $_[0]->content_type eq "text/plain"
22 }
23
24 1;