«

Hi,
I am new to perl and I belive the following code has a problem. Can
someone tell me what? The stuff I want to add in the html page (inside
the 'if' condition below), it doesnt come at all!

Please help!

Aditya


################################################## ############################
package App:ialog::Field::Scheduling::ReoccuringAppts;
################################################## ############################

use strict;
use base qw{CGI:ialog::ContentItem};
use CGI:ialog;
use CGI::Validator::Field;
use base qw{CGI:ialog::MultiField};

sub new
{
my ($type, %params) = @_;

#added

my $temp=$params{val};

if ($temp eq '1')
{
return CGI:ialog::MultiField::new($type, %params,
fields => [
new CGI:ialog::Field(caption => "Appointments Interval",
name => "appt_Interval",
choiceDelim =>',',
selOptions => q{Day:0, Week:1, 2 Weeks:2, Month:3, 2 Months:4, 6
Months:5, Year:6},
type => 'select',
),

new App:ialog::Field::Scheduling:ate(caption => "Termination
Date",
name => "Term_date",
options => FLDFLAG_REQUIRED,
),
],
);
}
}

On 27 Nov 2003 20:48:32 -0800, (aditya) wrote:

>Hi,
>I am new to perl and I belive the following code has a problem. Can
>someone tell me what? The stuff I want to add in the html page (inside
>the 'if' condition below), it doesnt come at all!
>
>Please help!
>
>Aditya
>
>
>################################################# #############################
>package App:ialog::Field::Scheduling::ReoccuringAppts;
>################################################# #############################
>
>use strict;
>use base qw{CGI:ialog::ContentItem};
>use CGI:ialog;
>use CGI::Validator::Field;
>use base qw{CGI:ialog::MultiField};
>

We'd help you, but...where is the source to these modules available? I do not
see them on CPAN.


---
Use the domain skylightview (dot) com for the reply address instead.