How to write a nested if-statement



Hello,

I'm a beginner to Perl, and I'm trying to modify some existing code by
placing an if-statement within another if statement. I get an error
when I try using this code:

LOOP
IF v_last_heading <> cr_option.HEADING THEN
IF v_last_heading <> 'Action Type' THEN
v_opt_return := v_opt_return || '<TR><TH COLSPAN="3"
class="formheader"><div align="left"><font color="red">*</font>' ||
cr_option.HEADING || '</div></TH></TR>';
v_option_count := 0;
END IF;

The error I get is:

Line No. 162 : PLS-00103: Encountered the symbol "LOOP" when expecting
one of the following:

if
(WWV-17050)
Line No. 238 : PLS-00103: Encountered the symbol "end-of-file" when
expecting one of the following:


Any help would be greatly appreciated. Thanks!

Rick

.



Relevant Pages

  • Re: Perl / MySql / Shopping cart
    ... >> Has anyone on this message group ever thought of modifying, ... It is simple in its design (even I can modify it ... > I added a Perl html whitespace remover and installed a Squid reverse proxy ... Tony M ...
    (comp.lang.perl.misc)
  • Re: Pass by reference question
    ... didn't mention that using prototypes changes the picture. ... Perl always passes parameters by ... Thus, when you modify a member of @_, you modify the ... without worrying about changing the arguments in the caller. ...
    (comp.lang.perl.misc)
  • Re: foreach loop problem
    ... I am not getting this error with earlier versions of Perl. ... > # If any element of LIST is an lvalue, you can modify it by ... > to variables holding those values. ...
    (comp.lang.perl.misc)
  • Re: Text parsing pb.
    ... >>I'm newbie in Perl and I need some help to modify a .tex file; ...
    (comp.lang.perl.misc)
  • Re: How to find uploaded data size from content-length
    ... modify it under the same terms as Perl itself. ... When you "modify", you let the orignal copyright and add something ... prog.cgi on which my upload code is based" ... terms as Perl itself" doesn't talk about copy, but modificaton only! ...
    (comp.lang.perl.misc)