<!--spmacro:module(check)
sub wkkategorie {
my $out;
my $index = $_[0];
my $anzahl = $_[1];
for (my $i = 0;$i <= $anzahl;++$i) {
my $inwk = ssp::get_var_cart('KATEG',$i);
if ($inwk !~ /die_Kategorie_für_die_der_GS_gelten_soll/) {
Gutschein "_GS_irgendwas" löschen
}
}
}
-->

my $out;
...
if (Bedingung) {
$out = qq|
               <form method="post" action=__xanzaendern__>
                  <input type ="hidden" name="_GS_irgendwas" value="">
               </form>
|;
} else { $out = qq|
               <form method="post" action=__xanzaendern__>
                  <input name="__xid__" style="width:25px;" size="1" maxlength="3" value="__anzahl__">
                  <input type="submit" class="anzae" value="" title="Anzahl ändern">
               </form>
  |;
   }
main::mprint $out;    
}
}