Wiki Tip Of The Day Demo

Enter a topic name to show or a new topic name to create; then press Enter

.

PageType

Demo

Title

Wiki Tip Of The Day Demo

Summary

This is a page trying to display tips of the day

Keywords

Array Integer Math Random Tip

Author

KyleMacarthur

Owner

KyleMacarthur

SuggestedBack

KyleMacarthur

SuggestedNext

DailyTip01

SeeAlso

DailyTipPage2

Pseudo Random Tip Of The Day Link: Location stack has underflowed.

ThisOneIsWorking

FlexWiki.DailyTipPage(1:1) : No such property or function: GetRandomTipLink2

ThisOneIsWorking

FlexWiki.DailyTipPage(1:1) : No such property or function: GetRandomTipLink3

pseudo rnd: 92

Hmmm

Randomish number does not change per load. Web server caching....gotta love it!

Workaround

Introducing @@Now@@ into the page somewhere stops the page being cached.

12/4/2008 6:44:41 PM

IainNorman

I've got this working on my Wiki now to provide a random quote, same code as here just a different property, can't work out why this ain't working though. Gave an error when the number of milliseconds was less than 10 though, as the substring failed to find 2 characters. Fixed that by appending a "0" to the begining of the string that's reversed. My code now looks as follows and works perfectly as long as I have @@Now@@ somewhere on the page to force it not to cache.

 @@["{{",namespace.AllTopicsWith("Category","Quote")
    .Item(
      ["0",DateTime.Now.Millisecond.ToString].ToOneString.Reverse.Substring(0,2).AsInteger
        .Multiply(
          namespace.AllTopicsWith("Category","Quote").Collect{}.Count
        )
        .Divide(100)
    ).Name,"}}"]
 @@

NextSteps

pseudo-random number gen needs work! :-0 Typical...

Predictable

Yeah, thats NOT what you are... seem to get aspx crash on load often on flexwiki...wierd

 Setup: Wiki Topic containing keyword "PageType" set to value "TipOfTheDay"
        So topic has this on one line:
          PageType: TipOfTheDay 


 :GetRandomTipLink:{
   namespace.AllTopicsWith("PageType","TipOfTheDay")
     .Item(
       DateTime.Now.Millisecond.ToString.Reverse.Substring(0,2).AsInteger
         .Multiply(
           namespace.AllTopicsWith("PageType","TipOfTheDay").Collect{}.Count
         )
         .Divide(100)
     ).Name
 }

KyleMacarthur | DailyTipPage | DailyTip01