Haaaaaaay,
Daar ben ik weer met me ringtones, maar nu met een ander probleem. Alle ringtones worden nu dus netjes gesorteerd in een hash depropt, maar nou wil ik zo'n Vorige - volgende syteem. ik heb nu dit:
Maar nu poept ie helemaal geen ringtones meer uit
Iemand een suggestie???
Daar ben ik weer met me ringtones, maar nu met een ander probleem. Alle ringtones worden nu dus netjes gesorteerd in een hash depropt, maar nou wil ik zo'n Vorige - volgende syteem. ik heb nu dit:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
| elsif ($FORM{'sort'} eq "artist") {
foreach $line(@lines) {
chomp($line);
($ringid,$cat,$artist,$title,$rtttl,$hits) = split(/\|/,$line);
$artist = lc($artist);
@letters = split(//,$artist);
if ($FORM{'letter'} eq $letters[0]){
$TONES{$ringid} = $artist;
}
}
$count = 0;
if($FORM{'startid'} eq "") {
$einde = 10;
$FORM{'startid'} = 0;
} else {
$einde = $FORM{'startid'} + 9;
}
foreach (sort { $TONES{$a} cmp $TONES{$b} } keys %TONES) {
#
foreach $line(@lines) {
chomp($line);
($ringid,$cat,$artist,$title,$rtttl,$hits) = split(/\|/,$line);
if ($_ eq $ringid){
if (($count > $FORM{'startid'}) && ($count < $einde)) {
print qq~
<Tr bgcolor=#FFFFFF>
<Td>$artist</td>
<Td>$title</td>
<Td><img></td>
</tr>
~;
$count++;
}
}
}
# print "key: $_, value: $TONES{$_}"
}
} |
Maar nu poept ie helemaal geen ringtones meer uit
Iemand een suggestie???