AnnoCPAN

 view release on metacpan or  search on metacpan

lib/AnnoCPAN/Control.pm  view on Meta::CPAN

sub Delete {
    my ($self) = @_;
    return $self->_delete if $self->param('fast');
    my ($vars) = $self->_delete;
    return $self->Main($vars) if $vars->{error};
    $self->Show($vars);
}

# global delete
sub _delete {
    my ($self) = @_;

    my $notepos = $self->param_obj('NotePos');
    my $note    = $notepos->note;
    my $podver  = $notepos->podver;

    # get user, see if can delete
    my $user = $self->user
        or return $self->_error("not logged in; can't delete");

tt/faq.html  view on Meta::CPAN

<a name="edit"></a><h3>Can I edit my notes?</h3>

<p>Yes, just click on the edit button. Make sure you are logged in first!</p>

<a name="editall"></a><h3>Can I edit other people's notes?</h3>

<p>No, unless you somehow get moderator privileges.</p>

<a name="delete"></a><h3>What's the difference between "hiding" and "deleting" a note?</h3>

<p>Deletion is irreversible and global, meaning that the note will disappear 
from all versions of the POD; hiding is reversible and local, meaning that
the note is hidden only for a specific version of the POD.</p>

<a name="unhide"></a><h3>How do I unhide a note?</h3>

<p>If you go to <code>[% root_uri_abs %]/note/<em>note_id</em></code>, you will
see a list of where the note is listed for each version of a POD, along with
checkboxes for hiding and unhiding notes.</p>

<h2>For Module Authors</h2>

tt/header.html  view on Meta::CPAN

    [% ELSE %]
    <link rel="stylesheet" title="inline notes" type="text/css" href="[% root_uri_rel %]/layout-inline.css">
    <link rel="alternate stylesheet" title="margin notes" type="text/css" href="[% root_uri_rel %]/layout-side.css">
    [% END %]
    [% IF prefs('js') %]
        [% FOR script = scripts %]
        <script src="[% root_uri_rel %]/[% script %].js" type="text/javascript"></script>
        [% END %]
    [% END %]
    <link rel="alternate" title="New CPAN Distributions" href="[% root_uri_abs %]/recent_dists.rss" type="application/rss+xml">
    [% IF rss == 'global' %]
        <link rel="alternate" title="AnnoCPAN Recent Notes" href="[% root_uri_abs %]/recent.rss" type="application/rss+xml">
    [% ELSIF rss == 'author' %]
        <link rel="alternate" title="AnnoCPAN Notes for [% author %]" href="[% root_uri_abs %]/~[% author %]/recent.rss" type="application/rss+xml">
    [% END %]

    [% IF user %]
    <style type="text/css">
        #pod2html .cb { display: inline; }
        .u_[% user.id %] { display: inline; }
        [% IF user.privs > 1 %]

tt/main.html  view on Meta::CPAN

[% PROCESS header.html title="Home" rss="global" %]
[% PROCESS login_form.html %]
[% PROCESS form.html %]

<div class="motd">
<h3>POD Indexing Project</h3>
<div class="motd_body">
This is another project for improving Perl documentation, by making it more
accessible and searchable. We need volunteers; please take a look at 
<a href="http://pod-indexing.annocpan.org/">http://pod-indexing.annocpan.org/</a>.
</div>

tt/note_help.html  view on Meta::CPAN

<dd>Move this note to another paragraph for <em>this version of the current document
only</em>.</dd>

<dt>Hide</dt>

<dd>Hide this note to <em>for this version of the current document only</em>. Notes may
be unhidden later.</dd>

<dt>Delete</dt>

<dd>Remove this note globally, <em>for all versions of the current document</em>.
<strong>This action is irreversible!</strong> </dd>

</dl>

</div>
</body>
</html>