Skip to main content

Posts

Showing posts from 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.

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 )     Loop    End Sub