return 0;
}
fill_generate_calendar();
sub fill_generate_calendar {
my $script = C4::Context->config('intranetdir') . '/misc/generate_discrete_calendar.pl';
`perl $script`
exit;
-