diff --git a/src/PrayerTracker.Tests/UI/ViewModelsTests.fs b/src/PrayerTracker.Tests/UI/ViewModelsTests.fs index b5bb580..8255041 100644 --- a/src/PrayerTracker.Tests/UI/ViewModelsTests.fs +++ b/src/PrayerTracker.Tests/UI/ViewModelsTests.fs @@ -100,7 +100,7 @@ let appViewInfoTests = let vi = AppViewInfo.fresh Expect.isEmpty vi.style "There should have been no styles set" Expect.isEmpty vi.script "There should have been no scripts set" - Expect.equal vi.helpLink.Url HelpPage.None.Url "The help link should have been set to none" + Expect.isNone vi.helpLink "The help link should have been set to none" Expect.isEmpty vi.messages "There should have been no messages set" Expect.equal vi.version "" "The version should have been blank" Expect.isGreaterThan vi.requestStart DateTime.MinValue.Ticks "The request start time should have been set" diff --git a/src/PrayerTracker.UI/Help.fs b/src/PrayerTracker.UI/Help.fs deleted file mode 100644 index 7f2fc53..0000000 --- a/src/PrayerTracker.UI/Help.fs +++ /dev/null @@ -1,472 +0,0 @@ -module PrayerTracker.Views.Help - -open Giraffe.GiraffeViewEngine -open Microsoft.AspNetCore.Html -open PrayerTracker -open System.IO - - -/// View for the add/edit request help page -let editRequest () = - let s = I18N.localizer.Force () - let l = I18N.forView "Help/Requests/Edit" - use sw = new StringWriter () - let raw = rawLocText sw - [ p [] [ - raw l.["This page allows you to enter or update a new prayer request."] - ] - p [] [ - strong [] [ encLocText s.["Request Type"] ] - br [] - raw l.["There are 5 request types in {0}.", s.["PrayerTracker"]] - space - raw l.["“{0}” are your regular requests that people may have regarding things happening over the next week or so.", - s.["Current Requests"]] - space - raw l.["“{0}” are requests that may occur repeatedly or continue indefinitely.", s.["Long-Term Requests"]] - space - raw l.["“{0}” are like “{1}”, but they are answers to prayer to share with your group.", - s.["Praise Reports"], s.["Current Requests"]] - space - raw l.["“{0}” is for those who are pregnant.", s.["Expecting"]] - space - raw l.["“{0}” are like “{1}”, but instead of a request, they are simply passing information along about something coming up.", - s.["Announcements"], s.["Current Requests"]] - ] - p [] [ - raw l.["The order above is the order in which the request types appear on the list."] - space - raw l.["“{0}” and “{1}” are not subject to the automatic expiration (set on the “{2}” page) that the other requests are.", - s.["Long-Term Requests"], s.["Expecting"], s.["Change Preferences"]] - ] - p [] [ - strong [] [ encLocText s.["Date"] ] - br [] - raw l.["For new requests, this is a box with a calendar date picker."] - space - raw l.["Click or tab into the box to display the calendar, which will be preselected to today's date."] - space - raw l.["For existing requests, there will be a check box labeled “{0}”.", s.["Check to not update the date"]] - space - raw l.["This can be used if you are correcting spelling or punctuation, and do not have an actual update to make to the request."] - ] - p [] [ - strong [] [ encLocText s.["Requestor / Subject"] ] - br [] - raw l.["For requests or praises, this field is for the name of the person who made the request or offered the praise report."] - space - raw l.["For announcements, this should contain the subject of the announcement."] - space - raw l.["For all types, it is optional; I used to have an announcement with no subject that ran every week, telling where to send requests and updates."] - ] - p [] [ - strong [] [ encLocText s.["Expiration"] ] - br [] - raw l.["“{0}” means that the request is subject to the expiration days in the group preferences.", - s.["Expire Normally"]] - space - raw l.["“{0}” can be used to make a request never expire (note that this is redundant for “{1}” and “{2}”).", - s.["Request Never Expires"], s.["Long-Term Requests"], s.["Expecting"]] - space - raw l.["If you are editing an existing request, a third option appears."] - space - raw l.["“{0}” will make the request expire when it is saved.", s.["Expire Immediately"]] - space - raw l.["Apart from the icons on the request maintenance page, this is the only way to expire “{0}” and “{1}” requests, but it can be used for any request type.", - s.["Long-Term Requests"], s.["Expecting"]] - ] - p [] [ - strong [] [ encLocText s.["Request"] ] - br [] - raw l.["This is the text of the request."] - space - raw l.["The editor provides many formatting capabilities, including “Spell Check as you Type” (enabled by default), “Paste from Word”, and “Paste Plain”, as well as “Source” view, if you want to edit the HTML yourself."] - space - raw l.["It also supports undo and redo, and the editor supports full-screen mode."] - space - raw l.["Hover over each icon to see what each button does."] - ] - ] - |> Layout.help "Add / Edit a Request" - - -/// View for the small group member maintenance help -let groupMembers () = - let s = I18N.localizer.Force () - let l = I18N.forView "Help/Group/Members" - use sw = new StringWriter () - let raw = rawLocText sw - [ p [] [ - raw l.["From this page, you can add, edit, and delete the e-mail addresses for your group."] - ] - p [] [ - strong [] [ encLocText s.["Add a New Group Member"] ] - br [] - raw l.["To add an e-mail address, click the icon or text in the center of the page, below the title and above the list of addresses for your group."] - ] - p [] [ - strong [] [ encLocText s.["Edit Group Member"] ] - br [] - raw l.["To edit an e-mail address, click the blue pencil icon; it's the first icon under the “{0}” column heading.", - s.["Actions"]] - space - raw l.["This will allow you to update the name and/or the e-mail address for that member."] - ] - p [] [ - strong [] [ encLocText s.["Delete a Group Member"] ] - br [] - raw l.["To delete an e-mail address, click the blue trash can icon in the “{0}” column.", s.["Actions"]] - space - raw l.["Note that once an e-mail address has been deleted, it is gone."] - space - raw l.["(Of course, if you delete it in error, you can enter it again using the “Add” instructions above.)"] - ] - ] - |> Layout.help "Maintain Group Members" - - -/// View for the log on help page -let logOn () = - let s = I18N.localizer.Force () - let l = I18N.forView "Help/User/LogOn" - use sw = new StringWriter () - let raw = rawLocText sw - [ p [] [ - raw l.["This page allows you to log on to {0}.", s.["PrayerTracker"]] - space - raw l.["There are two different levels of access for {0} - user and group.", s.["PrayerTracker"]] - ] - p [] [ - strong [] [ encLocText s.["User Log On"] ] - br [] - raw l.["Select your group, then enter your e-mail address and password into the appropriate boxes."] - space - raw l.["If you want {0} to remember you on your computer, click the “{1}” box before clicking the “{2}” button.", - s.["PrayerTracker"], s.["Remember Me"], s.["Log On"]] - ] - p [] [ - strong [] [ encLocText s.["Group Log On"] ] - br [] - raw l.["If your group has defined a password to use to allow you to view their request list online, select your group from the drop down list, then enter the group password into the appropriate box."] - space - raw l.["If you want {0} to remember your group, click the “{1}” box before clicking the “{2}” button.", - s.["PrayerTracker"], s.["Remember Me"], s.["Log On"]] - ] - ] - |> Layout.help "Log On" - -/// Help index page -let index vi = - let s = I18N.localizer.Force () - let l = I18N.forView "Help/Index" - use sw = new StringWriter () - let raw = rawLocText sw - - let helpRows = - Help.all - |> List.map (fun h -> - tr [] [ - td [] [ - a [ _href (sprintf "/help/%s" h.Url) - _onclick (sprintf "return PT.showHelp('%s')" h.Url) ] - [ encLocText s.[h.linkedText] ] - ] - ]) - - [ p [] [ - raw l.["Throughout {0}, you'll see this icon {1} next to the title on each page.", - s.["PrayerTracker"], icon "help_outline" |> (renderHtmlNode >> HtmlString)] - space - raw l.["Clicking this will open a new, small window with directions on using that page."] - space - raw l.["If you are looking for a quick overview of {0}, start with the “{1}” and “{2}” entries.", - s.["PrayerTracker"], s.["Edit Request"], s.["Change Preferences"]] - ] - hr [] - p [ _class "pt-center-text" ] [ strong [] [ encLocText s.["Help Topics"] ] ] - table [ _class "pt-table" ] [ tbody [] helpRows ] - ] - |> Layout.Content.standard - |> Layout.standard vi "Help" - - -let password () = - let s = I18N.localizer.Force () - let l = I18N.forView "Help/User/Password" - use sw = new StringWriter () - let raw = rawLocText sw - [ p [] [ - raw l.["This page will let you change your password."] - space - raw l.["Enter your existing password in the top box, then enter your new password in the bottom two boxes."] - space - raw l.["Entering your existing password is a security measure; with the “{0}” box on the log in page, this will prevent someone else who may be using your computer from being able to simply go to the site and change your password.", - s.["Remember Me"]] - ] - p [] [ - raw l.["If you cannot remember your existing password, we cannot retrieve it, but we can set it to something known so that you can then change it to your password."] - space - raw l.["Click here to request help resetting your password.", - s.["PrayerTracker"]] - ] - ] - |> Layout.help "Change Your Password" - - -/// View for the small group preferences help page -let preferences () = - let s = I18N.localizer.Force () - let l = I18N.forView "Help/Group/Preferences" - use sw = new StringWriter () - let raw = rawLocText sw - [ p [] [ - raw l.["This page allows you to change how your prayer request list looks and behaves."] - space - raw l.["Each section is addressed below."] - ] - p [] [ - strong [] [ encLocText s.["Requests Expire After"] ] - br [] - raw l.["When a regular request goes this many days without being updated, it expires and no longer appears on the request list."] - space - raw l.["Note that the categories “{0}” and “{1}” never expire automatically.", s.["Long-Term Requests"], s.["Expecting"]] - ] - p [] [ - strong [] [ encLocText s.["Requests “New” For"] ] - br [] - raw l.["Requests that have been updated within this many days are identified by a hollow circle for their bullet, as opposed to a filled circle for other requests."] - space - raw l.["All categories respect this setting."] - space - raw l.["If you do a typo correction on a request, if you do not check the box to update the date, this setting will change the bullet."] - space - raw l.["(NOTE: In the plain-text e-mail, new requests are bulleted with a “+” symbol, and old are bulleted with a “-” symbol.)"] - ] - p [] [ - strong [] [ encLocText s.["Long-Term Requests Alerted for Update"] ] - br [] - raw l.["Requests that have not been updated in this many weeks are identified by an italic font on the “{0}” page, to remind you to seek updates on these requests so that your prayers can stay relevant and current.", - s.["Maintain Requests"]] - ] - p [] [ - strong [] [ encLocText s.["Request Sorting"] ] - br [] - raw l.["By default, requests are sorted within each group by the last updated date, with the most recent on top."] - space - raw l.["If you would prefer to have the list sorted by requestor or subject rather than by date, select “{0}” instead.", - s.["Sort by Requestor Name"]] - ] - p [] [ - strong [] [ encLocText s.["E-mail “From” Name and Address"] ] - br [] - raw l.["{0} must put an name and e-mail address in the “from” position of each e-mail it sends.", s.["PrayerTracker"]] - space - raw l.["The default name is “PrayerTracker”, and the default e-mail address is “prayer@djs-consulting.com”."] - space - raw l.["This will work, but any bounced e-mails and out-of-office replies will be sent to that address (which is not even a real address)."] - space - raw l.["Changing at least the e-mail address to your address will ensure that you receive these e-mails, and can prune your e-mail list accordingly."] - ] - p [] [ - strong [] [ encLocText s.["E-mail Format"] ] - br [] - raw l.["This is the default e-mail format for your group."] - space - raw l.["The {0} default is HTML, which sends the list just as you see it online.", s.["PrayerTracker"]] - space - raw l.["However, some e-mail clients may not display this properly, so you can choose to default the email to a plain-text format, which does not have colors, italics, or other formatting."] - space - raw l.["The setting on this page is the group default; you can select a format for each recipient on the “{0}” page.", - s.["Maintain Group Members"]] - ] - p [] [ - strong [] [ encLocText s.["Colors"] ] - br [] - raw l.["You can customize the colors that are used for the headings and lines in your request list."] - space - raw l.["You can select one of the 16 named colors in the drop down lists, or you can “mix your own” using red, green, and blue (RGB) values between 0 and 255."] - space - raw l.["There is a link on the bottom of the page to a color list with more names and their RGB values, if you're really feeling artistic."] - space - raw l.["The background color cannot be changed."] - ] - p [] [ - strong [] [ encLocText s.["Fonts{0} for List", ""] ] - br [] - raw l.["This is a comma-separated list of fonts that will be used for your request list."] - space - raw l.["A warning is good here; just because you have an obscure font and like the way that it looks does not mean that others have that same font."] - space - raw l.["It is generally best to stick with the fonts that come with Windows - fonts like “Arial”, “Times New Roman”, “Tahoma”, and “Comic Sans MS”."] - space - raw l.["You should also end the font list with either “serif” or “sans-serif”, which will use the browser's default serif (like “Times New Roman”) or sans-serif (like “Arial”) font."] - ] - p [] [ - strong [] [ encLocText s.["Heading / List Text Size"] ] - br [] - raw l.["This is the point size to use for each."] - space - raw l.["The default for the heading is 16pt, and the default for the text is 12pt."] - ] - p [] [ - strong [] [ encLocText s.["Making a “Large Print” List"] ] - br [] - raw l.["If your group is comprised mostly of people who prefer large print, the following settings will make your list look like the typical large-print publication:"] - br [] - blockquote [] [ - em [] [ encLocText s.["Fonts"] ] - rawText " — 'Times New Roman',serif" - br [] - em [] [ encLocText s.["Heading Text Size"] ] - rawText " — 18pt" - br [] - em [] [ encLocText s.["List Text Size"] ] - rawText " — 16pt" - ] - ] - p [] [ - strong [] [ encLocText s.["Time Zone"] ] - br [] - raw l.["This is the time zone that you would like to use for your group."] - space - raw l.["If you do not see your time zone listed, just contact Daniel and tell him what time zone you need.", - s.["PrayerTracker"], s.["Time Zone"].Value.Replace(" ", "%20")] - ] - p [] [ - strong [] [ encLocText s.["Request List Visibility"] ] - br [] - raw l.["The group's request list can be either public, private, or password-protected."] - space - raw l.["Public lists are available without logging in, and private lists are only available online to administrators (though the list can still be sent via e-mail by an administrator)."] - space - raw l.["Password-protected lists allow group members to log in and view the current request list online, using the “{0}” link and providing this password.", - s.["Group Log On"]] - raw l.["As this is a shared password, it is stored in plain text, so you can easily see what it is."] - space - raw l.["If you select “{0}” but do not enter a password, the list remains private, which is also the default value.", - s.["Password Protected"]] - space - raw l.["(Changing this password will force all members of the group who logged in with the “{0}” box checked to provide the new password.)", - s.["Remember Me"]] - ] - ] - |> Layout.help "Change Preferences" - - -/// View for the request maintenance help page -let requests () = - let s = I18N.localizer.Force () - let l = I18N.forView "Help/Requests/Maintain" - use sw = new StringWriter () - let raw = rawLocText sw - [ p [] [ - raw l.["From this page, you can add, edit, and delete your current requests."] - raw l.["You can also restore requests that may have expired, but should be made active once again."] - ] - p [] [ - strong [] [ encLocText s.["Add a New Request"] ] - br [] - raw l.["To add a request, click the icon or text in the center of the page, below the title and above the list of requests for your group."] - ] - p [] [ - strong [] [ encLocText s.["Edit Request"] ] - br [] - raw l.["To edit a request, click the blue pencil icon; it's the first icon under the “{0}” column heading.", - s.["Actions"]] - ] - p [] [ - strong [] [ encLocText s.["Expire a Request"] ] - br [] - raw l.["For active requests, the second icon is an eye with a slash through it; clicking this icon will expire the request immediately."] - space - raw l.["This is equivalent to editing the request, selecting “{0}”, and saving it.", s.["Expire Immediately"]] - ] - p [] [ - strong [] [ encLocText s.["Restore an Inactive Request"] ] - br [] - raw l.["When the page is first displayed, it does not display inactive requests."] - space - raw l.["However, clicking the link at the bottom of the page will refresh the page with the inactive requests shown."] - space - raw l.["The middle icon will look like an eye; clicking it will restore the request as an active request."] - space - raw l.["The last updated date will be current, and the request is set to expire normally."] - ] - p [] [ - strong [] [ encLocText s.["Delete a Request"] ] - br [] - raw l.["Deleting a request is contrary to the intent of {0}, as you can retrieve requests that have expired.", - s.["PrayerTracker"]] - space - raw l.["However, if there is a request that needs to be deleted, clicking the blue trash can icon in the “{0}” column will allow you to do it.", - s.["Actions"]] - space - raw l.["Use this option carefully, as these deletions cannot be undone; once a request is deleted, it is gone for good."] - ] - ] - |> Layout.help "Maintain Requests" - -/// View for the Send Announcement page help -let sendAnnouncement () = - let s = I18N.localizer.Force () - let l = I18N.forView "Help/Group/Announcement" - use sw = new StringWriter () - let raw = rawLocText sw - [ p [] [ - strong [] [ encLocText s.["Announcement Text"] ] - br [] - raw l.["This is the text of the announcement you would like to send."] - space - raw l.["It functions the same way as the text box on the “{1}” page.", - (sprintf "/help/%s/%s" Help.editRequest.``module`` Help.editRequest.topic), s.["Edit Request"]] - ] - p [] [ - strong [] [ encLocText s.["Add to Request List"] ] - br [] - raw l.["Without this box checked, the text of the announcement will only be e-mailed to your group members."] - space - raw l.["If you check this box, however, the text of the announcement will be added to your prayer list under the section you have selected."] - ] - ] - |> Layout.help "Send Announcement" - -let viewRequests () = - let s = I18N.localizer.Force () - let l = I18N.forView "Help/Requests/View" - use sw = new StringWriter () - let raw = rawLocText sw - [ p [] [ - raw l.["From this page, you can view the request list (for today or for the next Sunday), view a printable version of the list, and e-mail the list to the members of your group."] - space - raw l.["(NOTE: If you are logged in as a group member, the only option you will see is to view a printable list.)"] - ] - p [] [ - strong [] [ encLocText s.["List for Next Sunday"] ] - br [] - raw l.["This will modify the date for the list, so it will look like it is currently next Sunday."] - space - raw l.["This can be used, for example, to see what requests will expire, or allow you to print a list with Sunday's date on Saturday evening."] - space - raw l.["Note that this link does not appear if it is Sunday."] - ] - p [] [ - strong [] [ encLocText s.["View Printable"] ] - br [] - raw l.["Clicking this link will display the list in a format that is suitable for printing; it does not have the normal {0} header across the top.", - s.["PrayerTracker"]] - space - raw l.["Once you have clicked the link, you can print it using your browser's standard “Print” functionality."] - ] - p [] [ - strong [] [ encLocText s.["Send Via E-mail"] ] - br [] - raw l.["Clicking this link will send the list you are currently viewing to your group members."] - space - raw l.["The page will remind you that you are about to do that, and ask for your confirmation."] - space - raw l.["If you proceed, you will see a page that shows to whom the list was sent, and what the list looked like."] - space - raw l.["You may safely use your browser's “Back” button to navigate away from the page."] - ] - ] - |> Layout.help "View Request List" diff --git a/src/PrayerTracker.UI/Layout.fs b/src/PrayerTracker.UI/Layout.fs index 958fe18..997e0c4 100644 --- a/src/PrayerTracker.UI/Layout.fs +++ b/src/PrayerTracker.UI/Layout.fs @@ -5,12 +5,16 @@ open Giraffe.GiraffeViewEngine open PrayerTracker open PrayerTracker.ViewModels open System +open System.Globalization + +/// Get the two-character language code for the current request +let langCode () = match CultureInfo.CurrentCulture.Name.StartsWith "es" with true -> "es" | _ -> "en" + + /// Navigation items module Navigation = - open System.Globalization - /// Top navigation bar let top m = let s = PrayerTracker.Views.I18N.localizer.Force () @@ -72,7 +76,11 @@ module Navigation = [ icon "list"; space; encLocText s.["View Request List"] ] ] yield li [] [ - a [ _href "/help"; _aria "label" s.["Help"].Value; _title s.["View Help"].Value ] + a [ _href (sprintf "https://docs.prayer.bitbadger.solutions/%s" <| langCode ()) + _aria "label" s.["Help"].Value; + _title s.["View Help"].Value + _target "_blank" + ] [ icon "help"; space; encLocText s.["Help"] ] ] ] @@ -113,12 +121,12 @@ module Navigation = header [ _id "pt-language" ] [ div [] [ yield span [ _class "u" ] [ encLocText s.["Language"]; rawText ": " ] - match CultureInfo.CurrentCulture.Name.StartsWith "es" with - | true -> + match langCode () with + | "es" -> yield encLocText s.["Spanish"] yield rawText "   •   " yield a [ _href "/language/en" ] [ encLocText s.["Change to English"] ] - | false -> + | _ -> yield encLocText s.["English"] yield rawText "   •   " yield a [ _href "/language/es" ] [ encLocText s.["Cambie a Español"] ] @@ -146,6 +154,7 @@ module Navigation = |> div [] ] + /// Content layouts module Content = /// Content layout that tops at 60rem @@ -183,7 +192,7 @@ let private htmlHead m pageTitle = let private helpLink link = let s = I18N.localizer.Force () sup [] [ - a [ _href (sprintf "/help/%s" link) + a [ _href link _title s.["Click for Help on This Page"].Value _onclick (sprintf "return PT.showHelp('%s')" link) ] [ icon "help_outline" @@ -194,8 +203,8 @@ let private helpLink link = let private renderPageTitle m pageTitle = h2 [ _id "pt-page-title" ] [ match m.helpLink with - | x when x = HelpPage.None -> () - | _ -> yield helpLink m.helpLink.Url + | Some link -> yield Help.fullLink (langCode ()) link |> helpLink + | None -> () yield encLocText pageTitle ] diff --git a/src/PrayerTracker.UI/PrayerTracker.UI.fsproj b/src/PrayerTracker.UI/PrayerTracker.UI.fsproj index 56820b3..42a66d1 100644 --- a/src/PrayerTracker.UI/PrayerTracker.UI.fsproj +++ b/src/PrayerTracker.UI/PrayerTracker.UI.fsproj @@ -13,7 +13,6 @@ - @@ -38,33 +37,6 @@ ResXFileCodeGenerator - - ResXFileCodeGenerator - - - ResXFileCodeGenerator - - - ResXFileCodeGenerator - - - ResXFileCodeGenerator - - - ResXFileCodeGenerator - - - ResXFileCodeGenerator - - - ResXFileCodeGenerator - - - ResXFileCodeGenerator - - - ResXFileCodeGenerator - ResXFileCodeGenerator diff --git a/src/PrayerTracker.UI/Resources/Views/Help/Group/Announcement.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/Group/Announcement.es.resx deleted file mode 100644 index 6103a73..0000000 --- a/src/PrayerTracker.UI/Resources/Views/Help/Group/Announcement.es.resx +++ /dev/null @@ -1,132 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Si marca esta caja, sin embargo, el texto del anuncio será añadido a su lista de oración en la sección que ha seleccionado. - - - Funciona de la misma forma que el cuadro de texto en la página “<a href="{0}">{1}</a>”. - - - Este es el texto del anuncio que desea enviar. - - - Sin esta caja marcada, el texto del anuncio sólo será por correo electrónico a los miembros del su grupo. - - \ No newline at end of file diff --git a/src/PrayerTracker.UI/Resources/Views/Help/Group/Members.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/Group/Members.es.resx deleted file mode 100644 index d490dfe..0000000 --- a/src/PrayerTracker.UI/Resources/Views/Help/Group/Members.es.resx +++ /dev/null @@ -1,141 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - (Por supuesto, si usted lo elimine por error, se puede entrar de nuevo utilizando la opción “Agregar” instrucciones de arriba.) - - - Desde esta página, usted puede agregar, editar y eliminar las direcciones de correo electrónico para su grupo. - - - Tenga en cuenta que una vez que la dirección de correo electrónico se ha eliminado, se ha ido. - - - Esto le permitirá actualizar el nombre y / o la dirección de correo electrónico para ese miembro. - - - Para agregar una dirección de correo electrónico, haga clic en el icono o el texto en el centro de la página, debajo del título y por encima de la lista de direcciones para su grupo. - - - Para eliminar una dirección de correo electrónico, haga clic en el icono azul de la papelera en la columna “{0}”. - - - Para editar una dirección de correo electrónico, haga clic en el icono de lápiz azul, es el primer icono bajo el título de columna “{0}”. - - \ No newline at end of file diff --git a/src/PrayerTracker.UI/Resources/Views/Help/Group/Preferences.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/Group/Preferences.es.resx deleted file mode 100644 index cc5530c..0000000 --- a/src/PrayerTracker.UI/Resources/Views/Help/Group/Preferences.es.resx +++ /dev/null @@ -1,234 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - (Cambiar esta contraseña obligará a todos los miembros del grupo que se iniciar sesión en el "{0}" caja marcada para proporcionar la nueva contraseña.) - - - (NOTA: En el texto sin formato de correo electrónico, las nuevas solicitudes se identifican con un símbolo “+”, y pide a los viejos se identifican con un símbolo “-”.) - - - Una advertencia de que es bueno aquí, sólo porque usted tiene una fuente oscura y gusta la forma en que se vea no significa que los demás tienen de que la misma fuente. - - - Todas las categorías respetar esta opción. - - - Como se trata de una contraseña compartida, se almacena en texto plano, así que usted puede ver fácilmente lo que es. - - - De forma predeterminada, las solicitudes se ordenan dentro de cada grupo por la última fecha de actualización, con el más reciente en la parte superior. - - - Cambiar por lo menos la dirección de correo electrónico a su dirección se asegurará de que usted recibe estos correos electrónicos, y se puede podar su lista de correo electrónico en consecuencia. - - - Cada sección se aborda más adelante. - - - Sin embargo, algunos clientes de correo electrónico no puede mostrar esto correctamente, para que pueda elegir el correo electrónico a un formato de texto plano predeterminadas, que no tiene colores, cursiva, u otro formato. - - - Si usted hace una corrección de errata en una petición, si no marque la caja para actualizar la fecha, este valor va a cambiar la bala. - - - Si no puede ver la zona horaria en la lista, ponte en <a href="mailto:daniel@djs-consulting.com?subject={1}%20por%20{0}">contacto con Daniel</a> y decirle lo que la zona horaria que usted necesita. - - - Si selecciona "{0}" pero no introduce una contraseña, la lista sigue siendo privado, que también es el valor predeterminado. - - - Si prefiere tener la lista ordenada por el solicitante o el sujeto en vez de por fecha, seleccione “{0}” en su lugar. - - - Si el grupo está compuesta en su mayoría de la gente que prefiere letras grandes, los siguientes ajustes harán que su lista de parecerse a la típica la publicación “Letra Grande”: - - - Generalmente es mejor quedarse con las fuentes que vienen con Windows - Fuentes como “Arial”, “Times New Roman”, “Tahoma”, y “Comic Sans MS”. - - - Tenga en cuenta que las categorías “{0}” y “{1}” no expirará automáticamente. - - - Protegidos con contraseña listas permiten miembros del grupo iniciar sesión y ver la lista de peticiones actual en el sito, utilizando el "{0}" enlace y proporcionar la contraseña. - - - Las listas públicas están disponibles sin iniciar sesión, y listas privadas sólo están disponibles en línea a los administradores (aunque la lista todavía puede ser enviado por correo electrónico por el administrador). - - - Peticiones que han sido actualizadas dentro de esta cantidad de días se identifican por un círculo hueco para su bala, en oposición a un círculo relleno para otras peticiones. - - - Peticiones que no han sido actualizados en esta semana muchos se identifican con un tipo de letra cursiva en la página “{0}”, para recordarle que debe buscar novedades en estas peticiones para que vuestras oraciones pueden permanecer relevante y actual. - - - El color de fondo no puede ser cambiado. - - - El valor predeterminado para el título es 16 puntos, y el valor por defecto para el texto es 12 puntos. - - - El nombre predeterminado es “PrayerTracker”, y el valor predeterminado dirección de correo electrónico es “prayer@djs-consulting.com”. - - - La lista de peticiones del grupo puede ser pública, privada o protegida por contraseña. - - - La configuración en esta página es el valor predeterminado del grupo, se puede seleccionar un formato para cada destinatario de la página “{0}”. - - - El valor predeterminado de {0} es HTML, el cual envía la lista al igual que usted lo ve en el sitio. - - - Hay un enlace en la parte inferior de la página para una lista de colores con más nombres y sus valores RGB, si realmente estás sintiendo artística. - - - Esta es una lista separada por comas de fuentes que se utilizarán para su lista de peticiones. - - - Este es el valor predeterminado formato de correo electrónico para su grupo. - - - Este es el tamaño de punto a utilizar para cada uno. - - - Esta es la zona horaria que desea utilizar para su clase. - - - Esta página le permite cambiar la forma en que su lista de peticiones de la oración se ve y se comporta. - - - Esto funciona, pero los mensajes devueltos, y las respuestas de fuera de la oficina serán enviados a esa dirección (que no es ni siquiera una dirección real). - - - Cuando una petición regular va esta cantidad de días sin actualizar, caduca y ya no aparece en la lista de peticiones. - - - Usted puede personalizar los colores que se utilizan para las partidas y líneas en su lista de peticiones. - - - Puede seleccionar uno de los 16 colores con nombre en las listas desplegables, o puede “mezclar su propia” en colores rojo, verde y azul (RGB) valores entre 0 y 255. - - - También debe poner fin a la lista de fuentes, ya sea con “serif” o el “sans-serif”, que utilizará el fuente serif predeterminado (como “Times New Roman”) o el fuente sans-serif predeterminado (como “Arial”). - - - {0} debe poner el nombre y la dirección de correo electrónico en el “de” posición de cada correo electrónico que envía. - - \ No newline at end of file diff --git a/src/PrayerTracker.UI/Resources/Views/Help/Index.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/Index.es.resx deleted file mode 100644 index c6cf9c1..0000000 --- a/src/PrayerTracker.UI/Resources/Views/Help/Index.es.resx +++ /dev/null @@ -1,129 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Al hacer clic en esta opción, se abrirá una nueva y pequeña ventana con instrucciones sobre cómo usar esa página. - - - Si está buscando una descripción rápida de {0}, comience con las entradas "{1}" y "{2}". - - - En todo el sistema, verá este icono&#xa0;<i class="material-icons" title="{1}">help_outline</i>&#xa0;junto al título de cada página. - - \ No newline at end of file diff --git a/src/PrayerTracker.UI/Resources/Views/Help/Requests/Edit.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/Requests/Edit.es.resx deleted file mode 100644 index e47dcaa..0000000 --- a/src/PrayerTracker.UI/Resources/Views/Help/Requests/Edit.es.resx +++ /dev/null @@ -1,195 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Aparte de los iconos de la página de mantenimiento de las peticiones, ésta es la única otra forma de expirar peticiones del tipos “{0}” y “{1}”, pero puede ser utilizada para cualquier tipo de petición. - - - Haga clic en la pestaña o en la caja para mostrar el calendario, que será preseleccionada para la fecha de hoy. - - - Para todos los tipos, es opcional, yo solía tener un anuncio con ningún tema que iba todas las semanas, diciendo a dónde enviar peticiones y actualizaciones. - - - Para los anuncios, este debe contener el objeto del anuncio. - - - Para peticiones existentes, habrá una casilla de verificación “{0}”. - - - Para nuevas peticiones, se trata de una caja con un selector de fechas del calendario. - - - Para las peticiones o alabanzas, este campo es el nombre de la persona que hizo la petición o que ofrece el informe de alabanza. - - - Pase el ratón sobre cada icono para ver qué hace cada botón. - - - Si está editando una petición existente, aparece una tercera opción. - - - También es compatible con deshacer y rehacer, y el editor soporta modo de pantalla completa. - - - El editor ofrece muchas capacidades de formato, como "El Corrector Ortográfico al Escribir" (habilitado predeterminado), "Pegar desde Word" y "Pegar sin formato", así como "Código Fuente" punto de vista, si quieres editar el código HTML usted mismo. - - - El orden anterior es el orden en que los tipos de peticiones aparecen en la lista. - - - Hay 5 tipos de peticiones en {0}. - - - Esto puede ser usado si corrige la ortografía ni la puntuacion, y no tienen una actualización real de hacer la petición. - - - Este es el texto de la petición. - - - Esta página le permite introducir o actualizar una petición de oración nueva. - - - “{0}” y “{1}” no están sujetos a la caducidad automática (establecida en el “{2}” de la página) que las peticiones son otros. - - - “{0}” son como “{1}”, pero en lugar de una petición, simplemente se pasa la información a lo largo de algo por venir. - - - “{0}” son como “{1}”, pero son respuestas a la oración para compartir con su grupo. - - - “{0}” son peticiones que pueden ocurrir varias veces, o continuar indefinidamente. - - - “{0}” son sus peticiones habituales que la gente pueda tener acerca de las cosas que suceden durante la próxima semana o así. - - - “{0}” se puede utilizar para hacer una petición que no caduque nunca (nótese que esto es redundante para los tipos “{1}” y “{2}”). - - - “{0}” es para aquellos que están embarazadas. - - - “{0}” significa que la petición está sujeta a los días de vencimiento de las preferencias del grupo. - - - “{0}” hará que la petición expirará cuando se guarda. - - \ No newline at end of file diff --git a/src/PrayerTracker.UI/Resources/Views/Help/Requests/Maintain.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/Requests/Maintain.es.resx deleted file mode 100644 index f542a56..0000000 --- a/src/PrayerTracker.UI/Resources/Views/Help/Requests/Maintain.es.resx +++ /dev/null @@ -1,159 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Eliminación de una petición es contraria a la intención de {0}, como se puede recuperar peticiones que han expirado. - - - Para las peticiones activas, el segundo icono es un ojo con una barra a través de él; Si hace clic en este icono, la petición se cancelará inmediatamente. - - - Desde esta página, usted puede agregar, editar y borrar sus peticiones actuales. - - - Sin embargo, al hacer clic en el vínculo en la parte inferior de la página se actualizará la página con las peticiones se muestran inactivos. - - - Sin embargo, si hay una solicitud que debe ser eliminado, haga clic en el icono azul de la papelera en la columna “{0}” le permitirá hacerlo. - - - La última fecha actualizada será actual, y la petición se establece para caducar normalmente. - - - El icono del centro se verá como un ojo; Haciendo clic en él, restaurará la petición como una petición activa. - - - Esto equivale a editar la petición, seleccionar "{0}" y guardarla. - - - Para agregar una petición, haga clic en el icono o el texto en el centro de la página, debajo del título y por encima de la lista de peticiones para su grupo. - - - Para editar una petición, haga clic en el icono de lápiz azul, el primer icono bajo el título de columna “{0}”. - - - Utilice esta opción con cuidado, ya que estas supresiones no se puede deshacer, una vez a la petición se ha borrado, ha desaparecido para siempre. - - - Cuando la página se muestra por primera vez, que no muestra peticiones inactivos. - - - También puede restaurar peticiones que han caducado, sino que debe ser activa, una vez más. - - \ No newline at end of file diff --git a/src/PrayerTracker.UI/Resources/Views/Help/Requests/View.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/Requests/View.es.resx deleted file mode 100644 index 651ed7b..0000000 --- a/src/PrayerTracker.UI/Resources/Views/Help/Requests/View.es.resx +++ /dev/null @@ -1,153 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - (NOTA: Si usted está registrado como miembro de la clase, la única opción que se ve es para ver una lista para imprimir.) - - - Hacer clic en este vínculo, se muestra la lista en un formato que sea adecuado para imprimir, sino que no tiene el encabezado normal de {0} en la parte superior. - - - Al hacer clic en este enlace le enviará la lista que está viendo en ese momento a los miembros del grupo. - - - Desde esta página, puede ver la lista de peticiones (para hoy o para el próximo Domingo), ver una versión imprimible de la lista, y por correo electrónico la lista de los miembros de su grupo. - - - Si continúa, usted verá una página que muestra a la que la lista fue enviado, y lo que la lista parecía. - - - Tenga en cuenta que este enlace no aparece si es Domingo. - - - Una vez que haya hecho clic en el enlace, se puede imprimir con el navegador estándar de “Imprimir” funcionalidad. - - - La página te recordará que estás a punto de hacerlo, y pedir su confirmación. - - - Esto puede ser usado, por ejemplo, para ver lo que peticiones de caducidad, ni le permite imprimir una lista con la fecha del Domingo en la noche del Sábado. - - - Esto modificará la fecha de la lista, por lo que se verá como es en la actualidad el próximo Domingo. - - - Usted puede utilizar con seguridad de su navegador botón “Atrás” para navegar fuera de la página. - - \ No newline at end of file diff --git a/src/PrayerTracker.UI/Resources/Views/Help/User/LogOn.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/User/LogOn.es.resx deleted file mode 100644 index e4972a1..0000000 --- a/src/PrayerTracker.UI/Resources/Views/Help/User/LogOn.es.resx +++ /dev/null @@ -1,138 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Si desea que {0} que le recuerde en su ordenador, haga clic en “{1}” caja antes de pulsar el “{2}” botón. - - - Si desea que {0} recuerde su grupo, haga clic en “{1}” caja antes de pulsar el “{2}” botón. - - - Si el grupo se ha definido una contraseña para usar que le permite ver su lista de peticiones en línea, seleccionar el grupo en la lista desplegable y introduzca la contraseña del grupo en la caja correspondiente. - - - Seleccione su grupo y introduzca su dirección de correo electrónico y contraseña en las cajas apropiadas. - - - Hay dos diferentes niveles de acceso para {0} - el usuario y el grupo. - - - Esta página le permite acceder a {0}. - - \ No newline at end of file diff --git a/src/PrayerTracker.UI/Resources/Views/Help/User/Password.es.resx b/src/PrayerTracker.UI/Resources/Views/Help/User/Password.es.resx deleted file mode 100644 index 1ccce70..0000000 --- a/src/PrayerTracker.UI/Resources/Views/Help/User/Password.es.resx +++ /dev/null @@ -1,135 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - <a href="mailto:daniel@djs-consulting.com?subject=Ayuda%20de%20Contraseña%20de%20{0}">Haga clic aquí para solicitar ayuda para restablecer su contraseña</a>. - - - Ingrese su contraseña actual en la caja superior y introduzca la nueva contraseña en la parte inferior dos cajas. - - - Al entrar su contraseña actual es una medida de seguridad, con el “{0}” caja de la página inicio de sesión, esto evitará que otra persona que pueda estar usando su computadora de la posibilidad de simplemente ir a el sitio y cambiar la contraseña. - - - Si no recuerdas tu contraseña actual, no podemos recuperar, pero podemos ponerlo en algo que se conoce de modo que usted puede cambiarlo a su contraseña. - - - Esta página le permitirá cambiar su contraseña. - - \ No newline at end of file diff --git a/src/PrayerTracker.UI/Utils.fs b/src/PrayerTracker.UI/Utils.fs index fd9cda6..5449e4d 100644 --- a/src/PrayerTracker.UI/Utils.fs +++ b/src/PrayerTracker.UI/Utils.fs @@ -154,53 +154,26 @@ module RequestVisibility = let ``private`` = 3 -/// A page with verbose user instructions -type HelpPage = - { /// The module to which the help page applies - ``module`` : string - /// The topic for the help page - topic : string - /// The text with which this help page is linked (context help is linked with an icon) - linkedText : string - } - with - /// A help page that does not exist - static member None = { ``module`` = null; topic = null; linkedText = null } - - /// The URL fragment for this page (appended to "/help/" for the full URL) - member this.Url = sprintf "%s/%s" this.``module`` this.topic - - /// Links for help locations module Help = /// Help link for small group preference edit page - let groupPreferences = { ``module`` = "group"; topic = "preferences"; linkedText = "Change Preferences" } + let groupPreferences = "small-group/preferences" /// Help link for send announcement page - let sendAnnouncement = { ``module`` = "group"; topic = "announcement"; linkedText = "Send Announcement" } + let sendAnnouncement = "small-group/announcement" /// Help link for maintain group members page - let maintainGroupMembers = { ``module`` = "group"; topic = "members"; linkedText = "Maintain Group Members" } + let maintainGroupMembers = "small-group/members" /// Help link for request edit page - let editRequest = { ``module`` = "requests"; topic = "edit"; linkedText = "Add / Edit a Request" } + let editRequest = "requests/edit" /// Help link for maintain requests page - let maintainRequests = { ``module`` = "requests"; topic = "maintain"; linkedText = "Maintain Requests" } + let maintainRequests = "requests/maintain" /// Help link for view request list page - let viewRequestList = { ``module`` = "requests"; topic = "view"; linkedText = "View Request List" } + let viewRequestList = "requests/view" /// Help link for user and class login pages - let logOn = { ``module`` = "user"; topic = "logon"; linkedText = "Log On" } + let logOn = "user/log-on" /// Help link for user password change page - let changePassword = { ``module`` = "user"; topic = "password"; linkedText = "Change Your Password" } - /// All help pages (the order is the order in which they are displayed on the main help page) - let all = - [ logOn - maintainRequests - editRequest - groupPreferences - maintainGroupMembers - viewRequestList - sendAnnouncement - changePassword - ] - + let changePassword = "user/password" + /// Create a full link for a help page + let fullLink lang url = sprintf "https://docs.prayer.bitbadger.solutions/%s/%s.html" lang url /// This class serves as a common anchor for resources type Common () = diff --git a/src/PrayerTracker.UI/ViewModels.fs b/src/PrayerTracker.UI/ViewModels.fs index 4a54e83..3b6c40d 100644 --- a/src/PrayerTracker.UI/ViewModels.fs +++ b/src/PrayerTracker.UI/ViewModels.fs @@ -83,7 +83,7 @@ type AppViewInfo = /// JavaScript files for the page script : string list /// The link for help on this page - helpLink : HelpPage + helpLink : string option /// Messages to be displayed to the user messages : UserMessage list /// The current version of PrayerTracker @@ -100,7 +100,7 @@ type AppViewInfo = static member fresh = { style = [] script = [] - helpLink = HelpPage.None + helpLink = None messages = [] version = "" requestStart = DateTime.Now.Ticks diff --git a/src/PrayerTracker/App.fs b/src/PrayerTracker/App.fs index 2199d2c..ffb5937 100644 --- a/src/PrayerTracker/App.fs +++ b/src/PrayerTracker/App.fs @@ -66,12 +66,8 @@ module Configure = route "es" Handlers.Church.maintain routef "/%O/edit" Handlers.Church.edit ] - route "/class/logon" (redirectTo true "/small-group/log-on") - routef "/error/%s" Handlers.Home.error - subRoute "/help" [ - route "" Handlers.Help.index - routef "/%s/%s" Handlers.Help.show - ] + route "/class/logon" (redirectTo true "/small-group/log-on") + routef "/error/%s" Handlers.Home.error routef "/language/%s" Handlers.Home.language subRoute "/legal" [ route "/privacy-policy" Handlers.Home.privacyPolicy diff --git a/src/PrayerTracker/Help.fs b/src/PrayerTracker/Help.fs deleted file mode 100644 index 84c3ad3..0000000 --- a/src/PrayerTracker/Help.fs +++ /dev/null @@ -1,36 +0,0 @@ -module PrayerTracker.Handlers.Help - -open Giraffe -open PrayerTracker -open System - -/// Help template lookup -let private templates = - [ Help.sendAnnouncement.Url, Views.Help.sendAnnouncement - Help.maintainGroupMembers.Url, Views.Help.groupMembers - Help.groupPreferences.Url, Views.Help.preferences - Help.editRequest.Url, Views.Help.editRequest - Help.maintainRequests.Url, Views.Help.requests - Help.viewRequestList.Url, Views.Help.viewRequests - Help.logOn.Url, Views.Help.logOn - Help.changePassword.Url, Views.Help.password - ] - |> Map.ofList - - -/// GET /help -let index : HttpHandler = - requireAccess [ AccessLevel.Public ] - >=> fun next ctx -> - viewInfo ctx DateTime.Now.Ticks - |> Views.Help.index - |> renderHtml next ctx - - -/// GET /help/[module]/[topic] -let show (``module``, topic) : HttpHandler = - requireAccess [ AccessLevel.Public ] - >=> fun next ctx -> - match templates.TryGetValue (sprintf "%s/%s" ``module`` topic) with - | true, view -> renderHtml next ctx (view ()) - | false, _ -> fourOhFour next ctx diff --git a/src/PrayerTracker/PrayerRequest.fs b/src/PrayerTracker/PrayerRequest.fs index 47838d8..fc17e56 100644 --- a/src/PrayerTracker/PrayerRequest.fs +++ b/src/PrayerTracker/PrayerRequest.fs @@ -58,7 +58,7 @@ let edit (reqId : PrayerRequestId) : HttpHandler = match reqId = Guid.Empty with | true -> return! - { viewInfo ctx startTicks with script = [ "ckeditor/ckeditor" ]; helpLink = Help.editRequest } + { viewInfo ctx startTicks with script = [ "ckeditor/ckeditor" ]; helpLink = Some Help.editRequest } |> Views.PrayerRequest.edit EditRequest.empty (now.ToString "yyyy-MM-dd") ctx |> renderHtml next ctx | false -> @@ -78,7 +78,7 @@ let edit (reqId : PrayerRequestId) : HttpHandler = |> addUserMessage ctx | false -> () return! - { viewInfo ctx startTicks with script = [ "ckeditor/ckeditor" ]; helpLink = Help.editRequest } + { viewInfo ctx startTicks with script = [ "ckeditor/ckeditor" ]; helpLink = Some Help.editRequest } |> Views.PrayerRequest.edit (EditRequest.fromRequest req) "" ctx |> renderHtml next ctx | Error e -> return! e next ctx @@ -199,7 +199,7 @@ let maintain onlyActive : HttpHandler = task { let reqs = db.AllRequestsForSmallGroup grp (ctx.GetService ()) None onlyActive return! - { viewInfo ctx startTicks with helpLink = Help.maintainRequests } + { viewInfo ctx startTicks with helpLink = Some Help.maintainRequests } |> Views.PrayerRequest.maintain reqs grp onlyActive ctx |> renderHtml next ctx } diff --git a/src/PrayerTracker/PrayerTracker.fsproj b/src/PrayerTracker/PrayerTracker.fsproj index d448b3d..590ffd2 100644 --- a/src/PrayerTracker/PrayerTracker.fsproj +++ b/src/PrayerTracker/PrayerTracker.fsproj @@ -19,7 +19,6 @@ - diff --git a/src/PrayerTracker/SmallGroup.fs b/src/PrayerTracker/SmallGroup.fs index e61eb5a..89d687d 100644 --- a/src/PrayerTracker/SmallGroup.fs +++ b/src/PrayerTracker/SmallGroup.fs @@ -24,7 +24,7 @@ let announcement : HttpHandler = requireAccess [ User ] >=> fun next ctx -> let startTicks = DateTime.Now.Ticks - { viewInfo ctx startTicks with helpLink = Help.sendAnnouncement; script = [ "ckeditor/ckeditor" ] } + { viewInfo ctx startTicks with helpLink = Some Help.sendAnnouncement; script = [ "ckeditor/ckeditor" ] } |> Views.SmallGroup.announcement (currentUser ctx).isAdmin ctx |> renderHtml next ctx @@ -136,7 +136,7 @@ let logOn (groupId : SmallGroupId option) : HttpHandler = let! grps = ctx.dbContext().ProtectedGroups () let grpId = match groupId with Some gid -> flatGuid gid | None -> "" return! - { viewInfo ctx startTicks with helpLink = Help.logOn } + { viewInfo ctx startTicks with helpLink = Some Help.logOn } |> Views.SmallGroup.logOn grps grpId ctx |> renderHtml next ctx } @@ -194,7 +194,7 @@ let members : HttpHandler = let! mbrs = db.AllMembersForSmallGroup grp.smallGroupId let typs = ReferenceList.emailTypeList grp.preferences.defaultEmailType s |> Map.ofSeq return! - { viewInfo ctx startTicks with helpLink = Help.maintainGroupMembers } + { viewInfo ctx startTicks with helpLink = Some Help.maintainGroupMembers } |> Views.SmallGroup.members mbrs typs ctx |> renderHtml next ctx } @@ -238,7 +238,7 @@ let preferences : HttpHandler = task { let! tzs = ctx.dbContext().AllTimeZones () return! - { viewInfo ctx startTicks with helpLink = Help.groupPreferences } + { viewInfo ctx startTicks with helpLink = Some Help.groupPreferences } |> Views.SmallGroup.preferences (EditPreferences.fromPreferences (currentGroup ctx).preferences) tzs ctx |> renderHtml next ctx } diff --git a/src/PrayerTracker/User.fs b/src/PrayerTracker/User.fs index 36acc78..f1bec2d 100644 --- a/src/PrayerTracker/User.fs +++ b/src/PrayerTracker/User.fs @@ -201,7 +201,7 @@ let logOn : HttpHandler = addWarning ctx s.["The page you requested requires authentication; please log on below."] | None -> () return! - { viewInfo ctx startTicks with helpLink = Help.logOn } + { viewInfo ctx startTicks with helpLink = Some Help.logOn } |> Views.User.logOn { UserLogOn.empty with redirectUrl = url } groups ctx |> renderHtml next ctx } @@ -225,7 +225,7 @@ let maintain : HttpHandler = let password : HttpHandler = requireAccess [ User ] >=> fun next ctx -> - { viewInfo ctx DateTime.Now.Ticks with helpLink = Help.changePassword } + { viewInfo ctx DateTime.Now.Ticks with helpLink = Some Help.changePassword } |> Views.User.changePassword ctx |> renderHtml next ctx diff --git a/src/PrayerTracker/wwwroot/js/app.js b/src/PrayerTracker/wwwroot/js/app.js index c3384b6..4a9a8e7 100644 --- a/src/PrayerTracker/wwwroot/js/app.js +++ b/src/PrayerTracker/wwwroot/js/app.js @@ -9,7 +9,7 @@ const PT = { * @param {string} url The URL for the help page. */ showHelp(url) { - window.open(`/help/${url}`, 'helpWindow', 'height=600px,width=450px,toolbar=0,menubar=0,scrollbars=1') + window.open(url, 'helpWindow', 'height=600px,width=450px,toolbar=0,menubar=0,scrollbars=1') return false },