Line # Revision Author
1 234 ahitrov package blogs::Tag;
2
3 use base "Contenido::Document";
4 use Contenido::Globals;
5
6 sub extra_properties
7 {
8 return (
9 { 'attr' => 'name', 'type' => 'string', 'rusname' => 'Тег' },
10 { 'attr' => 'status', 'type' => 'status', 'rusname' => 'Статус записи',
11 'cases' => [
12 [0, 'Тег не активен'],
13 [1, 'Тег активен'],
14 ],
15 },
16 )
17 }
18
19 sub class_name
20 {
21 return 'Тег для блогов';
22 }
23
24 sub class_description
25 {
26 return 'Тег для блогов';
27 }
28
29
30 sub class_table
31 {
32 return 'blogs::SQL::TagsTable';
33 }
34
35 #sub search_fields
36 #{
37 # return ('name');
38 #}
39
40 sub pre_store
41 {
42 my $self = shift;
43
44 my $default_section = $project->s_alias->{blog_cloud} if ref $project->s_alias eq 'HASH' && exists $project->s_alias->{blog_cloud};
45 $self->sections( $default_section ) unless $self->sections;
46
47 unless ( $self->id ) {
48 if ( $user && ref $user ) {
49 $self->uid( $user->id );
50 } elsif ( $session && ref $session eq 'HASH' && exists $session->{id} ) {
51 $self->uid( $session->{id} );
52 }
53 }
54
55 return 1;
56 }
57
58 sub pre_delete
59 {
60 my $self = shift;
61
62 my $comments_db_table = blogs::SQL::TagCloudTable->db_table;
63 my $sthcom = $self->keeper->SQL->prepare( "delete from $comments_db_table where source_id = ?" );
64 $sthcom->execute( $self->id );
65 $sthcom->finish;
66
67 1;
68 }
69
70 1;