AnnoCPAN
view release on metacpan or search on metacpan
- Bug fixes
* Fixed some bugs in L<>
* Fixed note propagation bug
* Found cause of database connection bug (version of DBD::mysql)
* Fixed =begin count persistence bug
- Site structure and navigation
* Redirect perldoc.cgi
* Redirect when a dist has only one distver
* Added a pager in the front page
* Use 302 redirects by default
* /note mode that shows and edits version bindings for a note
* Use Lingua::EN::Inflect to avoid saying '1 notes'
* Support POD formatting in notes
* Added help to edit form
- RSS
* RSS of new dists
* Refactored RSS code into AnnoCPAN::Feed
- Backend / database
* Added CPANRatings data
* Added maturity data to distver table
* Added "creation_time" to dist table
lib/AnnoCPAN/Control.pm view on Meta::CPAN
if ($notepos->id eq $ref) {
$note->section($notepos->section);
$note->update;
}
if (exists $to_hide{$notepos->id}) {
$notepos->hide;
} else {
$notepos->unhide;
}
}
$vars->{message} = "Note bindings updated";
} else {
$vars->{error} = "Edit not authorized";
}
($vars, 'show_notepos');
}
=item $obj->Show_dist($vars)
Displays one distribution (distver) page. Uses the id CGI parameter or
$vars->{distver}.
tt/show_notepos.html view on Meta::CPAN
[% PROCESS header.html title="Version bindings for note " _ note.id %]
[% PROCESS login_form.html %]
[% PROCESS form.html %]
<h2>Version bindings for note [% note.id %]</h2>
<div class="noteblock_inline">
<div class="note_header">
<div class="note_data">
[% link_user(note.user) %]
([% YMD_HMS.format(note.time) %])
</div>
</div>
<div class="note_body">
[% note.html %]
( run in 0.912 second using v1.01-cache-2.11-cpan-2398b32b56e )