<% $user = $main::User; $screenTitle="Select Calendar"; require "calendars.inc"; $calendars = &main::GetAllCalendars($main::calendars_file); $count = grep( $user->isCalendarAdmin($_->{'key'}) , @$calendars ); %> ">
<% if ($count) { %>

Select Calendar

<% foreach $cal (sort {$a->{name} cmp $b->{name}} @$calendars) { %> <% if ($user->isCalendarAdmin($cal->{'key'})) { %> <% } %> <% } %>

	Name	Description
CHECKED<%}%>>	<%= $cal->{name} %>	<%= $cal->{description} %>

<% } else { %> You do not have permissions to administer any calendars.

<% } %>