mirror of
https://github.com/acanas/swad-core.git
synced 2024-09-08 00:00:25 +02:00
69 lines
2.5 KiB
C
69 lines
2.5 KiB
C
// swad_survey_resource.c: links to surveys as program resources
|
|
|
|
/*
|
|
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-2024 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_action_list.h"
|
|
#include "swad_alert.h"
|
|
#include "swad_error.h"
|
|
#include "swad_form.h"
|
|
#include "swad_parameter_code.h"
|
|
#include "swad_resource_database.h"
|
|
#include "swad_survey.h"
|
|
#include "swad_survey_database.h"
|
|
#include "swad_survey_resource.h"
|
|
|
|
/*****************************************************************************/
|
|
/**************************** Get link to survey *****************************/
|
|
/*****************************************************************************/
|
|
|
|
void SvyRsc_GetLinkToSurvey (void)
|
|
{
|
|
extern const char *Txt_Link_to_resource_X_copied_into_clipboard;
|
|
extern const char *Txt_Surveys;
|
|
struct Svy_Surveys Surveys;
|
|
|
|
/***** Reset surveys context *****/
|
|
Svy_ResetSurveys (&Surveys);
|
|
|
|
/***** Get survey code *****/
|
|
Surveys.Svy.SvyCod = ParCod_GetPar (ParCod_Svy);
|
|
|
|
/***** Get survey data *****/
|
|
if (Surveys.Svy.SvyCod > 0)
|
|
Svy_GetSurveyDataByCod (&Surveys.Svy);
|
|
|
|
/***** Copy link to survey into resource clipboard *****/
|
|
Rsc_DB_CopyToClipboard (Rsc_SURVEY,Surveys.Svy.SvyCod);
|
|
|
|
/***** Write sucess message *****/
|
|
Ale_ShowAlert (Ale_SUCCESS,Txt_Link_to_resource_X_copied_into_clipboard,
|
|
Surveys.Svy.SvyCod > 0 ? Surveys.Svy.Title :
|
|
Txt_Surveys);
|
|
|
|
/***** Show surveys again *****/
|
|
Svy_ListAllSurveys (&Surveys);
|
|
}
|