[Jifty-commit] r5516 - jifty/trunk/share/plugins/Jifty/Plugin/OnlineDocs/web/templates/__jifty/online_docs
Jifty commits
jifty-commit at lists.jifty.org
Thu Jun 19 13:19:03 EDT 2008
Author: dpavlin
Date: Thu Jun 19 13:19:03 2008
New Revision: 5516
Modified:
jifty/trunk/share/plugins/Jifty/Plugin/OnlineDocs/web/templates/__jifty/online_docs/content.html
Log:
link to local application pod directly
Modified: jifty/trunk/share/plugins/Jifty/Plugin/OnlineDocs/web/templates/__jifty/online_docs/content.html
==============================================================================
--- jifty/trunk/share/plugins/Jifty/Plugin/OnlineDocs/web/templates/__jifty/online_docs/content.html (original)
+++ jifty/trunk/share/plugins/Jifty/Plugin/OnlineDocs/web/templates/__jifty/online_docs/content.html Thu Jun 19 13:19:03 2008
@@ -15,6 +15,7 @@
my $jifty_dirname = Jifty::Util->jifty_root."/";
my $app_dirname = Jifty::Util->app_root."/lib/";
$n =~ s/::/\//g;
+my $app_name = Jifty->app_class();
my @options = (
$app_dirname.$n.".pod",
@@ -49,7 +50,7 @@
$n =~ s{/}{::}g;
$m->print("<h1>$n</h1>");
$m->print("<h2>"._('Schema')."</h2><pre>$schema</pre>") if ($schema);
-$body =~ s{<a href="http://search\.cpan\.org/perldoc\?(Jifty%3A%3A[^"]+)"([^>]*)>}{<a href="content.html?n=$1"$2>}g;
+$body =~ s{<a href="http://search\.cpan\.org/perldoc\?((?:Jifty|$app_name)%3A%3A[^"]+)"([^>]*)>}{<a href="content.html?n=$1"$2>}g;
$body =~ s!</li>\n\t<ul>!<ul>!;
$body =~ s!</ul>!</ul></li>!;
$body =~ s!<p></p>!!;
More information about the Jifty-commit
mailing list