1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
# Movable Type (r) Open Source (C) 2001-2008 Six Apart, Ltd.
# This program is distributed under the terms of the
# GNU General Public License, version 2.
#
# $Id: Page.pm 2746 2008-07-10 01:56:21Z bchoate $
package MT::Page;
use strict;
use base qw( MT::Entry );
use MT::Util qw( archive_file_for );
__PACKAGE__->install_properties({
class_type => 'page',
child_of => 'MT::Blog',
child_classes => ['MT::Comment','MT::Placement','MT::Trackback','MT::FileInfo'],
});
sub class_label {
return MT->translate("Page");
}
sub class_label_plural {
MT->translate("Pages");
}
sub container_label {
MT->translate("Folder");
}
sub container_type {
return "folder";
}
sub folder {
return $_[0]->category;
}
sub archive_file {
my $page = shift;
my $blog = $page->blog() || return $page->error(MT->translate(
"Load of blog failed: [_1]",
MT::Blog->errstr));
return archive_file_for($page, $blog, 'Page');
}
sub archive_url {
my $page = shift;
my $blog = $page->blog() || return $page->error(MT->translate(
"Load of blog failed: [_1]",
MT::Blog->errstr));
my $url = $blog->site_url || "";
$url .= '/' unless $url =~ m!/$!;
return $url . $page->archive_file(@_);
}
sub permalink {
my $page = shift;
return $page->archive_url(@_);
}
sub all_permalinks {
my $page = shift;
return ($page->permalink(@_));
}
1;
__END__
=head1 NAME
MT::Page - Movable Type page record
=head1 SYNOPSIS
use MT::Page;
my $page = MT::Page->new;
$page->blog_id($blog->id);
$page->author_id($author->id);
$page->title('Page title');
$page->text('Some text');
$page->save
or die $page->errstr;
=head1 DESCRIPTION
The C<MT::Page> class is a subclass of L<MT::Entry>. Pages are very similar
to entries, except that they are not published in a reverse-chronological
listing, typically. Pages are published into folders, represented by
L<MT::Folder> instead of categories.
=head2 MT::Page->class_label
Returns the localized descriptive name for this class.
=head2 MT::Page->class_label_plural
Returns the localized, plural descriptive name for this class.
=head2 MT::Page->container_label
Returns the localized phrase identifying the "container" type for
pages (ie: "Folder").
=head2 MT::Page->container_type
Returns the string "folder", which is the MT type identifier for
the L<MT::Folder> class.
=head2 $page->folder
Returns the L<MT::Folder> the page is assigned to.
=head2 $page->archive_file
Returns the filename for the published page.
=head2 $page->archive_url
Returns the permalink for the page, based on the site_url of the
blog, and folder assignment for the page.
=head2 $page->permalink
Returns the permalink for the page.
=head2 $page->all_permalinks
Returns the permalink for the page.
=cut
|
