#!/usr/bin/perl

BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
    
require cfg ;

&today ;

#---------------------------------------------------------------------------------------------------------------------------------------------------------------------

use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html\n\n";

$title = ucfirst $username;

&screen1 ;
 
#------------------------------------------------------------------------------------------

sub screen1 {

$fullcalendar_events = qq(\$(document).ready(function() {	
		\$('#calendar').fullCalendar({
			header: {
				left: 'prev,next today',
				center: 'title',
				right: 'month,agendaWeek,agendaDay'
			},
			defaultDate: '$now_year-$now_mm-$now_dd',
			// defaultView: 'basicDay',
			editable: false,
			eventLimit: true, // allow "more" link when too many events
			events: {
				url: '$useropts{'scripts'}/get/get_db_cal_events_test2.pl',
				error: function() {
					\$('#script-warning').show();
				}
			},
			loading: function(bool) {
				\$('#loading').toggle(bool);
			}
		});
		
	});
    );

# $useropts{'common'}{'css'} = qq(table a:not(.btn), .table a:not(.btn) {
    # /* text-decoration: underline; */
# });

# $trigger_jquery = qq(window.setTimeout(function(){location.reload();},300000);); # 300000=5min, 600000=10min, 900000=15min, 10000=10sec

$useropts{'common'}{'css'} .= qq(table a:not(.btn), .table a:not(.btn) { text-decoration: none; }) ;

if ($useropts{super}{lc $username}){
	$box_icon = qq(<div class="box-icon">
		<a class="btn btn-default btn-round" href="javascript:dlgMdl('$useropts{scripts}/dialog/events.pl?&add','Add','','medium-dialog');" data-toggle="tooltip" data-placement="top" title="" data-original-title="Add Item">
			<i class="glyphicon glyphicon-plus icon-white" style="top:-4px;"></i>
		</a>
	</div> ) ;
	}

require calendar ;

exit;

} #------------------------------------------------------------------------------------------

use today ;
use common ;

1;