diff --git a/swad_action.c b/swad_action.c index 6ce18d58..021674d5 100644 --- a/swad_action.c +++ b/swad_action.c @@ -1742,13 +1742,13 @@ struct Act_Actions Act_Actions[Act_NUM_ACTIONS] = /* ActChgCtyMapAtt */{1158,-1,TabUnk,ActSeeCtyInf , 0, 0, 0, 0, 0,0x200, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Cty_ChangeCtyMapAttribution ,NULL}, /* ActEdiIns */{ 697,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x3C6, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ins_EditInstitutions ,NULL}, - /* ActReqIns */{1210,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x3C6, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ins_RecFormReqIns ,NULL}, - /* ActNewIns */{ 698,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x200, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ins_RecFormNewIns ,NULL}, - /* ActRemIns */{ 759,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x3C6, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ins_RemoveInstitution ,NULL}, + /* ActReqIns */{1210,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x3C6, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ins_RecFormReqIns ,Ins_ContEditAfterChgIns ,NULL}, + /* ActNewIns */{ 698,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x200, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ins_RecFormNewIns ,Ins_ContEditAfterChgIns ,NULL}, + /* ActRemIns */{ 759,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x3C6, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ins_RemoveInstitution ,Ins_ContEditAfterChgIns ,NULL}, /* ActRenInsSho */{ 702,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x3C6, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ins_RenameInsShort ,Ins_ContEditAfterChgIns ,NULL}, /* ActRenInsFul */{ 701,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x3C6, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ins_RenameInsFull ,Ins_ContEditAfterChgIns ,NULL}, - /* ActChgInsWWW */{ 700,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x3C6, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ins_ChangeInsWWW ,NULL}, - /* ActChgInsSta */{1211,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x3C6, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ins_ChangeInsStatus ,NULL}, + /* ActChgInsWWW */{ 700,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x3C6, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ins_ChangeInsWWW ,Ins_ContEditAfterChgIns ,NULL}, + /* ActChgInsSta */{1211,-1,TabUnk,ActSeeIns , 0, 0, 0, 0, 0,0x3C6, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ins_ChangeInsStatus ,Ins_ContEditAfterChgIns ,NULL}, // TabIns ****************************************************************** // Actions in menu: @@ -1769,14 +1769,14 @@ struct Act_Actions Act_Actions[Act_NUM_ACTIONS] = /* ActRemInsLog */{1341,-1,TabUnk,ActSeeInsInf , 0, 0, 0, 0,0x300, 0, 0,Act_CONT_DATA,Act_BRW_1ST_TAB,Ins_RemoveLogo ,Ins_ShowConfiguration ,NULL}, /* ActEdiCtr */{ 681,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x3C6, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ctr_EditCentres ,NULL}, - /* ActReqCtr */{1208,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x3C6, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ctr_RecFormReqCtr ,NULL}, - /* ActNewCtr */{ 685,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x300, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ctr_RecFormNewCtr ,NULL}, - /* ActRemCtr */{ 686,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x3C6, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ctr_RemoveCentre ,NULL}, - /* ActChgDegPlc */{ 706,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x300, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ctr_ChangeCtrPlc ,NULL}, + /* ActReqCtr */{1208,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x3C6, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ctr_RecFormReqCtr ,Ctr_ContEditAfterChgCtr ,NULL}, + /* ActNewCtr */{ 685,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x300, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ctr_RecFormNewCtr ,Ctr_ContEditAfterChgCtr ,NULL}, + /* ActRemCtr */{ 686,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x3C6, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ctr_RemoveCentre ,Ctr_ContEditAfterChgCtr ,NULL}, + /* ActChgDegPlc */{ 706,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x300, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ctr_ChangeCtrPlc ,Ctr_ContEditAfterChgCtr ,NULL}, /* ActRenCtrSho */{ 682,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x3C6, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ctr_RenameCentreShort ,Ctr_ContEditAfterChgCtr ,NULL}, /* ActRenCtrFul */{ 684,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x3C6, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ctr_RenameCentreFull ,Ctr_ContEditAfterChgCtr ,NULL}, - /* ActChgCtrWWW */{ 683,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x3C6, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ctr_ChangeCtrWWW ,NULL}, - /* ActChgCtrSta */{1209,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x300, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Ctr_ChangeCtrStatus ,NULL}, + /* ActChgCtrWWW */{ 683,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x3C6, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ctr_ChangeCtrWWW ,Ctr_ContEditAfterChgCtr ,NULL}, + /* ActChgCtrSta */{1209,-1,TabUnk,ActSeeCtr , 0, 0, 0, 0,0x300, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,Ctr_ChangeCtrStatus ,Ctr_ContEditAfterChgCtr ,NULL}, /* ActEdiPlc */{ 704,-1,TabUnk,ActSeePlc , 0, 0, 0, 0,0x200, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Plc_EditPlaces ,NULL}, /* ActNewPlc */{ 705,-1,TabUnk,ActSeePlc , 0, 0, 0, 0,0x200, 0, 0,Act_CONT_NORM,Act_BRW_1ST_TAB,NULL ,Plc_RecFormNewPlace ,NULL}, diff --git a/swad_centre.c b/swad_centre.c index 2df6212b..a201124c 100644 --- a/swad_centre.c +++ b/swad_centre.c @@ -1816,15 +1816,10 @@ void Ctr_RemoveCentre (void) Ctr_EditingCtr->CtrCod); /***** Write message to show the change made *****/ - Ale_ShowAlert (Ale_SUCCESS,Txt_Centre_X_removed, - Ctr_EditingCtr->FullName); + Ale_CreateAlert (Ale_SUCCESS,NULL, + Txt_Centre_X_removed, + Ctr_EditingCtr->FullName); } - - /***** Show the form again *****/ - Ctr_EditCentresInternal (); - - /***** Centre destructor *****/ - Ctr_EditingCentreDestructor (); } /*****************************************************************************/ @@ -1935,13 +1930,6 @@ void Ctr_ChangeCtrPlc (void) and put button to go to centre changed *****/ Ale_CreateAlert (Ale_SUCCESS,NULL, Txt_The_place_of_the_centre_has_changed); - Ctr_ShowAlertAndButtonToGoToCtr (); - - /***** Show the form again *****/ - Ctr_EditCentresInternal (); - - /***** Centre destructor *****/ - Ctr_EditingCentreDestructor (); } void Ctr_ChangeCtrPlcInConfig (void) @@ -1998,19 +1986,6 @@ void Ctr_RenameCentreFull (void) Ctr_RenameCentre (Ctr_EditingCtr,Cns_FULL_NAME); } -void Ctr_ContEditAfterChgCtr (void) - { - /***** Write message to show the change made - and put button to go to centre changed *****/ - Ctr_ShowAlertAndButtonToGoToCtr (); - - /***** Show the form again *****/ - Ctr_EditCentresInternal (); - - /***** Centre destructor *****/ - Ctr_EditingCentreDestructor (); - } - /*****************************************************************************/ /*************** Change the name of a centre in configuration ****************/ /*****************************************************************************/ @@ -2163,16 +2138,10 @@ void Ctr_ChangeCtrWWW (void) Ale_CreateAlert (Ale_SUCCESS,NULL, Txt_The_new_web_address_is_X, NewWWW); - Ctr_ShowAlertAndButtonToGoToCtr (); } else - Ale_ShowAlert (Ale_WARNING,Txt_You_can_not_leave_the_web_address_empty); - - /***** Show the form again *****/ - Ctr_EditCentresInternal (); - - /***** Centre destructor *****/ - Ctr_EditingCentreDestructor (); + Ale_CreateAlert (Ale_WARNING,NULL, + Txt_You_can_not_leave_the_web_address_empty); } void Ctr_ChangeCtrWWWInConfig (void) @@ -2258,6 +2227,16 @@ void Ctr_ChangeCtrStatus (void) Ale_CreateAlert (Ale_SUCCESS,NULL, Txt_The_status_of_the_centre_X_has_changed, Ctr_EditingCtr->ShrtName); + } + +/*****************************************************************************/ +/********* Show alerts after changing a centre and continue editing **********/ +/*****************************************************************************/ + +void Ctr_ContEditAfterChgCtr (void) + { + /***** Write message to show the change made + and put button to go to centre changed *****/ Ctr_ShowAlertAndButtonToGoToCtr (); /***** Show the form again *****/ @@ -2763,9 +2742,6 @@ void Ctr_RecFormReqCtr (void) /***** Receive form to request a new centre *****/ Ctr_RecFormRequestOrCreateCtr ((unsigned) Ctr_STATUS_BIT_PENDING); - - /***** Centre destructor *****/ - Ctr_EditingCentreDestructor (); } /*****************************************************************************/ @@ -2779,9 +2755,6 @@ void Ctr_RecFormNewCtr (void) /***** Receive form to create a new centre *****/ Ctr_RecFormRequestOrCreateCtr (0); - - /***** Centre destructor *****/ - Ctr_EditingCentreDestructor (); } /*****************************************************************************/ @@ -2791,6 +2764,7 @@ void Ctr_RecFormNewCtr (void) static void Ctr_RecFormRequestOrCreateCtr (unsigned Status) { extern const char *Txt_The_centre_X_already_exists; + extern const char *Txt_Created_new_centre_X; extern const char *Txt_You_must_specify_the_web_address_of_the_new_centre; extern const char *Txt_You_must_specify_the_short_name_and_the_full_name_of_the_new_centre; @@ -2818,22 +2792,28 @@ static void Ctr_RecFormRequestOrCreateCtr (unsigned Status) { /***** If name of centre was in database... *****/ if (Ctr_CheckIfCtrNameExistsInIns ("ShortName",Ctr_EditingCtr->ShrtName,-1L,Gbl.Hierarchy.Ins.InsCod)) - Ale_ShowAlert (Ale_WARNING,Txt_The_centre_X_already_exists, - Ctr_EditingCtr->ShrtName); + Ale_CreateAlert (Ale_WARNING,NULL, + Txt_The_centre_X_already_exists, + Ctr_EditingCtr->ShrtName); else if (Ctr_CheckIfCtrNameExistsInIns ("FullName",Ctr_EditingCtr->FullName,-1L,Gbl.Hierarchy.Ins.InsCod)) - Ale_ShowAlert (Ale_WARNING,Txt_The_centre_X_already_exists, - Ctr_EditingCtr->FullName); + Ale_CreateAlert (Ale_WARNING,NULL, + Txt_The_centre_X_already_exists, + Ctr_EditingCtr->FullName); else // Add new centre to database + { Ctr_CreateCentre (Status); + Ale_CreateAlert (Ale_SUCCESS,NULL, + Txt_Created_new_centre_X, + Ctr_EditingCtr->FullName); + } } else // If there is not a web - Ale_ShowAlert (Ale_WARNING,Txt_You_must_specify_the_web_address_of_the_new_centre); + Ale_CreateAlert (Ale_WARNING,NULL, + Txt_You_must_specify_the_web_address_of_the_new_centre); } else // If there is not a centre name - Ale_ShowAlert (Ale_WARNING,Txt_You_must_specify_the_short_name_and_the_full_name_of_the_new_centre); - - /***** Show the form again *****/ - Ctr_EditCentresInternal (); + Ale_CreateAlert (Ale_WARNING,NULL, + Txt_You_must_specify_the_short_name_and_the_full_name_of_the_new_centre); } /*****************************************************************************/ @@ -2842,8 +2822,6 @@ static void Ctr_RecFormRequestOrCreateCtr (unsigned Status) static void Ctr_CreateCentre (unsigned Status) { - extern const char *Txt_Created_new_centre_X; - /***** Create a new centre *****/ Ctr_EditingCtr->CtrCod = DB_QueryINSERTandReturnCode ("can not create a new centre", @@ -2860,13 +2838,6 @@ static void Ctr_CreateCentre (unsigned Status) Ctr_EditingCtr->ShrtName, Ctr_EditingCtr->FullName, Ctr_EditingCtr->WWW); - - /***** Write message to show the change made - and put button to go to centre created *****/ - Ale_CreateAlert (Ale_SUCCESS,NULL, - Txt_Created_new_centre_X, - Ctr_EditingCtr->FullName); - Ctr_ShowAlertAndButtonToGoToCtr (); } /*****************************************************************************/ diff --git a/swad_changelog.h b/swad_changelog.h index f4f3a2a6..bc878451 100644 --- a/swad_changelog.h +++ b/swad_changelog.h @@ -464,11 +464,13 @@ En OpenSWAD: ps2pdf source.ps destination.pdf */ -#define Log_PLATFORM_VERSION "SWAD 18.101.3 (2019-04-08)" +#define Log_PLATFORM_VERSION "SWAD 18.101.5 (2019-04-08)" #define CSS_FILE "swad18.92.css" #define JS_FILE "swad18.92.js" /* -En centre, institution y country, hacer más funciones a priori al estilo de como está hecha la edición de course +En country, hacer más funciones a priori al estilo de como está hecha la edición de course + Version 18.101.5: Apr 08, 2019 Code refactoring in edition of institutions. (241898 lines) + Version 18.101.4: Apr 08, 2019 Code refactoring in edition of centres. (241908 lines) Version 18.101.3: Apr 08, 2019 Code refactoring in edition of degrees. (241924 lines) Version 18.101.2: Apr 08, 2019 Code refactoring in edition of degree types. Fixed bug in alerts. (241936 lines) diff --git a/swad_degree.c b/swad_degree.c index efc83576..1466cdc2 100644 --- a/swad_degree.c +++ b/swad_degree.c @@ -2306,7 +2306,7 @@ void Deg_ChangeDegStatus (void) } /*****************************************************************************/ -/********* Show alerts after changing a course and continue editing **********/ +/********* Show alerts after changing a degree and continue editing **********/ /*****************************************************************************/ void Deg_ContEditAfterChgDeg (void) diff --git a/swad_institution.c b/swad_institution.c index f7ffafee..7f21843a 100644 --- a/swad_institution.c +++ b/swad_institution.c @@ -1754,7 +1754,8 @@ void Ins_RemoveInstitution (void) else if (Ins_EditingIns->Ctrs.Num || Ins_EditingIns->NumUsrsWhoClaimToBelongToIns || Ins_EditingIns->NumUsrs) // Institution has centres or users ==> don't remove - Ale_ShowAlert (Ale_WARNING,Txt_To_remove_an_institution_you_must_first_remove_all_centres_and_users_in_the_institution); + Ale_CreateAlert (Ale_WARNING,NULL, + Txt_To_remove_an_institution_you_must_first_remove_all_centres_and_users_in_the_institution); else // Institution has no users ==> remove it { /***** Remove all the threads and posts in forums of the institution *****/ @@ -1784,15 +1785,10 @@ void Ins_RemoveInstitution (void) Ins_FlushCacheFullNameAndCtyOfInstitution (); /***** Write message to show the change made *****/ - Ale_ShowAlert (Ale_SUCCESS,Txt_Institution_X_removed, - Ins_EditingIns->FullName); + Ale_CreateAlert (Ale_SUCCESS,NULL, + Txt_Institution_X_removed, + Ins_EditingIns->FullName); } - - /***** Show the form again *****/ - Ins_EditInstitutionsInternal (); - - /***** Institution destructor *****/ - Ins_EditingInstitutionDestructor (); } /*****************************************************************************/ @@ -1819,19 +1815,6 @@ void Ins_RenameInsFull (void) Ins_RenameInstitution (Ins_EditingIns,Cns_FULL_NAME); } -void Ins_ContEditAfterChgIns (void) - { - /***** Write message to show the change made - and put button to go to institution changed *****/ - Ins_ShowAlertAndButtonToGoToIns (); - - /***** Show the form again *****/ - Ins_EditInstitutionsInternal (); - - /***** Institution destructor *****/ - Ins_EditingInstitutionDestructor (); - } - /*****************************************************************************/ /************ Change the name of an institution in configuration *************/ /*****************************************************************************/ @@ -2083,16 +2066,10 @@ void Ins_ChangeInsWWW (void) Ale_CreateAlert (Ale_SUCCESS,NULL, Txt_The_new_web_address_is_X, NewWWW); - Ins_ShowAlertAndButtonToGoToIns (); } else - Ale_ShowAlert (Ale_WARNING,Txt_You_can_not_leave_the_web_address_empty); - - /***** Show the form again *****/ - Ins_EditInstitutionsInternal (); - - /***** Institution destructor *****/ - Ins_EditingInstitutionDestructor (); + Ale_CreateAlert (Ale_WARNING,NULL, + Txt_You_can_not_leave_the_web_address_empty); } void Ins_ChangeInsWWWInConfig (void) @@ -2173,11 +2150,21 @@ void Ins_ChangeInsStatus (void) (unsigned) Status,Ins_EditingIns->InsCod); Ins_EditingIns->Status = Status; - /***** Write message to show the change made + /***** Create message to show the change made and put button to go to institution changed *****/ Ale_CreateAlert (Ale_SUCCESS,NULL, Txt_The_status_of_the_institution_X_has_changed, Ins_EditingIns->ShrtName); + } + +/*****************************************************************************/ +/****** Show alerts after changing an institution and continue editing *******/ +/*****************************************************************************/ + +void Ins_ContEditAfterChgIns (void) + { + /***** Write message to show the change made + and put button to go to institution changed *****/ Ins_ShowAlertAndButtonToGoToIns (); /***** Show the form again *****/ @@ -2197,7 +2184,7 @@ static void Ins_ShowAlertAndButtonToGoToIns (void) // If the institution beeing edited is different to the current one... if (Ins_EditingIns->InsCod != Gbl.Hierarchy.Ins.InsCod) { - /***** Alert with button to go to degree *****/ + /***** Alert with button to go to institution *****/ Ale_ShowLastAlertAndButton (ActSeeCtr,NULL,NULL,Ins_PutParamGoToIns, Btn_CONFIRM_BUTTON,Gbl.Title); } @@ -2401,9 +2388,6 @@ void Ins_RecFormReqIns (void) /***** Receive form to request a new institution *****/ Ins_RecFormRequestOrCreateIns ((unsigned) Ins_STATUS_BIT_PENDING); - - /***** Institution destructor *****/ - Ins_EditingInstitutionDestructor (); } /*****************************************************************************/ @@ -2417,9 +2401,6 @@ void Ins_RecFormNewIns (void) /***** Receive form to create a new institution *****/ Ins_RecFormRequestOrCreateIns (0); - - /***** Institution destructor *****/ - Ins_EditingInstitutionDestructor (); } /*****************************************************************************/ @@ -2429,6 +2410,7 @@ void Ins_RecFormNewIns (void) static void Ins_RecFormRequestOrCreateIns (unsigned Status) { extern const char *Txt_The_institution_X_already_exists; + extern const char *Txt_Created_new_institution_X; extern const char *Txt_You_must_specify_the_web_address_of_the_new_institution; extern const char *Txt_You_must_specify_the_short_name_and_the_full_name_of_the_new_institution; @@ -2453,23 +2435,29 @@ static void Ins_RecFormRequestOrCreateIns (unsigned Status) /***** If name of institution was in database... *****/ if (Ins_CheckIfInsNameExistsInCty ("ShortName",Ins_EditingIns->ShrtName, -1L,Gbl.Hierarchy.Cty.CtyCod)) - Ale_ShowAlert (Ale_WARNING,Txt_The_institution_X_already_exists, - Ins_EditingIns->ShrtName); + Ale_CreateAlert (Ale_WARNING,NULL, + Txt_The_institution_X_already_exists, + Ins_EditingIns->ShrtName); else if (Ins_CheckIfInsNameExistsInCty ("FullName",Ins_EditingIns->FullName, -1L,Gbl.Hierarchy.Cty.CtyCod)) - Ale_ShowAlert (Ale_WARNING,Txt_The_institution_X_already_exists, - Ins_EditingIns->FullName); + Ale_CreateAlert (Ale_WARNING,NULL, + Txt_The_institution_X_already_exists, + Ins_EditingIns->FullName); else // Add new institution to database + { Ins_CreateInstitution (Status); + Ale_CreateAlert (Ale_SUCCESS,NULL, + Txt_Created_new_institution_X, + Ins_EditingIns->FullName); + } } else // If there is not a web - Ale_ShowAlert (Ale_WARNING,Txt_You_must_specify_the_web_address_of_the_new_institution); + Ale_CreateAlert (Ale_WARNING,NULL, + Txt_You_must_specify_the_web_address_of_the_new_institution); } else // If there is not a institution name - Ale_ShowAlert (Ale_WARNING,Txt_You_must_specify_the_short_name_and_the_full_name_of_the_new_institution); - - /***** Show the form again *****/ - Ins_EditInstitutionsInternal (); + Ale_CreateAlert (Ale_WARNING,NULL, + Txt_You_must_specify_the_short_name_and_the_full_name_of_the_new_institution); } /*****************************************************************************/ @@ -2478,8 +2466,6 @@ static void Ins_RecFormRequestOrCreateIns (unsigned Status) static void Ins_CreateInstitution (unsigned Status) { - extern const char *Txt_Created_new_institution_X; - /***** Create a new institution *****/ Ins_EditingIns->InsCod = DB_QueryINSERTandReturnCode ("can not create institution", @@ -2493,13 +2479,6 @@ static void Ins_CreateInstitution (unsigned Status) Ins_EditingIns->ShrtName, Ins_EditingIns->FullName, Ins_EditingIns->WWW); - - /***** Write message to show the change made - and put button to go to institution created *****/ - Ale_CreateAlert (Ale_SUCCESS,NULL, - Txt_Created_new_institution_X, - Ins_EditingIns->FullName); - Ins_ShowAlertAndButtonToGoToIns (); } /*****************************************************************************/