AnnoCPAN

 view release on metacpan or  search on metacpan

html/show.js  view on Meta::CPAN

}

// noteform.onsubmit
function save_note() {
    var data;
    // Not very elegant, but works in IE 6 / Mozilla / Opera 8
    data = '<data>'
            + '<mode>save</mode><fast>1</fast>'
            + '<notepos>'   + Form.notepos.value                + '</notepos>'
            + '<section>'   + Form.section.value                + '</section>'
            + '<note_text>' + escape_html(Form.note_text.value) + '</note_text>'
        + '</data>';
    url  = '/save_xml.cgi';
    return post_xml(url, data, on_save);
}

function escape_html(s) {
    return s.replace(/&/g, '&amp;').replace(/</g, '&lt;').replace(/>/g, '&gt;');
}

function unescape_html(s) {
    return s.replace(/&amp;/g, '&').replace(/&lt;/g, '<').replace(/&gt;/g, '>');
}


// on response
function on_save(response) {
    var el = document.createElement('div');
    el.innerHTML = response.responseText;
    var note = el.getElementsByTagName('div')[0];
    // alert('note='+note+' response='+response+' text='+response.responseText);

html/show.js  view on Meta::CPAN

    var notepos = this.form.notepos.value;
    return get_xml('/?mode=hide;fast=1;notepos=' + notepos, on_delete);
    return false; 
}

function note_plaintext(note) {
    var s = note.getElementsByTagName('div')[3].innerHTML;
    s = s.replace(/\s*<p>/gi, '');
    s = s.replace(/\s*<\/p>/gi, "\n");
    s = s.replace(/^\s+/, '').replace(/\s+$/, '');
    s = unescape_html(s);
    return s;
}

function set_note_plaintext(notepos) {
    document.getElementsByTagName('body')[0].style.cursor = 'wait';
    return get_xml('/?mode=raw_note;notepos=' + notepos, on_raw_note);
}

function on_raw_note(response) {
    var s = response.responseText;

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

    my ($self, $seq_command, $seq_argument) = @_ ;
    #print "interior_sequence($seq_command, $seq_argument)\n";
    my $method = "ac_i_$seq_command";
    $method = "ac_i_default" unless $self->can($method);
    my $ret = $self->$method($seq_argument);
    $ret;
}


# trims surrounding whitespace, replaces interior whitespace by underscores,
# removes HTML tags, and URI-escapes non-word characters
sub filter_anchor {
    my ($s) = @_;
    $s = lc $s;
    for ($s) {
        s/^\s+//; 
        s/\s+$//;
        s/\s+/_/g; 
        s/<.*?>//g;
        s/\0//g;
        s/(\W)/sprintf "%%%02x", ord($1)/eg; 

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

    } else {
        $text = $text || $name || qq{"$sect"};
    }
        
    $base = $name ? "$root_uri_rel/perldoc?" : $base;
    my $loc  = $sect ? "#" . filter_anchor($sect) : '';
    return qq{\0<a href="$base$name$loc"\0>$text\0</a\0>};
}

{
    my %escapes = (
        lt      => "<",
        gt      => '>',
        verbar  => '|',
        sol     => '/',
    );

    sub ac_i_E { 
        my $ret;
        $ret = $escapes{$_[1]}   and return $ret;
        $_[1] =~ /^\d+$/         and return chr($_[1]);
        $_[1];
    }
} 

=head1 SEE ALSO

L<AnnoCPAN::DBI>

=head1 AUTHOR