mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid listing glacier when prompting to set up a transfer repository after xmpp

Browse source
This commit is contained in:
Joey Hess 2013-03-07 13:01:18 -04:00
parent 265e440d22
commit 6e7a43ab61
4 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/Configurators.hs
View file

@ -57,8 +57,8 @@ introDisplay ident = do
makeMiscRepositories :: Widget makeMiscRepositories :: Widget
makeMiscRepositories = $(widgetFile "configurators/repositories/misc") makeMiscRepositories = $(widgetFile "configurators/repositories/misc")
makeCloudRepositories :: Widget makeCloudRepositories :: Bool -> Widget
makeCloudRepositories = $(widgetFile "configurators/repositories/cloud") makeCloudRepositories onlyTransfer = $(widgetFile "configurators/repositories/cloud")
{- Lists known repositories, followed by options to add more. -} {- Lists known repositories, followed by options to add more. -}
getRepositoriesR :: Handler RepHtml getRepositoriesR :: Handler RepHtml

2
templates/configurators/pairing/xmpp/end.hamlet
View file

@ -30,4 +30,4 @@
^{cloudrepolist} ^{cloudrepolist}
<h2> <h2>
Add a cloud repository Add a cloud repository
^{makeCloudRepositories} ^{makeCloudRepositories True}

2
templates/configurators/repositories.hamlet
View file

@ -11,4 +11,4 @@
<h2> <h2>
Store your data in the cloud Store your data in the cloud
^{makeCloudRepositories} ^{makeCloudRepositories False}

11
templates/configurators/repositories/cloud.hamlet
View file

@ -16,11 +16,12 @@
<p> <p>
Good choice for professional quality storage. Good choice for professional quality storage.
<h3> $if not onlyTransfer
<a href="@{AddGlacierR}"> <h3>
<i .icon-plus-sign></i> Amazon Glacier <a href="@{AddGlacierR}">
<p> <i .icon-plus-sign></i> Amazon Glacier
Low cost offline data archival. <p>
Low cost offline data archival.
<h3> <h3>
<a href="@{AddSshR}"> <a href="@{AddSshR}">