% our %TEMP_UMFRAGE; # Aus der Session die uid und Email laden require SE::Adressbuch::Adressen; my $benutzer ; if ( $in{session} ) { $benutzer = getAdressen( session => $in{session} ); # Email für das Formular bereit stellen $TEMP_UMFRAGE{email} = $benutzer->{email}; # uid für das Formular bereit stellen $TEMP_UMFRAGE{uid} = $benutzer->{uid}; } return ""; %>