richter 2005/10/02 23:54:15
Modified: . Changes.pod
eg/web config.pl header.epl
Log:
website link fixes
Revision Changes Path
1.293 +4 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.292
retrieving revision 1.293
diff -u -r1.292 -r1.293
--- Changes.pod 3 Oct 2005 05:55:35 -0000 1.292
+++ Changes.pod 3 Oct 2005 06:54:15 -0000 1.293
@@ -1,5 +1,9 @@
=pod
+=head1 2.0.2_dev (Not yet released, only in the CVS)
+
+ - Fixed URLs in website to work correctly on static mirrors
+
=head1 2.0.1 3. October 2005
- Turn off Apache maintainer mode symbols, so it works with SuSE Apache
1.14 +4 -1 embperl/eg/web/config.pl
Index: config.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/config.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- config.pl 25 Sep 2005 13:43:38 -0000 1.13
+++ config.pl 3 Oct 2005 06:54:15 -0000 1.14
@@ -202,7 +202,10 @@
{ menu => 'Support', uri =>
'pod/doc/Embperl.-page-17-.htm' },
{ menu => 'Changes', uri => 'pod/Changes.htm',
file => 'Changes.pod' },
#{ menu => 'Sites using Embperl', uri => 'pod/Sites.htm',
file => 'Sites.pod' },
- { menu => 'Wiki', uri => 'db/wiki/index.cgi', file =>
'/eg/web/db/wiki.epl' },
+ { menu => 'Wiki', uri => 'db/wiki/index.htm', file =>
'/eg/web/db/wiki.epl', same =>
+ [
+ { menu => 'Wiki', uri => 'db/wiki/index.cgi', file
=> '/eg/web/db/wiki.epl' },
+ ] },
{ menu => 'More infos', uri => 'db/', sub =>
[
{ menu => 'News', uri => 'news/news.htm',
file => 'eg/web/db/news/data.epd', fdat => { 'category_id' => 1 },
1.6 +4 -2 embperl/eg/web/header.epl
Index: header.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/header.epl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- header.epl 15 Mar 2004 06:25:49 -0000 1.5
+++ header.epl 3 Oct 2005 06:54:15 -0000 1.6
@@ -1,12 +1,14 @@
[-
$r = shift ;
+$parm = join ('-.-', map { "$_-$fdat{$_}" } keys %fdat) ;
+$parm = ".-$parm-" if ($parm) ;
-]
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td valign="top" rowspan=2><img src="[+ $r -> {imageuri}
+]kopf-links.gif" width="206" height="97" usemap="#Map" border="0">
<map name="Map">
- <area shape="rect" coords="90,56,151,69" href="[+ $r -> app ->
languri($r, $r -> param -> uri, 'de') +]?[+ \%fdat +]" target="_top">
- <area shape="rect" coords="90,70,151,82" href="[+ $r -> app ->
languri($r, $r -> param -> uri, 'en') +]?[+ \%fdat +]" target="_top">
+ <area shape="rect" coords="90,56,151,69" href="[+ do { $u = $r
-> app -> languri($r, $r -> param -> uri, 'de') ; $u =~ s/(\.\w+?)$/$parm$1/;
$u } +]" target="_top">
+ <area shape="rect" coords="90,70,151,82" href="[+ do { $u = $r
-> app -> languri($r, $r -> param -> uri, 'en') ; $u =~ s/(\.\w+?)$/$parm$1/;
$u } +]" target="_top">
</map>
</td>
<td valign="top" width="50%"><img src="[+ $r -> {imageuri}
+]kopf-mitte.jpg" width="100%" height="46" vspace=0></td>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
