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));
}