From 98e147e1f5cd0f856b842b44acab1ae616901c19 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Antonio=20Ca=C3=B1as=20Vargas?= Date: Thu, 26 Dec 2019 20:12:27 +0100 Subject: [PATCH] Version19.97.11 --- swad_centre.c | 65 +++++++++++++------------------------------- swad_changelog.h | 5 +++- swad_course.c | 28 +++++++++---------- swad_degree.c | 67 +++++++++++++--------------------------------- swad_hierarchy.c | 37 +++++++++++++++++++++++++ swad_hierarchy.h | 2 ++ swad_institution.c | 65 +++++++++++++------------------------------- 7 files changed, 113 insertions(+), 156 deletions(-) diff --git a/swad_centre.c b/swad_centre.c index 8bc959189..7b5a3e227 100644 --- a/swad_centre.c +++ b/swad_centre.c @@ -95,10 +95,10 @@ static void Ctr_ConfigLongitude (void); static void Ctr_ConfigAltitude (void); static void Ctr_ConfigPhoto (bool PrintView,bool PutLink); static void Ctr_ConfigInstitution (bool PrintView); -static void Ctr_ConfigFullName (bool PrintView); -static void Ctr_ConfigShrtName (bool PrintView); +static void Ctr_ConfigFullName (bool PutForm); +static void Ctr_ConfigShrtName (bool PutForm); static void Ctr_ConfigPlace (bool PrintView); -static void Ctr_ConfigWWW (bool PrintView); +static void Ctr_ConfigWWW (bool PutForm); static void Ctr_ConfigShortcut (void); static void Ctr_ConfigQR (void); static void Ctr_ConfigNumUsrs (void); @@ -313,11 +313,18 @@ static void Ctr_Configuration (bool PrintView) { extern const char *Hlp_CENTRE_Information; bool PutLink; + bool PutFormName; + bool PutFormWWW; /***** Trivial check *****/ if (Gbl.Hierarchy.Ctr.CtrCod <= 0) // No centre selected return; + /***** Initializations *****/ + PutLink = !PrintView && Gbl.Hierarchy.Ctr.WWW[0]; + PutFormName = !PrintView && Gbl.Usrs.Me.Role.Logged >= Rol_INS_ADM; + PutFormWWW = !PrintView && Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM; + /***** Begin box *****/ if (PrintView) Box_BoxBegin (NULL,NULL,NULL, @@ -327,7 +334,6 @@ static void Ctr_Configuration (bool PrintView) Hlp_CENTRE_Information,Box_NOT_CLOSABLE); /***** Title *****/ - PutLink = !PrintView && Gbl.Hierarchy.Ctr.WWW[0]; Ctr_ConfigTitle (PutLink); /***** Centre map *****/ @@ -344,8 +350,8 @@ static void Ctr_Configuration (bool PrintView) Ctr_ConfigInstitution (PrintView); /***** Centre name *****/ - Ctr_ConfigFullName (PrintView); - Ctr_ConfigShrtName (PrintView); + Ctr_ConfigFullName (PutFormName); + Ctr_ConfigShrtName (PutFormName); /***** Place *****/ Ctr_ConfigPlace (PrintView); @@ -359,7 +365,7 @@ static void Ctr_Configuration (bool PrintView) } /***** Centre WWW *****/ - Ctr_ConfigWWW (PrintView); + Ctr_ConfigWWW (PutFormWWW); /***** Shortcut to the centre *****/ Ctr_ConfigShortcut (); @@ -727,7 +733,7 @@ static void Ctr_ConfigInstitution (bool PrintView) /************** Show centre full name in centre configuration ****************/ /*****************************************************************************/ -static void Ctr_ConfigFullName (bool PrintView) +static void Ctr_ConfigFullName (bool PutForm) { extern const char *Txt_Centre; @@ -736,9 +742,7 @@ static void Ctr_ConfigFullName (bool PrintView) Hie_ConfigLabel ("FullName",Txt_Centre); HTM_TD_Begin ("class=\"DAT_N LM\""); - if (!PrintView && - Gbl.Usrs.Me.Role.Logged >= Rol_INS_ADM) - // Only institution admins and system admins can edit centre full name + if (PutForm) { /* Form to change centre full name */ Frm_StartForm (ActRenCtrFulCfg); @@ -757,7 +761,7 @@ static void Ctr_ConfigFullName (bool PrintView) /************** Show centre short name in centre configuration ***************/ /*****************************************************************************/ -static void Ctr_ConfigShrtName (bool PrintView) +static void Ctr_ConfigShrtName (bool PutForm) { extern const char *Txt_Short_name; @@ -766,9 +770,7 @@ static void Ctr_ConfigShrtName (bool PrintView) Hie_ConfigLabel ("ShortName",Txt_Short_name); HTM_TD_Begin ("class=\"DAT_N LM\""); - if (!PrintView && - Gbl.Usrs.Me.Role.Logged >= Rol_INS_ADM) - // Only institution admins and system admins can edit centre short name + if (PutForm) { /* Form to change centre short name */ Frm_StartForm (ActRenCtrShoCfg); @@ -840,38 +842,9 @@ static void Ctr_ConfigPlace (bool PrintView) /***************** Show centre WWW in centre configuration *******************/ /*****************************************************************************/ -static void Ctr_ConfigWWW (bool PrintView) +static void Ctr_ConfigWWW (bool PutForm) { - extern const char *Txt_Web; - - HTM_TR_Begin (NULL); - - Hie_ConfigLabel ("WWW",Txt_Web); - - HTM_TD_Begin ("class=\"LM\""); - if (!PrintView && - Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM) - // Only centre admins, institution admins and system admins - // can change centre WWW - { - /* Form to change centre WWW */ - Frm_StartForm (ActChgCtrWWWCfg); - HTM_INPUT_URL ("WWW",Gbl.Hierarchy.Ctr.WWW,true, - "id=\"WWW\" class=\"INPUT_WWW_WIDE\" required=\"required\""); - Frm_EndForm (); - } - else // I can not change centre WWW - { - HTM_DIV_Begin ("class=\"EXTERNAL_WWW_LONG\""); - HTM_A_Begin ("href=\"%s\" target=\"_blank\" class=\"DAT\"", - Gbl.Hierarchy.Ctr.WWW); - HTM_Txt (Gbl.Hierarchy.Ctr.WWW); - HTM_A_End (); - HTM_DIV_End (); - } - HTM_TD_End (); - - HTM_TR_End (); + Hie_ConfigWWW (PutForm,ActChgCtrWWWCfg,Gbl.Hierarchy.Ctr.WWW); } /*****************************************************************************/ diff --git a/swad_changelog.h b/swad_changelog.h index cd078caa3..70fbef4c0 100644 --- a/swad_changelog.h +++ b/swad_changelog.h @@ -492,7 +492,7 @@ enscript -2 --landscape --color --file-align=2 --highlight --line-numbers -o - * En OpenSWAD: ps2pdf source.ps destination.pdf */ -#define Log_PLATFORM_VERSION "SWAD 19.97.10 (2019-12-26)" +#define Log_PLATFORM_VERSION "SWAD 19.97.11 (2019-12-26)" #define CSS_FILE "swad19.97.css" #define JS_FILE "swad19.91.1.js" /* @@ -500,7 +500,10 @@ ps2pdf source.ps destination.pdf // TODO: Impedir la creación y edición de proyectos si no son editables. // TODO: No se puede entrar con DNI '1' suponiendo que no tenga password ¿por qué? + Version 19.99: Dec 26, 2019 Map in country information. (? lines) Version 19.98: Dec 26, 2019 Map in institution information. (? lines) + Version 19.97.12: Dec 26, 2019 Code refactoring in country information. (? lines) + Version 19.97.11: Dec 26, 2019 Code refactoring in degree, centre and institution information. (249353 lines) Version 19.97.10: Dec 26, 2019 Code refactoring in course, degree, centre and institution information. (249394 lines) Version 19.97.9: Dec 26, 2019 Code refactoring in course information. (249557 lines) Version 19.97.8: Dec 26, 2019 Code refactoring in degree information. (249458 lines) diff --git a/swad_course.c b/swad_course.c index c4ef9700c..7d9007ad2 100644 --- a/swad_course.c +++ b/swad_course.c @@ -83,8 +83,8 @@ static void Crs_Configuration (bool PrintView); static void Crs_PutIconToPrint (void); static void Crs_ConfigTitle (bool PutLink); static void Crs_ConfigDegree (bool PrintView); -static void Crs_ConfigFullName (bool PrintView); -static void Crs_ConfigShrtName (bool PrintView); +static void Crs_ConfigFullName (bool PutForm); +static void Crs_ConfigShrtName (bool PutForm); static void Crs_ConfigYear (bool IsForm); static void Crs_ConfigInstitutionalCode (bool IsForm); static void Crs_ConfigInternalCode (void); @@ -183,12 +183,17 @@ static void Crs_Configuration (bool PrintView) { extern const char *Hlp_COURSE_Information; bool PutLink; + bool PutFormName; bool IsForm; /***** Trivial check *****/ if (Gbl.Hierarchy.Crs.CrsCod <= 0) // No course selected return; + /***** Initializations *****/ + PutLink = !PrintView && Gbl.Hierarchy.Deg.WWW[0]; + PutFormName = !PrintView && Gbl.Usrs.Me.Role.Logged >= Rol_DEG_ADM; + /***** Contextual menu *****/ if (!PrintView) if (Gbl.Usrs.Me.Role.Logged == Rol_GST || @@ -208,7 +213,6 @@ static void Crs_Configuration (bool PrintView) Hlp_COURSE_Information,Box_NOT_CLOSABLE); /***** Title *****/ - PutLink = !PrintView && Gbl.Hierarchy.Deg.WWW[0]; Crs_ConfigTitle (PutLink); /***** Begin table *****/ @@ -218,8 +222,8 @@ static void Crs_Configuration (bool PrintView) Crs_ConfigDegree (PrintView); /***** Course name *****/ - Crs_ConfigFullName (PrintView); - Crs_ConfigShrtName (PrintView); + Crs_ConfigFullName (PutFormName); + Crs_ConfigShrtName (PutFormName); /***** Course year *****/ IsForm = (!PrintView && Gbl.Usrs.Me.Role.Logged >= Rol_TCH); @@ -334,7 +338,7 @@ static void Crs_ConfigDegree (bool PrintView) /************** Show course full name in course configuration ****************/ /*****************************************************************************/ -static void Crs_ConfigFullName (bool PrintView) +static void Crs_ConfigFullName (bool PutForm) { extern const char *Txt_Course; @@ -343,10 +347,7 @@ static void Crs_ConfigFullName (bool PrintView) Hie_ConfigLabel ("FullName",Txt_Course); HTM_TD_Begin ("class=\"DAT_N LM\""); - if (!PrintView && - Gbl.Usrs.Me.Role.Logged >= Rol_DEG_ADM) - // Only degree admins, centre admins, institution admins and system admins - // can edit course full name + if (PutForm) { /* Form to change course full name */ Frm_StartForm (ActRenCrsFulCfg); @@ -365,7 +366,7 @@ static void Crs_ConfigFullName (bool PrintView) /************** Show course short name in course configuration ***************/ /*****************************************************************************/ -static void Crs_ConfigShrtName (bool PrintView) +static void Crs_ConfigShrtName (bool PutForm) { extern const char *Txt_Short_name; @@ -375,10 +376,7 @@ static void Crs_ConfigShrtName (bool PrintView) Hie_ConfigLabel ("ShortName",Txt_Short_name); HTM_TD_Begin ("class=\"DAT_N LM\""); - if (!PrintView && - Gbl.Usrs.Me.Role.Logged >= Rol_DEG_ADM) - // Only degree admins, centre admins, institution admins and system admins - // can edit course short name + if (PutForm) { /* Form to change course short name */ Frm_StartForm (ActRenCrsShoCfg); diff --git a/swad_degree.c b/swad_degree.c index 749fc8abb..7fb847fce 100644 --- a/swad_degree.c +++ b/swad_degree.c @@ -91,9 +91,9 @@ static void Deg_Configuration (bool PrintView); static void Deg_PutIconsToPrintAndUpload (void); static void Deg_ConfigTitle (bool PutLink); static void Deg_ConfigCentre (bool PrintView); -static void Deg_ConfigFullName (bool PrintView); -static void Deg_ConfigShrtName (bool PrintView); -static void Deg_ConfigWWW (bool PrintView); +static void Deg_ConfigFullName (bool PutForm); +static void Deg_ConfigShrtName (bool PutForm); +static void Deg_ConfigWWW (bool PutForm); static void Deg_ConfigShortcut (void); static void Deg_ConfigQR (void); static void Deg_ConfigNumCrss (void); @@ -303,11 +303,18 @@ static void Deg_Configuration (bool PrintView) { extern const char *Hlp_DEGREE_Information; bool PutLink; + bool PutFormName; + bool PutFormWWW; /***** Trivial check *****/ if (Gbl.Hierarchy.Deg.DegCod <= 0) // No degree selected return; + /***** Initializations *****/ + PutLink = !PrintView && Gbl.Hierarchy.Deg.WWW[0]; + PutFormName = !PrintView && Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM; + PutFormWWW = !PrintView && Gbl.Usrs.Me.Role.Logged >= Rol_DEG_ADM; + /***** Begin box *****/ if (PrintView) Box_BoxBegin (NULL,NULL,NULL, @@ -317,7 +324,6 @@ static void Deg_Configuration (bool PrintView) Hlp_DEGREE_Information,Box_NOT_CLOSABLE); /***** Title *****/ - PutLink = !PrintView && Gbl.Hierarchy.Deg.WWW[0]; Deg_ConfigTitle (PutLink); /***** Begin table *****/ @@ -327,11 +333,11 @@ static void Deg_Configuration (bool PrintView) Deg_ConfigCentre (PrintView); /***** Degree name *****/ - Deg_ConfigFullName (PrintView); - Deg_ConfigShrtName (PrintView); + Deg_ConfigFullName (PutFormName); + Deg_ConfigShrtName (PutFormName); /***** Degree WWW *****/ - Deg_ConfigWWW (PrintView); + Deg_ConfigWWW (PutFormWWW); /***** Shortcut to the degree *****/ Deg_ConfigShortcut (); @@ -439,7 +445,7 @@ static void Deg_ConfigCentre (bool PrintView) /************** Show degree full name in degree configuration ****************/ /*****************************************************************************/ -static void Deg_ConfigFullName (bool PrintView) +static void Deg_ConfigFullName (bool PutForm) { extern const char *Txt_Degree; @@ -448,10 +454,7 @@ static void Deg_ConfigFullName (bool PrintView) Hie_ConfigLabel ("FullName",Txt_Degree); HTM_TD_Begin ("class=\"DAT_N LM\""); - if (!PrintView && - Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM) - // Only centre admins, institution admins and system admins - // can edit degree full name + if (PutForm) { /* Form to change degree full name */ Frm_StartForm (ActRenDegFulCfg); @@ -470,7 +473,7 @@ static void Deg_ConfigFullName (bool PrintView) /************** Show degree short name in degree configuration ***************/ /*****************************************************************************/ -static void Deg_ConfigShrtName (bool PrintView) +static void Deg_ConfigShrtName (bool PutForm) { extern const char *Txt_Short_name; @@ -479,10 +482,7 @@ static void Deg_ConfigShrtName (bool PrintView) Hie_ConfigLabel ("ShortName",Txt_Short_name); HTM_TD_Begin ("class=\"DAT_N LM\""); - if (!PrintView && - Gbl.Usrs.Me.Role.Logged >= Rol_CTR_ADM) - // Only centre admins, institution admins and system admins - // can edit degree short name + if (PutForm) { /* Form to change degree short name */ Frm_StartForm (ActRenDegShoCfg); @@ -501,38 +501,9 @@ static void Deg_ConfigShrtName (bool PrintView) /***************** Show degree WWW in degree configuration *******************/ /*****************************************************************************/ -static void Deg_ConfigWWW (bool PrintView) +static void Deg_ConfigWWW (bool PutForm) { - extern const char *Txt_Web; - - HTM_TR_Begin (NULL); - - Hie_ConfigLabel ("WWW",Txt_Web); - - HTM_TD_Begin ("class=\"DAT LM\""); - if (!PrintView && - Gbl.Usrs.Me.Role.Logged >= Rol_DEG_ADM) - // Only degree admins, centre admins, institution admins - // and system admins can change degree WWW - { - /* Form to change degree WWW */ - Frm_StartForm (ActChgDegWWWCfg); - HTM_INPUT_URL ("WWW",Gbl.Hierarchy.Deg.WWW,true, - "id=\"WWW\" class=\"INPUT_WWW_WIDE\" required=\"required\""); - Frm_EndForm (); - } - else // I can not change degree WWW - { - HTM_DIV_Begin ("class=\"EXTERNAL_WWW_LONG\""); - HTM_A_Begin ("href=\"%s\" target=\"_blank\" class=\"DAT\"", - Gbl.Hierarchy.Deg.WWW); - HTM_Txt (Gbl.Hierarchy.Deg.WWW); - HTM_A_End (); - HTM_DIV_End (); - } - HTM_TD_End (); - - HTM_TR_End (); + Hie_ConfigWWW (PutForm,ActChgDegWWWCfg,Gbl.Hierarchy.Deg.WWW); } /*****************************************************************************/ diff --git a/swad_hierarchy.c b/swad_hierarchy.c index 2a5789c66..87aa405d7 100644 --- a/swad_hierarchy.c +++ b/swad_hierarchy.c @@ -105,6 +105,43 @@ void Hie_ConfigLabel (const char *Id,const char *Label) HTM_TD_End (); } +/*****************************************************************************/ +/************************* Show web in configuration *************************/ +/*****************************************************************************/ + +void Hie_ConfigWWW (bool PutForm,Act_Action_t NextAction, + const char WWW[Cns_MAX_BYTES_WWW + 1]) + { + extern const char *Txt_Web; + + HTM_TR_Begin (NULL); + + Hie_ConfigLabel (PutForm ? "WWW" : + NULL, + Txt_Web); + + HTM_TD_Begin ("class=\"DAT LM\""); + if (PutForm) + { + /* Form to change web */ + Frm_StartForm (NextAction); + HTM_INPUT_URL ("WWW",WWW,true, + "id=\"WWW\" class=\"INPUT_WWW_WIDE\" required=\"required\""); + Frm_EndForm (); + } + else // I can not change web + { + HTM_DIV_Begin ("class=\"EXTERNAL_WWW_LONG\""); + HTM_A_Begin ("href=\"%s\" target=\"_blank\" class=\"DAT\"",WWW); + HTM_Txt (WWW); + HTM_A_End (); + HTM_DIV_End (); + } + HTM_TD_End (); + + HTM_TR_End (); + } + /*****************************************************************************/ /********** List pending institutions, centres, degrees and courses **********/ /*****************************************************************************/ diff --git a/swad_hierarchy.h b/swad_hierarchy.h index bfbac8c7b..712b99640 100644 --- a/swad_hierarchy.h +++ b/swad_hierarchy.h @@ -66,6 +66,8 @@ void Hie_ConfigTitle (bool PutLink, char LogoWWW[Cns_MAX_BYTES_WWW + 1], char TextFullName[Hie_MAX_BYTES_FULL_NAME + 1]); void Hie_ConfigLabel (const char *Id,const char *Label); +void Hie_ConfigWWW (bool PutForm,Act_Action_t NextAction, + const char WWW[Cns_MAX_BYTES_WWW + 1]); void Hie_SeePending (void); diff --git a/swad_institution.c b/swad_institution.c index cf062df09..0b0da46a1 100644 --- a/swad_institution.c +++ b/swad_institution.c @@ -75,9 +75,9 @@ static void Ins_ConfigTitle (bool PutLink); static bool Ins_GetIfMapIsAvailable (void); static void Ins_ConfigMap (void); static void Ins_ConfigCountry (bool PrintView); -static void Ins_ConfigFullName (bool PrintView); -static void Ins_ConfigShrtName (bool PrintView); -static void Ins_ConfigWWW (bool PrintView); +static void Ins_ConfigFullName (bool PutForm); +static void Ins_ConfigShrtName (bool PutForm); +static void Ins_ConfigWWW (bool PutForm); static void Ins_ConfigShortcut (void); static void Ins_ConfigQR (void); static void Ins_ConfigNumUsrs (void); @@ -319,11 +319,18 @@ static void Ins_Configuration (bool PrintView) { extern const char *Hlp_INSTITUTION_Information; bool PutLink; + bool PutFormName; + bool PutFormWWW; /***** Trivial check *****/ if (Gbl.Hierarchy.Ins.InsCod <= 0) // No institution selected return; + /***** Initializations *****/ + PutLink = !PrintView && Gbl.Hierarchy.Ins.WWW[0]; + PutFormName = !PrintView && Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM; + PutFormWWW = !PrintView && Gbl.Usrs.Me.Role.Logged >= Rol_INS_ADM; + /***** Begin box *****/ if (PrintView) Box_BoxBegin (NULL,NULL,NULL, @@ -334,7 +341,6 @@ static void Ins_Configuration (bool PrintView) /***** Title *****/ - PutLink = !PrintView && Gbl.Hierarchy.Ins.WWW[0]; Ins_ConfigTitle (PutLink); /***** Institution map *****/ @@ -348,11 +354,11 @@ static void Ins_Configuration (bool PrintView) Ins_ConfigCountry (PrintView); /***** Institution name *****/ - Ins_ConfigFullName (PrintView); - Ins_ConfigShrtName (PrintView); + Ins_ConfigFullName (PutFormName); + Ins_ConfigShrtName (PutFormName); /***** Institution WWW *****/ - Ins_ConfigWWW (PrintView); + Ins_ConfigWWW (PutFormWWW); /***** Shortcut to the institution *****/ Ins_ConfigShortcut (); @@ -545,7 +551,7 @@ static void Ins_ConfigCountry (bool PrintView) /********* Show institution full name in institution configuration ***********/ /*****************************************************************************/ -static void Ins_ConfigFullName (bool PrintView) +static void Ins_ConfigFullName (bool PutForm) { extern const char *Txt_Institution; @@ -554,9 +560,7 @@ static void Ins_ConfigFullName (bool PrintView) Hie_ConfigLabel ("FullName",Txt_Institution); HTM_TD_Begin ("class=\"DAT_N LM\""); - if (!PrintView && - Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM) - // Only system admins can edit institution full name + if (PutForm) { /* Form to change institution full name */ Frm_StartForm (ActRenInsFulCfg); @@ -575,7 +579,7 @@ static void Ins_ConfigFullName (bool PrintView) /********* Show institution short name in institution configuration **********/ /*****************************************************************************/ -static void Ins_ConfigShrtName (bool PrintView) +static void Ins_ConfigShrtName (bool PutForm) { extern const char *Txt_Short_name; @@ -584,9 +588,7 @@ static void Ins_ConfigShrtName (bool PrintView) Hie_ConfigLabel ("ShortName",Txt_Short_name); HTM_TD_Begin ("class=\"DAT_N LM\""); - if (!PrintView && - Gbl.Usrs.Me.Role.Logged == Rol_SYS_ADM) - // Only system admins can edit institution short name + if (PutForm) { /* Form to change institution short name */ Frm_StartForm (ActRenInsShoCfg); @@ -605,38 +607,9 @@ static void Ins_ConfigShrtName (bool PrintView) /************ Show institution WWW in institution configuration **************/ /*****************************************************************************/ -static void Ins_ConfigWWW (bool PrintView) +static void Ins_ConfigWWW (bool PutForm) { - extern const char *Txt_Web; - - HTM_TR_Begin (NULL); - - Hie_ConfigLabel ("WWW",Txt_Web); - - HTM_TD_Begin ("class=\"DAT LM\""); - if (!PrintView && - Gbl.Usrs.Me.Role.Logged >= Rol_INS_ADM) - // Only institution admins and system admins - // can change institution WWW - { - /* Form to change institution WWW */ - Frm_StartForm (ActChgInsWWWCfg); - HTM_INPUT_URL ("WWW",Gbl.Hierarchy.Ins.WWW,true, - "id=\"WWW\" class=\"INPUT_WWW_WIDE\" required=\"required\""); - Frm_EndForm (); - } - else // I can not change institution WWW - { - HTM_DIV_Begin ("class=\"EXTERNAL_WWW_LONG\""); - HTM_A_Begin ("href=\"%s\" target=\"_blank\" class=\"DAT\"", - Gbl.Hierarchy.Ins.WWW); - HTM_Txt (Gbl.Hierarchy.Ins.WWW); - HTM_A_End (); - HTM_DIV_End (); - } - HTM_TD_End (); - - HTM_TR_End (); + Hie_ConfigWWW (PutForm,ActChgInsWWWCfg,Gbl.Hierarchy.Ins.WWW); } /*****************************************************************************/