Error in trigger

Question

Hi,
I am stuck with the error PLS-00103.
Actually what I want to do is, I have a table user_info which holds the details about the users like passwords.
Each time a user updates a password in the table, the new password should go into the varrying array old_passwords, which is an attribute in the table. If the number of passwords are equal to the size(i.e 10) of the array then,
the new password which is being updated should be checked whether it is already there in the last 10 passwords,
if it is there then I have to raise an exception, otherwise I have to trim the last password from the array and add the new password to the first position of the array.
And for inserting the passwords I have a procedure called add_password which takes a varying object and the new password as parameters. I have written the code in order to avoid the mutating table error.
I am showing all that I have done, I wil be very thankful, if anyone can suggest me a way to solve the problem.
-- Table user_info
create table User_Info(Name varchar2(20),
Passwd varchar2(10),
E_Mail varchar2(30) constraint email_pk primary key deferrable initially immediate,
Rank varchar2(20),
Country varchar2(30) constraint user_fk references country, Passwd_Change_Date date,
Last_Login date,
Old_Passwords Old_Passwds_Ty,
constraint uname_uq unique(name));
-- package to avoid mutating table error
create or replace package new_pas as
type pwd_ty is table of user_info%rowtype index by binary_integer;
upwd_table pwd_ty;
end new_pas;
--after row level trigger to store new values
create or replace trigger b_trig
after update of passwd on user_info
for each row
begin new_pas.upwd_table(new_pas.upwd_table.count+1).passwd:=:new.passwd; new_pas.upwd_table(new_pas.upwd_table.count+1).name:=:old.name;
end b_trig;
-- after statement level trigger
create or replace trigger trig_pass after update of passwd on user_info
begin
declare old_pass old_passwds_ty;
begin select old_passwords into old_pass from user_info where name=new_pas.upwd_table(new_pas.upwd_table.count+1).name;
if old_pass is null or old_pass.count<old_pass.limit then
add_password(old_passwds_ty('some'),new_pas.upwd_table(new_pas.upwd_table.count+1).passwd);
elsif old_pass.count=old_pass.limit then
for i in 1 .. old_pass.count loop
if old_pass(i)=new_pas.upwd_table(new_pas.upwd_table.count+1).passwd then raise exceptions_package.Invalid_password;
end if;
end loop;
add_password(old_passwds_ty('some'),new_pas.upwd_table(new_pas.upwd_table.count+1).passwd);
new_pas.upwd_table.delete;
end if;
end trig_pass;
-- The error while compiling this trigger is:
37/0 PLS-00103: Encountered the symbol "end-of-file" when expecting one of the follow ing: begin case declare end exception exit for goto if loop mod null pragma raise return select update while with ><an identifier> << close current delete fetch lock insert open rollback savepoint set sql execute commit forall merge pipe
-- The body of add_password is:
create or replace procedure Add_password(user_pwd old_passwds_ty,pwd user_info.passwd%type) is
new_pass old_passwds_ty;
u_pwd old_passwds_ty;
begin
u_pwd:=user_pwd;
for rec in (select old_passwords from user_info) loop
u_pwd:=rec.old_passwords;
if u_pwd is null then
new_pass:=old_passwds_ty(pwd);
elsif u_pwd.count=u_pwd.limit then
new_pass:=old_passwds_ty(pwd);
u_pwd.trim;
for i in 1 .. u_pwd.count loop
new_pass(i+1):=u_pwd(i);
end loop;
exit;
end if;
end loop;
update user_info set old_passwords=new_pass; end add_password;
Thanks for reading, I will be very thankful, If I can get a solution

Answer 1

-- after statement level trigger
create or replace trigger trig_pass after update of passwd on user_info
begin
declare old_pass old_passwds_ty;
begin select old_passwords into old_pass from user_info where name=new_pas.upwd_table(new_pas.upwd_table.count+1).name;
if old_pass is null or old_pass.count<old_pass.limit then
add_password(old_passwds_ty('some'),new_pas.upwd_table(new_pas.upwd_table.count+1).passwd);
elsif old_pass.count=old_pass.limit then
for i in 1 .. old_pass.count loop
if old_pass(i)=new_pas.upwd_table(new_pas.upwd_table.count+1).passwd then raise exceptions_package.Invalid_password;
end if;
end loop;
add_password(old_passwds_ty('some'),new_pas.upwd_table(new_pas.upwd_table.count+1).passwd);
new_pas.upwd_table.delete;
end if;
end;
end trig_pass;
Need one more end;
/