% &main::checkPermissions("","CALENDAR_SETTINGS"); $screenTitle="Calendar Settings"; $config = $main::Config; ($day_name_0,$day_name_1,$day_name_2,$day_name_3,$day_name_4,$day_name_5,$day_name_6) = @{$config->get("day_names")}; ($day_abbreviation_0,$day_abbreviation_1,$day_abbreviation_2,$day_abbreviation_3,$day_abbreviation_4,$day_abbreviation_5,$day_abbreviation_6) = @{$config->get("day_abbreviations")}; ($month_name_0,$month_name_1,$month_name_2,$month_name_3,$month_name_4,$month_name_5,$month_name_6,$month_name_7,$month_name_8,$month_name_9,$month_name_10,$month_name_11) = @{$config->get("month_names")}; ($month_abbreviation_0,$month_abbreviation_1,$month_abbreviation_2,$month_abbreviation_3,$month_abbreviation_4,$month_abbreviation_5,$month_abbreviation_6,$month_abbreviation_7,$month_abbreviation_8,$month_abbreviation_9,$month_abbreviation_10,$month_abbreviation_11) = @{$config->get("month_abbreviations")}; $dir = $main::templates_dir . "calendars/"; if (-d $dir) { opendir(DIR,$dir); while($f = readdir(DIR)) { if (($f !~ /^\.\.?$/) && (-d $dir.$f)) { push(@template_dirs,$f); } } closedir(DIR); } $template_dirs_list=new HTML::optionList(); $template_dirs_list->addSimpleOptions(@template_dirs); $template_dirs_list->setSelectedValue($Config->get("template_dir")); %>