Schrift
Start · Board · Beiträge im Abseits · Perl-Community.de
[thread]9287[/thread]

Änderungsvorschläge: Änderungs- und Verbesserungsvorschläge (Seite 11)

Leser: 1


<< |< 1 ... 8 9 10 11 12 13 14 ... 66 >| >> 656 Einträge, 66 Seiten
esskar
 2003-08-06 21:32
#92482 #92482
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=DS,06. 08 2003,19:27]Ah, schon besser, danke, aber ich hab's nochmal ein wenig verändert, kannst du dir das auch mal anschaun?[/quote]
was bringt das?

if ( $PageNo != $Pages ) { $row->{'PAGES'} .= qq[ ] }\n\n

<!--EDIT|esskar|1060191148-->
esskar
 2003-08-06 21:33
#92483 #92483
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=esskar,06. 08 2003,19:32][quote=DS,06. 08 2003,19:27]Ah, schon besser, danke, aber ich hab's nochmal ein wenig verändert, kannst du dir das auch mal anschaun?[/quote]
was bringt das?

if ( $PageNo != $Pages ) { $row->{'PAGES'} .= qq[ ] }[/quote]
ahja...
jetzt weiß ich es!
esskar
 2003-08-06 21:40
#92484 #92484
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
sieht jetzt so aus

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
$row->{'PAGES'} = qq[($Forum::lang->{topic_sp_pages} ];
for my $i (0 .. $Pages-1)
{
   my $RealNo = $i * $iB::INFO->{'DISPLAY_MAX_POSTS'};
   my $PageNo = $i + 1;
   if ( ( $PageNo == 3 ) && ( $Pages > 3 ) ) { $row->{'PAGES'} .= qq[... ]; next }
   if ( ( $PageNo == 3 ) && ( $Pages > 3 ) ) { $RealNo = ($Pages - 1) * $iB::INFO->{'DISPLAY_MAX_POSTS'} }
   $row->{'PAGES'} .= qq[<a href='$iB::INFO->{'BOARD_URL'}/ikonboard.$iB::INFO->{'CGI_EXT'}?s=$iB::SESSION;act=ST;f=$row->{'FORUM_ID'};t=$row->{'TOPIC_ID'};hl=$row->{KEYWORDS};st=$RealNo'>$PageNo</a>];
    $jump_to = $RealNo;

   last if $PageNo == 4;
   $row->{'PAGES'} .= qq[ ] if $PageNo != $Pages;
}
$row->{'PAGES'} .= qq[)];


edit: tabs werden nicht berücksichtigt!\n\n

<!--EDIT|esskar|1060191709-->
DS
 2003-08-06 21:46
#92485 #92485
User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]
[quote=esskar,06. 08 2003,19:40]sieht jetzt so aus

Code: (dl )
1
2
3
4
[...]
   if ( ( $PageNo == 3 ) && ( $Pages > 3 ) ) { $row->{'PAGES'} .= qq[... ]; next }
   if ( ( $PageNo == 3 ) && ( $Pages > 3 ) ) { $RealNo = ($Pages - 1) * $iB::INFO->{'DISPLAY_MAX_POSTS'} }
[...]
[/quote]
Da sollte aber nicht zweimal das selbe stehen...

Edit: Du wolltest es auf 4 "Stellen" begrenzen, oder? Falls dem so ist:

Code: (dl )
1
2
3
4
[...]
   if ( ( $PageNo == 3 ) && ( $Pages > 4 ) ) { $row->{'PAGES'} .= qq[... ]; next }
   if ( ( $PageNo == 4 ) && ( $Pages > 4 ) ) { $RealNo = ($Pages - 1) * $iB::INFO->{'DISPLAY_MAX_POSTS'} }
[...]
\n\n

<!--EDIT|DS|1060192239-->
esskar
 2003-08-06 21:48
#92486 #92486
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=DS,06. 08 2003,19:46][quote=esskar,06. 08 2003,19:40]sieht jetzt so aus

Code: (dl )
1
2
3
4
[...]
   if ( ( $PageNo == 3 ) && ( $Pages > 3 ) ) { $row->{'PAGES'} .= qq[... ]; next }
   if ( ( $PageNo == 3 ) && ( $Pages > 3 ) ) { $RealNo = ($Pages - 1) * $iB::INFO->{'DISPLAY_MAX_POSTS'} }
[...]
[/quote]
Da sollte aber nicht zweimal das selbe stehen...[/quote]
das stimmt wohl...
denk dir ne 4!
DS
 2003-08-06 22:00
#92487 #92487
User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]
[quote=esskar,06. 08 2003,19:48]denk dir ne 4![/quote]
Ich denke da eher an 3 4er, siehe Edit des vorherigen Postings...

Nachtrag: War der Fehler im Script vorhin grad meine Schuld?\n\n

<!--EDIT|DS|1060192921-->
esskar
 2003-08-06 22:20
#92488 #92488
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
nein $Pages ist immer eins zu groß!
DS
 2003-08-06 22:22
#92489 #92489
User since
2003-08-04
247 Artikel
BenutzerIn
[default_avatar]
[quote=esskar,06. 08 2003,20:20]nein $Pages ist immer eins zu groß![/quote]
Stimmt, aber $PageNo auch... doppelte Verwirrung...

Aber ich hab's nochmal verändert:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
$row->{'PAGES'} = qq[($Forum::lang->{topic_sp_pages} ];
foreach my $PageNo (1..$Pages) {
  my $RealNo = ($PageNo - 1) * $iB::INFO->{'DISPLAY_MAX_POSTS'};
  if ( ( $PageNo == 3 ) && ( $Pages > 4 ) ) { $row->{'PAGES'} .= qq[... ]; $RealNo = ($Pages - 1) * $iB::INFO->{'DISPLAY_MAX_POSTS'} }
  $row->{'PAGES'} .= qq[<a href='$iB::INFO->{'BOARD_URL'}/ikonboard.$iB::INFO->{'CGI_EXT'}?s=$iB::SESSION;act=ST;f=$row->{'FORUM_ID'};t=$row->{'TOPIC_ID'};hl=$row->{KEYWORDS};st=$RealNo'>$PageNo</a>];
  $jump_to = $RealNo;
  if ( ( $PageNo == 3 ) && ( $Pages > 4 ) ) { last }
  if ( $PageNo != $Pages ) { $row->{'PAGES'} .= qq[ ] }
}
$row->{'PAGES'} .= qq[)];


Edit: Noch eine Veränderung...\n\n

<!--EDIT|DS|1060194314-->
Crian
 2003-08-07 03:15
#92490 #92490
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
pq,06.08.2003,18:50
Crian,06.08.2003,18:27
Ich bin dafür, dass die Meldung über das Editieren nur dann kommt, wenn zwischen Ursprungspostzeit und Editieren mehr als 2 Minuten vergangen sind.

Ich jedenfalls seh oft nach dem Posten noch Tippfehler und korrigier sie dann schnell. Das würde dann nicht so auffallen ;)

ähm, wie wärs mit vorschau?
und ein kleines "edit: typo" reicht doch...

Vorschau? Ja schon, aber ich bin oft so ungeduldig / gehetzt, dass ich die Fehler in der Vorschau überseh und sie mir erst im fertig geposteten Text auffallen :-|

strat,06.08.2003,19:19
@Crian: grundsaetzlich eine gute Idee, aber ich fuerchte, das musst du coden

Hmmm ja mal sehen... wo ist denn der Board-Code? Dann kann ich mir ja mal ansehen, wie hoch ich meine Chancen schätze da was eingebaut zu bekommen ^^
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
esskar
 2003-08-07 03:50
#92491 #92491
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
@DS: bist du mit dem resultat nicht zufrieden?
<< |< 1 ... 8 9 10 11 12 13 14 ... 66 >| >> 656 Einträge, 66 Seiten



View all threads created 2003-08-04 15:35.