Calendar Administration : <%= $screenTitle %>

<% &main::checkPermissions("_global","ADMIN_SETTINGS"); $screenTitle="Admin Interface"; $dir = $main::BASE_DIR . "templates/admin/"; if (-d $dir) { opendir(DIR,$dir); while($f = readdir(DIR)) { if (($f !~ /^\.\.?$/) && (-d $dir.$f)) { push(@admin_template_dirs,$f); } } closedir(DIR); } $admin_template_dirs_list=new HTML::optionList(); $admin_template_dirs_list->addSimpleOptions(@admin_template_dirs); $admin_template_dirs_list->setSelectedValue($AdminConfig->get("admin_template_dir")); require "calendars.inc"; $calendars = &main::GetAllCalendars($main::calendars_file); $calendars_list=new HTML::optionList(); #foreach $cal (sort {$calendars->[$a]->{name} cmp $calendars->[$b]->{name}} @$calendars) { foreach $cal (@$calendars) { $calendars_list->addOption($cal->{key},$cal->{name}); } $calendars_list->setSelectedValue($AdminConfig->get("default_calendar")); %> Calendar Administration : <%= $screenTitle %> <% if ($userMessage ne "") { %> <% } %>

Calendar Administration<%if($screenTitle){%> : <%=$screenTitle%><%}%>

<% if (defined $Session && ($Session->getValue('username') ne "")) { %>

<%= ($Session->getValue('name') || $Session->getValue('username')) %> [Logout]

<% } %>

<%= $userMessage %>

Admin Template Language:

Default Calendar to Display:

<% foreach $style( ["page-background-color","Page Background Color","page-background-color","backgroundColor"], ["button-background-color","Button Background Color","button","backgroundColor"], ["button-text-color","Button Text Color","button","color"], ["table-border-color","Table Border Color","table-border-color","borderColor"], ["title-bar-background-color","Title Bar Background Color","title-bar-background-color","backgroundColor"], ["title-bar-font-color","Title Bar Font Color","title-bar-font-color","color"], ["highlight-background-color","Highlighted Area Background Color","highlight-background-color","backgroundColor"], ["user-message-font-color","User Message Font Color","user-message-font-color","color"], ["table-background-color","Main Table Background Color","table-background-color","backgroundColor"] ) { $value = $style->[0]; $linkname = $value; $linkname =~ s|-|_|g; $name = $style->[1]; $classname = $style->[2]; $style_prop = $style->[3]; %> <% } %>

<%= $name %> :

Pick...