Hallo nochmal,
ein neuer Versuch:
in reviewuser.ipl
.........
##Vorbereiten der Eingabemaske für Bewertungen
my $temp = qq{
<form name="formular1" method="post" action="__xxpath__?show$page,__xxsession__,$id2">
.........
.........
<tr>
<td colspan="2"><textarea rows="15" cols="85"
name="neu" wrap="hard" class="reviewasmall" maxlength="8000"></textarea>
</td>
<input type="hidden" name="cmd" value="hinzu">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="item" value="$id">
<input type="hidden" name="neu" value="neu"> </tr>
<tr>
<td valign="top">Es sind maximal 8000 Zeichen erlaubt
<a href="
http://www.woll-insel.at/cgi-bin/shop2/iboshop.cgi?show1200004700">Vorschau</a> </b></td>
<td><input type="submit" value="Beitrag abschicken">
</td>
</tr>
</table>
</form>
.........
#Versuch für Vorschauausgabe
sub Vorschau {
my $vbewe = ssp::get_var_form("neu"); #Zeichen ersetzen
$vbewe =~ s/</</g;
$vbewe =~ s/>/>/g;
############
$vbewe =~ s/\[b\]/<b>/g; ## Ersetzen der vorgefertigten Formatierungs-Tags
$vbewe =~ s/\[\/b\]/<\/b>/g;
.........
.........
my $vtmp = qq|
<br>
<table>
<tr>
<td class="reviewtdtxt" width="90%">$vbewe</td>
</tr>
</table>
|;
main::mprint $vtmp;
}
Ausgabe auf der Vorschau.html Seite mit
<!--spmacro:include(review_modul/inc/reviewuser.ipl)--> und
__reviewuser::Vorschau__
ergibt "undefined"Was mache ich falsch