"(" und ")" nicht anzeigen

[dobra]

Hallo,

In meinem benutzerdef. Feld MARKE steht der Herstellername in Klammer - z.B. (Lana Grossa)
Das soll auch überall wo ich diesen Identifier benutze so ausgegeben werden außer in der Herstellersuche

Code [Auswählen] Expand

<!--spmacro:module(hersteller)
$m_col = "MARKE"; ## Spalte, die Hersteller enthält
sub suche {
my $pre = ssp::db_get_prefix();
my $ITEM = $pre . "ITEM";
my $sql = qq{
SELECT DISTINCT $ITEM.$m_col
FROM $ITEM
WHERE $ITEM.$m_col<>''
ORDER BY $ITEM.$m_col ASC};
my $read = ssp::readSQLData($sql, "_MARKE");
my $old = ssp::get_var_form("suchbegriff");
my $out = qq{
<form name="SchnellsucheHersteller" id="SchnellsucheHersteller" method="post" action="__xsuchen__">
<input type="hidden" name="suchkategorie" value="000000000000010000">
<select class="boxtext" name="suchbegriff" style="width:110px;" onchange='javascript:document.SchnellsucheHersteller.submit();'>
};

for (my $i = 0; $i < $read; $i++) {
my $h = ssp::get_var_db("_MARKE", $i);
my $sel = " ";
if ($h eq $old) { $sel = " selected ";}
$out .= qq{<option value="$h" $sel>$h</option>
};
}
$out .= qq{
</select>
<noscript><input type="submit" value="go"></noscript>
</form>
};
main::mprint $out;
}

-->

Wie muß ich das schreiben, damit bei $h die Klammern "(" und ")" nicht angezeigt werden?
(hab das schon mal wo gelesen, aber ich finde es nicht mehr)

[ahe]

Hallo dobra,

das sollte so gehen

Code [Auswählen] Expand


    for (my $i = 0; $i < $read; $i++) {
        my $h = ssp::get_var_db("_MARKE", $i);
        my $sel = " ";
        if ($h =~ /^\((.*)\)$/) { $h = $1; }
        if ($h eq $old) { $sel = " selected ";}
        $out .= qq{<option value="$h" $sel>$h</option>
        };
    }


[dobra]

 DANKE - :D