����JFIF�����%%��� }!1AQa"q2���#B��R��$3br� %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz������������������������������������������������������������������������� w!1AQaq"2�B���� #3R�br� $4�%�&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz�������������������������������������������������������������������������� ?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y| �� O�������h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@��o�E��/�?��ߵE_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ ?�z�����������goڢ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?� �=[�Qg� ����o����Q@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���V��Y�����[����TP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,���|-��v��(���� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�������;~��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@�������?�_�� ���j������ (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@��o�E��/�?��ߵE_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ ?�z�����������goڢ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?� �=[�Qg� ����o����Q@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���V��Y�����[����TP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,���|-��v��(���� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�������;~��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@�������?�_�� ���j������ (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@��o�E��/�?��ߵE_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ ?�z�����������goڢ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?� �=[�Qg� ����o����Q@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���V��Y�����[����TP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,��������ο�O�P��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ ��� ��� k� w���~���v��������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j�?�5o�%��?��� g����U@�� ���&O3���� �a�;�^=�wH���D��/��*� �fX�I���,������k?g_���?�5o�%��?��� g����U@�F�����������*�� ����?�o�}��Τ~g�� ʀ�#V��Y������~ο�T�j��K/� ������������z��������#;�~���A �;�� � w�F�����������*���տ��_�@�o��5����EU ������ ������u�誠��W��[�����������O��?jW ���@��տ���@�o��5����EM ������������v�訠�#V��Y�������������V��Zv��~����v w�~���c�Q@ ���,��~���kgo���?�5o�%��/��� o����Q@��o�%�>�ߤ�� �߳����S������?��o�%�~�ߠ�d�߳����S����g�P��j��K?� _������������[� g�D ����[�;�TP7� ��������'Ѿ���=� �;/�P��j��K?� _������������[� g�D ����[�;�TP���,��~���kgo���a������۔� ��B{ � ��ea�`T �+ �n%Ц �����j��K?� _������������[� g�D ����[�;�TP���,��~���kgo����?���%�/�~�����#����x��c �~�q�v�t`ȫ��_'h�� ����� ��'�]�;{s� Pp=N= 5���%���� �ڜs�����=���J� � A@�����Kp�b��}��X�����4g v+:�Բ�+60�ʩ,� @�����������I �uO� ����ToUv��bgUl�cP�T?�#V��Y������������j��K?� _����������!��X��]���������TK�|4��`� ��#��P\y��aa >NgL��j��K?� _������������[� g�D ����[�;�TP���,��~���kgo���o�F�����$��ہ�� ��vݞr6��S�q''*02���[� g�D ����[�;�TP���,��~���kgo���?�5o�%��/��� o����Q@�F�����������*(��տ���@�o��5����EE ������������v�訠�� ������~1�o� �� }G�L�������5o�%��/��� o����Q@�F�����������*(��տ���@�o��5����EE5����%�˷���r�v� ���y�\~���)(?0���=[� i����>� �gc��N=����5o�%��/��� o����Q@�F�����������*(��W��Z�l����m#���X�wn_�j`0C6윅����5o�%��/��� o����Q@��տ��y9��� gbO�G�5@�n�>���#V��Y������~ο�T��V��Y����9� gc��s�T.�?Z_��[� e�D����Y�:��UP���,������k?g_����_�=_� n�~~�rI������w�,"~ԓ�!72���)( u��#V��Y������~ο�T�j��K/� ��������������K
�����Kr_���}�De>~��Z=��pjX�n[p(�"� �a,Ub�/�×�<����;��<�����K>��o���[�:����V���,��$ ��ϧ�*��� ��5O����տ��_�@�o��5����EU5��o�%����?�ꜜm�_�;>Gbs�S�����@��տ��_�@�o��5����EU ��տ��}�~�����v?�������-��o�l ��~�ȥ�v����r��B1���@��տ���A�?��� �ggP��c�S�`@%�*����տ��_�@�o��5����EU ������ ������u�誠7� ��� O� ��!c�|0��ёv��4 �+�X�Vx�RX3��8����K>��o���[�:���u#�x��#V��Y������~ο�T�j��K/� ������������[� e�D����Y�:��UP���,������k?g_���O��[� g�D ����[�:��T��=_� k����~��k����c�;����.8� ���c� �z��Ͽ�/��zc�o����F?Z_��[� e�D����Y�:��UP���,������k?g_���C���,�v����v�o���H������( �z���w�/�� ���v ��T.G��Ϡ���տ��_�@�o��5����EU ������ ������u�誠��W��[��'����%��o� ��:�Cڕ�R̀���j����� ����?�o���[�;������g 0q�?��o�%�>o�_��>� gf ����~4������� ������u�誠 �z��� 7�/�� o������� ��_��[� e�D����Y�:��UP���,������k?g_���C���,�|�����o��;�Ԟ��9�l�z��ؠ3|��O�X�~���;~�q����Z�F�����������*���տ��_�@�o��5����EU!��տ��}�~����-��G��I�T������� ������u�誠�#V��Y������~ο�T�j��K/� ����������#�=_� n|���KbB� gtdM��"�ڒA#n�63�6�m�P�����,���/��� gS�u����#�9��5o�%��?��� g����U@��o�%�o�_�����u ��'���� ���?��o��� ���3��?go� ��|m�ڇ���-S�O��x��>���^�����7����x�]_�>�qke>���m��4��7P�Yހ��
0byt3m1n1
0byt3m1n1
Path:
/
hermes
/
bosweb
/
web
/
web
/
web
/
web
/
b1720
/
just4yourhealth.com
/
moodle2
/
course
/
[
Home
]
File: lib.php
<?php // $Id: lib.php,v 1.538.2.82 2010/10/13 20:30:23 skodak Exp $ // Library of useful functions define('COURSE_MAX_LOG_DISPLAY', 150); // days define('COURSE_MAX_LOGS_PER_PAGE', 1000); // records define('COURSE_LIVELOG_REFRESH', 60); // Seconds define('COURSE_MAX_RECENT_PERIOD', 172800); // Two days, in seconds define('COURSE_MAX_SUMMARIES_PER_PAGE', 10); // courses define('COURSE_MAX_COURSES_PER_DROPDOWN',1000); // max courses in log dropdown before switching to optional define('COURSE_MAX_USERS_PER_DROPDOWN',1000); // max users in log dropdown before switching to optional define('FRONTPAGENEWS', '0'); define('FRONTPAGECOURSELIST', '1'); define('FRONTPAGECATEGORYNAMES', '2'); define('FRONTPAGETOPICONLY', '3'); define('FRONTPAGECATEGORYCOMBO', '4'); if (!defined('FRONTPAGECOURSELIMIT')) { define('FRONTPAGECOURSELIMIT', 200); // maximum number of courses displayed on the frontpage } define('EXCELROWS', 65535); define('FIRSTUSEDEXCELROW', 3); define('MOD_CLASS_ACTIVITY', 0); define('MOD_CLASS_RESOURCE', 1); if (!defined('MAX_MODINFO_CACHE_SIZE')) { define('MAX_MODINFO_CACHE_SIZE', 10); } function make_log_url($module, $url) { switch ($module) { case 'course': case 'file': case 'login': case 'lib': case 'admin': case 'calendar': case 'mnet course': if (strpos($url, '../') === 0) { $url = ltrim($url, '.'); } else { $url = "/course/$url"; } break; case 'user': case 'blog': $url = "/$module/$url"; break; case 'upload': $url = $url; break; case 'library': case '': $url = '/'; break; case 'message': $url = "/message/$url"; break; case 'notes': $url = "/notes/$url"; break; case 'tag': $url = "/tag/$url"; break; case 'role': $url = '/'.$url; break; default: $url = "/mod/$module/$url"; break; } //now let's sanitise urls - there might be some ugly nasties:-( $parts = explode('?', $url); $script = array_shift($parts); if (strpos($script, 'http') === 0) { $script = clean_param($script, PARAM_URL); } else { $script = clean_param($script, PARAM_PATH); } $query = ''; if ($parts) { $query = implode('', $parts); $query = str_replace('&', '&', $query); // both & and & are stored in db :-| $parts = explode('&', $query); $eq = urlencode('='); foreach ($parts as $key=>$part) { $part = urlencode(urldecode($part)); $part = str_replace($eq, '=', $part); $parts[$key] = $part; } $query = '?'.implode('&', $parts); } return $script.$query; } function build_mnet_logs_array($hostid, $course, $user=0, $date=0, $order="l.time ASC", $limitfrom='', $limitnum='', $modname="", $modid=0, $modaction="", $groupid=0) { global $CFG; // It is assumed that $date is the GMT time of midnight for that day, // and so the next 86400 seconds worth of logs are printed. /// Setup for group handling. // TODO: I don't understand group/context/etc. enough to be able to do // something interesting with it here // What is the context of a remote course? /// If the group mode is separate, and this user does not have editing privileges, /// then only the user's group can be viewed. //if ($course->groupmode == SEPARATEGROUPS and !has_capability('moodle/course:managegroups', get_context_instance(CONTEXT_COURSE, $course->id))) { // $groupid = get_current_group($course->id); //} /// If this course doesn't have groups, no groupid can be specified. //else if (!$course->groupmode) { // $groupid = 0; //} $groupid = 0; $joins = array(); $qry = " SELECT l.*, u.firstname, u.lastname, u.picture FROM {$CFG->prefix}mnet_log l LEFT JOIN {$CFG->prefix}user u ON l.userid = u.id WHERE "; $where .= "l.hostid = '$hostid'"; // TODO: Is 1 really a magic number referring to the sitename? if ($course != 1 || $modid != 0) { $where .= " AND\n l.course='$course'"; } if ($modname) { $where .= " AND\n l.module = '$modname'"; } if ('site_errors' === $modid) { $where .= " AND\n ( l.action='error' OR l.action='infected' )"; } else if ($modid) { //TODO: This assumes that modids are the same across sites... probably //not true $where .= " AND\n l.cmid = '$modid'"; } if ($modaction) { $firstletter = substr($modaction, 0, 1); if (preg_match('/[[:alpha:]]/', $firstletter)) { $where .= " AND\n lower(l.action) LIKE '%" . strtolower($modaction) . "%'"; } else if ($firstletter == '-') { $where .= " AND\n lower(l.action) NOT LIKE '%" . strtolower(substr($modaction, 1)) . "%'"; } } if ($user) { $where .= " AND\n l.userid = '$user'"; } if ($date) { $enddate = $date + 86400; $where .= " AND\n l.time > '$date' AND l.time < '$enddate'"; } $result = array(); $result['totalcount'] = count_records_sql("SELECT COUNT(*) FROM {$CFG->prefix}mnet_log l WHERE $where"); if(!empty($result['totalcount'])) { $where .= "\n ORDER BY\n $order"; $result['logs'] = get_records_sql($qry.$where, $limitfrom, $limitnum); } else { $result['logs'] = array(); } return $result; } function build_logs_array($course, $user=0, $date=0, $order="l.time ASC", $limitfrom='', $limitnum='', $modname="", $modid=0, $modaction="", $groupid=0) { // It is assumed that $date is the GMT time of midnight for that day, // and so the next 86400 seconds worth of logs are printed. /// Setup for group handling. /// If the group mode is separate, and this user does not have editing privileges, /// then only the user's group can be viewed. if ($course->groupmode == SEPARATEGROUPS and !has_capability('moodle/course:managegroups', get_context_instance(CONTEXT_COURSE, $course->id))) { $groupid = get_current_group($course->id); } /// If this course doesn't have groups, no groupid can be specified. else if (!$course->groupmode) { $groupid = 0; } $joins = array(); if ($course->id != SITEID || $modid != 0) { $joins[] = "l.course='$course->id'"; } if ($modname) { $joins[] = "l.module = '$modname'"; } if ('site_errors' === $modid) { $joins[] = "( l.action='error' OR l.action='infected' )"; } else if ($modid) { $joins[] = "l.cmid = '$modid'"; } if ($modaction) { $firstletter = substr($modaction, 0, 1); if (preg_match('/[[:alpha:]]/', $firstletter)) { $joins[] = "lower(l.action) LIKE '%" . strtolower($modaction) . "%'"; } else if ($firstletter == '-') { $joins[] = "lower(l.action) NOT LIKE '%" . strtolower(substr($modaction, 1)) . "%'"; } } /// Getting all members of a group. if ($groupid and !$user) { if ($gusers = groups_get_members($groupid)) { $gusers = array_keys($gusers); $joins[] = 'l.userid IN (' . implode(',', $gusers) . ')'; } else { $joins[] = 'l.userid = 0'; // No users in groups, so we want something that will always be false. } } else if ($user) { $joins[] = "l.userid = '$user'"; } if ($date) { $enddate = $date + 86400; $joins[] = "l.time > '$date' AND l.time < '$enddate'"; } $selector = implode(' AND ', $joins); $totalcount = 0; // Initialise $result = array(); $result['logs'] = get_logs($selector, $order, $limitfrom, $limitnum, $totalcount); $result['totalcount'] = $totalcount; return $result; } function print_log($course, $user=0, $date=0, $order="l.time ASC", $page=0, $perpage=100, $url="", $modname="", $modid=0, $modaction="", $groupid=0) { global $CFG; if (!$logs = build_logs_array($course, $user, $date, $order, $page*$perpage, $perpage, $modname, $modid, $modaction, $groupid)) { notify("No logs found!"); print_footer($course); exit; } $courses = array(); if ($course->id == SITEID) { $courses[0] = ''; if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) { foreach ($ccc as $cc) { $courses[$cc->id] = $cc->shortname; } } } else { $courses[$course->id] = $course->shortname; } $totalcount = $logs['totalcount']; $count=0; $ldcache = array(); $tt = getdate(time()); $today = mktime (0, 0, 0, $tt["mon"], $tt["mday"], $tt["year"]); $strftimedatetime = get_string("strftimedatetime"); echo "<div class=\"info\">\n"; print_string("displayingrecords", "", $totalcount); echo "</div>\n"; print_paging_bar($totalcount, $page, $perpage, "$url&perpage=$perpage&"); echo '<table class="logtable generalbox boxaligncenter" summary="">'."\n"; // echo "<table class=\"logtable\" cellpadding=\"3\" cellspacing=\"0\" summary=\"\">\n"; echo "<tr>"; if ($course->id == SITEID) { echo "<th class=\"c0 header\" scope=\"col\">".get_string('course')."</th>\n"; } echo "<th class=\"c1 header\" scope=\"col\">".get_string('time')."</th>\n"; echo "<th class=\"c2 header\" scope=\"col\">".get_string('ip_address')."</th>\n"; echo "<th class=\"c3 header\" scope=\"col\">".get_string('fullname')."</th>\n"; echo "<th class=\"c4 header\" scope=\"col\">".get_string('action')."</th>\n"; echo "<th class=\"c5 header\" scope=\"col\">".get_string('info')."</th>\n"; echo "</tr>\n"; // Make sure that the logs array is an array, even it is empty, to avoid warnings from the foreach. if (empty($logs['logs'])) { $logs['logs'] = array(); } $row = 1; foreach ($logs['logs'] as $log) { $row = ($row + 1) % 2; if (isset($ldcache[$log->module][$log->action])) { $ld = $ldcache[$log->module][$log->action]; } else { $ld = get_record('log_display', 'module', $log->module, 'action', $log->action); $ldcache[$log->module][$log->action] = $ld; } if ($ld && is_numeric($log->info)) { // ugly hack to make sure fullname is shown correctly if (($ld->mtable == 'user') and ($ld->field == sql_concat('firstname', "' '" , 'lastname'))) { $log->info = fullname(get_record($ld->mtable, 'id', $log->info), true); } else { $log->info = get_field($ld->mtable, $ld->field, 'id', $log->info); } } //Filter log->info $log->info = format_string($log->info); // If $log->url has been trimmed short by the db size restriction // code in add_to_log, keep a note so we don't add a link to a broken url $tl=textlib_get_instance(); $brokenurl=($tl->strlen($log->url)==100 && $tl->substr($log->url,97)=='...'); echo '<tr class="r'.$row.'">'; if ($course->id == SITEID) { echo "<td class=\"cell c0\">\n"; if (empty($log->course)) { echo get_string('site') . "\n"; } else { echo " <a href=\"{$CFG->wwwroot}/course/view.php?id={$log->course}\">". format_string($courses[$log->course])."</a>\n"; } echo "</td>\n"; } echo "<td class=\"cell c1\" align=\"right\">".userdate($log->time, '%a'). ' '.userdate($log->time, $strftimedatetime)."</td>\n"; echo "<td class=\"cell c2\">\n"; link_to_popup_window("/iplookup/index.php?ip=$log->ip&user=$log->userid", 'iplookup',$log->ip, 440, 700); echo "</td>\n"; $fullname = fullname($log, has_capability('moodle/site:viewfullnames', get_context_instance(CONTEXT_COURSE, $course->id))); echo "<td class=\"cell c3\">\n"; echo " <a href=\"$CFG->wwwroot/user/view.php?id={$log->userid}&course={$log->course}\">$fullname</a>\n"; echo "</td>\n"; echo "<td class=\"cell c4\">\n"; $displayaction="$log->module $log->action"; if($brokenurl) { echo $displayaction; } else { link_to_popup_window( make_log_url($log->module,$log->url), 'fromloglive',$displayaction, 440, 700); } echo "</td>\n";; echo "<td class=\"cell c5\">{$log->info}</td>\n"; echo "</tr>\n"; } echo "</table>\n"; print_paging_bar($totalcount, $page, $perpage, "$url&perpage=$perpage&"); } function print_mnet_log($hostid, $course, $user=0, $date=0, $order="l.time ASC", $page=0, $perpage=100, $url="", $modname="", $modid=0, $modaction="", $groupid=0) { global $CFG; if (!$logs = build_mnet_logs_array($hostid, $course, $user, $date, $order, $page*$perpage, $perpage, $modname, $modid, $modaction, $groupid)) { notify("No logs found!"); print_footer($course); exit; } if ($course->id == SITEID) { $courses[0] = ''; if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname,c.visible')) { foreach ($ccc as $cc) { $courses[$cc->id] = $cc->shortname; } } } $totalcount = $logs['totalcount']; $count=0; $ldcache = array(); $tt = getdate(time()); $today = mktime (0, 0, 0, $tt["mon"], $tt["mday"], $tt["year"]); $strftimedatetime = get_string("strftimedatetime"); echo "<div class=\"info\">\n"; print_string("displayingrecords", "", $totalcount); echo "</div>\n"; print_paging_bar($totalcount, $page, $perpage, "$url&perpage=$perpage&"); echo "<table class=\"logtable\" cellpadding=\"3\" cellspacing=\"0\">\n"; echo "<tr>"; if ($course->id == SITEID) { echo "<th class=\"c0 header\">".get_string('course')."</th>\n"; } echo "<th class=\"c1 header\">".get_string('time')."</th>\n"; echo "<th class=\"c2 header\">".get_string('ip_address')."</th>\n"; echo "<th class=\"c3 header\">".get_string('fullname')."</th>\n"; echo "<th class=\"c4 header\">".get_string('action')."</th>\n"; echo "<th class=\"c5 header\">".get_string('info')."</th>\n"; echo "</tr>\n"; if (empty($logs['logs'])) { echo "</table>\n"; return; } $row = 1; foreach ($logs['logs'] as $log) { $log->info = $log->coursename; $row = ($row + 1) % 2; if (isset($ldcache[$log->module][$log->action])) { $ld = $ldcache[$log->module][$log->action]; } else { $ld = get_record('log_display', 'module', $log->module, 'action', $log->action); $ldcache[$log->module][$log->action] = $ld; } if (0 && $ld && !empty($log->info)) { // ugly hack to make sure fullname is shown correctly if (($ld->mtable == 'user') and ($ld->field == sql_concat('firstname', "' '" , 'lastname'))) { $log->info = fullname(get_record($ld->mtable, 'id', $log->info), true); } else { $log->info = get_field($ld->mtable, $ld->field, 'id', $log->info); } } //Filter log->info $log->info = format_string($log->info); echo '<tr class="r'.$row.'">'; if ($course->id == SITEID) { echo "<td class=\"r$row c0\" >\n"; echo " <a href=\"{$CFG->wwwroot}/course/view.php?id={$log->course}\">".$courses[$log->course]."</a>\n"; echo "</td>\n"; } echo "<td class=\"r$row c1\" align=\"right\">".userdate($log->time, '%a'). ' '.userdate($log->time, $strftimedatetime)."</td>\n"; echo "<td class=\"r$row c2\" >\n"; link_to_popup_window("/iplookup/index.php?ip=$log->ip&user=$log->userid", 'iplookup',$log->ip, 400, 700); echo "</td>\n"; $fullname = fullname($log, has_capability('moodle/site:viewfullnames', get_context_instance(CONTEXT_COURSE, $course->id))); echo "<td class=\"r$row c3\" >\n"; echo " <a href=\"$CFG->wwwroot/user/view.php?id={$log->userid}\">$fullname</a>\n"; echo "</td>\n"; echo "<td class=\"r$row c4\">\n"; echo $log->action .': '.$log->module; echo "</td>\n";; echo "<td class=\"r$row c5\">{$log->info}</td>\n"; echo "</tr>\n"; } echo "</table>\n"; print_paging_bar($totalcount, $page, $perpage, "$url&perpage=$perpage&"); } function print_log_csv($course, $user, $date, $order='l.time DESC', $modname, $modid, $modaction, $groupid) { $text = get_string('course')."\t".get_string('time')."\t".get_string('ip_address')."\t". get_string('fullname')."\t".get_string('action')."\t".get_string('info'); if (!$logs = build_logs_array($course, $user, $date, $order, '', '', $modname, $modid, $modaction, $groupid)) { return false; } $courses = array(); if ($course->id == SITEID) { $courses[0] = ''; if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) { foreach ($ccc as $cc) { $courses[$cc->id] = $cc->shortname; } } } else { $courses[$course->id] = $course->shortname; } $count=0; $ldcache = array(); $tt = getdate(time()); $today = mktime (0, 0, 0, $tt["mon"], $tt["mday"], $tt["year"]); $strftimedatetime = get_string("strftimedatetime"); $filename = 'logs_'.userdate(time(),get_string('backupnameformat'),99,false); $filename .= '.txt'; header("Content-Type: application/download\n"); header("Content-Disposition: attachment; filename=$filename"); header("Expires: 0"); header("Cache-Control: must-revalidate,post-check=0,pre-check=0"); header("Pragma: public"); echo get_string('savedat').userdate(time(), $strftimedatetime)."\n"; echo $text; if (empty($logs['logs'])) { return true; } foreach ($logs['logs'] as $log) { if (isset($ldcache[$log->module][$log->action])) { $ld = $ldcache[$log->module][$log->action]; } else { $ld = get_record('log_display', 'module', $log->module, 'action', $log->action); $ldcache[$log->module][$log->action] = $ld; } if ($ld && !empty($log->info)) { // ugly hack to make sure fullname is shown correctly if (($ld->mtable == 'user') and ($ld->field == sql_concat('firstname', "' '" , 'lastname'))) { $log->info = fullname(get_record($ld->mtable, 'id', $log->info), true); } else { $log->info = get_field($ld->mtable, $ld->field, 'id', $log->info); } } //Filter log->info $log->info = format_string($log->info); $log->info = strip_tags(urldecode($log->info)); // Some XSS protection $firstField = $courses[$log->course]; $fullname = fullname($log, has_capability('moodle/site:viewfullnames', get_context_instance(CONTEXT_COURSE, $course->id))); $row = array($firstField, userdate($log->time, $strftimedatetime), $log->ip, $fullname, $log->module.' '.$log->action, $log->info); $text = implode("\t", $row); echo $text." \n"; } return true; } function print_log_xls($course, $user, $date, $order='l.time DESC', $modname, $modid, $modaction, $groupid) { global $CFG; require_once("$CFG->libdir/excellib.class.php"); if (!$logs = build_logs_array($course, $user, $date, $order, '', '', $modname, $modid, $modaction, $groupid)) { return false; } $courses = array(); if ($course->id == SITEID) { $courses[0] = ''; if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) { foreach ($ccc as $cc) { $courses[$cc->id] = $cc->shortname; } } } else { $courses[$course->id] = $course->shortname; } $count=0; $ldcache = array(); $tt = getdate(time()); $today = mktime (0, 0, 0, $tt["mon"], $tt["mday"], $tt["year"]); $strftimedatetime = get_string("strftimedatetime"); $nroPages = ceil(count($logs)/(EXCELROWS-FIRSTUSEDEXCELROW+1)); $filename = 'logs_'.userdate(time(),get_string('backupnameformat'),99,false); $filename .= '.xls'; $workbook = new MoodleExcelWorkbook('-'); $workbook->send($filename); $worksheet = array(); $headers = array(get_string('course'), get_string('time'), get_string('ip_address'), get_string('fullname'), get_string('action'), get_string('info')); // Creating worksheets for ($wsnumber = 1; $wsnumber <= $nroPages; $wsnumber++) { $sheettitle = get_string('logs').' '.$wsnumber.'-'.$nroPages; $worksheet[$wsnumber] =& $workbook->add_worksheet($sheettitle); $worksheet[$wsnumber]->set_column(1, 1, 30); $worksheet[$wsnumber]->write_string(0, 0, get_string('savedat'). userdate(time(), $strftimedatetime)); $col = 0; foreach ($headers as $item) { $worksheet[$wsnumber]->write(FIRSTUSEDEXCELROW-1,$col,$item,''); $col++; } } if (empty($logs['logs'])) { $workbook->close(); return true; } $formatDate =& $workbook->add_format(); $formatDate->set_num_format(get_string('log_excel_date_format')); $row = FIRSTUSEDEXCELROW; $wsnumber = 1; $myxls =& $worksheet[$wsnumber]; foreach ($logs['logs'] as $log) { if (isset($ldcache[$log->module][$log->action])) { $ld = $ldcache[$log->module][$log->action]; } else { $ld = get_record('log_display', 'module', $log->module, 'action', $log->action); $ldcache[$log->module][$log->action] = $ld; } if ($ld && !empty($log->info)) { // ugly hack to make sure fullname is shown correctly if (($ld->mtable == 'user') and ($ld->field == sql_concat('firstname', "' '" , 'lastname'))) { $log->info = fullname(get_record($ld->mtable, 'id', $log->info), true); } else { $log->info = get_field($ld->mtable, $ld->field, 'id', $log->info); } } // Filter log->info $log->info = format_string($log->info); $log->info = strip_tags(urldecode($log->info)); // Some XSS protection if ($nroPages>1) { if ($row > EXCELROWS) { $wsnumber++; $myxls =& $worksheet[$wsnumber]; $row = FIRSTUSEDEXCELROW; } } $myxls->write($row, 0, $courses[$log->course], ''); $myxls->write_date($row, 1, $log->time, $formatDate); // write_date() does conversion/timezone support. MDL-14934 $myxls->write($row, 2, $log->ip, ''); $fullname = fullname($log, has_capability('moodle/site:viewfullnames', get_context_instance(CONTEXT_COURSE, $course->id))); $myxls->write($row, 3, $fullname, ''); $myxls->write($row, 4, $log->module.' '.$log->action, ''); $myxls->write($row, 5, $log->info, ''); $row++; } $workbook->close(); return true; } function print_log_ods($course, $user, $date, $order='l.time DESC', $modname, $modid, $modaction, $groupid) { global $CFG; require_once("$CFG->libdir/odslib.class.php"); if (!$logs = build_logs_array($course, $user, $date, $order, '', '', $modname, $modid, $modaction, $groupid)) { return false; } $courses = array(); if ($course->id == SITEID) { $courses[0] = ''; if ($ccc = get_courses('all', 'c.id ASC', 'c.id,c.shortname')) { foreach ($ccc as $cc) { $courses[$cc->id] = $cc->shortname; } } } else { $courses[$course->id] = $course->shortname; } $count=0; $ldcache = array(); $tt = getdate(time()); $today = mktime (0, 0, 0, $tt["mon"], $tt["mday"], $tt["year"]); $strftimedatetime = get_string("strftimedatetime"); $nroPages = ceil(count($logs)/(EXCELROWS-FIRSTUSEDEXCELROW+1)); $filename = 'logs_'.userdate(time(),get_string('backupnameformat'),99,false); $filename .= '.ods'; $workbook = new MoodleODSWorkbook('-'); $workbook->send($filename); $worksheet = array(); $headers = array(get_string('course'), get_string('time'), get_string('ip_address'), get_string('fullname'), get_string('action'), get_string('info')); // Creating worksheets for ($wsnumber = 1; $wsnumber <= $nroPages; $wsnumber++) { $sheettitle = get_string('logs').' '.$wsnumber.'-'.$nroPages; $worksheet[$wsnumber] =& $workbook->add_worksheet($sheettitle); $worksheet[$wsnumber]->set_column(1, 1, 30); $worksheet[$wsnumber]->write_string(0, 0, get_string('savedat'). userdate(time(), $strftimedatetime)); $col = 0; foreach ($headers as $item) { $worksheet[$wsnumber]->write(FIRSTUSEDEXCELROW-1,$col,$item,''); $col++; } } if (empty($logs['logs'])) { $workbook->close(); return true; } $formatDate =& $workbook->add_format(); $formatDate->set_num_format(get_string('log_excel_date_format')); $row = FIRSTUSEDEXCELROW; $wsnumber = 1; $myxls =& $worksheet[$wsnumber]; foreach ($logs['logs'] as $log) { if (isset($ldcache[$log->module][$log->action])) { $ld = $ldcache[$log->module][$log->action]; } else { $ld = get_record('log_display', 'module', $log->module, 'action', $log->action); $ldcache[$log->module][$log->action] = $ld; } if ($ld && !empty($log->info)) { // ugly hack to make sure fullname is shown correctly if (($ld->mtable == 'user') and ($ld->field == sql_concat('firstname', "' '" , 'lastname'))) { $log->info = fullname(get_record($ld->mtable, 'id', $log->info), true); } else { $log->info = get_field($ld->mtable, $ld->field, 'id', $log->info); } } // Filter log->info $log->info = format_string($log->info); $log->info = strip_tags(urldecode($log->info)); // Some XSS protection if ($nroPages>1) { if ($row > EXCELROWS) { $wsnumber++; $myxls =& $worksheet[$wsnumber]; $row = FIRSTUSEDEXCELROW; } } $myxls->write_string($row, 0, $courses[$log->course]); $myxls->write_date($row, 1, $log->time); $myxls->write_string($row, 2, $log->ip); $fullname = fullname($log, has_capability('moodle/site:viewfullnames', get_context_instance(CONTEXT_COURSE, $course->id))); $myxls->write_string($row, 3, $fullname); $myxls->write_string($row, 4, $log->module.' '.$log->action); $myxls->write_string($row, 5, $log->info); $row++; } $workbook->close(); return true; } function print_log_graph($course, $userid=0, $type="course.png", $date=0) { global $CFG, $USER; if (empty($CFG->gdversion)) { echo "(".get_string("gdneed").")"; } else { // MDL-10818, do not display broken graph when user has no permission to view graph if (has_capability('coursereport/log:view', get_context_instance(CONTEXT_COURSE, $course->id)) || ($course->showreports and $USER->id == $userid)) { echo '<img src="'.$CFG->wwwroot.'/course/report/log/graph.php?id='.$course->id. '&user='.$userid.'&type='.$type.'&date='.$date.'" alt="" />'; } } } function print_overview($courses) { global $CFG, $USER; $htmlarray = array(); if ($modules = get_records('modules')) { foreach ($modules as $mod) { if (file_exists(dirname(dirname(__FILE__)).'/mod/'.$mod->name.'/lib.php')) { include_once(dirname(dirname(__FILE__)).'/mod/'.$mod->name.'/lib.php'); $fname = $mod->name.'_print_overview'; if (function_exists($fname)) { $fname($courses,$htmlarray); } } } } foreach ($courses as $course) { print_simple_box_start('center', '100%', '', 5, "coursebox"); $linkcss = ''; if (empty($course->visible)) { $linkcss = 'class="dimmed"'; } print_heading('<a title="'. format_string($course->fullname).'" '.$linkcss.' href="'.$CFG->wwwroot.'/course/view.php?id='.$course->id.'">'. format_string($course->fullname).'</a>'); if (array_key_exists($course->id,$htmlarray)) { foreach ($htmlarray[$course->id] as $modname => $html) { echo $html; } } print_simple_box_end(); } } function print_recent_activity($course) { // $course is an object // This function trawls through the logs looking for // anything new since the user's last login global $CFG, $USER, $SESSION; $context = get_context_instance(CONTEXT_COURSE, $course->id); $viewfullnames = has_capability('moodle/site:viewfullnames', $context); $timestart = round(time() - COURSE_MAX_RECENT_PERIOD, -2); // better db caching for guests - 100 seconds if (!has_capability('moodle/legacy:guest', $context, NULL, false)) { if (!empty($USER->lastcourseaccess[$course->id])) { if ($USER->lastcourseaccess[$course->id] > $timestart) { $timestart = $USER->lastcourseaccess[$course->id]; } } } echo '<div class="activitydate">'; echo get_string('activitysince', '', userdate($timestart)); echo '</div>'; echo '<div class="activityhead">'; echo '<a href="'.$CFG->wwwroot.'/course/recent.php?id='.$course->id.'">'.get_string('recentactivityreport').'</a>'; echo "</div>\n"; $content = false; /// Firstly, have there been any new enrolments? $users = get_recent_enrolments($course->id, $timestart); //Accessibility: new users now appear in an <OL> list. if ($users) { echo '<div class="newusers">'; print_headline(get_string("newusers").':', 3); $content = true; echo "<ol class=\"list\">\n"; foreach ($users as $user) { $fullname = fullname($user, $viewfullnames); echo '<li class="name"><a href="'."$CFG->wwwroot/user/view.php?id=$user->id&course=$course->id\">$fullname</a></li>\n"; } echo "</ol>\n</div>\n"; } /// Next, have there been any modifications to the course structure? $modinfo =& get_fast_modinfo($course); $changelist = array(); $logs = get_records_select('log', "time > $timestart AND course = $course->id AND module = 'course' AND (action = 'add mod' OR action = 'update mod' OR action = 'delete mod')", "id ASC"); if ($logs) { $actions = array('add mod', 'update mod', 'delete mod'); $newgones = array(); // added and later deleted items foreach ($logs as $key => $log) { if (!in_array($log->action, $actions)) { continue; } $info = split(' ', $log->info); if ($info[0] == 'label') { // Labels are ignored in recent activity continue; } if (count($info) != 2) { debugging("Incorrect log entry info: id = ".$log->id, DEBUG_DEVELOPER); continue; } $modname = $info[0]; $instanceid = $info[1]; if ($log->action == 'delete mod') { // unfortunately we do not know if the mod was visible if (!array_key_exists($log->info, $newgones)) { $strdeleted = get_string('deletedactivity', 'moodle', get_string('modulename', $modname)); $changelist[$log->info] = array ('operation' => 'delete', 'text' => $strdeleted); } } else { if (!isset($modinfo->instances[$modname][$instanceid])) { if ($log->action == 'add mod') { // do not display added and later deleted activities $newgones[$log->info] = true; } continue; } $cm = $modinfo->instances[$modname][$instanceid]; if (!$cm->uservisible) { continue; } if ($log->action == 'add mod') { $stradded = get_string('added', 'moodle', get_string('modulename', $modname)); $changelist[$log->info] = array('operation' => 'add', 'text' => "$stradded:<br /><a href=\"$CFG->wwwroot/mod/$cm->modname/view.php?id={$cm->id}\">".format_string($cm->name, true)."</a>"); } else if ($log->action == 'update mod' and empty($changelist[$log->info])) { $strupdated = get_string('updated', 'moodle', get_string('modulename', $modname)); $changelist[$log->info] = array('operation' => 'update', 'text' => "$strupdated:<br /><a href=\"$CFG->wwwroot/mod/$cm->modname/view.php?id={$cm->id}\">".format_string($cm->name, true)."</a>"); } } } } if (!empty($changelist)) { print_headline(get_string('courseupdates').':', 3); $content = true; foreach ($changelist as $changeinfo => $change) { echo '<p class="activity">'.$change['text'].'</p>'; } } /// Now display new things from each module $usedmodules = array(); foreach($modinfo->cms as $cm) { if (isset($usedmodules[$cm->modname])) { continue; } if (!$cm->uservisible) { continue; } $usedmodules[$cm->modname] = $cm->modname; } foreach ($usedmodules as $modname) { // Each module gets it's own logs and prints them if (file_exists($CFG->dirroot.'/mod/'.$modname.'/lib.php')) { include_once($CFG->dirroot.'/mod/'.$modname.'/lib.php'); $print_recent_activity = $modname.'_print_recent_activity'; if (function_exists($print_recent_activity)) { // NOTE: original $isteacher (second parameter below) was replaced with $viewfullnames! $content = $print_recent_activity($course, $viewfullnames, $timestart) || $content; } } else { debugging("Missing lib.php in lib/{$modname} - please reinstall files or uninstall the module"); } } if (! $content) { echo '<p class="message">'.get_string('nothingnew').'</p>'; } } function get_array_of_activities($courseid) { // For a given course, returns an array of course activity objects // Each item in the array contains he following properties: // cm - course module id // mod - name of the module (eg forum) // section - the number of the section (eg week or topic) // name - the name of the instance // visible - is the instance visible or not // groupingid - grouping id // groupmembersonly - is this instance visible to group members only // extra - contains extra string to include in any link global $CFG; $mod = array(); if (!$rawmods = get_course_mods($courseid)) { return $mod; // always return array } if ($sections = get_records("course_sections", "course", $courseid, "section ASC")) { foreach ($sections as $section) { if (!empty($section->sequence)) { $sequence = explode(",", $section->sequence); foreach ($sequence as $seq) { if (empty($rawmods[$seq])) { continue; } $mod[$seq]->id = $rawmods[$seq]->instance; $mod[$seq]->cm = $rawmods[$seq]->id; $mod[$seq]->mod = $rawmods[$seq]->modname; $mod[$seq]->section = $section->section; $mod[$seq]->visible = $rawmods[$seq]->visible; $mod[$seq]->groupmode = $rawmods[$seq]->groupmode; $mod[$seq]->groupingid = $rawmods[$seq]->groupingid; $mod[$seq]->groupmembersonly = $rawmods[$seq]->groupmembersonly; $mod[$seq]->extra = ""; $modname = $mod[$seq]->mod; $functionname = $modname."_get_coursemodule_info"; if (!file_exists("$CFG->dirroot/mod/$modname/lib.php")) { continue; } include_once("$CFG->dirroot/mod/$modname/lib.php"); if (function_exists($functionname)) { if ($info = $functionname($rawmods[$seq])) { if (!empty($info->extra)) { $mod[$seq]->extra = $info->extra; } if (!empty($info->icon)) { $mod[$seq]->icon = $info->icon; } if (!empty($info->name)) { $mod[$seq]->name = urlencode($info->name); } } } if (!isset($mod[$seq]->name)) { $mod[$seq]->name = urlencode(get_field($rawmods[$seq]->modname, "name", "id", $rawmods[$seq]->instance)); } } } } } return $mod; } /** * Returns reference to full info about modules in course (including visibility). * Cached and as fast as possible (0 or 1 db query). * @param $course object or 'reset' string to reset caches, modinfo may be updated in db * @return mixed courseinfo object or nothing if resetting */ function &get_fast_modinfo(&$course, $userid=0) { global $CFG, $USER; static $cache = array(); if ($course === 'reset') { $cache = array(); $nothing = null; return $nothing; // we must return some reference } if (empty($userid)) { $userid = $USER->id; } if (array_key_exists($course->id, $cache) and $cache[$course->id]->userid == $userid) { return $cache[$course->id]; } if (empty($course->modinfo)) { // no modinfo yet - load it rebuild_course_cache($course->id); $course->modinfo = get_field('course', 'modinfo', 'id', $course->id); } $modinfo = new object(); $modinfo->courseid = $course->id; $modinfo->userid = $userid; $modinfo->sections = array(); $modinfo->cms = array(); $modinfo->instances = array(); $modinfo->groups = null; // loaded only when really needed - the only one db query $info = unserialize($course->modinfo); if (!is_array($info)) { // hmm, something is wrong - lets try to fix it rebuild_course_cache($course->id); $course->modinfo = get_field('course', 'modinfo', 'id', $course->id); $info = unserialize($course->modinfo); if (!is_array($info)) { return $modinfo; } } if ($info) { // detect if upgrade required $first = reset($info); if (!isset($first->id)) { rebuild_course_cache($course->id); $course->modinfo = get_field('course', 'modinfo', 'id', $course->id); $info = unserialize($course->modinfo); if (!is_array($info)) { return $modinfo; } } } $modlurals = array(); // If we haven't already preloaded contexts for the course, do it now preload_course_contexts($course->id); foreach ($info as $mod) { if (empty($mod->name)) { // something is wrong here continue; } // reconstruct minimalistic $cm $cm = new object(); $cm->id = $mod->cm; $cm->instance = $mod->id; $cm->course = $course->id; $cm->modname = $mod->mod; $cm->name = urldecode($mod->name); $cm->visible = $mod->visible; $cm->sectionnum = $mod->section; $cm->groupmode = $mod->groupmode; $cm->groupingid = $mod->groupingid; $cm->groupmembersonly = $mod->groupmembersonly; $cm->extra = isset($mod->extra) ? urldecode($mod->extra) : ''; $cm->icon = isset($mod->icon) ? $mod->icon : ''; $cm->uservisible = true; // preload long names plurals and also check module is installed properly if (!isset($modlurals[$cm->modname])) { if (!file_exists("$CFG->dirroot/mod/$cm->modname/lib.php")) { continue; } $modlurals[$cm->modname] = get_string('modulenameplural', $cm->modname); } $cm->modplural = $modlurals[$cm->modname]; $modcontext = get_context_instance(CONTEXT_MODULE,$cm->id); if (!$cm->visible and !has_capability('moodle/course:viewhiddenactivities', $modcontext, $userid)) { $cm->uservisible = false; } else if (!empty($CFG->enablegroupings) and !empty($cm->groupmembersonly) and !has_capability('moodle/site:accessallgroups', $modcontext, $userid)) { if (is_null($modinfo->groups)) { $modinfo->groups = groups_get_user_groups($course->id, $userid); } if (empty($modinfo->groups[$cm->groupingid])) { $cm->uservisible = false; } } if (!isset($modinfo->instances[$cm->modname])) { $modinfo->instances[$cm->modname] = array(); } $modinfo->instances[$cm->modname][$cm->instance] =& $cm; $modinfo->cms[$cm->id] =& $cm; // reconstruct sections if (!isset($modinfo->sections[$cm->sectionnum])) { $modinfo->sections[$cm->sectionnum] = array(); } $modinfo->sections[$cm->sectionnum][] = $cm->id; unset($cm); } unset($cache[$course->id]); // prevent potential reference problems when switching users $cache[$course->id] = $modinfo; // Ensure cache does not use too much RAM if (count($cache) > MAX_MODINFO_CACHE_SIZE) { reset($cache); $key = key($cache); unset($cache[$key]); } return $cache[$course->id]; } function get_all_mods($courseid, &$mods, &$modnames, &$modnamesplural, &$modnamesused) { // Returns a number of useful structures for course displays $mods = array(); // course modules indexed by id $modnames = array(); // all course module names (except resource!) $modnamesplural= array(); // all course module names (plural form) $modnamesused = array(); // course module names used if ($allmods = get_records("modules")) { foreach ($allmods as $mod) { if ($mod->visible) { $modnames[$mod->name] = get_string("modulename", "$mod->name"); $modnamesplural[$mod->name] = get_string("modulenameplural", "$mod->name"); } } asort($modnames, SORT_LOCALE_STRING); } else { error("No modules are installed!"); } if ($rawmods = get_course_mods($courseid)) { foreach($rawmods as $mod) { // Index the mods if (empty($modnames[$mod->modname])) { continue; } $mods[$mod->id] = $mod; $mods[$mod->id]->modfullname = $modnames[$mod->modname]; if (!$mod->visible and !has_capability('moodle/course:viewhiddenactivities', get_context_instance(CONTEXT_COURSE, $courseid))) { continue; } // Check groupings if (!groups_course_module_visible($mod)) { continue; } $modnamesused[$mod->modname] = $modnames[$mod->modname]; } if ($modnamesused) { asort($modnamesused, SORT_LOCALE_STRING); } } } function get_all_sections($courseid) { return get_records("course_sections", "course", "$courseid", "section", "section, id, course, summary, sequence, visible"); } function course_set_display($courseid, $display=0) { global $USER; if ($display == "all" or empty($display)) { $display = 0; } if (empty($USER->id) or $USER->username == 'guest') { //do not store settings in db for guests } else if (record_exists("course_display", "userid", $USER->id, "course", $courseid)) { set_field("course_display", "display", $display, "userid", $USER->id, "course", $courseid); } else { $record = new object(); $record->userid = $USER->id; $record->course = $courseid; $record->display = $display; if (!insert_record("course_display", $record)) { notify("Could not save your course display!"); } } return $USER->display[$courseid] = $display; // Note: = not == } function set_section_visible($courseid, $sectionnumber, $visibility) { /// For a given course section, markes it visible or hidden, /// and does the same for every activity in that section if ($section = get_record("course_sections", "course", $courseid, "section", $sectionnumber)) { set_field("course_sections", "visible", "$visibility", "id", $section->id); if (!empty($section->sequence)) { $modules = explode(",", $section->sequence); foreach ($modules as $moduleid) { set_coursemodule_visible($moduleid, $visibility, true); } } rebuild_course_cache($courseid); } } function print_section($course, $section, $mods, $modnamesused, $absolute=false, $width="100%") { /// Prints a section full of activity modules global $CFG, $USER; static $initialised; static $groupbuttons; static $groupbuttonslink; static $isediting; static $ismoving; static $strmovehere; static $strmovefull; static $strunreadpostsone; static $usetracking; static $groupings; if (!isset($initialised)) { $groupbuttons = ($course->groupmode or (!$course->groupmodeforce)); $groupbuttonslink = (!$course->groupmodeforce); $isediting = isediting($course->id); $ismoving = $isediting && ismoving($course->id); if ($ismoving) { $strmovehere = get_string("movehere"); $strmovefull = strip_tags(get_string("movefull", "", "'$USER->activitycopyname'")); } include_once($CFG->dirroot.'/mod/forum/lib.php'); if ($usetracking = forum_tp_can_track_forums()) { $strunreadpostsone = get_string('unreadpostsone', 'forum'); } $initialised = true; } $labelformatoptions = new object(); $labelformatoptions->noclean = true; /// Casting $course->modinfo to string prevents one notice when the field is null $modinfo = get_fast_modinfo($course); //Acccessibility: replace table with list <ul>, but don't output empty list. if (!empty($section->sequence)) { // Fix bug #5027, don't want style=\"width:$width\". echo "<ul class=\"section img-text\">\n"; $sectionmods = explode(",", $section->sequence); foreach ($sectionmods as $modnumber) { if (empty($mods[$modnumber])) { continue; } $mod = $mods[$modnumber]; if ($ismoving and $mod->id == $USER->activitycopy) { // do not display moving mod continue; } if (isset($modinfo->cms[$modnumber])) { if (!$modinfo->cms[$modnumber]->uservisible) { // visibility shortcut continue; } } else { if (!file_exists("$CFG->dirroot/mod/$mod->modname/lib.php")) { // module not installed continue; } if (!coursemodule_visible_for_user($mod)) { // full visibility check continue; } } echo '<li class="activity '.$mod->modname.'" id="module-'.$modnumber.'">'; // Unique ID if ($ismoving) { echo '<a title="'.$strmovefull.'"'. ' href="'.$CFG->wwwroot.'/course/mod.php?moveto='.$mod->id.'&sesskey='.$USER->sesskey.'">'. '<img class="movetarget" src="'.$CFG->pixpath.'/movehere.gif" '. ' alt="'.$strmovehere.'" /></a><br /> '; } if ($mod->indent) { print_spacer(12, 20 * $mod->indent, false); } $extra = ''; if (!empty($modinfo->cms[$modnumber]->extra)) { $extra = $modinfo->cms[$modnumber]->extra; } if ($mod->modname == "label") { echo "<span class=\""; if (!$mod->visible) { echo 'dimmed_text'; } else { echo 'label'; } echo '">'; echo format_text($extra, FORMAT_HTML, $labelformatoptions); echo "</span>"; if (!empty($CFG->enablegroupings) && !empty($mod->groupingid) && has_capability('moodle/course:managegroups', get_context_instance(CONTEXT_COURSE, $course->id))) { if (!isset($groupings)) { $groupings = groups_get_all_groupings($course->id); } echo " <span class=\"groupinglabel\">(".format_string($groupings[$mod->groupingid]->name).')</span>'; } } else { // Normal activity $instancename = format_string($modinfo->cms[$modnumber]->name, true, $course->id); if (!empty($modinfo->cms[$modnumber]->icon)) { $icon = "$CFG->pixpath/".$modinfo->cms[$modnumber]->icon; } else { $icon = "$CFG->modpixpath/$mod->modname/icon.gif"; } //Accessibility: for files get description via icon. $altname = ''; if ('resource'==$mod->modname) { if (!empty($modinfo->cms[$modnumber]->icon)) { $possaltname = $modinfo->cms[$modnumber]->icon; $mimetype = mimeinfo_from_icon('type', $possaltname); $altname = get_mimetype_description($mimetype); } else { $altname = $mod->modfullname; } } else { $altname = $mod->modfullname; } // Avoid unnecessary duplication. if (false!==stripos($instancename, $altname)) { $altname = ''; } // File type after name, for alphabetic lists (screen reader). if ($altname) { $altname = get_accesshide(' '.$altname); } $linkcss = $mod->visible ? "" : " class=\"dimmed\" "; echo '<a '.$linkcss.' '.$extra. // Title unnecessary! ' href="'.$CFG->wwwroot.'/mod/'.$mod->modname.'/view.php?id='.$mod->id.'">'. '<img src="'.$icon.'" class="activityicon" alt="" /> <span>'. $instancename.$altname.'</span></a>'; if (!empty($CFG->enablegroupings) && !empty($mod->groupingid) && has_capability('moodle/course:managegroups', get_context_instance(CONTEXT_COURSE, $course->id))) { if (!isset($groupings)) { $groupings = groups_get_all_groupings($course->id); } echo " <span class=\"groupinglabel\">(".format_string($groupings[$mod->groupingid]->name).')</span>'; } } if ($usetracking && $mod->modname == 'forum') { if ($unread = forum_tp_count_forum_unread_posts($mod, $course)) { echo '<span class="unread"> <a href="'.$CFG->wwwroot.'/mod/forum/view.php?id='.$mod->id.'">'; if ($unread == 1) { echo $strunreadpostsone; } else { print_string('unreadpostsnumber', 'forum', $unread); } echo '</a></span>'; } } if ($isediting) { // TODO: we must define this as mod property! if ($groupbuttons and $mod->modname != 'label' and $mod->modname != 'resource' and $mod->modname != 'glossary') { if (! $mod->groupmodelink = $groupbuttonslink) { $mod->groupmode = $course->groupmode; } } else { $mod->groupmode = false; } echo ' '; echo make_editing_buttons($mod, $absolute, true, $mod->indent, $section->section); } echo "</li>\n"; } } elseif ($ismoving) { echo "<ul class=\"section\">\n"; } if ($ismoving) { echo '<li><a title="'.$strmovefull.'"'. ' href="'.$CFG->wwwroot.'/course/mod.php?movetosection='.$section->id.'&sesskey='.$USER->sesskey.'">'. '<img class="movetarget" src="'.$CFG->pixpath.'/movehere.gif" '. ' alt="'.$strmovehere.'" /></a></li> '; } if (!empty($section->sequence) || $ismoving) { echo "</ul><!--class='section'-->\n\n"; } } /** * Prints the menus to add activities and resources. */ function print_section_add_menus($course, $section, $modnames, $vertical=false, $return=false) { global $CFG; // check to see if user can add menus if (!has_capability('moodle/course:manageactivities', get_context_instance(CONTEXT_COURSE, $course->id))) { return false; } static $resources = false; static $activities = false; if ($resources === false) { $resources = array(); $activities = array(); foreach($modnames as $modname=>$modnamestr) { if (!course_allowed_module($course, $modname)) { continue; } $libfile = "$CFG->dirroot/mod/$modname/lib.php"; if (!file_exists($libfile)) { continue; } include_once($libfile); $gettypesfunc = $modname.'_get_types'; if (function_exists($gettypesfunc)) { $types = $gettypesfunc(); foreach($types as $type) { if (!isset($type->modclass) or !isset($type->typestr)) { debugging('Incorrect activity type in '.$modname); continue; } if ($type->modclass == MOD_CLASS_RESOURCE) { $resources[$type->type] = $type->typestr; } else { $activities[$type->type] = $type->typestr; } } } else { // all mods without type are considered activity $activities[$modname] = $modnamestr; } } } $straddactivity = get_string('addactivity'); $straddresource = get_string('addresource'); $output = '<div class="section_add_menus">'; if (!$vertical) { $output .= '<div class="horizontal">'; } if (!empty($resources)) { $output .= popup_form("$CFG->wwwroot/course/mod.php?id=$course->id&section=$section&sesskey=".sesskey()."&add=", $resources, "ressection$section", "", $straddresource, 'resource/types', $straddresource, true); } if (!empty($activities)) { $output .= ' '; $output .= popup_form("$CFG->wwwroot/course/mod.php?id=$course->id&section=$section&sesskey=".sesskey()."&add=", $activities, "section$section", "", $straddactivity, 'mods', $straddactivity, true); } if (!$vertical) { $output .= '</div>'; } $output .= '</div>'; if ($return) { return $output; } else { echo $output; } } /** * Return the course category context for the category with id $categoryid, except * that if $categoryid is 0, return the system context. * * @param integer $categoryid a category id or 0. * @return object the corresponding context */ function get_category_or_system_context($categoryid) { if ($categoryid) { return get_context_instance(CONTEXT_COURSECAT, $categoryid); } else { return get_context_instance(CONTEXT_SYSTEM); } } /** * Rebuilds the cached list of course activities stored in the database * @param int $courseid - id of course to rebuil, empty means all * @param boolean $clearonly - only clear the modinfo fields, gets rebuild automatically on the fly */ function rebuild_course_cache($courseid=0, $clearonly=false) { global $COURSE; if ($clearonly) { $courseselect = empty($courseid) ? "" : "id = $courseid"; set_field_select('course', 'modinfo', null, $courseselect); // update cached global COURSE too ;-) if ($courseid == $COURSE->id) { $COURSE->modinfo = null; } // reset the fast modinfo cache $reset = 'reset'; get_fast_modinfo($reset); return; } if ($courseid) { $select = "id = '$courseid'"; } else { $select = ""; @set_time_limit(0); // this could take a while! MDL-10954 } if ($rs = get_recordset_select("course", $select,'','id,fullname')) { while($course = rs_fetch_next_record($rs)) { $modinfo = serialize(get_array_of_activities($course->id)); if (!set_field("course", "modinfo", $modinfo, "id", $course->id)) { notify("Could not cache module information for course '" . format_string($course->fullname) . "'!"); } // update cached global COURSE too ;-) if ($course->id == $COURSE->id) { $COURSE->modinfo = $modinfo; } } rs_close($rs); } // reset the fast modinfo cache $reset = 'reset'; get_fast_modinfo($reset); } /** * Gets the child categories of a given coures category. Uses a static cache * to make repeat calls efficient. * * @param unknown_type $parentid the id of a course category. * @return array all the child course categories. */ function get_child_categories($parentid) { static $allcategories = null; // only fill in this variable the first time if (null == $allcategories) { $allcategories = array(); $categories = get_categories(); foreach ($categories as $category) { if (empty($allcategories[$category->parent])) { $allcategories[$category->parent] = array(); } $allcategories[$category->parent][] = $category; } } if (empty($allcategories[$parentid])) { return array(); } else { return $allcategories[$parentid]; } } /** * This function recursively travels the categories, building up a nice list * for display. It also makes an array that list all the parents for each * category. * * For example, if you have a tree of categories like: * Miscellaneous (id = 1) * Subcategory (id = 2) * Sub-subcategory (id = 4) * Other category (id = 3) * Then after calling this function you will have * $list = array(1 => 'Miscellaneous', 2 => 'Miscellaneous / Subcategory', * 4 => 'Miscellaneous / Subcategory / Sub-subcategory', * 3 => 'Other category'); * $parents = array(2 => array(1), 4 => array(1, 2)); * * If you specify $requiredcapability, then only categories where the current * user has that capability will be added to $list, although all categories * will still be added to $parents, and if you only have $requiredcapability * in a child category, not the parent, then the child catgegory will still be * included. * * If you specify the option $excluded, then that category, and all its children, * are omitted from the tree. This is useful when you are doing something like * moving categories, where you do not want to allow people to move a category * to be the child of itself. * * @param array $list For output, accumulates an array categoryid => full category path name * @param array $parents For output, accumulates an array categoryid => list of parent category ids. * @param string/array $requiredcapability if given, only categories where the current * user has this capability will be added to $list. Can also be an array of capabilities, * in which case they are all required. * @param integer $excludeid Omit this category and its children from the lists built. * @param object $category Build the tree starting at this category - otherwise starts at the top level. * @param string $path For internal use, as part of recursive calls. */ function make_categories_list(&$list, &$parents, $requiredcapability = '', $excludeid = 0, $category = NULL, $path = "") { // initialize the arrays if needed if (!is_array($list)) { $list = array(); } if (!is_array($parents)) { $parents = array(); } if (empty($category)) { // Start at the top level. $category = new stdClass; $category->id = 0; } else { // This is the excluded category, don't include it. if ($excludeid > 0 && $excludeid == $category->id) { return; } // Update $path. if ($path) { $path = $path.' / '.format_string($category->name); } else { $path = format_string($category->name); } // Add this category to $list, if the permissions check out. if (empty($requiredcapability)) { $list[$category->id] = $path; } else { ensure_context_subobj_present($category, CONTEXT_COURSECAT); $requiredcapability = (array)$requiredcapability; if (has_all_capabilities($requiredcapability, $category->context)) { $list[$category->id] = $path; } } } // Add all the children recursively, while updating the parents array. if ($categories = get_child_categories($category->id)) { foreach ($categories as $cat) { if (!empty($category->id)) { if (isset($parents[$category->id])) { $parents[$cat->id] = $parents[$category->id]; } $parents[$cat->id][] = $category->id; } make_categories_list($list, $parents, $requiredcapability, $excludeid, $cat, $path); } } } function print_whole_category_list($category=NULL, $displaylist=NULL, $parentslist=NULL, $depth=-1, $showcourses = true) { /// Recursive function to print out all the categories in a nice format /// with or without courses included global $CFG; // maxcategorydepth == 0 meant no limit if (!empty($CFG->maxcategorydepth) && $depth >= $CFG->maxcategorydepth) { return; } if (!$displaylist) { make_categories_list($displaylist, $parentslist); } if ($category) { if ($category->visible or has_capability('moodle/category:viewhiddencategories', get_context_instance(CONTEXT_SYSTEM))) { print_category_info($category, $depth, $showcourses); } else { return; // Don't bother printing children of invisible categories } } else { $category->id = "0"; } if ($categories = get_child_categories($category->id)) { // Print all the children recursively $countcats = count($categories); $count = 0; $first = true; $last = false; foreach ($categories as $cat) { $count++; if ($count == $countcats) { $last = true; } $up = $first ? false : true; $down = $last ? false : true; $first = false; print_whole_category_list($cat, $displaylist, $parentslist, $depth + 1, $showcourses); } } } // this function will return $options array for choose_from_menu, with whitespace to denote nesting. function make_categories_options() { make_categories_list($cats,$parents); foreach ($cats as $key => $value) { if (array_key_exists($key,$parents)) { if ($indent = count($parents[$key])) { for ($i = 0; $i < $indent; $i++) { $cats[$key] = ' '.$cats[$key]; } } } } return $cats; } function print_category_info($category, $depth, $showcourses = false) { /// Prints the category info in indented fashion /// This function is only used by print_whole_category_list() above global $CFG; static $strallowguests, $strrequireskey, $strsummary; if (empty($strsummary)) { $strallowguests = get_string('allowguests'); $strrequireskey = get_string('requireskey'); $strsummary = get_string('summary'); } $catlinkcss = $category->visible ? '' : ' class="dimmed" '; static $coursecount = null; if (null === $coursecount) { // only need to check this once $coursecount = count_records('course') <= FRONTPAGECOURSELIMIT; } if ($showcourses and $coursecount) { $catimage = '<img src="'.$CFG->pixpath.'/i/course.gif" alt="" />'; } else { $catimage = " "; } echo "\n\n".'<table class="categorylist">'; $courses = get_courses($category->id, 'c.sortorder ASC', 'c.id,c.sortorder,c.visible,c.fullname,c.shortname,c.password,c.summary,c.guest,c.cost,c.currency'); if ($showcourses and $coursecount) { echo '<tr>'; if ($depth) { $indent = $depth*30; $rows = count($courses) + 1; echo '<td class="category indentation" rowspan="'.$rows.'" valign="top">'; print_spacer(10, $indent); echo '</td>'; } echo '<td valign="top" class="category image">'.$catimage.'</td>'; echo '<td valign="top" class="category name">'; echo '<a '.$catlinkcss.' href="'.$CFG->wwwroot.'/course/category.php?id='.$category->id.'">'. format_string($category->name).'</a>'; echo '</td>'; echo '<td class="category info"> </td>'; echo '</tr>'; // does the depth exceed maxcategorydepth // maxcategorydepth == 0 or unset meant no limit $limit = !(isset($CFG->maxcategorydepth) && ($depth >= $CFG->maxcategorydepth-1)); if ($courses && ($limit || $CFG->maxcategorydepth == 0)) { foreach ($courses as $course) { $linkcss = $course->visible ? '' : ' class="dimmed" '; echo '<tr><td valign="top"> '; echo '</td><td valign="top" class="course name">'; echo '<a '.$linkcss.' href="'.$CFG->wwwroot.'/course/view.php?id='.$course->id.'">'. format_string($course->fullname).'</a>'; echo '</td><td align="right" valign="top" class="course info">'; if ($course->guest ) { echo '<a title="'.$strallowguests.'" href="'.$CFG->wwwroot.'/course/view.php?id='.$course->id.'">'; echo '<img alt="'.$strallowguests.'" src="'.$CFG->pixpath.'/i/guest.gif" /></a>'; } else { echo '<img alt="" style="width:18px;height:16px;" src="'.$CFG->pixpath.'/spacer.gif" />'; } if ($course->password) { echo '<a title="'.$strrequireskey.'" href="'.$CFG->wwwroot.'/course/view.php?id='.$course->id.'">'; echo '<img alt="'.$strrequireskey.'" src="'.$CFG->pixpath.'/i/key.gif" /></a>'; } else { echo '<img alt="" style="width:18px;height:16px;" src="'.$CFG->pixpath.'/spacer.gif" />'; } if ($course->summary) { link_to_popup_window ('/course/info.php?id='.$course->id, 'courseinfo', '<img alt="'.$strsummary.'" src="'.$CFG->pixpath.'/i/info.gif" />', 400, 500, $strsummary); } else { echo '<img alt="" style="width:18px;height:16px;" src="'.$CFG->pixpath.'/spacer.gif" />'; } echo '</td></tr>'; } } } else { echo '<tr>'; if ($depth) { $indent = $depth*20; echo '<td class="category indentation" valign="top">'; print_spacer(10, $indent); echo '</td>'; } echo '<td valign="top" class="category name">'; echo '<a '.$catlinkcss.' href="'.$CFG->wwwroot.'/course/category.php?id='.$category->id.'">'. format_string($category->name).'</a>'; echo '</td>'; echo '<td valign="top" class="category number">'; if (count($courses)) { echo count($courses); } echo '</td></tr>'; } echo '</table>'; } /** * Print the buttons relating to course requests. * * @param object $systemcontext the system context. */ function print_course_request_buttons($systemcontext) { global $CFG; if (empty($CFG->enablecourserequests)) { return; } if (isloggedin() && !isguestuser() && !has_capability('moodle/course:create', $systemcontext) && has_capability('moodle/course:request', $systemcontext)) { /// Print a button to request a new course print_single_button('request.php', NULL, get_string('requestcourse'), 'get'); } /// Print a button to manage pending requests if (has_capability('moodle/site:approvecourse', $systemcontext)) { print_single_button('pending.php', NULL, get_string('coursespending'), 'get', '_self', false, '', !record_exists('course_request')); } } /** * Prints the turn editing on/off button on course/index.php or course/category.php. * * @param integer $categoryid The id of the category we are showing, or 0 for system context. * @return string HTML of the editing button, or empty string, if this user is not allowed * to see it. */ function update_category_button($categoryid = 0) { global $CFG, $USER; // Check permissions. $context = get_category_or_system_context($categoryid); if (!has_any_capability(array('moodle/category:manage', 'moodle/course:create'), $context)) { return ''; } // Work out the appropriate action. if (!empty($USER->categoryediting)) { $label = get_string('turneditingoff'); $edit = 'off'; } else { $label = get_string('turneditingon'); $edit = 'on'; } // Generate the button HTML. $options = array('categoryedit' => $edit, 'sesskey' => sesskey()); if ($categoryid) { $options['id'] = $categoryid; $page = 'category.php'; } else { $page = 'index.php'; } return print_single_button($CFG->wwwroot . '/course/' . $page, $options, $label, 'get', '', true); } function print_courses($category) { /// Category is 0 (for all courses) or an object global $CFG; if (!is_object($category) && $category==0) { $categories = get_child_categories(0); // Parent = 0 ie top-level categories only if (is_array($categories) && count($categories) == 1) { $category = array_shift($categories); $courses = get_courses_wmanagers($category->id, 'c.sortorder ASC', array('password','summary','currency')); } else { $courses = get_courses_wmanagers('all', 'c.sortorder ASC', array('password','summary','currency')); } unset($categories); } else { $courses = get_courses_wmanagers($category->id, 'c.sortorder ASC', array('password','summary','currency')); } if ($courses) { echo '<ul class="unlist">'; foreach ($courses as $course) { if ($course->visible == 1 || has_capability('moodle/course:viewhiddencourses',$course->context)) { echo '<li>'; print_course($course); echo "</li>\n"; } } echo "</ul>\n"; } else { print_heading(get_string("nocoursesyet")); $context = get_context_instance(CONTEXT_SYSTEM); if (has_capability('moodle/course:create', $context)) { $options = array(); $options['category'] = $category->id; echo '<div class="addcoursebutton">'; print_single_button($CFG->wwwroot.'/course/edit.php', $options, get_string("addnewcourse")); echo '</div>'; } } } /** * Print a description of a course, suitable for browsing in a list. * * @param object $course the course object. * @param string $highlightterms (optional) some search terms that should be highlighted in the display. */ function print_course($course, $highlightterms = '') { global $CFG, $USER; if (isset($course->context)) { $context = $course->context; } else { $context = get_context_instance(CONTEXT_COURSE, $course->id); } $linkcss = $course->visible ? '' : ' class="dimmed" '; echo '<div class="coursebox clearfix">'; echo '<div class="info">'; echo '<div class="name"><a title="'.get_string('entercourse').'"'. $linkcss.' href="'.$CFG->wwwroot.'/course/view.php?id='.$course->id.'">'. highlight($highlightterms, format_string($course->fullname)).'</a></div>'; /// first find all roles that are supposed to be displayed if (!empty($CFG->coursemanager)) { $managerroles = split(',', $CFG->coursemanager); $canseehidden = has_capability('moodle/role:viewhiddenassigns', $context); $namesarray = array(); if (isset($course->managers)) { if (count($course->managers)) { $rusers = $course->managers; $canviewfullnames = has_capability('moodle/site:viewfullnames', $context); /// Rename some of the role names if needed if (isset($context)) { $aliasnames = get_records('role_names', 'contextid', $context->id,'','roleid,contextid,name'); } // keep a note of users displayed to eliminate duplicates $usersshown = array(); foreach ($rusers as $ra) { // if we've already displayed user don't again if (in_array($ra->user->id,$usersshown)) { continue; } $usersshown[] = $ra->user->id; if ($ra->hidden == 0 || $canseehidden) { $fullname = fullname($ra->user, $canviewfullnames); if ($ra->hidden == 1) { $status = " <img src=\"{$CFG->pixpath}/t/show.gif\" title=\"".get_string('userhashiddenassignments', 'role')."\" alt=\"".get_string('hiddenassign')."\" class=\"hide-show-image\"/>"; } else { $status = ''; } if (isset($aliasnames[$ra->roleid])) { $ra->rolename = $aliasnames[$ra->roleid]->name; } $namesarray[] = format_string($ra->rolename) . ': <a href="'.$CFG->wwwroot.'/user/view.php?id='.$ra->user->id.'&course='.SITEID.'">' . $fullname . '</a>' . $status; } } } } else { $rusers = get_role_users($managerroles, $context, true, '', 'r.sortorder ASC, u.lastname ASC', $canseehidden); if (is_array($rusers) && count($rusers)) { $canviewfullnames = has_capability('moodle/site:viewfullnames', $context); /// Rename some of the role names if needed if (isset($context)) { $aliasnames = get_records('role_names', 'contextid', $context->id,'','roleid,contextid,name'); } foreach ($rusers as $teacher) { $fullname = fullname($teacher, $canviewfullnames); /// Apply role names if (isset($aliasnames[$teacher->roleid])) { $teacher->rolename = $aliasnames[$teacher->roleid]->name; } $namesarray[] = format_string($teacher->rolename) . ': <a href="'.$CFG->wwwroot.'/user/view.php?id='.$teacher->id.'&course='.SITEID.'">' . $fullname . '</a>'; } } } if (!empty($namesarray)) { echo "<ul class=\"teachers\">\n<li>"; echo implode('</li><li>', $namesarray); echo "</li></ul>"; } } require_once("$CFG->dirroot/enrol/enrol.class.php"); $enrol = enrolment_factory::factory($course->enrol); echo $enrol->get_access_icons($course); echo '</div><div class="summary">'; $options = NULL; $options->noclean = true; $options->para = false; echo highlight($highlightterms, format_text($course->summary, FORMAT_MOODLE, $options, $course->id)); echo '</div>'; echo '</div>'; } function print_my_moodle() { /// Prints custom user information on the home page. /// Over time this can include all sorts of information global $USER, $CFG; if (empty($USER->id)) { error("It shouldn't be possible to see My Moodle without being logged in."); } $courses = get_my_courses($USER->id, 'visible DESC,sortorder ASC', array('summary')); $rhosts = array(); $rcourses = array(); if (!empty($CFG->mnet_dispatcher_mode) && $CFG->mnet_dispatcher_mode==='strict') { $rcourses = get_my_remotecourses($USER->id); $rhosts = get_my_remotehosts(); } if (!empty($courses) || !empty($rcourses) || !empty($rhosts)) { if (!empty($courses)) { echo '<ul class="unlist">'; foreach ($courses as $course) { if ($course->id == SITEID) { continue; } echo '<li>'; print_course($course); echo "</li>\n"; } echo "</ul>\n"; } // MNET if (!empty($rcourses)) { // at the IDP, we know of all the remote courses foreach ($rcourses as $course) { print_remote_course($course, "100%"); } } elseif (!empty($rhosts)) { // non-IDP, we know of all the remote servers, but not courses foreach ($rhosts as $host) { print_remote_host($host, "100%"); } } unset($course); unset($host); if (count_records("course") > (count($courses) + 1) ) { // Some courses not being displayed echo "<table width=\"100%\"><tr><td align=\"center\">"; print_course_search("", false, "short"); echo "</td><td align=\"center\">"; print_single_button("$CFG->wwwroot/course/index.php", NULL, get_string("fulllistofcourses"), "get"); echo "</td></tr></table>\n"; } } else { if (count_records("course_categories") > 1) { print_simple_box_start("center", "100%", "#FFFFFF", 5, "categorybox"); print_whole_category_list(); print_simple_box_end(); } else { print_courses(0); } } } function print_course_search($value="", $return=false, $format="plain") { global $CFG; static $count = 0; $count++; $id = 'coursesearch'; if ($count > 1) { $id .= $count; } $strsearchcourses= get_string("searchcourses"); if ($format == 'plain') { $output = '<form id="'.$id.'" action="'.$CFG->wwwroot.'/course/search.php" method="get">'; $output .= '<fieldset class="coursesearchbox invisiblefieldset">'; $output .= '<label for="coursesearchbox">'.$strsearchcourses.': </label>'; $output .= '<input type="text" id="coursesearchbox" size="30" name="search" value="'.s($value, true).'" />'; $output .= '<input type="submit" value="'.get_string('go').'" />'; $output .= '</fieldset></form>'; } else if ($format == 'short') { $output = '<form id="'.$id.'" action="'.$CFG->wwwroot.'/course/search.php" method="get">'; $output .= '<fieldset class="coursesearchbox invisiblefieldset">'; $output .= '<label for="shortsearchbox">'.$strsearchcourses.': </label>'; $output .= '<input type="text" id="shortsearchbox" size="12" name="search" alt="'.s($strsearchcourses).'" value="'.s($value, true).'" />'; $output .= '<input type="submit" value="'.get_string('go').'" />'; $output .= '</fieldset></form>'; } else if ($format == 'navbar') { $output = '<form id="coursesearchnavbar" action="'.$CFG->wwwroot.'/course/search.php" method="get">'; $output .= '<fieldset class="coursesearchbox invisiblefieldset">'; $output .= '<label for="navsearchbox">'.$strsearchcourses.': </label>'; $output .= '<input type="text" id="navsearchbox" size="20" name="search" alt="'.s($strsearchcourses).'" value="'.s($value, true).'" />'; $output .= '<input type="submit" value="'.get_string('go').'" />'; $output .= '</fieldset></form>'; } if ($return) { return $output; } echo $output; } function print_remote_course($course, $width="100%") { global $CFG, $USER; $linkcss = ''; $url = "{$CFG->wwwroot}/auth/mnet/jump.php?hostid={$course->hostid}&wantsurl=/course/view.php?id={$course->remoteid}"; echo '<div class="coursebox remotecoursebox clearfix">'; echo '<div class="info">'; echo '<div class="name"><a title="'.get_string('entercourse').'"'. $linkcss.' href="'.$url.'">' . format_string($course->fullname) .'</a><br />' . format_string($course->hostname) . ' : ' . format_string($course->cat_name) . ' : ' . format_string($course->shortname). '</div>'; echo '</div><div class="summary">'; $options = NULL; $options->noclean = true; $options->para = false; echo format_text($course->summary, FORMAT_MOODLE, $options); echo '</div>'; echo '</div>'; } function print_remote_host($host, $width="100%") { global $CFG, $USER; $linkcss = ''; echo '<div class="coursebox clearfix">'; echo '<div class="info">'; echo '<div class="name">'; echo '<img src="'.$CFG->pixpath.'/i/mnethost.gif" class="icon" alt="'.get_string('course').'" />'; echo '<a title="'.s($host['name']).'" href="'.s($host['url']).'">' . s($host['name']).'</a> - '; echo $host['count'] . ' ' . get_string('courses'); echo '</div>'; echo '</div>'; echo '</div>'; } /// MODULE FUNCTIONS ///////////////////////////////////////////////////////////////// function add_course_module($mod) { $mod->added = time(); unset($mod->id); return insert_record("course_modules", $mod); } /** * Returns course section - creates new if does not exist yet. * @param int $relative section number * @param int $courseid * @return object $course_section object */ function get_course_section($section, $courseid) { if ($cw = get_record("course_sections", "section", $section, "course", $courseid)) { return $cw; } $cw = new object(); $cw->course = $courseid; $cw->section = $section; $cw->summary = ""; $cw->sequence = ""; $id = insert_record("course_sections", $cw); return get_record("course_sections", "id", $id); } /** * Given a full mod object with section and course already defined, adds this module to that section. * * @param object $mod * @param int $beforemod An existing ID which we will insert the new module before * @return int The course_sections ID where the mod is inserted */ function add_mod_to_section($mod, $beforemod=NULL) { if ($section = get_record("course_sections", "course", "$mod->course", "section", "$mod->section")) { $section->sequence = trim($section->sequence); if (empty($section->sequence)) { $newsequence = "$mod->coursemodule"; } else if ($beforemod) { $modarray = explode(",", $section->sequence); if ($key = array_keys ($modarray, $beforemod->id)) { $insertarray = array($mod->id, $beforemod->id); array_splice($modarray, $key[0], 1, $insertarray); $newsequence = implode(",", $modarray); } else { // Just tack it on the end anyway $newsequence = "$section->sequence,$mod->coursemodule"; } } else { $newsequence = "$section->sequence,$mod->coursemodule"; } if (set_field("course_sections", "sequence", $newsequence, "id", $section->id)) { return $section->id; // Return course_sections ID that was used. } else { return 0; } } else { // Insert a new record $section->course = $mod->course; $section->section = $mod->section; $section->summary = ""; $section->sequence = $mod->coursemodule; return insert_record("course_sections", $section); } } function set_coursemodule_groupmode($id, $groupmode) { return set_field("course_modules", "groupmode", $groupmode, "id", $id); } function set_coursemodule_groupingid($id, $groupingid) { return set_field("course_modules", "groupingid", $groupingid, "id", $id); } function set_coursemodule_groupmembersonly($id, $groupmembersonly) { return set_field("course_modules", "groupmembersonly", $groupmembersonly, "id", $id); } function set_coursemodule_idnumber($id, $idnumber) { return set_field("course_modules", "idnumber", $idnumber, "id", $id); } /** * $prevstateoverrides = true will set the visibility of the course module * to what is defined in visibleold. This enables us to remember the current * visibility when making a whole section hidden, so that when we toggle * that section back to visible, we are able to return the visibility of * the course module back to what it was originally. */ function set_coursemodule_visible($id, $visible, $prevstateoverrides=false) { if (!$cm = get_record('course_modules', 'id', $id)) { return false; } if (!$modulename = get_field('modules', 'name', 'id', $cm->module)) { return false; } if ($events = get_records_select('event', "instance = '$cm->instance' AND modulename = '$modulename'")) { foreach($events as $event) { if ($visible) { show_event($event); } else { hide_event($event); } } } if ($prevstateoverrides) { if ($visible == '0') { // Remember the current visible state so we can toggle this back. set_field('course_modules', 'visibleold', $cm->visible, 'id', $id); } else { // Get the previous saved visible states. return set_field('course_modules', 'visible', $cm->visibleold, 'id', $id); } } return set_field("course_modules", "visible", $visible, "id", $id); } /* * Delete a course module and any associated data at the course level (events) * Until 1.5 this function simply marked a deleted flag ... now it * deletes it completely. * */ function delete_course_module($id) { global $CFG; require_once($CFG->libdir.'/gradelib.php'); if (!$cm = get_record('course_modules', 'id', $id)) { return true; } $modulename = get_field('modules', 'name', 'id', $cm->module); //delete events from calendar if ($events = get_records_select('event', "instance = '$cm->instance' AND modulename = '$modulename'")) { foreach($events as $event) { delete_event($event->id); } } //delete grade items, outcome items and grades attached to modules if ($grade_items = grade_item::fetch_all(array('itemtype'=>'mod', 'itemmodule'=>$modulename, 'iteminstance'=>$cm->instance, 'courseid'=>$cm->course))) { foreach ($grade_items as $grade_item) { $grade_item->delete('moddelete'); } } delete_context(CONTEXT_MODULE, $cm->id); return delete_records('course_modules', 'id', $cm->id); } function delete_mod_from_section($mod, $section) { if ($section = get_record("course_sections", "id", "$section") ) { $modarray = explode(",", $section->sequence); if ($key = array_keys ($modarray, $mod)) { array_splice($modarray, $key[0], 1); $newsequence = implode(",", $modarray); return set_field("course_sections", "sequence", $newsequence, "id", $section->id); } else { return false; } } return false; } /** * Moves a section up or down by 1. CANNOT BE USED DIRECTLY BY AJAX! * * @param object $course * @param int $section * @param int $move (-1 or 1) */ function move_section($course, $section, $move) { /// Moves a whole course section up and down within the course global $USER; if (!$move) { return true; } $sectiondest = $section + $move; if ($sectiondest > $course->numsections or $sectiondest < 1) { return false; } if (!$sectionrecord = get_record("course_sections", "course", $course->id, "section", $section)) { return false; } if (!$sectiondestrecord = get_record("course_sections", "course", $course->id, "section", $sectiondest)) { return false; } $count = abs($sectiondest - $section); $direction = ($sectiondest - $section) / $count; for ($i = 0, $ref = $section + $direction; $i < $count; ++$i, $ref += $direction) { if (!set_field("course_sections", "section", $ref - $direction, 'course', $course->id, 'section', $ref)) { return false; } } if (!set_field("course_sections", "section", $sectiondest, "id", $sectionrecord->id)) { return false; } // if the focus is on the section that is being moved, then move the focus along if (isset($USER->display[$course->id]) and ($USER->display[$course->id] == $section)) { course_set_display($course->id, $sectiondest); } // Check for duplicates and fix order if needed. // There is a very rare case that some sections in the same course have the same section id. $sections = get_records_select('course_sections', "course = $course->id", 'section ASC'); $n = 0; foreach ($sections as $section) { if ($section->section != $n) { if (!set_field('course_sections', 'section', $n, 'id', $section->id)) { return false; } } $n++; } return true; } /** * Moves a section within a course, from a position to another. * Be very careful: $section and $destination refer to section number, * not id!. * * @param object $course * @param int $section Section number (not id!!!) * @param int $destination * @return boolean Result */ function move_section_to($course, $section, $destination) { /// Moves a whole course section up and down within the course global $USER; if (!$destination && $destination != 0) { return true; } if ($destination > $course->numsections) { return false; } // Get all sections for this course and re-order them (2 of them should now share the same section number) if (!$sections = get_records_menu('course_sections', 'course',$course->id, 'section ASC, id ASC', 'id, section')) { return false; } $sections = reorder_sections($sections, $section, $destination); // Update all sections foreach ($sections as $id => $position) { set_field('course_sections', 'section', $position, 'id', $id); } // if the focus is on the section that is being moved, then move the focus along if (isset($USER->display[$course->id]) and ($USER->display[$course->id] == $section)) { course_set_display($course->id, $destination); } return true; } /** * Reordering algorithm for course sections. Given an array of section->section indexed by section->id, * an original position number and a target position number, rebuilds the array so that the * move is made without any duplication of section positions. * Note: The target_position is the position AFTER WHICH the moved section will be inserted. If you want to * insert a section before the first one, you must give 0 as the target (section 0 can never be moved). * * @param array $sections * @param int $origin_position * @param int $target_position * @return array */ function reorder_sections($sections, $origin_position, $target_position) { if (!is_array($sections)) { return false; } // We can't move section position 0 if ($origin_position < 1) { echo "We can't move section position 0"; return false; } // Locate origin section in sections array if (!$origin_key = array_search($origin_position, $sections)) { echo "searched position not in sections array"; return false; // searched position not in sections array } // Extract origin section $origin_section = $sections[$origin_key]; unset($sections[$origin_key]); // Find offset of target position (stupid PHP's array_splice requires offset instead of key index!) $found = false; $append_array = array(); foreach ($sections as $id => $position) { if ($found) { $append_array[$id] = $position; unset($sections[$id]); } if ($position == $target_position) { $found = true; } } // Append moved section $sections[$origin_key] = $origin_section; // Append rest of array (if applicable) if (!empty($append_array)) { foreach ($append_array as $id => $position) { $sections[$id] = $position; } } // Renumber positions $position = 0; foreach ($sections as $id => $p) { $sections[$id] = $position; $position++; } return $sections; } function moveto_module($mod, $section, $beforemod=NULL) { /// All parameters are objects /// Move the module object $mod to the specified $section /// If $beforemod exists then that is the module /// before which $modid should be inserted /// Remove original module from original section if (! delete_mod_from_section($mod->id, $mod->section)) { notify("Could not delete module from existing section"); } /// Update module itself if necessary if ($mod->section != $section->id) { $mod->section = $section->id; if (!update_record("course_modules", $mod)) { return false; } // if moving to a hidden section then hide module if (!$section->visible) { set_coursemodule_visible($mod->id, 0); } } /// Add the module into the new section $mod->course = $section->course; $mod->section = $section->section; // need relative reference $mod->coursemodule = $mod->id; if (! add_mod_to_section($mod, $beforemod)) { return false; } return true; } function make_editing_buttons($mod, $absolute=false, $moveselect=true, $indent=-1, $section=-1) { global $CFG, $USER; static $str; static $sesskey; $modcontext = get_context_instance(CONTEXT_MODULE, $mod->id); // no permission to edit if (!has_capability('moodle/course:manageactivities', $modcontext)) { return false; } if (!isset($str)) { $str->delete = get_string("delete"); $str->move = get_string("move"); $str->moveup = get_string("moveup"); $str->movedown = get_string("movedown"); $str->moveright = get_string("moveright"); $str->moveleft = get_string("moveleft"); $str->update = get_string("update"); $str->duplicate = get_string("duplicate"); $str->hide = get_string("hide"); $str->show = get_string("show"); $str->clicktochange = get_string("clicktochange"); $str->forcedmode = get_string("forcedmode"); $str->groupsnone = get_string("groupsnone"); $str->groupsseparate = get_string("groupsseparate"); $str->groupsvisible = get_string("groupsvisible"); $sesskey = sesskey(); } if ($section >= 0) { $section = '&sr='.$section; // Section return } else { $section = ''; } if ($absolute) { $path = $CFG->wwwroot.'/course'; } else { $path = '.'; } if (has_capability('moodle/course:activityvisibility', $modcontext)) { if ($mod->visible) { $hideshow = '<a class="editing_hide" title="'.$str->hide.'" href="'.$path.'/mod.php?hide='.$mod->id. '&sesskey='.$sesskey.$section.'"><img'. ' src="'.$CFG->pixpath.'/t/hide.gif" class="iconsmall" '. ' alt="'.$str->hide.'" /></a>'."\n"; } else { $hideshow = '<a class="editing_show" title="'.$str->show.'" href="'.$path.'/mod.php?show='.$mod->id. '&sesskey='.$sesskey.$section.'"><img'. ' src="'.$CFG->pixpath.'/t/show.gif" class="iconsmall" '. ' alt="'.$str->show.'" /></a>'."\n"; } } else { $hideshow = ''; } if ($mod->groupmode !== false) { if ($mod->groupmode == SEPARATEGROUPS) { $grouptitle = $str->groupsseparate; $groupclass = 'editing_groupsseparate'; $groupimage = $CFG->pixpath.'/t/groups.gif'; $grouplink = $path.'/mod.php?id='.$mod->id.'&groupmode=0&sesskey='.$sesskey; } else if ($mod->groupmode == VISIBLEGROUPS) { $grouptitle = $str->groupsvisible; $groupclass = 'editing_groupsvisible'; $groupimage = $CFG->pixpath.'/t/groupv.gif'; $grouplink = $path.'/mod.php?id='.$mod->id.'&groupmode=1&sesskey='.$sesskey; } else { $grouptitle = $str->groupsnone; $groupclass = 'editing_groupsnone'; $groupimage = $CFG->pixpath.'/t/groupn.gif'; $grouplink = $path.'/mod.php?id='.$mod->id.'&groupmode=2&sesskey='.$sesskey; } if ($mod->groupmodelink) { $groupmode = '<a class="'.$groupclass.'" title="'.$grouptitle.' ('.$str->clicktochange.')" href="'.$grouplink.'">'. '<img src="'.$groupimage.'" class="iconsmall" '. 'alt="'.$grouptitle.'" /></a>'; } else { $groupmode = '<img title="'.$grouptitle.' ('.$str->forcedmode.')" '. ' src="'.$groupimage.'" class="iconsmall" '. 'alt="'.$grouptitle.'" />'; } } else { $groupmode = ""; } if (has_capability('moodle/course:update', get_context_instance(CONTEXT_COURSE, $mod->course))) { if ($moveselect) { $move = '<a class="editing_move" title="'.$str->move.'" href="'.$path.'/mod.php?copy='.$mod->id. '&sesskey='.$sesskey.$section.'"><img'. ' src="'.$CFG->pixpath.'/t/move.gif" class="iconsmall" '. ' alt="'.$str->move.'" /></a>'."\n"; } else { $move = '<a class="editing_moveup" title="'.$str->moveup.'" href="'.$path.'/mod.php?id='.$mod->id. '&move=-1&sesskey='.$sesskey.$section.'"><img'. ' src="'.$CFG->pixpath.'/t/up.gif" class="iconsmall" '. ' alt="'.$str->moveup.'" /></a>'."\n". '<a class="editing_movedown" title="'.$str->movedown.'" href="'.$path.'/mod.php?id='.$mod->id. '&move=1&sesskey='.$sesskey.$section.'"><img'. ' src="'.$CFG->pixpath.'/t/down.gif" class="iconsmall" '. ' alt="'.$str->movedown.'" /></a>'."\n"; } } else { $move = ''; } $leftright = ''; if (has_capability('moodle/course:update', get_context_instance(CONTEXT_COURSE, $mod->course))) { if (right_to_left()) { // Exchange arrows on RTL $rightarrow = 'left.gif'; $leftarrow = 'right.gif'; } else { $rightarrow = 'right.gif'; $leftarrow = 'left.gif'; } if ($indent > 0) { $leftright .= '<a class="editing_moveleft" title="'.$str->moveleft.'" href="'.$path.'/mod.php?id='.$mod->id. '&indent=-1&sesskey='.$sesskey.$section.'"><img'. ' src="'.$CFG->pixpath.'/t/'.$leftarrow.'" class="iconsmall" '. ' alt="'.$str->moveleft.'" /></a>'."\n"; } if ($indent >= 0) { $leftright .= '<a class="editing_moveright" title="'.$str->moveright.'" href="'.$path.'/mod.php?id='.$mod->id. '&indent=1&sesskey='.$sesskey.$section.'"><img'. ' src="'.$CFG->pixpath.'/t/'.$rightarrow.'" class="iconsmall" '. ' alt="'.$str->moveright.'" /></a>'."\n"; } } return '<span class="commands">'."\n".$leftright.$move. '<a class="editing_update" title="'.$str->update.'" href="'.$path.'/mod.php?update='.$mod->id. '&sesskey='.$sesskey.$section.'"><img'. ' src="'.$CFG->pixpath.'/t/edit.gif" class="iconsmall" '. ' alt="'.$str->update.'" /></a>'."\n". '<a class="editing_delete" title="'.$str->delete.'" href="'.$path.'/mod.php?delete='.$mod->id. '&sesskey='.$sesskey.$section.'"><img'. ' src="'.$CFG->pixpath.'/t/delete.gif" class="iconsmall" '. ' alt="'.$str->delete.'" /></a>'."\n".$hideshow.$groupmode."\n".'</span>'; } /** * given a course object with shortname & fullname, this function will * truncate the the number of chars allowed and add ... if it was too long */ function course_format_name ($course,$max=100) { $str = $course->shortname.': '. $course->fullname; if (strlen($str) <= $max) { return $str; } else { return substr($str,0,$max-3).'...'; } } /** * This function will return true if the given course is a child course at all */ function course_in_meta ($course) { return record_exists("course_meta","child_course",$course->id); } /** * Print standard form elements on module setup forms in mod/.../mod.html */ function print_standard_coursemodule_settings($form, $features=null) { if (! $course = get_record('course', 'id', $form->course)) { error("This course doesn't exist"); } print_groupmode_setting($form, $course); if (!empty($features->groupings)) { print_grouping_settings($form, $course); } print_visible_setting($form, $course); } /** * Print groupmode form element on module setup forms in mod/.../mod.html */ function print_groupmode_setting($form, $course=NULL) { if (empty($course)) { if (! $course = get_record('course', 'id', $form->course)) { error("This course doesn't exist"); } } if ($form->coursemodule) { if (! $cm = get_record('course_modules', 'id', $form->coursemodule)) { error("This course module doesn't exist"); } $groupmode = groups_get_activity_groupmode($cm); } else { $cm = null; $groupmode = groups_get_course_groupmode($course); } if ($course->groupmode or (!$course->groupmodeforce)) { echo '<tr valign="top">'; echo '<td align="right"><b>'.get_string('groupmode').':</b></td>'; echo '<td align="left">'; $choices = array(); $choices[NOGROUPS] = get_string('groupsnone'); $choices[SEPARATEGROUPS] = get_string('groupsseparate'); $choices[VISIBLEGROUPS] = get_string('groupsvisible'); choose_from_menu($choices, 'groupmode', $groupmode, '', '', 0, false, $course->groupmodeforce); helpbutton('groupmode', get_string('groupmode')); echo '</td></tr>'; } } /** * Print groupmode form element on module setup forms in mod/.../mod.html */ function print_grouping_settings($form, $course=NULL) { if (empty($course)) { if (! $course = get_record('course', 'id', $form->course)) { error("This course doesn't exist"); } } if ($form->coursemodule) { if (! $cm = get_record('course_modules', 'id', $form->coursemodule)) { error("This course module doesn't exist"); } } else { $cm = null; } $groupings = get_records_menu('groupings', 'courseid', $course->id, 'name', 'id, name'); if (!empty($groupings)) { echo '<tr valign="top">'; echo '<td align="right"><b>'.get_string('grouping', 'group').':</b></td>'; echo '<td align="left">'; $groupings; $groupingid = isset($cm->groupingid) ? $cm->groupingid : 0; choose_from_menu($groupings, 'groupingid', $groupingid, get_string('none'), '', 0, false); echo '</td></tr>'; $checked = empty($cm->groupmembersonly) ? '':'checked="checked"'; echo '<tr valign="top">'; echo '<td align="right"><b>'.get_string('groupmembersonly', 'group').':</b></td>'; echo '<td align="left">'; echo "<input type=\"checkbox\" name=\"groupmembersonly\" value=\"1\" $checked />"; echo '</td></tr>'; } } /** * Print visibility setting form element on module setup forms in mod/.../mod.html */ function print_visible_setting($form, $course=NULL) { if (empty($course)) { if (! $course = get_record('course', 'id', $form->course)) { error("This course doesn't exist"); } } if ($form->coursemodule) { $visible = get_field('course_modules', 'visible', 'id', $form->coursemodule); } else { $visible = true; } if ($form->mode == 'add') { // in this case $form->section is the section number, not the id $hiddensection = !get_field('course_sections', 'visible', 'section', $form->section, 'course', $form->course); } else { $hiddensection = !get_field('course_sections', 'visible', 'id', $form->section); } if ($hiddensection) { $visible = false; } echo '<tr valign="top">'; echo '<td align="right"><b>'.get_string('visible', '').':</b></td>'; echo '<td align="left">'; $choices = array(1 => get_string('show'), 0 => get_string('hide')); choose_from_menu($choices, 'visible', $visible, '', '', 0, false, $hiddensection); echo '</td></tr>'; } function update_restricted_mods($course,$mods) { /// Delete all the current restricted list delete_records('course_allowed_modules','course',$course->id); if (empty($course->restrictmodules)) { return; // We're done } /// Insert the new list of restricted mods foreach ($mods as $mod) { if ($mod == 0) { continue; // this is the 'allow none' option } $am = new object(); $am->course = $course->id; $am->module = $mod; insert_record('course_allowed_modules',$am); } } /** * This function will take an int (module id) or a string (module name) * and return true or false, whether it's allowed in the given course (object) * $mod is not allowed to be an object, as the field for the module id is inconsistent * depending on where in the code it's called from (sometimes $mod->id, sometimes $mod->module) */ function course_allowed_module($course,$mod) { if (empty($course->restrictmodules)) { return true; } // Admins and admin-like people who can edit everything can also add anything. // This is a bit wierd, really. I debated taking it out but it's enshrined in help for the setting. if (has_capability('moodle/course:update', get_context_instance(CONTEXT_SYSTEM))) { return true; } if (is_numeric($mod)) { $modid = $mod; } else if (is_string($mod)) { $modid = get_field('modules','id','name',$mod); } if (empty($modid)) { return false; } return (record_exists('course_allowed_modules','course',$course->id,'module',$modid)); } /** * Recursively delete category including all subcategories and courses. * @param object $ccategory * @return bool status */ function category_delete_full($category, $showfeedback=true) { global $CFG; require_once($CFG->libdir.'/gradelib.php'); require_once($CFG->libdir.'/questionlib.php'); if ($children = get_records('course_categories', 'parent', $category->id, 'sortorder ASC')) { foreach ($children as $childcat) { if (!category_delete_full($childcat, $showfeedback)) { notify("Error deleting category $childcat->name"); return false; } } } if ($courses = get_records('course', 'category', $category->id, 'sortorder ASC')) { foreach ($courses as $course) { if (!delete_course($course->id, false)) { notify("Error deleting course $course->shortname"); return false; } notify(get_string('coursedeleted', '', $course->shortname), 'notifysuccess'); } } // now delete anything that may depend on course category context grade_course_category_delete($category->id, 0, $showfeedback); if (!question_delete_course_category($category, 0, $showfeedback)) { notify(get_string('errordeletingquestionsfromcategory', 'question', $category), 'notifysuccess'); return false; } // finally delete the category and it's context delete_records('course_categories', 'id', $category->id); delete_context(CONTEXT_COURSECAT, $category->id); events_trigger('course_category_deleted', $category); notify(get_string('coursecategorydeleted', '', format_string($category->name)), 'notifysuccess'); return true; } /** * Delete category, but move contents to another category. * @param object $ccategory * @param int $newparentid category id * @return bool status */ function category_delete_move($category, $newparentid, $showfeedback=true) { global $CFG; require_once($CFG->libdir.'/gradelib.php'); require_once($CFG->libdir.'/questionlib.php'); if (!$newparentcat = get_record('course_categories', 'id', $newparentid)) { return false; } if ($children = get_records('course_categories', 'parent', $category->id, 'sortorder ASC')) { foreach ($children as $childcat) { if (!move_category($childcat, $newparentcat)) { notify("Error moving category $childcat->name"); return false; } } } if ($courses = get_records('course', 'category', $category->id, 'sortorder ASC', 'id')) { if (!move_courses(array_keys($courses), $newparentid)) { notify("Error moving courses"); return false; } notify(get_string('coursesmovedout', '', format_string($category->name)), 'notifysuccess'); } // now delete anything that may depend on course category context grade_course_category_delete($category->id, $newparentid, $showfeedback); if (!question_delete_course_category($category, $newparentcat, $showfeedback)) { notify(get_string('errordeletingquestionsfromcategory', 'question', $category), 'notifysuccess'); return false; } // finally delete the category and it's context delete_records('course_categories', 'id', $category->id); delete_context(CONTEXT_COURSECAT, $category->id); events_trigger('course_category_deleted', $category); notify(get_string('coursecategorydeleted', '', format_string($category->name)), 'notifysuccess'); return true; } /*** *** Efficiently moves many courses around while maintaining *** sortorder in order. *** *** $courseids is an array of course ids *** **/ function move_courses ($courseids, $categoryid) { global $CFG; if (!empty($courseids)) { $courseids = array_reverse($courseids); foreach ($courseids as $courseid) { if (! $course = get_record("course", "id", $courseid)) { notify("Error finding course $courseid"); } else { // figure out a sortorder that we can use in the destination category $sortorder = get_field_sql('SELECT MIN(sortorder)-1 AS min FROM ' . $CFG->prefix . 'course WHERE category=' . $categoryid); if (is_null($sortorder) || $sortorder === false) { // the category is empty // rather than let the db default to 0 // set it to > 100 and avoid extra work in fix_coursesortorder() $sortorder = 200; } else if ($sortorder < 10) { fix_course_sortorder($categoryid); } $course->category = $categoryid; $course->sortorder = $sortorder; if (!update_record('course', addslashes_recursive($course))) { notify("An error occurred - course not moved!"); } $context = get_context_instance(CONTEXT_COURSE, $course->id); $newparent = get_context_instance(CONTEXT_COURSECAT, $course->category); context_moved($context, $newparent); } } fix_course_sortorder(); } return true; } /*** *** Efficiently moves a category - NOTE that this can have *** a huge impact access-control-wise... *** *** **/ function move_category ($category, $newparentcat) { global $CFG; $context = get_context_instance(CONTEXT_COURSECAT, $category->id); if (empty($newparentcat->id)) { if (!set_field('course_categories', 'parent', 0, 'id', $category->id)) { return false; } $newparent = get_context_instance(CONTEXT_SYSTEM); } else { if (!set_field('course_categories', 'parent', $newparentcat->id, 'id', $category->id)) { return false; } $newparent = get_context_instance(CONTEXT_COURSECAT, $newparentcat->id); } context_moved($context, $newparent); // The most effective thing would be to find the common parent, // until then, do it sitewide... fix_course_sortorder(); return true; } /** * @param string $format Course format ID e.g. 'weeks' * @return Name that the course format prefers for sections */ function get_section_name($format) { $sectionname = get_string("name$format","format_$format"); if($sectionname == "[[name$format]]") { $sectionname = get_string("name$format"); } return $sectionname; } /** * Can the current user delete this course? * Course creators have exception, * 1 day after the creation they can sill delete the course. * @param int $courseid * @return boolean */ function can_delete_course($courseid) { global $USER; $context = get_context_instance(CONTEXT_COURSE, $courseid); if (has_capability('moodle/course:delete', $context)) { return true; } // hack: now try to find out if creator created this course recently (1 day) if (!has_capability('moodle/course:create', $context)) { return false; } $since = time() - 60*60*24; $select = "module = 'course' AND action = 'new' AND userid = $USER->id AND url='view.php?id=$courseid' AND time > $since"; return record_exists_select('log', $select); } /** * Save the Your name for 'Some role' strings. * * @param integer $courseid the id of this course. * @param array $data the data that came from the course settings form. */ function save_local_role_names($courseid, $data) { $context = get_context_instance(CONTEXT_COURSE, $courseid); foreach ($data as $fieldname => $value) { if (!strstr($fieldname, 'role_')) { continue; } list($ignored, $roleid) = explode('_', $fieldname); // make up our mind whether we want to delete, update or insert if (!$value) { delete_records('role_names', 'contextid', $context->id, 'roleid', $roleid); } else if ($rolename = get_record('role_names', 'contextid', $context->id, 'roleid', $roleid)) { $rolename->name = $value; update_record('role_names', $rolename); } else { $rolename = new stdClass; $rolename->contextid = $context->id; $rolename->roleid = $roleid; $rolename->name = $value; insert_record('role_names', $rolename, false); } } } /** * Create a course and either return a $course object or false * * @param object $data - all the data needed for an entry in the 'course' table */ function create_course($data) { global $CFG, $USER; // preprocess allowed mods $allowedmods = empty($data->allowedmods) ? array() : $data->allowedmods; unset($data->allowedmods); if ($CFG->restrictmodulesfor == 'all') { $data->restrictmodules = 1; // if the user is not an admin, get the default allowed modules because // there are no modules passed by the form if(!has_capability('moodle/site:config', get_context_instance(CONTEXT_SYSTEM))) { if(!$allowedmods && $CFG->defaultallowedmodules) { $allowedmods = explode(',', $CFG->defaultallowedmodules); } } } else { $data->restrictmodules = 0; } $data->timecreated = time(); // place at beginning of category fix_course_sortorder(); $data->sortorder = get_field_sql("SELECT min(sortorder)-1 FROM {$CFG->prefix}course WHERE category=$data->category"); if (empty($data->sortorder)) { $data->sortorder = 100; } if ($newcourseid = insert_record('course', $data)) { // Set up new course $course = get_record('course', 'id', $newcourseid); // Setup the blocks $page = page_create_object(PAGE_COURSE_VIEW, $course->id); blocks_repopulate_page($page); // Return value not checked because you can always edit later update_restricted_mods($course, $allowedmods); $section = new object(); $section->course = $course->id; // Create a default section. $section->section = 0; $section->id = insert_record('course_sections', $section); fix_course_sortorder(); add_to_log(SITEID, 'course', 'new', 'view.php?id='.$course->id, $data->fullname.' (ID '.$course->id.')'); // Save any custom role names. save_local_role_names($course->id, $data); // Trigger events events_trigger('course_created', $course); return $course; } return false; // error } /** * Update a course and return true or false * * @param object $data - all the data needed for an entry in the 'course' table */ function update_course($data) { global $USER, $CFG; // Preprocess allowed mods $allowedmods = empty($data->allowedmods) ? array() : $data->allowedmods; unset($data->allowedmods); // Normal teachers can't change setting if (!has_capability('moodle/site:config', get_context_instance(CONTEXT_SYSTEM))) { unset($data->restrictmodules); } $movecat = false; $oldcourse = get_record('course', 'id', $data->id); // should not fail, already tested above if (!has_capability('moodle/course:create', get_context_instance(CONTEXT_COURSECAT, $oldcourse->category)) or !has_capability('moodle/course:create', get_context_instance(CONTEXT_COURSECAT, $data->category))) { // can not move to new category, keep the old one unset($data->category); } elseif ($oldcourse->category != $data->category) { $movecat = true; } // Update with the new data if (update_record('course', $data)) { $course = get_record('course', 'id', $data->id); add_to_log($course->id, "course", "update", "edit.php?id=$course->id", $course->id); // "Admins" can change allowed mods for a course if (has_capability('moodle/site:config', get_context_instance(CONTEXT_SYSTEM))) { update_restricted_mods($course, $allowedmods); } if ($movecat) { $context = get_context_instance(CONTEXT_COURSE, $course->id); $newparent = get_context_instance(CONTEXT_COURSECAT, $course->category); context_moved($context, $newparent); } fix_course_sortorder(); // Test for and remove blocks which aren't appropriate anymore $page = page_create_object(PAGE_COURSE_VIEW, $course->id); blocks_remove_inappropriate($page); // Save any custom role names. save_local_role_names($course->id, $data); // Trigger events events_trigger('course_updated', $course); return true; } return false; } ?>
© 2017 -
ZeroByte.ID
.