[an error occurred while processing this directive] <% # Begin the code... # ----------------- $STYLE = $in{style} || $_DEFAULT_LIST_GRID; $VIEW = $in{view}; if (!$in{duration} && !$in{range} && !$in{startdate} && !$in{enddate}) { $VIEW ||= $_DEFAULT_VIEW; } if ($VIEW eq "Month") { &getEvents( { 'range'=>'month' , 'month'=>$MONTH } ); } elsif ($VIEW eq "Week") { &getEvents( { 'range'=>'week' } ); } elsif ($VIEW eq "Two-Week") { &getEvents( { 'range'=>'twoweek' } ); } elsif ($VIEW eq "Three-Week") { &getEvents( { 'range'=>'threeweek' } ); } elsif ($VIEW eq "Four-Week") { &getEvents( { 'range'=>'fourweek' } ); } elsif ($VIEW eq "Day") { &getEvents( { 'range'=>'day','startdate'=>$DATESTRING } ); } elsif ($VIEW eq "Event") { $EVENT->{'details'} = &getEvent($in{'event_id'}); $db = $main::DBEvents; $fields = &main::DBGetFieldsInDisplayOrder($db); $EVENT2->{'schedule'} = &getEvent2($in{'event_id'}); } elsif ($VIEW eq "Search") { $db = $main::DBEvents; # Keep form values to populate form fields foreach (keys %in) {$name = $_; if ($name =~ s/^FIELD_//) { $search_params->{$name} = $in{$_}; } } } else { &getEvents( {'duration'=>$in{duration}, 'range'=>$in{range}, 'startdate'=>$in{startdate}, 'enddate'=>$in{enddate} } ); } if ($GRID_ROW_COUNT > 0) { $rowheight = "HEIGHT=\"".int(90/$GRID_ROW_COUNT)."%\""; } %> <%=$_PAGE_TITLE%> [an error occurred while processing this directive]
  <% if ($_HEADER) { %><% } %> <% } %>
<%= $_HEADER %>
<% if ($VIEW eq "Month") { %> <%-- MONTH NAVIGATION --%> <% my ($monthabbrs) = $Config->get("month_abbreviations"); %> <% foreach $monthnum (0 .. 11) { %> <%if($MONTH==($monthnum+1)){%> <%}else{%> <%}%> <% } %>
< <%=$LAST_YEAR%><%=$monthabbrs->[$monthnum]%> <%=$YEAR%><%=$monthabbrs->[$monthnum]%><%=$NEXT_YEAR%> >
<%-- /MONTH NAVIGATION --%> <% } elsif ($VIEW eq "Week" || $VIEW eq "Two-Week" || $VIEW eq "Three-Week" || $VIEW eq "Four-Week") { %> <%-- WEEKLY NAVIGATION --%>
< Semana anterior COLOR="<%=$_NAVIGATION_TEXT_COLOR%>"><%=$RANGE_START%> - <%=$RANGE_END%> Siguiente semana >
<%-- /WEEKLY NAVIGATION --%> <% } elsif ($VIEW eq "Day") { %> <%-- DAY NAVIGATION --%>
< Día anterior COLOR="<%=$_NAVIGATION_TEXT_COLOR%>"><%=$DAY->{'dayname'}%> <%=$DAY->{'monthabbreviation'}%> <%=$DATE%>, <%=$YEAR%> Siguiente día >
<%-- /DAY NAVIGATION --%> <% } elsif ($VIEW eq "Event") { %> <%-- EVENT NAVIGATION --%>
COLOR="<%=$_NAVIGATION_TEXT_COLOR%>"><%= EVENT FIELD(title) %>
<%-- /EVENT NAVIGATION --%> <% } elsif ($VIEW eq "Search") { %> <%-- SEARCH NAVIGATION --%>
COLOR="<%=$_NAVIGATION_TEXT_COLOR%>">Buscar
<%-- /SEARCH NAVIGATION --%> <% } %>
Ver el calendario como
Retícula | Lista
Buscar eventos


[ Ver calendario de exámenes de secundaria ] <% if ($_SHOW_LOGGED_IN) { %> <%IF USER LOGGED IN%> Ha accesado como: <%=($User->{name} || $User->{username})%>
<%/IF%> <% } %>

<%-- COMMAND/VIEW OPTIONS --%> <% if ($_SHOW_GRID_LIST) { %>
">">Grid
">">List

<% } %> <% if ($_SHOW_VIEW) { %>
Today
">">Week
">">2-Week
">">3-Week
">">4-Week
">">Month

<% } %> <% if ($_SHOW_COMMAND_LIST) { %> <%if ($User->hasPermission($CALENDAR_KEY,"ADD_EVENT")) { %> <%}%> <%if ($User->hasPermission($CALENDAR_KEY,"EDIT_EVENTS") || $User->hasPermission($CALENDAR_KEY,"EDIT_OWN_EVENTS")) { %> <%}%> <%IF USER LOGGED IN%> <%if ($User->isCalendarAdmin($CALENDAR_KEY)) { %> <%}%> <%/IF%> <%IF USER LOGGED IN%> <%ELSE%> <%/IF%>
">">Buscar
Add Event
Edit Events
Admin
Logout
Login
<% } %> <%-- /COMMAND/VIEW OPTIONS --%> 		<%-- =============================== --%> <%-- THIS IS THE ACTUAL DISPLAY AREA --%> <%-- =============================== --%> <%-- MONTHLY OR WEEKLY VIEW --%> <% if ($VIEW eq "Month" || $VIEW eq "Week" || $VIEW eq "Two-Week" || $VIEW eq "Three-Week" || $VIEW eq "Four-Week") { %> <%-- GRID STYLE DISPLAY --%> <% if ($STYLE eq "Grid") { %> <%FOREACH GRID COLUMN%> <%/FOREACH%> <%FOREACH GRID ROW%> > <%FOREACH GRID COLUMN%> <% $i=0; %> <%/FOREACH%> <%/FOREACH%>
<%= $Grid->{'daynames'}->[$COL] %>
BGCOLOR="<%IF SELECTED%><%=$_GRID_CELL_SELECTED_BGCOLOR%><%ELSE%><%=$_GRID_CELL_BGCOLOR%><%/IF%>"> <%IF DISPLAY%>  <%if($DAY->{'dd'}==1&&$VIEW ne "Month"){%><%=$DAY->{'monthname'}%> <%}%><%=$DAY->{'dd'}%> 
<%FOREACH EVENT%> <%$i++;%> <% if ($_SHOW_GRID_EVENT_BULLET) {%>•<%}%> <% if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") { %> <% if ($EVENT->{'schedule'}->{'start_time'}) { %><%= SCHEDULE FIELD(start_time) %><% } %> <% } %> <% if ($_SHOW_EVENT_TIMES eq "ALL") { %> <% if ($EVENT->{'schedule'}->{'end_time'}) { %>-<%= SCHEDULE FIELD(end_time) %><% } %> <% } %> <% if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { %> : <% } %> <% if ($EVENT->{details}->{departamento} eq "Todos los deptos.") {$color="#000000";} elsif ($EVENT->{details}->{departamento} eq "Preescolar") {$color="#CC6600";} elsif ($EVENT->{details}->{departamento} eq "Primaria") {$color="#3300ff";} elsif ($EVENT->{details}->{departamento} eq "Secundaria") {$color="#009900";} elsif ($EVENT->{details}->{departamento} eq "Preparatoria") {$color="#62A1B4";} elsif ($EVENT->{details}->{departamento} eq "Asistente Ejecutiva Bilingüe") {$color="#CC0000";} elsif ($EVENT->{details}->{departamento} eq "Licenciatura") {$color="#9900FF";} else {$color="#CC0000";} %> <%= EVENT FIELD(title) %>
<%/FOREACH%> <% if ($i==0) { %>
 
 <% } %> <%/IF%>  
<%-- END GRID STYLE DISPLAY --%> <% } elsif ($STYLE eq "List") { %> <%-- LIST STYLE DISPLAY --%>
<%$total_events=0;%> <%FOREACH EVENTLIST%> <%IF EVENTS EXIST%> <%$total_events++;%>
<%=$DAY->{dayname}%>, <%=$DAY->{monthname}%> <%=$DAY->{dd}%>
<%FOREACH EVENT%> <% if ($_SHOW_GRID_EVENT_BULLET) {%>•<%}%> <% if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") { %> <% if ($EVENT->{'schedule'}->{'start_time'}) { %><%= SCHEDULE FIELD(start_time) %><% } %> <% } %> <% if ($_SHOW_EVENT_TIMES eq "ALL") { %> <% if ($EVENT->{'schedule'}->{'end_time'}) { %>-<%= SCHEDULE FIELD(end_time) %><% } %> <% } %> <% if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { %> : <% } %> <%= EVENT FIELD(title) %>
<%/FOREACH%> <%/IF%> <%/FOREACH%>
<%unless($total_events){%> <%= $_NO_EVENTS_LABEL %> <% } %>
<% } %> <%-- END LIST STYLE DISPLAY --%> <%-- DAY VIEW --%> <% } elsif ($VIEW eq "Day") { %> <% if ($STYLE eq "Grid") { %> <%-- GRID VIEW --%> <%FOREACH HOUR OF DAY%> <%/FOREACH%>
<% if ($HOUR == 99) { %> Eventos del Día <%ELSE%> <%=Date::formatTime(&Date::LZ($HOUR)."00",$Config->{'time_format'})%>  <%/IF%> <%FOREACH EVENT%> <% if ($_SHOW_GRID_EVENT_BULLET) {%>•<%}%> <% if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") { %> <% if ($EVENT->{'schedule'}->{'start_time'}) { %><%= SCHEDULE FIELD(start_time) %><% } %> <% } %> <% if ($_SHOW_EVENT_TIMES eq "ALL") { %> <% if ($EVENT->{'schedule'}->{'end_time'}) { %>-<%= SCHEDULE FIELD(end_time) %><% } %> <% } %> <% if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { %> : <% } %> <%= EVENT FIELD(title) %> [detalles]
<%/FOREACH%> <%IF NO EVENTS EXIST%> <%/IF%>
<% } else { %> <%-- LIST VIEW --%>
<%IF EVENTS EXIST%>
<%FOREACH EVENT%>
<% if ($_SHOW_GRID_EVENT_BULLET) {%>•<%}%> <% if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") { %> <% if ($EVENT->{'schedule'}->{'start_time'}) { %><%= SCHEDULE FIELD(start_time) %><% } %> <% } %> <% if ($_SHOW_EVENT_TIMES eq "ALL") { %> <% if ($EVENT->{'schedule'}->{'end_time'}) { %>-<%= SCHEDULE FIELD(end_time) %><% } %> <% } %> <% if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { %> : <% } %> <%= EVENT FIELD(title) %> [detalles]
<%= EVENT FIELD(description) %> <%/FOREACH%>
<%ELSE%>
<%= $_NO_EVENTS_LABEL %>
<%/IF%>
<% } %> <%-- EVENT VIEW --%> <% } elsif ($VIEW eq "Event") { %> <% foreach (@$fields) { next unless ($db->{'properties'}->{$_}->{'display_details'}); %> <% } %>
<%=$db->{'properties'}->{$_}->{'name'}%>: <%=$EVENT->{details}->{$_}%>
<%-- SEARCH VIEW --%> <% } elsif ($VIEW eq "Search") { %>
<% if ($userMessage ne "") { %> <% } %> <% $fieldnames = &main::DBGetSearchFields($db); foreach $field (@$fieldnames) { %> <% } %> <% IF SEARCH RESULT %> <% /IF %>
<%= $userMessage %>
<%= $db->{'properties'}->{$field}->{'name'} || $field %> : <%= &main::GetSearchFieldInput($db->{'properties'}->{$field},$field,$search_params) %>
Entre : y
Resultados de la búsqueda:
<% IF SEARCH RESULTS EXIST %> No se encontraron resultados <% ELSE %> <% FOREACH SEARCH RESULT %> <% /FOREACH %>
Primer resultado Título Description
<% IF NEXT OCCURRENCE EXISTS %> <%=$MONTH_NAMES->[$EVENT->{schedule}->{nextoccurrence}->{month}-1]%> <%=$EVENT->{schedule}->{nextoccurrence}->{date}%>, <%=$EVENT->{schedule}->{nextoccurrence}->{year}%> <% ELSE %> None <% /IF %> <%= EVENT FIELD(title) %> <%= EVENT FIELD(description) %>
<% /IF %>
<% } %> <%-- END OF VIEWS --%> <%-- ================================ --%> <%-- /THIS IS THE ACTUAL DISPLAY AREA --%> <%-- ================================ --%>
Horario: <% if ( $event->{'schedule'}->{'all_day'}) { print "Todo el Día"; } elsif ($event->{'schedule'}->{'start_time'} == $event->{'schedule'}->{'end_time'}) { print &Date::formatTime($EVENT2->{schedule}->{start_time}, $Config->get("time_format")); } else { print &Date::formatTime($EVENT2->{schedule}->{start_time}, $Config->get("time_format")), " - ", &Date::formatTime($EVENT2->{schedule}->{end_time} , $Config->get("time_format")); } %>
<% if ($_FOOTER) { %>
<%= $_FOOTER %>


¿Quiénes somos? | Servicios e instalaciones | Zona de padres | Zona de alumnos | Zona de profesores | Admisiones | Fotos
Avisos y noticias | Calendario | Mapa del sitio | Contáctenos | Home
Instituto Miguel Ángel, A.C.
Iztaccíhuatl 239 Colonia Florida, Delegación Álvaro Obregón C.P. 01030 Tel: (55) 5661 2125 y 5661 5242
México, D.F.