Help for this page

Select Code to Download


  1. or download this
    sub get_block {
        my (%blocks,@events);
    ...
    
    print p($blocks_ref->{$day});
    print p($events_ref->[$day]);