convert_date function awaits this format: 08-Jan-2000
and returns this format: 2000-01-08
Your date format is: 08-01-2000
So you need to reverse it. In L2S2.pm, within the import() function, do the following changes.
Around line 510 replace this:
to
my (@xdate) = split /-/, $in, 3;
$date = join "-", reverse @xdate;
Around line 619 replace this:
to
my (@xdate) = split /-/, $in, 3;
$date = join "-", reverse @xdate;
Note, I did not try the code.
But logically it should work.
Best regards,
Webmaster33
Paid Support from Webmaster33. Expert in Perl programming & Gossamer Threads applications. (click here for prices)
Webmaster33's products (upd.2004.09.26) | Private message | Contact me | Was my post helpful? Donate my help...
and returns this format: 2000-01-08
Your date format is: 08-01-2000
So you need to reverse it. In L2S2.pm, within the import() function, do the following changes.
Around line 510 replace this:
Code:
$date = convert_date($date) or warning("Invalid date for link with ID $id. Link skipped."),next; Code:
# $date = convert_date($date) or warning("Invalid date for link with ID $id. Link skipped."),next; my (@xdate) = split /-/, $in, 3;
$date = join "-", reverse @xdate;
Around line 619 replace this:
Code:
$date = convert_date($date) or warning("Invalid date `$date' for link with ID $id. Link skipped."),next; Code:
#$date = convert_date($date) or warning("Invalid date `$date' for link with ID $id. Link skipped."),next; my (@xdate) = split /-/, $in, 3;
$date = join "-", reverse @xdate;
Note, I did not try the code.
But logically it should work.
Best regards,
Webmaster33
Paid Support from Webmaster33. Expert in Perl programming & Gossamer Threads applications. (click here for prices)
Webmaster33's products (upd.2004.09.26) | Private message | Contact me | Was my post helpful? Donate my help...