added community profile setting from dialog (untested)

communityadmin.go

@@ -14,9 +14,11 @@ import (
 	"errors"
 	"fmt"
 	"net/http"
+	"strconv"
 
 	"git.erbosoft.com/amy/amsterdam/database"
 	"git.erbosoft.com/amy/amsterdam/ui"
+	"git.erbosoft.com/amy/amsterdam/util"
 )
 
 /* CommunityAdminMenu renders the community administration menu.
@@ -122,3 +124,101 @@ func CommunityProfileForm(ctxt ui.AmContext) (string, any, error) {
 	}
 	return ui.ErrorPage(ctxt, err)
 }
+
+// levelFld is a quick routine to extract a level value from a drop-down.
+func levelFld(d *ui.Dialog, name string) uint16 {
+	v, _ := strconv.Atoi(d.Field(name).Value)
+	return uint16(v)
+}
+
+/* EditCommunityProfile updates the community's profile from the dialog.
+ * Parameters:
+ *     ctxt - The AmContext for the request.
+ * Returns:
+ *     Command string dictating what to be rendered.
+ *     Data as a parameter for the command string.
+ *     Standard Go error status.
+ */
+func EditCommunityProfile(ctxt ui.AmContext) (string, any, error) {
+	err := ctxt.SetCommunityContext(ctxt.URLParam("cid"))
+	if err != nil {
+		ctxt.SetRC(http.StatusNotFound)
+		return ui.ErrorPage(ctxt, err)
+	}
+	comm := ctxt.CurrentCommunity()
+	if !comm.TestPermission("Community.Write", ctxt.EffectiveLevel()) {
+		ctxt.SetRC(http.StatusForbidden)
+		return ui.ErrorPage(ctxt, errors.New("you are not permitted to access this page"))
+	}
+	dlg, err := ui.AmLoadDialog("commprofile")
+	if err == nil {
+		setupCommunityProfileDialog(dlg, comm)
+		dlg.LoadFromForm(ctxt)
+
+		action := dlg.WhichButton(ctxt)
+		if action == "cancel" {
+			return "redirect", fmt.Sprintf("/comm/%s/admin", comm.Alias), nil
+		}
+		if action == "update" {
+			err = dlg.Validate()
+			if err != nil {
+				return dlg.RenderError(ctxt, err.Error())
+			}
+			var ci *database.ContactInfo
+			ci, err = comm.ContactInfo()
+			if err != nil {
+				return dlg.RenderError(ctxt, err.Error())
+			}
+			var flags *util.OptionSet
+			flags, err = comm.Flags()
+			if err != nil {
+				return ui.ErrorPage(ctxt, err)
+			}
+			nci := ci.Clone()
+			nci.URL = dlg.Field("url").ValPtr()
+			nci.Company = dlg.Field("company").ValPtr()
+			nci.Addr1 = dlg.Field("addr1").ValPtr()
+			nci.Addr2 = dlg.Field("addr2").ValPtr()
+			nci.Locality = dlg.Field("loc").ValPtr()
+			nci.Region = dlg.Field("reg").ValPtr()
+			nci.PostalCode = dlg.Field("pcode").ValPtr()
+			nci.Country = dlg.Field("country").ValPtr()
+			_, err = nci.Save()
+			ci = nci
+			if err == nil {
+				var joinkey *string = nil
+				if dlg.Field("comtype").Value == "1" {
+					joinkey = dlg.Field("joinkey").ValPtr()
+				}
+				var hidedir, hidesearch bool
+				switch dlg.Field("hidemode").Value {
+				case "NONE":
+					hidedir = false
+					hidesearch = false
+				case "DIRECTORY":
+					hidedir = false
+					hidesearch = true
+				case "BOTH":
+					hidedir = true
+					hidesearch = true
+				}
+				err = comm.SetProfileData(dlg.Field("name").Value, dlg.Field("alias").Value, dlg.Field("synopsis").ValPtr(),
+					dlg.Field("rules").ValPtr(), dlg.Field("language").ValPtr(), joinkey, dlg.Field("membersonly").IsChecked(),
+					hidedir, hidesearch, levelFld(dlg, "read_lvl"), levelFld(dlg, "write_lvl"), levelFld(dlg, "create_lvl"),
+					levelFld(dlg, "delete_lvl"), levelFld(dlg, "join_lvl"))
+			}
+			if err == nil {
+				flags.Set(database.CommunityFlagPicturesInPosts, dlg.Field("pic_in_post").IsChecked())
+				err = comm.SaveFlags(flags)
+			}
+			if err != nil {
+				ctxt.ClearCommunityContext()
+				return dlg.RenderError(ctxt, err.Error())
+			} else {
+				return "redirect", fmt.Sprintf("/comm/%s/admin", comm.Alias), nil
+			}
+		}
+		return dlg.RenderError(ctxt, "No known button click on POST to community profile.")
+	}
+	return ui.ErrorPage(ctxt, err)
+}