Aufgabe:
Bei (schlechten) Bewertungen soll der Shopbetreiber den Eintrag kommentieren können.

Lösung:

1) in reviewuser.ipl diese Zeile suchen
# Einlesen der Datenbank und Ausgabe der bisher für den jeweiligen Artikel abgegebenen Bewertungen
und hier dann
my $bewe = ssp::qform(ssp::get_var_db("bw", $i));
ersetzen mit
my $bewe_original = ssp::qform(ssp::get_var_db("bw", $i));
my ($bewe, $antwort) = split /!_!/, $bewe_original;

2)  die Zeile
my $tmp2 = qq{
suchen und oberhalb das einfügen:
my $showantwort;
if (length ($antwort)) {$showantwort = qq|
<tr>
<td class="" colspan="2"  style="font-size: 14px; color:black; background: #FDFACC; padding: 10px; border: 1px dotted gray; padding-left: 25px;"><div class="reviewtd"><b>Shopbetreiber antwortet:</b></div> <div style="font-style: italic; padding-left: 5px;">$antwort</div></td>
</tr>|;}
(gewünschten Text und style anpassen)

und dann noch das $showantwort in die Ausgabe-Tabelle einfügen
my $tmp2 = qq{

<table cellspacing="0" cellpadding="0" border="0" class="reviewtable">
<tr>
<td class="reviewtd"><b>$name</b> aus $location,  <br> bewertete den Artikel am $date2:<br><span>$pic2</span></td>
<td class="reviewtd"> <span> $ranking </span></td>
</tr>
<tr>
<td class="" colspan="2"  style="font-size: 14px; color:black; background: #ffffff; padding: 10px; border: 1px dotted gray;"><span>$bewe</span></td>
</tr>
$showantwort
<tr>
<td colspan="2" class="reviewhelpful"> Von $helpges Kunden fanden $helpfulyes diese Bewertung hilfreich</td>
</tr>
<tr>
<td class="reviewfooter"> $text</td>
<td class="reviewfooter"> $buttons </td>
</tr>
</table>
};

main::mprint $tmp2;

Das !_! im Editfenster splittet den Text und schreibt den Kommentar als Antwort unter die Bewertung