" "" " | " "", The_ClassForm[Gbl.Prefs.Theme], Txt_Country); if (!PrintView && Gbl.Usrs.Me.LoggedRole == Rol_SYS_ADM) // Only system admins can move an institution to another country { /* Get list of countries */ Cty_GetListCountries (Cty_GET_BASIC_DATA); /* Put form to select country */ Act_FormStart (ActChgInsCtyCfg); fprintf (Gbl.F.Out,""); Act_FormEnd (); /* Free list of countries */ Cty_FreeListCountries (); } else // I can not move institution to another country fprintf (Gbl.F.Out,"%s",Gbl.CurrentCty.Cty.Name[Gbl.Prefs.Language]); fprintf (Gbl.F.Out," | " "
" "" " | " "", The_ClassForm[Gbl.Prefs.Theme], Txt_Institution); if (!PrintView && Gbl.Usrs.Me.LoggedRole == Rol_SYS_ADM) // Only system admins can edit institution full name { /* Form to change institution full name */ Act_FormStart (ActRenInsFulCfg); fprintf (Gbl.F.Out,"", Hie_MAX_CHARS_FULL_NAME, Gbl.CurrentIns.Ins.FullName, Gbl.Form.Id); Act_FormEnd (); } else // I can not edit institution full name fprintf (Gbl.F.Out,"%s",Gbl.CurrentIns.Ins.FullName); fprintf (Gbl.F.Out," | " "
" "" " | " "", The_ClassForm[Gbl.Prefs.Theme], Txt_Short_name); if (!PrintView && Gbl.Usrs.Me.LoggedRole == Rol_SYS_ADM) // Only system admins can edit institution short name { /* Form to change institution short name */ Act_FormStart (ActRenInsShoCfg); fprintf (Gbl.F.Out,"", Hie_MAX_CHARS_SHRT_NAME, Gbl.CurrentIns.Ins.ShrtName, Gbl.Form.Id); Act_FormEnd (); } else // I can not edit institution short name fprintf (Gbl.F.Out,"%s",Gbl.CurrentIns.Ins.ShrtName); fprintf (Gbl.F.Out," | " "
" "" " | " "",
The_ClassForm[Gbl.Prefs.Theme],
Txt_Web);
if (!PrintView &&
Gbl.Usrs.Me.LoggedRole >= Rol_INS_ADM)
// Only institution admins and system admins
// can change institution WWW
{
/* Form to change institution WWW */
Act_FormStart (ActChgInsWWWCfg);
fprintf (Gbl.F.Out,"",
Cns_MAX_CHARS_WWW,
Gbl.CurrentIns.Ins.WWW,
Gbl.Form.Id);
Act_FormEnd ();
}
else // I can not change institution WWW
fprintf (Gbl.F.Out," "
""
"%s"
""
" ",
Gbl.CurrentIns.Ins.WWW,
Gbl.CurrentIns.Ins.WWW);
fprintf (Gbl.F.Out," | "
"
" "%s:" " | " "" "" "%s/%s?ins=%ld" "" " | " "
" "%s:" " | " "", The_ClassForm[Gbl.Prefs.Theme], Txt_QR_code); QR_LinkTo (250,"ins",Gbl.CurrentIns.Ins.InsCod); fprintf (Gbl.F.Out," | " "
" "%s:" " | " "" "%u" " | " "
" "%s:" " | " "", The_ClassForm[Gbl.Prefs.Theme], Txt_Centres); /* Form to go to see centres of this institution */ Act_FormGoToStart (ActSeeCtr); Ins_PutParamInsCod (Gbl.CurrentIns.Ins.InsCod); sprintf (Gbl.Title,Txt_Centres_of_INSTITUTION_X, Gbl.CurrentIns.Ins.ShrtName); Act_LinkFormSubmit (Gbl.Title,"DAT",NULL); fprintf (Gbl.F.Out,"%u", Ctr_GetNumCtrsInIns (Gbl.CurrentIns.Ins.InsCod)); Act_FormEnd (); fprintf (Gbl.F.Out," | " "
" "%s:" " | " "" "%u" " | " "
" "%s:" " | " "" "%u" " | " "
" "%s:" " | " "" "%u" " | " "
" "%s:" " | " "" "%u" " | " "
" "%s:" " | " "" "%u" " | " "
" "%s + %s:" " | " "" "%u" " | " "
"); if (Ins->NumCtrs || Ins->NumUsrsWhoClaimToBelongToIns || Ins->NumUsrs || // Institution has centres or users ==> deletion forbidden !ICanEdit) Lay_PutIconRemovalNotAllowed (); else { Act_FormStart (ActRemIns); Ins_PutParamOtherInsCod (Ins->InsCod); Lay_PutIconRemove (); Act_FormEnd (); } fprintf (Gbl.F.Out," | "); /* Institution code */ fprintf (Gbl.F.Out,"" "%ld" " | ", Ins->InsCod); /* Institution logo */ fprintf (Gbl.F.Out,"", Ins->FullName); Log_DrawLogo (Sco_SCOPE_INS,Ins->InsCod,Ins->ShrtName,20,NULL,true); fprintf (Gbl.F.Out," | "); /* Institution short name */ fprintf (Gbl.F.Out,""); if (ICanEdit) { Act_FormStart (ActRenInsSho); Ins_PutParamOtherInsCod (Ins->InsCod); fprintf (Gbl.F.Out,"", Hie_MAX_CHARS_SHRT_NAME,Ins->ShrtName, Gbl.Form.Id); Act_FormEnd (); } else fprintf (Gbl.F.Out,"%s",Ins->ShrtName); fprintf (Gbl.F.Out," | "); /* Institution full name */ fprintf (Gbl.F.Out,""); if (ICanEdit) { Act_FormStart (ActRenInsFul); Ins_PutParamOtherInsCod (Ins->InsCod); fprintf (Gbl.F.Out,"", Hie_MAX_CHARS_FULL_NAME, Ins->FullName, Gbl.Form.Id); Act_FormEnd (); } else fprintf (Gbl.F.Out,"%s",Ins->FullName); fprintf (Gbl.F.Out," | "); /* Institution WWW */ fprintf (Gbl.F.Out,""); if (ICanEdit) { Act_FormStart (ActChgInsWWW); Ins_PutParamOtherInsCod (Ins->InsCod); fprintf (Gbl.F.Out,"", Cns_MAX_CHARS_WWW, Ins->WWW, Gbl.Form.Id); Act_FormEnd (); fprintf (Gbl.F.Out," | "); } else { Str_Copy (WWW,Ins->WWW, Cns_MAX_BYTES_WWW); fprintf (Gbl.F.Out,"" "%u" " | ", Ins->NumUsrsWhoClaimToBelongToIns); /* Number of centres */ fprintf (Gbl.F.Out,"" "%u" " | ", Ins->NumCtrs); /* Number of users in courses of this institution */ fprintf (Gbl.F.Out,"" "%u" " | ", Ins->NumUsrs); /* Institution requester */ UsrDat.UsrCod = Ins->RequesterUsrCod; Usr_ChkUsrCodAndGetAllUsrDataFromUsrCod (&UsrDat); fprintf (Gbl.F.Out,""
" | ");
/* Institution status */
StatusTxt = Ins_GetStatusTxtFromStatusBits (Ins->Status);
fprintf (Gbl.F.Out,""); if (Gbl.Usrs.Me.LoggedRole == Rol_SYS_ADM && StatusTxt == Ins_STATUS_PENDING) { Act_FormStart (ActChgInsSta); Ins_PutParamOtherInsCod (Ins->InsCod); fprintf (Gbl.F.Out,"", Gbl.Form.Id, (unsigned) Ins_GetStatusBitsFromStatusTxt (Ins_STATUS_PENDING), Txt_INSTITUTION_STATUS[Ins_STATUS_PENDING], (unsigned) Ins_GetStatusBitsFromStatusTxt (Ins_STATUS_ACTIVE), Txt_INSTITUTION_STATUS[Ins_STATUS_ACTIVE]); Act_FormEnd (); } else if (StatusTxt != Ins_STATUS_ACTIVE) // If active ==> do not show anything fprintf (Gbl.F.Out,"%s",Txt_INSTITUTION_STATUS[StatusTxt]); fprintf (Gbl.F.Out," | " "