AnnoCPAN

 view release on metacpan or  search on metacpan

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

1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
 
 
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

109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
<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

13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
[% 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

1
2
3
4
5
6
7
8
9
10
11
[% 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

52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
<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>