<% require "SimpleDateFormat.pm"; &main::checkPermissions("","EDIT_EVENTS","EDIT_OWN_EVENTS"); $screenTitle = "Edit Events"; $events_db = new DBFile($main::events_db); $schedule_db = new DBFile($main::schedule_db); $month = $main::in{'month'} || (localtime(time+$main::localtime_offset))[4]+1; $year = $main::in{'year'} || (localtime(time+$main::localtime_offset))[5]+1900; $search = $main::in{'search'}; $properties = {}; $dateFormat = $Config->get("date_format"); %> Calendar Administration : <%= $screenTitle %> ">

<<     >>


<% if ($search) { %> <% } else { %> <% } %> <% unless ($user->hasPermission($cal,"EDIT_EVENTS")) { $properties->{'my_events'} = 1; } if ($search) { $events = &Event::search($events_db,$schedule_db,$search,$properties); $monthnames = $Config->get("month_abbreviations"); } else { $properties->{'range'} = 'month'; $properties->{'month'} = $month; $properties->{'year'} = $year; $events = &Event::getEvents($events_db,$schedule_db,$properties); } $total = 0; foreach $e (sort { $a->{'schedule'}->{'start'} <=> $b->{'schedule'}->{'start'} } @$events) { $total++; $id = $e->{'details'}->{'id'}; $nextoccurrence = $e->{'schedule'}->{'nextoccurrence'}; $title = $e->{'details'}->{'title'}; $date = &Date::LZ($e->{'schedule'}->{'date'}); $start = $e->{'schedule'}->{'start_time'}; $start = &Date::formatTime($start,$Config->get("time_format")); $all_day = $e->{'schedule'}->{'all_day'}; if ($all_day) { $start = "(All Day)"; } $recurrence_id = $e->{'schedule'}->{'recurrence_id'}; $recurrence_type = $e->{'schedule'}->{'recurrence_type'}; $occurrence_id = $e->{'schedule'}->{'id'}; %> <% if ($search) { %> <% } else { %> <% } %> <% } %> <% if ($total==0) { %> <% } %>
ActionID Next OccurrenceStart Date - TimeEvent Title
')"> ')"> ')"> <%= $id %> <% if ($nextoccurrence) { %> <%= &SimpleDateFormat::formatDate($nextoccurrence->{'start'},$dateFormat) %> <% } else { %> None <% } %> <%= $date %> - <%= $start %><%if($recurrence_id||$recurrence_type){%>*<%}%><%= $title %> 
No Events
* = Recurring Event