ウェブページの一覧にルートからのパスを表示する。（表示オプションでフルパスを選択する。）

config.yaml

id: DispPageFullPath
name: DispPageFullPath
version: 1.0

list_properties:
    page:
        fullpath:
            label: 'フルパス'
            html: >
                sub {
                    my $prop = shift;
                    my ( $obj, $app, $opts ) = @_;
                    my $folder = $obj->folder;
                    if ($folder) {
                        my @folders = ();
                        while (1) {
                            if ($folder->parent == 0) {
                                push (@folders, $folder);
                                last;
                            }
                            push (@folders, $folder);
                            $folder = MT::Folder->load($folder->parent);
                        }
                        @folders = reverse @folders;
                        my @folder_labels = ();
                        for my $folder (@folders) {
                            push (@folder_labels, $folder->label);
                        }
                        return join('/', @folder_labels);
                    }
                    return '(root)';
                }

最上位が必ずしもルートとは限らない。