richter 2002/08/27 12:12:42
Modified: eg/web Tag: Embperl2c base.epl config.pl content.epl
messages.pl podbase.xsl
eg/web/db Tag: Embperl2c add.epl addsel.epl content.epl
data.epd epwebapp.pl show.epl
eg/web/db/news Tag: Embperl2c data.epd pod.xsl
Log:
web site
Revision Changes Path
No revision
No revision
1.1.2.12 +1 -0 embperl/eg/web/Attic/base.epl
Index: base.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/base.epl,v
retrieving revision 1.1.2.11
retrieving revision 1.1.2.12
diff -u -r1.1.2.11 -r1.1.2.12
--- base.epl 30 Jul 2002 05:15:09 -0000 1.1.2.11
+++ base.epl 27 Aug 2002 19:12:41 -0000 1.1.2.12
@@ -45,6 +45,7 @@
body {[+ $base12 +]}
table {[+ $base12 +]}
+ .cHeadline {[+ $base14 +] font-weight: bold;}
a:hover { color: red ;}
</style>
</head>
1.1.2.21 +1 -0 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.20
retrieving revision 1.1.2.21
diff -u -r1.1.2.20 -r1.1.2.21
--- config.pl 5 Jul 2002 07:58:35 -0000 1.1.2.20
+++ config.pl 27 Aug 2002 19:12:41 -0000 1.1.2.21
@@ -191,6 +191,7 @@
#{ menu => 'Sites using Embperl', uri => 'pod/Sites.htm',
file => 'Sites.pod' },
{ 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 => 'Login', uri => 'db/login.epl'},
{ menu => 'Add info about Embperl', uri => 'db/addsel.epl', same =>
[
{ menu => 'Enter info to add about Embperl', uri => 'db/add.epl' },
1.1.2.7 +5 -3 embperl/eg/web/Attic/content.epl
Index: content.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/content.epl,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -r1.1.2.6 -r1.1.2.7
--- content.epl 24 Jun 2002 09:22:47 -0000 1.1.2.6
+++ content.epl 27 Aug 2002 19:12:41 -0000 1.1.2.7
@@ -2,9 +2,11 @@
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td valign="top">
- [# <img
src="/eg/images/aim/h_leer.gif/Annotate?text=ABOUT&gravity=NorthWest&pointsize=16&antialias=true&y=-6&x=3&font=/usr/msrc/fonts/ocraext.ttf"
width="152" height="19">
-
- <br>#]<br>
+ [#
+ <img
src="/eg/images/aim/h_leer.gif/Annotate?text=ABOUT&gravity=NorthWest&pointsize=16&antialias=true&y=-6&x=3&font=/usr/msrc/fonts/ocraext.ttf"
width="152" height="19">
+ <br>
+ #]
+ <br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">[- Execute
({inputfile => '*', syntax => 'Text'}) -]</td>
<td valign="top" width="10"> </td>
<td valign="top" height="100%"><img src="[+ $r -> {imageuri} +]frame.jpg"
width="1" height="100%"></td>
1.1.2.10 +43 -17 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.9
retrieving revision 1.1.2.10
diff -u -r1.1.2.9 -r1.1.2.10
--- messages.pl 30 Jul 2002 05:15:09 -0000 1.1.2.9
+++ messages.pl 27 Aug 2002 19:12:41 -0000 1.1.2.10
@@ -9,14 +9,21 @@
'addsel2' => 'oder f�gen Sie eine neue Kategorie hinzu. Bitte geben Sie die
Beschreibung in so vielen Sprachen wie Ihnen m�glich ein.',
'addsel3' => 'Falls Sie die �bersetzung nicht wissen, lassen Sie das
entsprechende Eingabefeld leer.',
'addsel4' => 'Kategorie hinzuf�gen',
+ 'addsel_upd' => 'Klicken Sie auf die Kategorie in der Sie etwas �ndern
m�chten:',
+ 'addsel_login1' => 'Wenn Sie etwas an Ihren bisherigen Eingaben �ndern
m�chten, m�ssen Sie sich zuerst',
+ 'addsel_login2' => 'anmelden',
+ 'addsel_login3' => '.',
'add1' => 'Hinzuf�gen eines neuen Eintrages zu',
+ 'edit1' => 'Bearbeiten eines Eintrages von',
'add2a' => 'Bitte geben Sie die Beschreibung in so vielen Sprachen wie
Ihnen m�glich ein.',
'add2b' => 'Falls Sie die �bersetzung nicht wissen, lassen Sie das
entsprechende Eingabefeld leer.',
'add3' => 'Hinzuf�gen zu',
+ 'update3' => '�bernehmen',
+ 'delete3' => 'L�schen',
'heading' => '�berschrift',
'url' => 'URL',
'description' => 'Beschreibung',
- 'show2' => 'Folgender Eintrag wurde erfolgreich der Datenbank
hinzugef�gt',
+ 'show2' => 'Folgender Eintrag wurde erfolgreich der Datenbank
hinzugef�gt/ge�ndert',
'Search' => 'Suchen',
'under_construction' => 'Hinweis: Dieser Teil der Website befindet sich
noch im Aufbau.',
'more_news' => 'Weitere News...',
@@ -24,14 +31,18 @@
'display' => 'anzeigen',
'hide' => 'nicht anzeigen',
'logged_in_as' => 'Angemeldet als',
- 'need_login' => q{
- Sie m�ssen sich erst anmelden um diesen Bereich zu nutzen.
- Bitte geben Sie Ihre E-Mail Adresse und Ihr Kennwort ein und klicken
Sie auf 'Anmelden'.
- Wenn Sie sich das erste Mal anmelden, geben Sie lediglich Ihre E-Mail
Adresse an und
- klicken auf "Neuen Benutzer-Account einrichten".
- Sie bekommen dann ein neues Kennwort zugeschickt.
- Haben Sie Ihr Kennwort vergessen, klicken Sie auf "Neues Kennwort".
Sie bekommen
- dann ein neues Kennwort zugesandt.},
+ 'need_login' => 'Sie m�ssen sich erst anmelden um diesen Bereich zu
nutzen.',
+ 'login_head' => q{Hier k�nnen Sie sich auf der Embperl-Site anmelden.
Dies erlaubt Ihnen
+ Informationen bez�glich Embperl (Neugigkeiten, Sites
die Embperl benutzen,
+ Ver�ffentlichungen, Beispiele etc.) hinzuzuf�gen, zu
�ndern und zu l�schen.},
+ 'login1' => 'Wenn Sie sich schon einmal angemeldet haben, geben Sie
bitte Ihre E-Mail Adresse und Ihr Kennwort ein und klicken dann auf "Anmelden".',
+ 'login2' => q{Wenn Sie sich das erste Mal anmelden, geben Sie
lediglich Ihre E-Mail Adresse an
+ und klicken auf "Neuen Benutzer-Account einrichten".
+ Sie bekommen dann ein neues Kennwort zugeschickt.},
+ 'login3' => q{Haben Sie Ihr Kennwort vergessen, geben Sie Ihre
E-Mail Adresse ein und klicken dann
+ auf "Neues Kennwort". Sie bekommen
+ dann ein neues Kennwort zugesandt.},
+ 'cookie_note' => 'HINWEIS: Zur Anmeldung ist es erforderlich das Ihr
Browser Cookies akzeptiert',
'email' => 'E-Mail Adresse',
'password' => 'Kennwort',
'login' => 'Anmelden',
@@ -44,14 +55,21 @@
'addsel2' => 'or add new category. Please enter the description in as much
languages as possible.',
'addsel3' => 'If you don\'t know the translation leave the corresponding
input field empty.',
'addsel4' => 'Add category',
+ 'addsel_upd' => 'Click on the category for wich you want to edit a item:',
+ 'addsel_login1' => 'If you like to change your previous entries, you need
to',
+ 'addsel_login2' => 'login',
+ 'addsel_login3' => 'first.',
'add1' => 'Add a new item to',
+ 'add1' => 'Edit item of',
'add2a' => 'Please enter the description in as much languages as
possible.',
'add2b' => 'If you don\'t know the translation leave the corresponding
input field empty.',
'add3' => 'Add to',
+ 'update3' => 'Apply',
+ 'delete3' => 'Delete',
'heading' => 'Heading',
'url' => 'URL',
'description' => 'Description',
- 'show2' => 'The following entry has been sucessfully added to the
database',
+ 'show2' => 'The following entry has been sucessfully added/modified to
the database',
'Search' => 'Search',
'under_construction' => 'NOTE: This part of the site is still under
contruction.',
'more_news' => 'more news...',
@@ -59,13 +77,21 @@
'display' => 'display',
'hide' => 'hide',
'logged_in_as' => 'logged in as',
- 'need_login' => q{
- You must be logged in to access this area.
- Please enter your email address and password and click on 'Login'.
- If you not already have a user account, just enter your email and
click on 'Create new account'.
- A new account will be created and the password will be imediately
mailed to address you entered.
- In case you have forgotten your password, click on 'New password', a
new password will be mailed
- to your email address.},
+ 'need_login' => q{You must be logged in to access this area.},
+ 'login_head' => q{Here you can logon to the Embperl-Site.
+ This allows you to enter information about Embperl
like news,
+ sites using Embperl, publications, examples etc.
+ You may also edit and delte the information you have
enterd before},
+ 'login1' => q{If you have already a user account, please enter your
email address and
+ password and click on 'Login'. },
+ 'login2' => q{If you have not already a user account, just enter
your email and click
+ on 'Create new account'.
+ A new account will be created and the password will be
imediately mailed
+ to address you entered.},
+ 'login3' => q{In case you have forgotten your password, click on
'New password',
+ a new password will be mailed
+ to your email address.},
+ 'cookie_note' => 'NOTE: For login it\'s necessary that your browser accepts
cookies',
'email' => 'E-Mail address',
'password' => 'Password',
'login' => 'Login',
1.1.2.3 +10 -1 embperl/eg/web/Attic/podbase.xsl
Index: podbase.xsl
===================================================================
RCS file: /home/cvs/embperl/eg/web/Attic/podbase.xsl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- podbase.xsl 30 Jul 2002 05:15:09 -0000 1.1.2.2
+++ podbase.xsl 27 Aug 2002 19:12:41 -0000 1.1.2.3
@@ -127,6 +127,7 @@
<xsl:template name="link">
<xsl:param name="txt"/>
<xsl:param name="uri"/>
+ <xsl:param name="useuri"/>
<xsl:choose>
<xsl:when test="contains($uri, '.pod')">
<xsl:element name="a">
@@ -169,7 +170,14 @@
<a
href="{$basename}.-page-{$page}-.{$extension}#sect_{$sect}"><xsl:value-of
select="$txt"/></a>
</xsl:when>
<xsl:otherwise>
- <xsl:value-of select="$txt"/>
+ <xsl:choose>
+ <xsl:when test="$useuri">
+ <a href="{$useuri}"><xsl:value-of
select="$txt"/></a>
+ </xsl:when>
+ <xsl:otherwise>
+ <xsl:value-of select="$txt"/>
+ </xsl:otherwise>
+ </xsl:choose>
</xsl:otherwise>
</xsl:choose>
</xsl:otherwise>
@@ -185,6 +193,7 @@
<xsl:when test="@uri">
<xsl:call-template name="link">
<xsl:with-param name="uri" select="@uri"/>
+ <xsl:with-param name="useuri" select="@uri"/>
<xsl:with-param name="txt" select="."/>
</xsl:call-template>
</xsl:when>
No revision
No revision
1.1.2.8 +1 -1 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.7
retrieving revision 1.1.2.8
diff -u -r1.1.2.7 -r1.1.2.8
--- add.epl 30 Jul 2002 05:15:09 -0000 1.1.2.7
+++ add.epl 27 Aug 2002 19:12:41 -0000 1.1.2.8
@@ -6,7 +6,7 @@
<table width="100%">
<tr bgcolor="#fefcad">
- <td><font size="4">[= add1 =] [+ $r -> {category_set}{category}
+]</font></td>
+ <td><font size="4">[$ if $r -> {edit} $][= edit1 =] [$else$][= add1 =]
[$endif$] [+ $r -> {category_set}{category} +]</font></td>
</tr>
</table>
1.1.2.10 +19 -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.9
retrieving revision 1.1.2.10
diff -u -r1.1.2.9 -r1.1.2.10
--- addsel.epl 1 Jul 2002 06:57:13 -0000 1.1.2.9
+++ addsel.epl 27 Aug 2002 19:12:41 -0000 1.1.2.10
@@ -37,7 +37,7 @@
[+ do { local $escmode = 0 ; $epf -> get_script_code (undef, $r) } +]
</script>
-[= addsel1 =]
+<p class="cHeadline">[= addsel1 =]</p>
<ul>
<li>
@@ -45,6 +45,24 @@
<a href="add.-category_id-[+ $rec -> {category_id} +]-.epl">[+ $rec ->
{category} +]</a>
</li>
</ul>
+
+
+[$ if $r -> {user_id} $]
+
+<p class="cHeadline">[= addsel_upd =]</p>
+
+<ul>
+ <li>
+ [- $rec = $r -> {category_set}[$row] -]
+ <a href="add.-category_id-[+ $rec -> {category_id} +]-.epl">[+ $rec ->
{category} +]</a>
+ </li>
+</ul>
+
+[$else$]
+
+<p class="cHeadline">[= addsel_login1 =] <a href="login.epl">[= addsel_login2
=]</a> [= addsel_login3 =]</p>
+
+[$endif$]
[#
<form action="[+ $r -> {action_prefix}?($r->{action_prefix} . dirname($r-> param ->
uri) .'/'):''+]addsel.epl" OnSubmit="">
1.1.2.6 +5 -18 embperl/eg/web/db/Attic/content.epl
Index: content.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/Attic/content.epl,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -r1.1.2.5 -r1.1.2.6
--- content.epl 30 Jul 2002 05:15:09 -0000 1.1.2.5
+++ content.epl 27 Aug 2002 19:12:41 -0000 1.1.2.6
@@ -9,24 +9,11 @@
[$endif$]
[$if $r -> {need_login} $]
- [= need_login =]
-
- <form action="[+ $r -> param -> uri +]" method="POST">
- <table>
- <tr>
- <td class="cText">[= email =]</td>
- <td class="cInput"><input type="text" name="user_email"></td>
- </tr>
- <tr>
- <td class="cText">[= password =]</td>
- <td class="cInput"><input type="text" name="user_password"></td>
- </tr>
- </table>
- <input type="submit" name="-login" value="[= login =]">
- <input type="submit" name="-newuser" value="[= newuser =]">
- <input type="submit" name="-newpassword" value="[= newpassword =]">
- [$ hidden $]
- </form>
+ <center>
+ <p>[= need_login =]</p>
+
+ [- Execute ('loginform.epl', $r -> param -> uri) ; -]
+ </center>
[$else$]
[$if $r -> param -> uri !~ /html?$|epl$/ $]<pre>[$endif$]
1.1.2.8 +2 -0 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.7
retrieving revision 1.1.2.8
diff -u -r1.1.2.7 -r1.1.2.8
--- data.epd 1 Jul 2002 06:57:13 -0000 1.1.2.7
+++ data.epd 27 Aug 2002 19:12:41 -0000 1.1.2.8
@@ -24,4 +24,6 @@
[+ $rec -> {url} +]
+[$if $r -> {user_id} && $r -> {user_id} == $rec -> {user_id}
$]L<Edit|../show.epl?item_id=[+ $rec -> {item_id} +]&-edit_item=1> [$endif$]
+
[$endwhile$]
1.1.2.12 +56 -19 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.11
retrieving revision 1.1.2.12
diff -u -r1.1.2.11 -r1.1.2.12
--- epwebapp.pl 30 Jul 2002 05:15:09 -0000 1.1.2.11
+++ epwebapp.pl 27 Aug 2002 19:12:41 -0000 1.1.2.12
@@ -305,16 +305,26 @@
return ;
}
- my $set = DBIx::Recordset -> Update ({'!DataSource' => $r -> {db},
- '!Table' => 'item',
- url => $fdat{url},
- category_id => $fdat{category_id},
+ # make sure we have an id
+ if ($fdat{item_id})
+ {
+ $r -> {error} = 'err_cannot_update' ;
+ return ;
+ }
+
+ my $set = DBIx::Recordset -> Setup ({'!DataSource' => $r -> {db},
+ '!Table' => 'item'}) ;
+
+ # update the entry, but only if it has the correct user id or the has admin
rights
+ my $rows = $$set -> Update ({ url => $fdat{url},
+ $fdat{category_id}?(category_id =>
$fdat{category_id}):(),
$r ->{user_admin}?(state =>
$fdat{state}):()},
- {item_id => $fdat{item_id},
+ {id => $fdat{item_id},
$r ->{user_admin}?():(user_id => $r
-> {user_id})}) ;
- if ($set -> StHdl -> {NUMROWS} == 0)
- {
- $r -> {error} = 'err_cannot_update' ;
+
+ if ($rows <= 0)
+ { # error if nothing was found (this will happen when the record isdn't
owned by the user)
+ $r -> {error} = 'err_cannot_update' ;
return ;
}
@@ -323,6 +333,7 @@
my $txtset = DBIx::Recordset -> Setup ({'!DataSource' => $r -> {db},
'!Table' => 'itemtext'}) ;
+ # Update the texts for every languange, but only if they belong to the item we
have delete above
$$langset -> Reset ;
while ($rec = $$langset -> Next)
{
@@ -330,8 +341,12 @@
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}"} || $fdat{"description_$rec->{id}"},
- { item_id => $id, id => $fdat{"id_$rec->{id}"}}) ;
+ heading => $fdat{"heading_$rec->{id}"},
+ },
+ { item_id => $id,
+ id => $fdat{"id_$rec->{id}"}})
+ if ($fdat{"heading_$rec->{id}"} ||
$fdat{"description_$rec->{id}"}) ;
+
}
}
@@ -349,26 +364,42 @@
return ;
}
- return if (!$fdat{item_id}) ;
- my $set = DBIx::Recordset -> Delete ({'!DataSource' => $r -> {db},
- '!Table' => 'item',
- item_id => $fdat{item_id},
- $r ->{user_admin}?():(user_id =>
$r -> {user_id})}) ;
- if ($set -> StHdl -> {NUMROWS} == 0)
+ # make sure we have an id
+ if ($fdat{item_id})
{
- $r -> {error} = 'err_cannot_update' ;
+ $r -> {error} = 'err_cannot_delete' ;
+ return ;
+ }
+
+ # first see if the entry exists and has the correct user_id
+ my $set = DBIx::Recordset -> Search ({'!DataSource' => $r -> {db},
+ '!Table' => 'item',
+ id => $fdat{item_id},
+ $r ->{user_admin}?():(user_id => $r
-> {user_id})}) ;
+
+ if (!$set -> MoreRecord())
+ { # error if nothing was found (this will happen when the record isdn't
owned by the user
+ $r -> {error} = 'err_cannot_delete' ;
return ;
}
+ # delete the entry, but only if it has the correct user id or the has admin
rights
+ $$set -> Delete ({id => $fdat{item_id},
+ $r ->{user_admin}?():(user_id => $r ->
{user_id})}) ;
+
+
my $id = $fdat{item_id} ;
my $langset = $r -> {language_set} ;
my $txtset = DBIx::Recordset -> Setup ({'!DataSource' => $r -> {db},
'!Table' => 'itemtext'}) ;
+ # Delete the texts for every languange, but only if they belong to the item we
have delete above
$$langset -> Reset ;
while ($rec = $$langset -> Next)
{
- $$txtset -> Delete ({ item_id => $id, id => $fdat{"id_$rec->{id}"}}) if
($fdat{"id_$rec->{id}"}}) ;
+ $$txtset -> Delete ({ item_id => $id,
+ id => $fdat{"id_$rec->{id}"}}) ;
+
}
}
@@ -459,8 +490,14 @@
my $self = shift ;
my $r = shift ;
+ if (!$self -> checkuser($r))
+ {
+ $r -> {need_login} = 1 ;
+ return ;
+ }
+
my $set = $r -> {item_set} ;
- $fdat{'item_id'} = $rec -> {item_id} ;
+ $fdat{'item_id'} = $set -> {item_id} ;
$$set -> Reset ;
while ($rec = $$set -> Next)
1.1.2.4 +1 -1 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.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- show.epl 30 Jun 2002 13:33:09 -0000 1.1.2.3
+++ show.epl 27 Aug 2002 19:12:41 -0000 1.1.2.4
@@ -4,7 +4,7 @@
<table width="100%">
<tr bgcolor="#fefcad">
- <td><font size="4">[= add1 =] [+ $r -> {category_set}{category}
+]</font></td>
+ <td><font size="4">[$ if $fdat{-update_item} $][= edit1 =] [$else$][= add1
=] [$endif$] [+ $r -> {category_set}{category} +]</font></td>
</tr>
</table>
No revision
No revision
1.1.2.2 +2 -0 embperl/eg/web/db/news/Attic/data.epd
Index: data.epd
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/news/Attic/data.epd,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- data.epd 30 Jun 2002 13:33:09 -0000 1.1.2.1
+++ data.epd 27 Aug 2002 19:12:42 -0000 1.1.2.2
@@ -20,4 +20,6 @@
=head1 [+ $date +]
[+ $rec -> {description} +]
+
+[$if $r -> {user_id} && $r -> {user_id} == $rec -> {user_id}
$]L<[Edit]|../add.epl?item_id=[+ $rec -> {item_id} +]&-edit_item=1> [$endif$]
[$endwhile$]
1.1.2.4 +0 -2 embperl/eg/web/db/news/Attic/pod.xsl
Index: pod.xsl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/news/Attic/pod.xsl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -r1.1.2.3 -r1.1.2.4
--- pod.xsl 1 Jul 2002 06:57:13 -0000 1.1.2.3
+++ pod.xsl 27 Aug 2002 19:12:42 -0000 1.1.2.4
@@ -8,8 +8,6 @@
<xsl:variable name="category_id" select="1"/>
<xsl:include href="../pod.xsl"/>
-
-
<!-- - - - - Root - - - - -->
<xsl:template match="/">
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
