Dynamische Buttons - #46315 (Graphische Oberflächen)

PerlProfi

2007-04-25 20:15

User since
2006-11-29
340 Artikel
BenutzerIn
[default_avatar]

Wenn sie später nicht verändert werden, musst du sie natürlich nicht speichern, benutze stattdessen ein anon. Array als Wert für -command.

Also anstatt:

Code: (dl )

-command => sub { print $produktnr[$button];if (readini($produktnr[$button], AKTIV, 'produkte.ini') == 1) {
               
               
            print "bindrin";$wahl = readini($produktnr[$button], NAMEBON, 'produkte.ini');
               
               
            $wert = readini($produktnr[$button], PREIS, 'produkte.ini');
               
               
            $pfand_kz = readini($produktnr[$button], PFAND, 'produkte.ini');
               
               
            $pfand_wert = readini($produktnr[$button], PFANDWERT, 'produkte.ini');
               
               
            $pid = 0; for($i=0;$i<$menge_wahl;$i++) { &ausgabesumme; &print;}
               
               
            $storno_kz = 0; $menge_wahl = 1;}
               
               
            }

Schreibst du dir eine Subroutine (z.B. button_callback) und übergibst ihr folgendermaßen die benötigten Werte:

Code: (dl )

-command => [\&button_callback, $produktnr[$button]]

Das Problem gab es schon mal in einem früheren Thread.
Da hat Sucher erklärt, dass man in solchen Fällen keine anon. Subroutine mit den globalen Variablen verwenden kann.

MfG\n\n