~ubuntu-branches/ubuntu/oneiric/libhtml-wikiconverter-perl/oneiric

« back to all changes in this revision

Viewing changes to WikiConverter/TikiWiki.pm

  • Committer: Bazaar Package Importer
  • Author(s): Jonas Genannt
  • Date: 2006-01-09 20:19:12 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20060109201912-306xp7tjdjcwejlu
Tags: 0.40-1
New Upstream Release

Show diffs side-by-side

added added

removed removed

Lines of Context:
60
60
  my $text = $self->get_elem_contents($node) || '';
61
61
 
62
62
  if( my $title = $self->get_wiki_page($url) ) {
63
 
    # Internal links
64
63
    $title =~ s/_/ /g;
65
64
    return $text if lc $title eq lc $text and $self->is_camel_case($text);
66
65
    return "(($text))" if lc $text eq lc $title;
67
66
    return "(($title|$text))";
68
67
  } else {
69
 
    # External links
70
68
    return "[$url]" if $url eq $text;
71
69
    return "[$url|$text]";
72
70
  }
103
101
 
104
102
=head1 AUTHOR
105
103
 
106
 
David J. Iberri <diberri@yahoo.com>
 
104
David J. Iberri <diberri@cpan.org>
107
105
 
108
106
=head1 COPYRIGHT
109
107