Tuesday, 26 January 2010

For Sale: Cheap Domino Server 4.5 books.

I found this while looking for some books.   Its on sale for 96% off.  With the free shipping for orders over $39, it may actually be cheaper than buying a cord of firewood.

Or to look at it another way, they would lose money in shipping if I bought 13 of them.

Odd thought.

Monday, 4 January 2010

Tales from an Admin Perspective: Code Sleuth

We had a database that we kept getting complaints about, it kept getting slower and slower to do a specific task. I tracked it down to this code.

Can you spot this issue with this code?

Sub assignAclToSubRecord( viewName, docID )
    Dim counter As Integer
    Set vwSub = db.GetView( viewName )
    Set subDoc = vwSub.GetDocumentByKey( docID )
    Do While Not ( subDoc Is Nothing )
        subDoc.Authors_Variable_SpecificTI  = currentDoc.Authors_Variable_SpecificTI
        subDoc.AuthorsVariable = currentDoc.AuthorsVariable
        Call subDoc.Save(True,True)
        Set subDoc = vwSub.GetNextDocument( subDoc )
End Sub