MojoMojo

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.999031 2009-07-26 15:00:00
  - Sane default for FastMmap sharefile.
  - Change to use the current cache as Session store.
  - Fix comments (NacMac)
  - Add license for debian packaging
  - Fix incorred URL displayed by the error page (pre_hacked_url)
  - POD Fixes


0.999030 2009-07-18 20:25:00
  - Fixed vertical split mode to stay side-by-side (mateu, dandv @ YAPC10)
  - Updated Catalyst theme
  - Defang remote img src - whitelist if you want to allow them
  - Fixed profile user name when in view mode
  - Linked from was moved from page/bottomnav.tt to page/info.tt
  - Forked Defang to Declaw included in our distribution for now
  - Fix Args("") issue


0.999029 2009-05-09 23:59:35
  - Actual content added to [[Help]]

Changes  view on Meta::CPAN

0.999028 2009-04-23 11:58:00
  - Use oneshot timer instead of only_every to trigger preview update
  - Make .profile smarter and link to it from .recent
  - Clean up extra // in .recent URLs
  - New formatter: {{cpan Some::Module}} auto-hyperlinks (dandv)
  - Use package scope for $kate syntax highlight object to reduce memory leak (mateu)
  - Use jquery cookie to make split edit state sticky
  - Added maximization of the edit page (linio)
  - Instant edit window split mode toggle (horiz./vert.) preserves content (linio)
  - Drop-downs for syntax highlighters, plugins and formatters (linio)
  - Set default theme directory when theme preference is NULL
  - Add inline view
  - reCAPTCHA support (linio)
  - localize: help message, admin home page, anonymous name and login ('anonymous coward')
  - Fixed displaying multiple user roles
  - Now FormFu label_loc can be localized by MojoMojo I18N
  - MojoMojo habla español (guikubivan)
  - Add polish translation (linio)
  - Improved wikilinks (UTF-8, parentheses, anchors) and added tests

lib/MojoMojo/Controller/Gallery.pm  view on Meta::CPAN

=head2 tag ( /.jsrpc/tag )

Add a tag to a page. Forwards to
L<< inline_tags|/inline_tags ( .gallery/tags ) >>.

=cut

sub tag : Local {
    my ( $self, $c, $photo, $tagname ) = @_;
    ($tagname) = $tagname =~ m/([\w\s]+)/;
    foreach my $tag ( split m/\s/, $tagname ) {
        if (
            $tag
            && !$c->model("DBIC::Tag")->search(
                photo  => $photo,
                person => $c->user->obj->id,
                tag    => $tag
            )->next()
            )
        {
            $c->model("DBIC::Tag")->create(

lib/MojoMojo/Controller/Jsrpc.pm  view on Meta::CPAN

=head2 tag ( /.jsrpc/tag )

Add a tag to a page. Returns a list of yours and popular tags.

=cut

sub tag : Local Args(1) {
    my ( $self, $c, $tagname ) = @_;
    ($tagname) = $tagname =~ m/([\w\s]+)/;
    my $page = $c->stash->{page};
    foreach my $tag ( split m/\s/, $tagname ) {
        if (
            $tag
            && !$c->model("DBIC::Tag")->search(
                {
                    page   => $page->id,
                    person => $c->req->{user_id},
                    tag    => $tagname,
                }
            )->next()
            )