Select Code to Download

sub passwd {
...
        my $passwdo = $ppr->as_crypt;
        return $passwdo;
        }

my $rela ... #This is the module that is "multi-level" and the DB part
+ has passwd function in it
...
...
        my $pass_clear=param('pass');
        my $password=$rela->passwd($pass_clear);
        $rela->do('INSERT INTO uzivatele (jmeno,prijmeni,heslo,login,s
+tav_uctu,skupina,vytvoren) VALUES (?, ?, ?, ?, 2, \'user\', CURRENT_T
+IMESTAMP)', param('jmeno'), param('prijmeni'), $password, param('logi
+n'));