A
aditya
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,
),
],
);
}
}
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,
),
],
);
}
}