You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2005/08/13 21:58:18 UTC
cvs commit: embperl/eg/web/db epwebapp.pl
richter 2005/08/13 12:58:18
Modified: eg/web menuleft.epl
eg/web/db epwebapp.pl
Log:
Fix addition of one language component on the website
Revision Changes Path
1.14 +4 -2 embperl/eg/web/menuleft.epl
Index: menuleft.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/menuleft.epl,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- menuleft.epl 27 Feb 2005 22:38:35 -0000 1.13
+++ menuleft.epl 13 Aug 2005 19:58:18 -0000 1.14
@@ -76,12 +76,14 @@
<tr>
<td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td>
</tr>
- [- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-18-.htm', 'Stable 1.3.6', 0, 1) -]
+ [- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-18-.htm', 'Stable 2.0.0', 0, 1) -]
<tr>
<td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td>
</tr>
- [- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-18-.htm', 'Beta 2.0rc2', 0, 1) -]
+[#
+ [- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-18-.htm', 'Beta 2.1b1', 0, 1) -]
<tr>
<td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152" height="1"></td>
</tr>
+#]
</table>
1.16 +4 -2 embperl/eg/web/db/epwebapp.pl
Index: epwebapp.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/epwebapp.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- epwebapp.pl 9 Aug 2005 05:12:19 -0000 1.15
+++ epwebapp.pl 13 Aug 2005 19:58:18 -0000 1.16
@@ -582,8 +582,10 @@
my $lang = $rec->{id};
if (grep { $fdat{$_.'_'.$lang} || $fdat{$_} } @$cf)
{
- $rows = $$txtset -> Select ("${tt}_id" => $id) ;
- if (DBIx::Recordset->LastError)
+ $rows = $$txtset -> Search ({"${tt}_id" => $id,
+ language_id => $lang
+ }) ;
+ if (DBIx::Recordset->LastError)
{
$r -> {error} = 'err_update_lang_db' ;
return ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org