> sub settings_smi_edit {
> $storeline = $q->param('id');
>
> open(FILE, "info/smileset.txt");
> @file = ;
> close(FILE);
>
> foreach $i (@file) {
> ($number, $image, $name, $text, $used) = split(/\|/,
> $i);
> if ($number eq $storeline) {
> @numb = ($number, $image, $name, $text, $used);
> }
>
sub settings_smi_edit {
$storeline = $q->param('id');
open(FILE, "info/smileset.txt");
@file = ;
close(FILE);
foreach $i (@file) {
($number, $image, $name, $text, $used) = split(/\|/,
$i);
if ($number eq $storeline) {
@numb = ($number, $image, $name, $text, $used);
}
}
}
Ok that I been tryin