Subversion Repositories VORC

Rev

Rev 121 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 121 Rev 153
Line 87... Line 87...
87 
sub updateDBPass {
 87 
sub updateDBPass {
88 
	my ($EM, $STR) = @_;
 88 
	my ($EM, $STR) = @_;
89 
	use DBI;
 89 
	use DBI;
90 
	use WebDB;
 90 
	use WebDB;
Line 91... Line 91...
91
91
Line 92... Line 92...
92 
	my $dbh = WebDB->connect;
 92 
	my $dbh = WebDB::connect;
93
93
Line 94... Line 94...
94 
	my ($test) = $dbh->selectrow_array("select count(*) from official where email = ?", undef, $EM);
 94 
	my ($test) = $dbh->selectrow_array("select count(*) from official where email = ?", undef, $EM);