projekt kivitendo

Admin-Controller: Anlegen der Vollzugriffs-Gruppe gefixt

Nach dem Anlegen einer neuen Auth-DB und neuer Session-Tabellen sollte
eigenlich auch eine Gruppe namens »Vollzugriff« angelegt werden, die
Zugriff auf alle Funktionen bekommt — wurde sie aber nicht.

Es gab gleich zwei Probleme mit dem Code:

1. Die Funktion »apply_dbupgrade_scripts« gab nach dem Anlegen der
Session-Tabellen den Wert 1 zurück (im Sinne von »es wurden
DB-Upgrade-Scripte angewandt«). Das hat der aufrufende Code aber
als Gelegenheit genutzt, um den Request zu beenden, bevor der Code
zur Prüfung, ob es schon Gruppen gibt, überhaupt ausgeführt wurde.

Hintergrund ist, dass
   »SL::DBUpgrade2->apply_admin_dbupgrade_scripts« selber schon eine
   Webseite rendert und die aufrufende Funktion im Controller das dann
   nicht auch noch machen wollte.

Doof nur, dass diese Funktion im Controller dann nie wieder
   aufgerufen wurde.

2. Der Test, ob es schon eine Gruppe gibt oder nicht, war falsch. Der
Code sollte eigentlich eine beliebige Gruppe auslesen und der
Variablen »$group« zuweisen. Was der Code aber gemacht hat, war eine
Referenz auf ein leeres Array der Variablen zuzuweisen. Der
nachfolgende Check auf »ist $group nicht gesetzt?« hat dann
natürlich nicht gegriffen, denn auch eine leere Array-Referenz ist
im Perl-Sinne wahr.