Problem with Date::Calc

[simonpearce]

Hello,

An odd one I can't get round:

The first bit works but when I try to get Date::Calc to work with a date other than todays - it gives up!

use Date::Calc::Object qwall);

#THIS WORKS - using today():

if ($FORM{'Renew'} eq "month&quot {$newrenewdate = Date::Calc->today(), $newrenewdate += [0,1,0] };
if ($FORM{'Renew'} eq "quarter&quot {$newrenewdate = Date::Calc->today(), $newrenewdate += [0,3,0] };
if ($FORM{'Renew'} eq "year&quot {$newrenewdate = Date::Calc->today(), $newrenewdate += [1,0,0] };



#THIS DOESN'T! - using a variable:

$renewfromdate eq "$FORM{'OrderDate'}";

if ($FORM{'Renew'} eq "month&quot {$newrenewdate = Date::Calc->$renewfromdate, $newrenewdate += [0,1,0] };
if ($FORM{'Renew'} eq "quarter&quot {$newrenewdate = Date::Calc->$renewfromdate, $newrenewdate += [0,3,0] };
if ($FORM{'Renew'} eq "year&quot {$newrenewdate = Date::Calc->$renewfromdate, $newrenewdate += [1,0,0] };

 

[PaulTEG]

Simon,

Check your assignment method

$renewfromdate = "$FORM{'OrderDate'} not eq

HTH
Paul

 

[simonpearce]

Thank Paul - very bizzare this though:

Can't locate auto/Date/Calc/2003-04-12.al in @INC etc . . .

 

[PaulTEG]

Where's it coming up in execution?
Paul

 

[simonpearce]

Right after it's called - not stopping the script running - but displaying an error.

Simon

 

[simonpearce]

I'm still nowhere closer with this one - any Date::Calc experts out there?!

Simon

 

[PaulTEG]

Simon,

From your post

Can't locate auto/Date/Calc/2003-04-12.al in @INC etc

it would look like somehow you're calling the date as a procedure in Date::Calc

Can you post some code?

Paul

 

[simonpearce]

Sorry - this is what I've been using:

use Date::Calc qwall);

my $newrenewdate;
$renewfromdate = $FORM{'OrderDate'};


if ($FORM{'Renew'} eq "month&quot {$newrenewdate = Date::Calc->$renewfromdate, $newrenewdate += [0,1,0] };
if ($FORM{'Renew'} eq "quarter&quot {$newrenewdate = Date::Calc->$renewfromdate, $newrenewdate += [0,3,0] };
if ($FORM{'Renew'} eq "year&quot {$newrenewdate = Date::Calc->$renewfromdate, $newrenewdate += [1,0,0] };

 

[PaulTEG]

Yup,

with the code you posted I'm getting the same error.
Tried google for the error string, and the only thing that came up is what we're getting on TT.

I haven't read the dox for Date::Calc, and won't have time to before Sunday/monday

Advise you check out the documentation - I wouldn't think that a released module would only have one reported error

Sorry 'bout that
Paul

Ps I even installed Date::Calc, same error as yourself - looking for the date in a submodule

What format is 'OrderDate' expected in ...