Context Navigation

source: admin/WebConsole/idiomas/php/eng/clases/Calendario_eng.php @ 5d05b06

Visit:

Last change on this file since 5d05b06 was beebc19, checked in by Irina Gomez <irinagomez@…>, 7 years ago
#842 Consola: se revisan todos los ficheros de idioma en inglés.
Property mode set to `100644`
File size: 16.5 KB

Rev	Line
[beebc19]	1	<?php
[3ec149c]	2	/*========================================================================================================
[beebc19]	3	This class generates HTML tables for selecting dates (English version)
[3ec149c]	4
[beebc19]	5	Class attributes:
	6
	7	class: Class [CSS] of HTML table that will be generated.
	8	onmouseover: The Javascript function that will be run when generating the event.
	9	onmouseout: Javascript function that will be run when generating the event.
	10	onclick: Javascript function that will be run when clicking over the object.
[3ec149c]	11
	12	=========================================================================================================*/
	13	class Calendario{
	14	var $aula;
	15	var $horaresevini;
	16	var $horaresevfin;
	17	var $clase ;
	18	var $onmouseover;
	19	var $onmouseout;
	20	var $onclick;
	21
[beebc19]	22	var $desplazamiento_dias=6; // Fine tunning depending on the algorithm start year
[3ec149c]	23	var $nombre_mes=array();
	24	var $nombre_dia=array();
[fc9a1ad]	25	var $numero_annos=array();
[3ec149c]	26	var $dias_meses=array();
	27
[fc9a1ad]	28	function __construct($pclase="", $ponmouseover="sobre(this)", $ponmouseout="fuera(this)", $ponclick="clic(this)"){ //Constructor
[3ec149c]	29	$this->clase=$pclase;
	30	$this->onmouseover=$ponmouseover;
	31	$this->onmouseout=$ponmouseout;
	32	$this->onclick=$ponclick;
[beebc19]	33
	34	$this->nombre_mes[1]=array ("January",0x0001);
[3ec149c]	35	$this->nombre_mes[2]=array ("February",0x0002);
	36	$this->nombre_mes[3]=array ("March",0x0004);
	37	$this->nombre_mes[4]=array ("April",0x0008);
	38	$this->nombre_mes[5]=array ("May",0x0010);
	39	$this->nombre_mes[6]=array ("June",0x0020);
	40	$this->nombre_mes[7]=array ("July",0x0040);
	41	$this->nombre_mes[8]=array ("August",0x0080);
	42	$this->nombre_mes[9]=array ("September",0x0100);
	43	$this->nombre_mes[10]=array ("October",0x0200);
	44	$this->nombre_mes[11]=array ("November",0x0400);
	45	$this->nombre_mes[12]=array ("December",0x0800);
	46
	47
[beebc19]	48	$this->numero_annos[1]=array ("2004",0x01); // size 1 bytes
	49	$this->numero_annos[2]=array ("2005",0x02);
	50	$this->numero_annos[3]=array ("2006",0x04);
	51	$this->numero_annos[4]=array ("2007",0x08);
	52	$this->numero_annos[5]=array ("2008",0x10);
	53	$this->numero_annos[6]=array ("2009",0x20);
	54	$this->numero_annos[7]=array ("2010",0x40);
	55	$this->numero_annos[8]=array ("2011",0x80);
[3ec149c]	56
	57	$this->dias_meses[1]=31;
	58	$this->dias_meses[2]=28;
	59	$this->dias_meses[3]=31;
	60	$this->dias_meses[4]=30;
	61	$this->dias_meses[5]=31;
	62	$this->dias_meses[6]=30;
	63	$this->dias_meses[7]=31;
	64	$this->dias_meses[8]=31;
	65	$this->dias_meses[9]=30;
	66	$this->dias_meses[10]=31;
	67	$this->dias_meses[11]=30;
	68	$this->dias_meses[12]=31;
	69
[beebc19]	70	$this->nombre_dia[1]=array ("Mo",0x01); // size 1 bytes
	71	$this->nombre_dia[2]=array ("Tu",0x02);
	72	$this->nombre_dia[3]=array ("We",0x04);
	73	$this->nombre_dia[4]=array ("Th",0x08);
	74	$this->nombre_dia[5]=array ("Fr",0x10);
	75	$this->nombre_dia[6]=array ("Sa",0x20);
	76	$this->nombre_dia[7]=array ("Su",0x40);
[3ec149c]	77	}
	78	/*________________________________________________________________________________________________________
[beebc19]	79	This function returns a string with the HTML code of year and month schedule chosen
	80	and they are class properties.
[3ec149c]	81	________________________________________________________________________________________________________*/
	82	function MesAnno($mes,$anno,$CntMes){
	83	$fecha="1/".$mes."/".$anno;
	84	$ds=$this->_DiaSemana($fecha);
	85	if ($ds==0) $ds=7;
[beebc19]	86
	87	$swbi=0; // add for leap year
	88	if ($this->bisiesto($anno) && $mes==2) $swbi=1;
[3ec149c]	89
	90	$HTML_calendario='<TABLE border=1 cellspacing=0 cellpadding=1 id="tabla_mesanno" class="'.$this->clase.'">'.chr(13);
	91	$HTML_calendario.='<TR>'.chr(13);
[beebc19]	92	$HTML_calendario.='<TH colspan=7 id="'.$mes.'/'.$anno.'" value="'.$this->aula.'" style="cursor:hand" onclick="TH_'.$this->onclick.'">'.$this->nombre_mes[$mes][0].'</TH></TR>'.chr(13); // Month name
[3ec149c]	93	$HTML_calendario.='<TR>'.chr(13);
	94	for ($i=1;$i<8;$i++)
[beebc19]	95	$HTML_calendario.='<TH>'.$this->nombre_dia[$i][0].'</TH>'.chr(13); // Days of the week
[3ec149c]	96	$HTML_calendario.='</TR><TR>'.chr(13);
	97	for ($i=1;$i<$ds;$i++)
[beebc19]	98	$HTML_calendario.='<TD> </TD>'.chr(13); // Filling firsts days of the week
	99	$sm=$ds; // Control leap of week
[3ec149c]	100	for ($i=1;$i<=$this->dias_meses[$mes]+$swbi;$i++){
	101	$HTML_calendario.='<TD align=center ';
	102	if(isset($CntMes[$i])){
	103	if($CntMes[$i]==1){
	104	$HTML_calendario.=' style="COLOR:#eeeeee;BACKGROUND-COLOR: #cc3366;"';
	105	$HTML_calendario.=' id="'.$i.'/'.$mes.'/'.$anno.'" value="'.$this->aula.'" style="cursor:hand" onmouseover="'.$this->onmouseover.'" onmouseout="'.$this->onmouseout.'" onclick="'.$this->onclick.'"';
	106	}
	107	}
	108	$HTML_calendario.='>'.$i.'</TD>'.chr(13);
	109	if ($sm%7==0){
	110	$HTML_calendario.='</TR><TR>'.chr(13);
	111	$sm=0;
	112	}
	113	$sm++;
	114	}
	115	$HTML_calendario.='</TR></TABLE>'.chr(13);
	116	return($HTML_calendario);
	117	}
	118	/*________________________________________________________________________________________________________
[beebc19]	119	This function returns a string with the HTML code of year and month schedule chosen
	120	and they are class properties.
[3ec149c]	121	________________________________________________________________________________________________________*/
	122	function JMesAnno($mes,$anno,$JDif,$TBfechas,$sumahoras){
	123	$fecha="1/".$mes."/".$anno;
[beebc19]	124	$Jdpl=$this->juliana($fecha)-$JDif; // Calculates start point for julian index
[3ec149c]	125	$ds=$this->_DiaSemana($fecha);
	126	if ($ds==0) $ds=7;
[beebc19]	127	$paso=2; // Ratio of color intensity
	128	$swbi=0; // Add for leap year
	129	if ($this->bisiesto($anno) && $mes==2) $swbi=1;
[3ec149c]	130	$HTML_calendario='<TABLE border=1 cellspacing=0 cellpadding=1 id="tabla_mesanno" class="'.$this->clase.'">'.chr(13);
	131	$HTML_calendario.='<TR>'.chr(13);
[beebc19]	132	$HTML_calendario.='<TH colspan=7 id="'.$mes.'/'.$anno.'" style="cursor:hand" onclick="TH_'.$this->onclick.'">'.$this->nombre_mes[(int)$mes][0].'</TH></TR>'.chr(13); // Month name
[3ec149c]	133	$HTML_calendario.='<TR>'.chr(13);
	134	for ($i=1;$i<8;$i++)
[beebc19]	135	$HTML_calendario.='<TH>'.$this->nombre_dia[$i][0].'</TH>'.chr(13); // Days of week
[3ec149c]	136	$HTML_calendario.='</TR><TR>'.chr(13);
	137	for ($i=1;$i<$ds;$i++)
[beebc19]	138	$HTML_calendario.='<TD> </TD>'.chr(13); // Filling firsts days of the week
	139	$sm=$ds; // Control leap of week
[3ec149c]	140	for ($i=1;$i<=$this->dias_meses[(int)$mes]+$swbi;$i++){
	141	$HTML_calendario.='<TD align=center ';
	142	if(isset($TBfechas[$Jdpl])){
	143	if($TBfechas[$Jdpl]>0){
	144	$xpor=$TBfechas[$Jdpl]*100/$sumahoras;
	145	$itcr=255;
	146	$itc=240-($xpor*$paso);
	147	if($xpor>=50)
	148	$colordia="#FFFFFF";
	149	else
	150	$colordia="#000000";
	151
	152	$bgcolordia=sprintf('#%02x%02x%02x',$itcr,$itc,$itc);
	153	$HTML_calendario.=' style="COLOR:'.$colordia.';BACKGROUND-COLOR: '.$bgcolordia.';"';
	154	$HTML_calendario.=' id="'.$i.'/'.$mes.'/'.$anno.'" value="'.$this->aula.'" style="cursor:hand" onmouseover="'.$this->onmouseover.'" onmouseout="'.$this->onmouseout.'" onclick="'.$this->onclick.'"';
	155	}
	156	}
	157	$HTML_calendario.='>'.$i.'</TD>'.chr(13);
	158	if ($sm%7==0){
	159	$HTML_calendario.='</TR><TR>'.chr(13);
	160	$sm=0;
	161	}
	162	$sm++;
	163	$Jdpl++;
	164	}
	165	$HTML_calendario.='</TR></TABLE>'.chr(13);
	166	return($HTML_calendario);
	167	}
	168
	169	/*________________________________________________________________________________________________________
[beebc19]	170	This function returns day of the week number:
	171	0=sunday 1=monday, 2=tuesday ... 6=saturday
	172
	173	Input parameter:
	174	A string with date format dd/mm/yyyy.
[3ec149c]	175	________________________________________________________________________________________________________*/
	176	function _DiaSemana($fecha){
[9f1274e]	177	list($dia,$mes,$anno)=explode('[/.-]',$fecha);
[3ec149c]	178	$cont=0;
	179	for ($i=1900;$i<$anno;$i++){
	180	if ($this->bisiesto($i)) $dias_anuales=366; else $dias_anuales=365;
	181	$cont+=$dias_anuales;
	182	}
	183	for ($i=1;$i<$mes;$i++){
	184	if ($i!=2)
	185	$cont+=$this->dias_meses[$i];
	186	else{
	187	if ($this->bisiesto($anno))
	188	$cont+=29;
	189	else
	190	$cont+=28;
	191	}
	192	}
	193	$cont+=$dia+$this->desplazamiento_dias;
	194	return($cont%7);
	195	}
	196	//________________________________________________________________________________________________________
[beebc19]	197	// These function returns true if last year was a leap-year or false if it was not
[3ec149c]	198	//
[beebc19]	199	// Input parameter:
	200	// A number representing 1 year
[3ec149c]	201	//________________________________________________________________________________________________________
	202	function bisiesto($anob){
	203	if ($anob%4==0) return(true); else return(false);
	204	}
	205	//________________________________________________________________________________________________________
[beebc19]	206	// This function returns a string with the HTML code of the lab reservations times.
[3ec149c]	207	//________________________________________________________________________________________________________
[c281499]	208	function HorasDias($CntDia,&$porcenhoras){
[3ec149c]	209	$HTML_calendario="";
	210	$sw=0;
[beebc19]	211	$conthoras=0; // Reservations minutes and hours counter
[3ec149c]	212	$maxcolumnas=8;
	213	$tbampm[0]="a.m.";
	214	$tbampm[1]="p.m.";
	215
	216	$HTML_calendario.='<TABLE border=0 cellspacing=0 cellpadding=0 id="tabla_horas" class="'.$this->clase.'">'.chr(13);
	217	$HTML_calendario.='<TR>'.chr(13);
	218	$HTML_calendario.='<TH colspan=3>Horas</TH></TR>'.chr(13); // Literal Horas
	219	$HTML_calendario.='<TR>'.chr(13);
	220	$HTML_ampm[0]="";
	221	$HTML_ampm[1]="";
	222	$swampm[0]=false;
	223	$swampm[1]=false;
	224
	225	if($this->horaresevini<12) $ix=0; else $ix=1;
	226	for($j=$ix;$j<=1;$j++){
	227	$HTML_ampm[$j].='<TD style="BACKGROUND-COLOR: #FFFFFF;" valig=top >'.chr(13);
	228	$HTML_ampm[$j].='<TABLE valig=top cellspacing=0 cellpadding=0 border=1 class="'.$this->clase.'">'.chr(13);
	229	$HTML_ampm[$j].='<TR>'.chr(13);
	230	$HTML_ampm[$j].='<TH colspan='.$maxcolumnas.'>'.$tbampm[$j].'</TH></TR>'.chr(13); // Literal Horas
	231	$HTML_ampm[$j].='<TR>'.chr(13);
	232
	233	if($j==0){ // A.M.height
	234	$imin=$this->horaresevini;
	235	$currenthora=$imin;
	236	if($this->horaresevfin<=12)
	237	$imax=$this->horaresevfin;
	238	else
	239	$imax=12;
	240	}
	241	else{
	242	if($this->horaresevini<=12)
	243	$imin=0;
	244	else
	245	$imin=$this->horaresevini-12;
	246	$imax=(int)$this->horaresevfin-12;
	247	$currenthora=$imin;
	248	}
	249	$cols=0;
	250	$currentminutos=0;
	251	$currenthorario=$currenthora.":".$currentminutos;
	252	$intervalo=($imax-$imin+1)*4;
	253	for ($i=$imin;$i<$intervalo;$i++){
	254	$cols++;
[beebc19]	255	if($sw>0) // Brings reservations from A.M.
[3ec149c]	256	$swampm[$j]=true;
	257
	258	if($currentminutos==0) $currenthorario.="0";
	259	if(isset($CntDia[$j][$currenthora][$currentminutos])){
	260	if($CntDia[$j][$currenthora][$currentminutos]==1)
	261	$sw++;
	262	$swampm[$j]=true;
	263	}
	264	if(isset($CntDia[$j][$currenthora][$currentminutos])){
	265	if($CntDia[$j][$currenthora][$currentminutos]==0)
	266	$sw--;
	267	}
	268	$HTML_ampm[$j].='<TD ';
	269	if($sw>0)
	270	$HTML_ampm[$j].=' style="COLOR:#eeeeee;BACKGROUND-COLOR: #cc3366;"';
	271
[beebc19]	272	if($sw>0) // Counts 15 minutes fraction as reserved
[3ec149c]	273	$conthoras++;
	274	$HTML_ampm[$j].=' align=center> '.$currenthorario.' </TD>'.chr(13);
	275	$currentminutos+=15;
	276	if($currentminutos==60) {
	277	$currenthora++;
	278	$currentminutos=0;
	279	}
	280	$currenthorario=$currenthora.":".$currentminutos;
	281	if (($cols)%$maxcolumnas==0 ) $HTML_ampm[$j].='</TR><TR>'.chr(13);
	282	}
	283	$HTML_ampm[$j].='</TR></TABLE>'.chr(13);
	284	$HTML_ampm[$j].='</TD>'.chr(13);
	285	}
	286
	287	if ($swampm[0])
	288	$HTML_calendario.=$HTML_ampm[0];
	289
	290	if ($swampm[0] && $swampm[1]){
	291	$HTML_calendario.='<TD style="BACKGROUND-COLOR: #FFFFFF;" width=25> '.chr(13);
	292	$HTML_calendario.='</TD>'.chr(13);
	293	}
	294
	295	if ($swampm[1])
	296	$HTML_calendario.=$HTML_ampm[1];
	297
	298	$HTML_calendario.='</TR>'.chr(13);
	299	$HTML_calendario.='</TABLE>'.chr(13);
	300
	301	$numblo=($this->horaresevfin-$this->horaresevini)*4;
	302	$porcenhoras=floor($conthoras*100/$numblo);
	303	return($HTML_calendario);
[beebc19]	304	}
[3ec149c]	305	/* --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
[beebc19]	306	Returns a string with days (monday(1), tuesday(2)....sunday(7)), separated by commas
[3ec149c]	307	________________________________________________________________________________________________________________*/
	308	function DiasPorMes($mes,$anno,$numerodia){
	309	$cadenadias="";
	310	$dia_c=1;
	311	$fecha=$dia_c."/".$mes."/".$anno;
	312	$ds=$this->_DiaSemana($fecha);
	313	if ($ds==0) $ds=7;
	314	while($ds!=$numerodia){
	315	$dia_c++;
	316	$ds++;
	317	if($ds>7) $ds=1;
	318	}
[beebc19]	319	// Calculates number of days of a month
[3ec149c]	320	$diasmaxmes=$this->dias_meses[$mes];
	321	if ($mes==2){
	322	if ($this->bisiesto($anno)){
	323	$diasmaxmes=29;
	324	}
	325	}
	326	while($dia_c<=$diasmaxmes){
	327	$cadenadias.=$dia_c.";";
	328	$dia_c+=7;
	329	}
	330	return($cadenadias);
	331	}
	332	/*________________________________________________________________________________________________________
[beebc19]	333	Returns a string with the days of a month of a given week, separated by commas.
[3ec149c]	334	________________________________________________________________________________________________________*/
	335	function DiasPorSemanas($mes,$anno,$numerosemana){
	336	$cadenadias="";
	337	$dia_c=1;
	338	$nsem=1;
	339	$fecha=$dia_c."/".$mes."/".$anno;
	340	$ds=$this->_DiaSemana($fecha);
	341	if ($ds==0) $ds=7;
	342	while($nsem!=$numerosemana){
	343	$dia_c++;
	344	$ds++;
	345	if($ds>7){
	346	$ds=1;
	347	$nsem++;
	348	}
	349	}
[beebc19]	350	// Calculates number of days of a month
[3ec149c]	351	$diasmaxmes=$this->dias_meses[$mes];
	352	if ($mes==2){
	353	if ($this->bisiesto($anno)){
	354	$diasmaxmes=29;
	355	}
	356	}
	357	for($i=$ds;$i<=7;$i++){
	358	if($dia_c>$diasmaxmes) break;
	359	$cadenadias.=$dia_c.";";
	360	$dia_c++;
	361	}
	362	return($cadenadias);
	363	}
	364	// ____________________________________________________________________________
[beebc19]	365	// This function returns the number of last week of a month
[3ec149c]	366	// ____________________________________________________________________________
	367	function UltimaSemana($mes,$anno){
	368	$diasmaxmes=$this->dias_meses[$mes];
	369	if ($mes==2){
	370	if ($this->bisiesto($anno)){
	371	$diasmaxmes=29;
	372	}
	373	}
	374	$fecha="1/".$mes."/".$anno;
	375	$ds=$this->_DiaSemana($fecha);
	376	if ($ds==0) $ds=7;
	377	$nwdia=$diasmaxmes+$ds-1;
	378	$cociente=floor($nwdia/7);
	379	$resto=$nwdia%7;
	380	if($resto>0) $cociente++;
	381	return($cociente);
	382	}
	383	//________________________________________________________________________________________________________
[beebc19]	384	// Function : Dates
	385	// Description :
	386	// Returns a string of dates saparated by commas. These dates are part of a specific reservation
	387	// Parameters:
	388	// - anno_c: Aaspecefic year
	389	// - mes_desde: Month from the reservation is considered
	390	// - mes_hasta: Month to the reservation is consedired
	391	// - meses: Field with hexadecimal information about reservation months (The information contained in the field of a table with this name)
	392	// - diario: The same for days of a month
	393	// - dias: The same for names of days
	394	// - semanas: The same for weeks
[3ec149c]	395	//________________________________________________________________________________________________________
	396	function Fechas($anno_c,$mes_desde,$mes_hasta,$meses,$diario,$dias,$semanas){
	397	$cadenafechas="";
	398	$mascara=0x0001;
	399	$cadenameses="";
	400	$meses=$meses>>($mes_desde-1);
	401	for($i=$mes_desde;$i<=$mes_hasta;$i++){
	402	if($meses&$mascara>0){
	403	$cadenameses.=$i.";";
[beebc19]	404	// Days of the week
[3ec149c]	405	if($dias>0){
	406	$auxdias=$dias;
	407	for($j=1;$j<=7;$j++){
	408	if($auxdias&$mascara>0){
	409	$cadenadias=$this->DiasPorMes($i,$anno_c,$j);
[9f1274e]	410	$tbdias=explode(";",$cadenadias);
[3ec149c]	411	for ($k=0;$k<sizeof($tbdias)-1;$k++)
	412	$cadenafechas.=$tbdias[$k]."/".$i."/".$anno_c.";";
	413	}
	414	$auxdias=$auxdias>>1;
	415	}
	416	}
[beebc19]	417	// Weeks
[3ec149c]	418	if($semanas>0){
	419	$auxsemanas=$semanas;
	420	for($j=1;$j<=6;$j++){
	421	if($auxsemanas&$mascara>0){
	422	if($j==6){
	423	$ulse=$this->UltimaSemana($i,$anno_c);
	424	$cadenadias=$this->DiasPorSemanas($i,$anno_c,$ulse);
	425	}
	426	else
	427	$cadenadias=$this->DiasPorSemanas($i,$anno_c,$j);
[9f1274e]	428	$tbdias=explode(";",$cadenadias);
[3ec149c]	429	for ($k=0;$k<sizeof($tbdias)-1;$k++)
	430	$cadenafechas.=$tbdias[$k]."/".$i."/".$anno_c.";";
	431	}
	432	$auxsemanas=$auxsemanas>>1;
	433	}
	434	}
	435	}
	436	$meses=$meses>>1;
	437	}
	438	$cadenadiario="";
	439	for($i=1;$i<32;$i++){
	440	if($diario&$mascara>0) $cadenadiario.=$i.";";
	441	$diario=$diario>>1;
	442	}
[9f1274e]	443	$tbmeses=explode(";",$cadenameses);
	444	$tbdiario=explode(";",$cadenadiario);
[3ec149c]	445	for ($i=0;$i<sizeof($tbmeses)-1;$i++){
	446	for ($j=0;$j<sizeof($tbdiario)-1;$j++){
	447	$cadenafechas.=$tbdiario[$j]."/".$tbmeses[$i]."/".$anno_c.";";
	448	}
	449	}
	450	return($cadenafechas);
	451	}
	452	/*______________________________________________________________________
[beebc19]	453	Returns the Juliano day for a specific date
	454	Parameters:
	455	- string with date in this format "dd/mm/yyyy"
	456	Returns:
	457	- Juliano day
[3ec149c]	458	_______________________________________________________________________*/
	459	function juliana($fecha) {
[9f1274e]	460	list($dia,$mes,$anno)=explode("[/-]",$fecha);
[3ec149c]	461	$GGG = 1;
	462	if ($anno <= 1585) $GGG = 0;
	463	$juliano= -1 * floor(7 * (floor(($mes + 9) / 12) + $anno) / 4);
	464	$S = 1;
	465	if (($mes - 9)<0) $S=-1;
	466	$A = abs($mes - 9);
	467	$auxjuliano = floor($anno + $S * floor($A / 7));
	468	$auxjuliano = -1 * floor((floor($auxjuliano / 100) + 1) * 3 / 4);
	469	$juliano = $juliano + floor(275 * $mes / 9) + $dia + ($GGG * $auxjuliano);
	470	$juliano =$juliano + 1721027 + 2 * $GGG + 367 * $anno - 0.5;
	471	return(floor($juliano));
	472	}
[beebc19]	473	} // End of Calendar class

Note: See TracBrowser for help on using the repository browser.

Download in other formats: