aisa/scripts/calendar.pl

73 lines
1.9 KiB
Perl
Raw Normal View History

2025-11-26 09:31:54 +00:00
#!/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.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;