mirror of https://github.com/acanas/swad-core.git
132 lines
5.2 KiB
C
132 lines
5.2 KiB
C
// swad_cookies.c: user's preferences about cookies
|
|
|
|
/*
|
|
SWAD (Shared Workspace At a Distance),
|
|
is a web platform developed at the University of Granada (Spain),
|
|
and used to support university teaching.
|
|
|
|
This file is part of SWAD core.
|
|
Copyright (C) 1999-2019 Antonio Cañas Vargas
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU Affero General Public License as
|
|
published by the Free Software Foundation, either version 3 of the
|
|
License, or (at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU Affero General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Affero General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
/*****************************************************************************/
|
|
/********************************* Headers ***********************************/
|
|
/*****************************************************************************/
|
|
|
|
#include "swad_box.h"
|
|
#include "swad_cookie.h"
|
|
#include "swad_database.h"
|
|
#include "swad_form.h"
|
|
#include "swad_global.h"
|
|
#include "swad_HTML.h"
|
|
#include "swad_layout.h"
|
|
#include "swad_setting.h"
|
|
|
|
/*****************************************************************************/
|
|
/************** External global variables from others modules ****************/
|
|
/*****************************************************************************/
|
|
|
|
extern struct Globals Gbl;
|
|
|
|
/*****************************************************************************/
|
|
/****************************** Public constants *****************************/
|
|
/*****************************************************************************/
|
|
|
|
/*****************************************************************************/
|
|
/***************************** Private constants *****************************/
|
|
/*****************************************************************************/
|
|
|
|
/*****************************************************************************/
|
|
/***************************** Private prototypes ****************************/
|
|
/*****************************************************************************/
|
|
|
|
static void Coo_PutIconsCookies (void);
|
|
|
|
/*****************************************************************************/
|
|
/********************* Edit my preferences on cookies ************************/
|
|
/*****************************************************************************/
|
|
|
|
void Coo_EditMyPrefsOnCookies (void)
|
|
{
|
|
extern const char *Hlp_PROFILE_Settings_cookies;
|
|
extern const char *Txt_Cookies;
|
|
extern const char *Txt_Accept_third_party_cookies_to_view_multimedia_content_from_other_websites;
|
|
|
|
/***** Start section with preferences about cookies *****/
|
|
HTM_SECTION_Begin (Coo_COOKIES_ID);
|
|
|
|
/***** Begin box and table *****/
|
|
Box_StartBoxTable (NULL,Txt_Cookies,Coo_PutIconsCookies,
|
|
Hlp_PROFILE_Settings_cookies,Box_NOT_CLOSABLE,2);
|
|
|
|
/***** Edit my preference about cookies *****/
|
|
/* Begin form */
|
|
Frm_StartFormAnchor (ActChgCooPrf,Coo_COOKIES_ID);
|
|
|
|
/* Start container */
|
|
HTM_DIV_Begin ("class=\"%s\"",
|
|
(Gbl.Usrs.Me.UsrDat.Prefs.AcceptThirdPartyCookies) ? "DAT_N LIGHT_BLUE" :
|
|
"DAT");
|
|
/* Check box */
|
|
HTM_LABEL_Begin (NULL);
|
|
HTM_INPUT_CHECKBOX ("cookies",true,
|
|
"value=\"Y\"%s",
|
|
Gbl.Usrs.Me.UsrDat.Prefs.AcceptThirdPartyCookies ? " checked=\"checked\"" : "");
|
|
HTM_Txt (Txt_Accept_third_party_cookies_to_view_multimedia_content_from_other_websites);
|
|
HTM_LABEL_End ();
|
|
|
|
/* End container */
|
|
HTM_DIV_End ();
|
|
|
|
/***** End table and box *****/
|
|
Box_EndBoxTable ();
|
|
|
|
/***** End section with preferences about cookies *****/
|
|
HTM_SECTION_End ();
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/***************** Put contextual icons in cookies preference ****************/
|
|
/*****************************************************************************/
|
|
|
|
static void Coo_PutIconsCookies (void)
|
|
{
|
|
/***** Put icon to show a figure *****/
|
|
Gbl.Figures.FigureType = Fig_COOKIES;
|
|
Fig_PutIconToShowFigure ();
|
|
}
|
|
|
|
/*****************************************************************************/
|
|
/************** Change my preference about third party cookies ***************/
|
|
/*****************************************************************************/
|
|
|
|
void Coo_ChangeMyPrefsCookies (void)
|
|
{
|
|
/***** Get param with preference about third party cookies *****/
|
|
Gbl.Usrs.Me.UsrDat.Prefs.AcceptThirdPartyCookies = Par_GetParToBool ("cookies");
|
|
|
|
/***** Store preference in database *****/
|
|
if (Gbl.Usrs.Me.Logged)
|
|
DB_QueryUPDATE ("can not update your preference about cookies",
|
|
"UPDATE usr_data SET ThirdPartyCookies='%c'"
|
|
" WHERE UsrCod=%ld",
|
|
Gbl.Usrs.Me.UsrDat.Prefs.AcceptThirdPartyCookies ? 'Y' :
|
|
'N',
|
|
Gbl.Usrs.Me.UsrDat.UsrCod);
|
|
|
|
/***** Show forms again *****/
|
|
Set_EditSettings ();
|
|
}
|