richter 2003/02/20 13:22:50
Modified: eg/web epwebapp.pl menuleft.epl
eg/web/db epwebapp.pl
Log:
webupdates
Revision Changes Path
1.7 +1 -0 embperl/eg/web/epwebapp.pl
Index: epwebapp.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/epwebapp.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- epwebapp.pl 15 Feb 2003 14:09:56 -0000 1.6
+++ epwebapp.pl 20 Feb 2003 21:22:50 -0000 1.7
@@ -204,6 +204,7 @@
shift @uri ;
$uri =~ s#/$_/#/# ;
$r -> {baseuri} = ('../' x ($depth - 1)) ; # we want to stay in the
same language tree
+ $lang_ok = 1 ;
last ;
}
elsif ($accept_lang && $_ eq $accept_lang)
1.6 +1 -1 embperl/eg/web/menuleft.epl
Index: menuleft.epl
===================================================================
RCS file: /home/cvs/embperl/eg/web/menuleft.epl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- menuleft.epl 8 Jan 2003 07:42:48 -0000 1.5
+++ menuleft.epl 20 Feb 2003 21:22:50 -0000 1.6
@@ -76,7 +76,7 @@
<tr>
<td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152"
height="1"></td>
</tr>
- [- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-13-.htm', 'Stable 1.3.5',
0, 1) -]
+ [- menuitem ($r -> {baseuri} . 'pod/doc/Embperl.-page-13-.htm', 'Stable 1.3.6',
0, 1) -]
<tr>
<td><img src="[+ $r -> {imageuri} +]linie-nav.gif" width="152"
height="1"></td>
</tr>
1.11 +2 -2 embperl/eg/web/db/epwebapp.pl
Index: epwebapp.pl
===================================================================
RCS file: /home/cvs/embperl/eg/web/db/epwebapp.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- epwebapp.pl 16 Jan 2003 07:14:35 -0000 1.10
+++ epwebapp.pl 20 Feb 2003 21:22:50 -0000 1.11
@@ -811,7 +811,7 @@
'!Table' => "user, ${tt},
${tt}text",
'!TabRelation' => "${tt}_id =
${tt}.id and ${tt}.user_id = user.id",
'language_id' =>
$r->param->language,
- '!Order' => 'creationtime
desc',
+ '!Order' => 'modtime desc',
$fdat{category_id} ? (category_id
=> $fdat{category_id}) : (),
$fdat{"${tt}_id"} ? ("${tt}_id"
=> $fdat{"${tt}_id"}) : (),
%state}) ;
@@ -844,7 +844,7 @@
$r -> {item_set} = DBIx::Recordset -> Search ({'!DataSource' => $r->{db},
'!Table' => "user, ${tt},
language, ${tt}text", # ${tt}text must be last to get it's id
'!TabRelation' => "${tt}_id =
${tt}.id and language_id = language.id and ${tt}.user_id = user.id",
- '!Order' => 'creationtime
desc',
+ '!Order' => 'modtime desc',
$fdat{category_id} ? (category_id
=> $fdat{category_id}) : (),
$fdat{"${tt}_id"} ? ("${tt}_id"
=> $fdat{"${tt}_id"}) : (),
%state}) ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
