richter 2002/06/30 06:33:09
Modified: eg/web Tag: Embperl2c config.pl messages.pl news.epl
pod.xsl
eg/web/db Tag: Embperl2c add.epl addsel.epl data.epd
epwebapp.pl show.epl
eg/web/db/sites Tag: Embperl2c pod.xsl
eg/webutil Tag: Embperl2c db.schema
Added: eg/web/db/news Tag: Embperl2c data.epd
Log:
web site
Revision Changes Path
No revision
No revision
1.1.2.18 +2 -2 embperl/eg/web/Attic/config.pl
Index: config.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/config.pl,v
retrieving revision 1.1.2.17
retrieving revision 1.1.2.18
diff -u -r1.1.2.17 -r1.1.2.18
--- config.pl 29 Jun 2002 20:25:07 -0000 1.1.2.17
+++ config.pl 30 Jun 2002 13:33:09 -0000 1.1.2.18
@@ -76,7 +76,7 @@
{ menu => 'Home', uri => '',
file => { en => 'eg/web/index.htm', de => 'eg/web/indexD.htm'} },
{ menu => 'Features', uri => 'pod/Features.htm',
file => { en => 'Features.pod', de => 'FeaturesD.pod' }, sub =>
[
- { menu => 'Features 1.3', uri => 'pod/Features.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/Features.pod', de =>
'%lib_1_3%/HTML/FeaturesD.pod' } }
]
},
@@ -186,7 +186,7 @@
{ menu => 'Support', uri => 'pod/doc/Embperl.-page-12-.htm'
},
{ menu => 'Changes', uri => 'pod/Changes.htm',
file => 'Changes.pod' },
#{ menu => 'Sites using Embperl', uri => 'pod/Sites.htm',
file => 'Sites.pod' },
- { menu => 'News', uri => 'db/news/news.htm',
file => 'eg/web/db/data.epd', fdat => { 'category_id' => 1 } },
+ { menu => 'News', uri => 'db/news/news.htm',
file => 'eg/web/db/news/data.epd', fdat => { 'category_id' => 1 } },
{ menu => 'Sites using Embperl', uri => 'db/sites/sites.htm',
file => 'eg/web/db/data.epd', fdat => { 'category_id' => 2 } },
{ menu => 'Add info about Embperl', uri => 'db/addsel.epl', same =>
[
1.1.2.7 +2 -0 embperl/eg/web/Attic/messages.pl
Index: messages.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/messages.pl,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -r1.1.2.6 -r1.1.2.7
--- messages.pl 24 Jun 2002 19:22:30 -0000 1.1.2.6
+++ messages.pl 30 Jun 2002 13:33:09 -0000 1.1.2.7
@@ -19,6 +19,7 @@
'Search' => 'Suchen',
'under_construction' => 'Hinweis: Dieser Teil der Website befindet sich
noch im Aufbau.',
'more_news' => 'Weitere News...',
+ 'add_news' => 'News hinzuf�gen...',
},
'en' =>
{
@@ -36,6 +37,7 @@
'Search' => 'Search',
'under_construction' => 'NOTE: This part of the site is still under
contruction.',
'more_news' => 'more news...',
+ 'add_news' => 'add news...',
},
) ;
1.1.2.9 +16 -2 embperl/eg/web/Attic/news.epl
Index: news.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/news.epl,v
retrieving revision 1.1.2.8
retrieving revision 1.1.2.9
diff -u -r1.1.2.8 -r1.1.2.9
--- news.epl 25 Jun 2002 06:22:17 -0000 1.1.2.8
+++ news.epl 30 Jun 2002 13:33:09 -0000 1.1.2.9
@@ -44,7 +44,12 @@
<tr>
<td bgcolor="#327EA7"><font size="1" face="Verdana,
Arial, Helvetica, sans-serif"><b>
<font color="#FFFFFF">
- [+ $rec -> {heading} +]
+ [-
+ $date = $rec -> {modtime} ;
+ $date =~ /^(\d+)-(\d+)-(\d+)/ ;
+ $date = $r -> param -> language eq
'de'?"$3.$2.$1":"$2/$3/$1" ;
+ -]
+ [+ $date +]
</font></b></font></td>
</tr>
<tr>
@@ -73,7 +78,16 @@
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#327EA7"><font size="1" face="Verdana,
Arial, Helvetica, sans-serif">
- <a href="db/news/news.htm"><b><font
color="#FFFFFF"> [= more_news =]</font></b></a></font></td>
+ <a href="db/news/news.htm"><b><font
color="#FFFFFF"> [= more_news =]</font></b></a></font>
+ </td>
+ </tr>
+ <tr>
+ <td bgcolor="#C2D9E5"><img src="[+ $r -> {imageuri}
+]linie-news.gif" width="152" height="4"/></td>
+ </tr>
+ <tr>
+ <td bgcolor="#327EA7"><font size="1" face="Verdana,
Arial, Helvetica, sans-serif">
+ <a href="db/add.-category_id-1-.epl"><b><font
color="#FFFFFF"> [= add_news =]</font></b></a></font>
+ </td>
</tr>
<tr>
<td bgcolor="#C2D9E5"><img src="[+ $r -> {imageuri}
+]linie-news.gif" width="152" height="4"/></td>
1.1.2.12 +2 -6 embperl/eg/web/Attic/pod.xsl
Index: pod.xsl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/pod.xsl,v
retrieving revision 1.1.2.11
retrieving revision 1.1.2.12
diff -u -r1.1.2.11 -r1.1.2.12
--- pod.xsl 29 Jun 2002 20:25:07 -0000 1.1.2.11
+++ pod.xsl 30 Jun 2002 13:33:09 -0000 1.1.2.12
@@ -347,17 +347,13 @@
<xsl:choose>
<xsl:when test="contains($uri, '.pod')">
<xsl:element name="a">
- <xsl:attribute name="href">
- <xsl:value-of select="$baseuri"/>pod/<xsl:value-of
select="substring-before($uri, '.pod')"/>.htm
- </xsl:attribute>
+ <xsl:attribute name="href"><xsl:value-of
select="$baseuri"/>pod/<xsl:value-of select="substring-before($uri,
'.pod')"/>.htm</xsl:attribute>
<xsl:value-of select="$txt"/>
</xsl:element>
</xsl:when>
<xsl:when test="contains($uri, '::')">
<xsl:element name="a">
- <xsl:attribute name="href">
- <xsl:value-of select="translate($uri, ':', '/')"/>
- </xsl:attribute>
+ <xsl:attribute name="href"><xsl:value-of
select="translate($uri, ':', '/')"/></xsl:attribute>
<xsl:value-of select="$txt"/>
</xsl:element>
</xsl:when>
No revision
No revision
1.1.2.5 +15 -10 embperl/eg/web/db/Attic/add.epl
Index: add.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/Attic/add.epl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -u -r1.1.2.4 -r1.1.2.5
--- add.epl 24 Jun 2002 19:22:31 -0000 1.1.2.4
+++ add.epl 30 Jun 2002 13:33:09 -0000 1.1.2.5
@@ -16,29 +16,34 @@
[= add2 =]<br><br>
+[#
<table>
<tr>
<td>URL:</td><td><input type="text" name="url" size=80></td>
</tr>
</table>
+#]
<table width="100%">
<tr bgcolor="#fefcad"><font size="3">
[- $rec = $r -> {language_set}[$row] -]
- <td>[+ $rec -> {name} +]</td>
+ <td><font size=3><b>[+ $rec -> {name} +]</b></font></td>
</tr>
<tr>
<td>
<table>
- <tr>
- <td>[= heading =]:</td><td><input type="text" name="heading_[+
$rec -> {id} +]" size=80></td>
- </tr>
- <tr>
- <td>[= url =]:</td><td><input type="text" name="url_[+ $rec ->
{id} +]" size=80></td>
- </tr>
- <tr>
- <td>[= description =]:</td><td><textarea name="description_[+
$rec -> {id} +]" cols=60 rows=10></textarea></td>
- </tr>
+ [$foreach $type ('heading', 'url', 'description', 'keywords') $]
+ [$ if $txt = $r -> {category_set}{$type . '_text'} $]
+ <tr>
+ [$if $type ne 'description' $]
+ <td>[+ $txt +]:</td><td><input type="text" name="[+
$type +]_[+ $rec -> {id} +]" size=80></td>
+ [$else$]
+ <td>[+ $txt +]:</td><td><textarea name="[+ $type
+]_[+ $rec -> {id} +]" cols=60 rows=10></textarea></td>
+ [$endif$]
+ </tr>
+ [$endif$]
+ [$endforeach$]
+
</table>
</td>
</tr>
1.1.2.8 +1 -1 embperl/eg/web/db/Attic/addsel.epl
Index: addsel.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/Attic/addsel.epl,v
retrieving revision 1.1.2.7
retrieving revision 1.1.2.8
diff -u -r1.1.2.7 -r1.1.2.8
--- addsel.epl 24 Jun 2002 19:22:31 -0000 1.1.2.7
+++ addsel.epl 30 Jun 2002 13:33:09 -0000 1.1.2.8
@@ -42,7 +42,7 @@
<ul>
<li>
[- $rec = $r -> {category_set}[$row] -]
- <a href="add.epl?category_id=[+ $rec -> {category_id} +]">[+ $rec ->
{category} +]</a>
+ <a href="add.-category_id-[+ $rec -> {category_id} +]-.epl">[+ $rec ->
{category} +]</a>
</li>
</ul>
1.1.2.6 +9 -1 embperl/eg/web/db/Attic/data.epd
Index: data.epd
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/Attic/data.epd,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -r1.1.2.5 -r1.1.2.6
--- data.epd 24 Jun 2002 09:22:47 -0000 1.1.2.5
+++ data.epd 30 Jun 2002 13:33:09 -0000 1.1.2.6
@@ -12,7 +12,15 @@
[$ while ($rec = $$set -> Next) $]
+[-
+$date = $rec -> {modtime} ;
+$date =~ /^(\d+)-(\d+)-(\d+)/ ;
+$date = $r -> param -> language eq 'de'?"$3.$2.$1":"$2/$3/$1" ;
+-]
+
=head1 [+ $rec -> {heading} +]
-[+ $rec -> {description} +]
+[+ $rec -> {description} +] [[[+ $date +]]
+
+
[$endwhile$]
1.1.2.10 +2 -2 embperl/eg/web/db/Attic/epwebapp.pl
Index: epwebapp.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/Attic/epwebapp.pl,v
retrieving revision 1.1.2.9
retrieving revision 1.1.2.10
diff -u -r1.1.2.9 -r1.1.2.10
--- epwebapp.pl 25 Jun 2002 06:09:59 -0000 1.1.2.9
+++ epwebapp.pl 30 Jun 2002 13:33:09 -0000 1.1.2.10
@@ -63,7 +63,7 @@
}) ;
- $db -> TableAttr ('*', '!SeqClass', "DBIx::Recordset::FileSeq,$r->{root}/db")
if ($^O eq 'MSWin32') ;
+ $db -> TableAttr ('*', '!SeqClass',
"DBIx::Recordset::FileSeq,$config->{root}/db") if ($^O eq 'MSWin32') ;
$db -> TableAttr ('*', '!Filter',
{
'creationtime' => [\¤t_time, undef, DBIx::Recordset::rqINSERT ],
@@ -140,7 +140,7 @@
language_id => $rec->{id},
description => $fdat{"description_$rec->{id}"},
url => $fdat{"url_$rec->{id}"} || $fdat{url},
- heading => $fdat{"heading_$rec->{id}"}}) if
($fdat{"heading_$rec->{id}"}) ;
+ heading => $fdat{"heading_$rec->{id}"}}) if
($fdat{"heading_$rec->{id}"} || $fdat{"description_$rec->{id}"}) ;
}
$fdat{item_id} = $id ;
1.1.2.3 +8 -10 embperl/eg/web/db/Attic/show.epl
Index: show.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/Attic/show.epl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- show.epl 12 Feb 2002 16:55:01 -0000 1.1.2.2
+++ show.epl 30 Jun 2002 13:33:09 -0000 1.1.2.3
@@ -16,20 +16,18 @@
<table width="100%">
<tr bgcolor="#fefcad">
[- $rec = $r -> {item_set}[$row] -]
- <td>[+ $rec -> {name} +]</td>
+ <td><font size=3><b>[+ $rec -> {name} +]</b></font></td>
</tr>
<tr>
<td>
<table>
- <tr>
- <td>[= heading =]:</td><td>[+ $rec -> {heading} +]</td>
- </tr>
- <tr>
- <td>[= url =]:</td><td>[+ $rec -> {url} +]</td>
- </tr>
- <tr>
- <td>[= description =]:</td><td>[+ do { $txt = $rec ->
{description} ; $txt =~ s/\\n/\\\\<br\\>/g; $txt } +]</td>
- </tr>
+ [$foreach $type ('heading', 'url', 'description', 'keywords') $]
+ [$ if $txt = $r -> {category_set}{$type . '_text'} $]
+ <tr>
+ <td valign=top>[+ $txt +]:</td><td>[- @txt = split
(/\n/, $rec -> {$type}) -][$ foreach $t (@txt) $][+ $t +]<br>[$endforeach$]</td>
+ </tr>
+ [$endif$]
+ [$endforeach$]
</table>
</td>
</tr>
No revision
No revision
1.1.2.1 +23 -0 embperl/eg/web/db/news/Attic/data.epd
No revision
No revision
1.1.2.3 +1 -1 embperl/eg/web/db/sites/Attic/pod.xsl
Index: pod.xsl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/sites/Attic/pod.xsl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- pod.xsl 24 Jun 2002 09:22:47 -0000 1.1.2.2
+++ pod.xsl 30 Jun 2002 13:33:09 -0000 1.1.2.3
@@ -35,7 +35,7 @@
<td><font size="4" face="Verdana, Arial, Helvetica, sans-serif"><b>
<font color="0" size="4"><xsl:text
disable-output-escaping="yes">&nbsp;</xsl:text>
<xsl:value-of select="$txt"/>
- </font></b></font></td><td align="right"><font size="2"><a
href="../add.epl?category_id={$category_id}">[Eintrag hinzuf�gen]</a></font></td>
+ </font></b></font></td><td align="right"><font size="2"><a
href="../add.-category_id-{$category_id}-.epl">[Eintrag hinzuf�gen]</a></font></td>
</tr>
</table>
<br/>
No revision
No revision
1.1.2.7 +43 -22 embperl/eg/webutil/Attic/db.schema
Index: db.schema
===================================================================
RCS file: /home/cvs/embperl/eg/webutil/Attic/db.schema,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -r1.1.2.6 -r1.1.2.7
--- db.schema 25 Jun 2002 06:22:18 -0000 1.1.2.6
+++ db.schema 30 Jun 2002 13:33:09 -0000 1.1.2.7
@@ -49,15 +49,15 @@
'!PrimKey' => 'id',
'!Init' =>
[
- { id => 1, category_id => 1, state => 1, creationtime => '2001-07-28' },
- { id => 2, category_id => 1, state => 1, creationtime => '2001-11-20' },
- { id => 3, category_id => 1, state => 1, creationtime => '2001-11-27' },
- { id => 4, category_id => 1, state => 1, creationtime => '2001-12-05' },
- { id => 5, category_id => 1, state => 1, creationtime => '2002-03-13' },
- { id => 6, category_id => 1, state => 1, creationtime => '2002-03-21' },
- { id => 7, category_id => 1, state => 1, creationtime => '2002-05-28' },
- { id => 8, category_id => 1, state => 1, creationtime => '2002-06-25' },
- { id => 9, category_id => 2, state => 1, creationtime => '2002-06-25' },
+ { id => 1, category_id => 1, state => 1, creationtime => '2001-07-28',
modtime => '2001-07-28' },
+ { id => 2, category_id => 1, state => 1, creationtime => '2001-11-20',
modtime => '2001-11-20' },
+ { id => 3, category_id => 1, state => 1, creationtime => '2001-11-27',
modtime => '2001-11-27' },
+ { id => 4, category_id => 1, state => 1, creationtime => '2001-12-05',
modtime => '2001-12-05' },
+ { id => 5, category_id => 1, state => 1, creationtime => '2002-03-13',
modtime => '2002-03-13' },
+ { id => 6, category_id => 1, state => 1, creationtime => '2002-03-21',
modtime => '2002-03-21' },
+ { id => 7, category_id => 1, state => 1, creationtime => '2002-05-28',
modtime => '2002-05-28' },
+ { id => 8, category_id => 1, state => 1, creationtime => '2002-06-25',
modtime => '2002-06-25' },
+ { id => 9, category_id => 2, state => 1, creationtime => '2002-06-25',
modtime => '2002-06-25' },
]
},
@@ -155,22 +155,43 @@
'category_id' => 'integer',
'language_id' => 'char(2)',
'category' => 'tinytext',
+ 'heading_text' => 'tinytext',
+ 'keywords_text' => 'tinytext',
+ 'description_text' => 'tinytext',
+ 'url_text' => 'tinytext',
],
'!PrimKey' => 'id',
'!Init' =>
[
- { id => 1, category_id => 1, language_id => 'de', 'category' =>
'Neuigkeiten' } ,
- { id => 2, category_id => 1, language_id => 'en', 'category' => 'News'
} ,
- { id => 3, category_id => 2, language_id => 'de', 'category' =>
'Websites die Embperl nutzen' } ,
- { id => 4, category_id => 2, language_id => 'en', 'category' => 'Sites
using Embperl' } ,
- { id => 5, category_id => 3, language_id => 'de', 'category' =>
'B�cher die Embperl behandeln' } ,
- { id => 6, category_id => 3, language_id => 'en', 'category' => 'Books
that talk about Embperl' } ,
- { id => 7, category_id => 4, language_id => 'de', 'category' =>
'Artikel �ber Embperl (on- und offline)' } ,
- { id => 8, category_id => 4, language_id => 'en', 'category' =>
'Article about Embperl (on- and offline)' } ,
- { id => 9, category_id => 5, language_id => 'de', 'category' =>
'Syntaxhervorhebungen f�r Texteditoren' } ,
- { id => 10, category_id => 5, language_id => 'en', 'category' =>
'Syntaxhighlighting for texteditors' } ,
- { id => 11, category_id => 6, language_id => 'de', 'category' =>
'Module und Beispiele f�r Embperl' } ,
- { id => 12, category_id => 6, language_id => 'en', 'category' =>
'Modules and examples for Embperl' } ,
+ { id => 1, category_id => 1, language_id => 'de', 'category' =>
'Neuigkeiten',
+ heading_text => '', keywords_text => '', description_text
=> 'Neuigkeit', url_text => '' } ,
+ { id => 2, category_id => 1, language_id => 'en', 'category' => 'News',
+ heading_text => '', keywords_text => '', description_text
=> 'News', url_text => '' } ,
+
+ { id => 3, category_id => 2, language_id => 'de', 'category' =>
'Websites die Embperl nutzen',
+ heading_text => '�berschrift', keywords_text => '',
description_text => 'Beschreibung', url_text => 'URL' } ,
+ { id => 4, category_id => 2, language_id => 'en', 'category' => 'Sites
using Embperl',
+ heading_text => 'Heading', keywords_text => '',
description_text => 'Description', url_text => 'URL' } ,
+
+ { id => 5, category_id => 3, language_id => 'de', 'category' =>
'B�cher die Embperl behandeln',
+ heading_text => 'Titel', keywords_text => '',
description_text => 'Beschreibung', url_text => 'URL' } ,
+ { id => 6, category_id => 3, language_id => 'en', 'category' => 'Books
that talk about Embperl',
+ heading_text => 'Title', keywords_text => '',
description_text => 'Description', url_text => 'URL' } ,
+
+ { id => 7, category_id => 4, language_id => 'de', 'category' =>
'Artikel �ber Embperl (on- und offline)',
+ heading_text => 'Titel', keywords_text => '',
description_text => 'Beschreibung', url_text => 'URL' } ,
+ { id => 8, category_id => 4, language_id => 'en', 'category' =>
'Article about Embperl (on- and offline)',
+ heading_text => 'Title', keywords_text => '',
description_text => 'Description', url_text => 'URL' } ,
+
+ { id => 9, category_id => 5, language_id => 'de', 'category' =>
'Syntaxhervorhebungen f�r Texteditoren',
+ heading_text => 'Editor', keywords_text => '',
description_text => 'Beschreibung', url_text => 'URL' } ,
+ { id => 10, category_id => 5, language_id => 'en', 'category' =>
'Syntaxhighlighting for texteditors',
+ heading_text => 'Editor', keywords_text => '',
description_text => 'Description', url_text => 'URL' } ,
+
+ { id => 11, category_id => 6, language_id => 'de', 'category' =>
'Module und Beispiele f�r Embperl',
+ heading_text => 'Name', keywords_text => '',
description_text => 'Beschreibung', url_text => 'URL' } ,
+ { id => 12, category_id => 6, language_id => 'en', 'category' =>
'Modules and examples for Embperl',
+ heading_text => 'Name', keywords_text => '',
description_text => 'Description', url_text => 'URL' } ,
],
},
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
