Parent Directory | Revision Log | Patch
revision 1164 by dpavlin, Wed Jul 1 21:47:04 2009 UTC | revision 1165 by dpavlin, Thu Jul 2 18:28:17 2009 UTC | |
---|---|---|
# | Line 16 sub send { | Line 16 sub send { |
16 | ||
17 | $sth->execute($email); | $sth->execute($email); |
18 | ||
19 | die "can't find registered user with e-mail $email" unless $sth->rows == 1; | die qq|<error>Can't find registered user with e-mail $email| unless $sth->rows == 1; |
20 | ||
21 | my ($ime,$prezime) = $sth->fetchrow_array; | my ($ime,$prezime) = $sth->fetchrow_array; |
22 | my $to = qq{"$ime $prezime" <$email>}; | my $to = qq{"$ime $prezime" <$email>}; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |