sub subcatpreis {
                my $index = $_[0];

my $pre = ssp::db_get_prefix();
my $ISCAT = $pre . "ISCAT";
my $sc = 4; # gewünschter Subkatalog
                my $id = ssp::get_var_article('id',$index);
my $sql = qq{
 SELECT $ISCAT.PRICE
 FROM $ISCAT WHERE $ITEM.ITENID = '$id' AND  $ISCAT.SCID = $sc
 };
my $read = ssp::readSQLData($sql, "_PREIS");
                my $subcatpeis = ssp::get_var_db("_PREIS", 0);
                main::mprint(main::fp($subcatpeis));
}