[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