---
name: "MojoMojo::Schema::Result::Page"
section: "3pm"
platform: "linux"
package: "libmojomojo-perl"
version: "1.12+dfsg-1"
release: "Debian 10 (Buster)"
platforms: ["linux"]
url: "https://new.carta.tech/MojoMojo::Schema::Result::Page"
---

# MojoMojo::Schema::Result::Page(3pm)

store pages

## NAME

MojoMojo::Schema::Result::Page - store pages

## METHODS

### update\_content \<%args\>

Create a new content version for this page.

`%args` is each column of MojoMojo::Schema::Result::Content.

### add\_version

```
    my $page_version_new = $page->add_version(
        creator => $user_id,
        name_orig => $page_new_name,
    );
```

Arguments: `%replacementdata`

Returns: The new PageVersion object.

Creates a new page version by cloning the latest version (hence pointing to the same content), and replacing its values with data in the replacement hash.

Used for renaming pages.

### tagged\_descendants($tag)

Return descendants with the given tag, ordered by name.

### tagged\_descendants\_by\_date

Return descendants with the given tag, ordered by creation time, most recent first.

### descendants

```
  @descendants = $page->descendants( [$resultset_page] );
```

In list context, returns all descendants of this page (no paging), including  the page itself. In scalar context, returns the resultset object.

If the optional `$resultset_page` is passed, returns that page from the resultset.

### descendants\_by\_date

```
  @descendants = $page->descendants_by_date;
```

Like "descendants", but returns pages sorted by the dates of their last content release dates and pages results (20 per page).

### user\_tags($user)

Return popular tags for this page used `$user`.

### others\_tags($user)

Return popular tags for this page used by other people than `$user`.

### tags\_with\_counts($user)

Return an array of {id, tag, refcount} for the `$user`'s tags.

### path( \[$path\] )

TODO Accessor?

### has\_photos

Return the number of photos attached to this page. Use for galleries.

## AUTHOR

Marcus Ramberg \<mramberg@cpan.org\>

## LICENSE

This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself.