Author: richter
Date: Thu Oct 27 22:31:05 2005
New Revision: 329110
URL: http://svn.apache.org/viewcvs?rev=329110&view=rev
Log:
correct search path on webseite for 1.3 docs, if Apache2::compat is loaded
Modified:
perl/embperl/trunk/eg/web/config.pl
Modified: perl/embperl/trunk/eg/web/config.pl
URL:
http://svn.apache.org/viewcvs/perl/embperl/trunk/eg/web/config.pl?rev=329110&r1=329109&r2=329110&view=diff
==============================================================================
--- perl/embperl/trunk/eg/web/config.pl (original)
+++ perl/embperl/trunk/eg/web/config.pl Thu Oct 27 22:31:05 2005
@@ -27,20 +27,20 @@
$self -> {root} = $ENV{EMBPERL_SRC} . '/' ;
# check if Embperl 1.3 is installed
- if ($INC{'Apache.pm'})
+ if ($INC{'Apache2/RequestRec.pm'})
{
- my $lib_1_3 = dirname ($INC{'Apache.pm'}) ;
- if (-e ($lib_1_3 . '/HTML/Embperl.pod'))
+ my $lib_1_3 = dirname ($INC{'Apache2/RequestRec.pm'}) ;
+ if (-e ($lib_1_3 . '/../HTML/Embperl.pod'))
{
- $self -> {lib_1_3} = $lib_1_3 ;
+ $self -> {lib_1_3} = dirname($lib_1_3) ;
}
}
- elsif ($INC{'Apache2/RequestRec.pm'})
+ elsif ($INC{'Apache.pm'})
{
- my $lib_1_3 = dirname ($INC{'Apache2/RequestRec.pm'}) ;
- if (-e ($lib_1_3 . '/../HTML/Embperl.pod'))
+ my $lib_1_3 = dirname ($INC{'Apache.pm'}) ;
+ if (-e ($lib_1_3 . '/HTML/Embperl.pod'))
{
- $self -> {lib_1_3} = dirname($lib_1_3) ;
+ $self -> {lib_1_3} = $lib_1_3 ;
}
}
$self -> {lib_1_3} ||= '' ;
@@ -94,7 +94,7 @@
{ menu => 'Home', uri => '',
file => { en => 'eg/web/index.htm', de => 'eg/web/indexD.htm'} },
{ menu => 'Features', uri => 'pod/list/Features.htm',
file => { en => 'Features.pod', de => 'FeaturesD.pod' }, sub =>
[
- { menu => 'Features 1.3', uri => 'Features13.htm',
path => { en => '%lib_1_3%/HTML/Features.pod', de =>
'%lib_1_3%/HTML/FeaturesD.pod' } }
+ { menu => 'Features 1.3', uri => 'Features13.htm',
path => { en => '%lib_1_3%/HTML/Embperl/Features.pod', de =>
'%lib_1_3%/HTML/Embperl/FeaturesD.pod' } }
]
},
@@ -116,10 +116,10 @@
},
{ menu => 'Documentation', uri => 'pod/doc/', sub =>
[
- { menu => 'README', uri => 'README', file
=> { en => 'README', de => 'README'},
+ { menu => 'README', uri => 'README.txt',
file => { en => 'README', de => 'README'},
desc => { en => 'Short overview',
de => 'Kurzüberblick' }},
- { menu => 'README.v2', uri => 'README.v2',
file => { en => 'README.v2', de => 'README.v2'},
+ { menu => 'README.v2', uri => 'README.v2.txt',
file => { en => 'README.v2', de => 'README.v2'},
desc => { en => 'Contains what\'s new in Embperl 2.0 and
differences to Embperl 1.3',
de => 'Enthält die Neuigkeiten von Embperl 2.0 und
die Unterschiede zu Embperl 1.3' }},
{ menu => 'Configuration', uri => 'Config.htm',
file => { en => 'Config.pod', de => 'Config.pod'},
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
