|
|
|
Forum Newbie
Group: Customers
Last Login: 10/13/2008 8:02:58 AM
GenoPro Version: 2.0.1.6
Posts: 8,
Visits: 41
|
|
| I have tried a few times to generate a report to the genopro site but keep getting this error message. Error at line 928 (Code/Lang.vbs) : Out of memory: 's.Parent'
Microsoft VBScript runtime error 800A0007 Can you tell me what I can do to fix this problem? Regards
Irene
|
|
|
|
|
Legendary Master
Group: Administrators
Last Login: 6/26/2009 5:41:26 AM
GenoPro Version: 2.4.0.3
Posts: 3,598,
Visits: 15,023
|
|
| Wow, this is the first time I see this error. According to the logs, GenoPro has generated several million pages without any problem. Would you mind sending me your document? I will take a look at what is going on... You are welcome to use the Send command from the File menu and sending it to GenoProSupport. See http://support.genopro.com/MyInbox/ for details.
|
|
|
|
|
Legendary Master
Group: Administrators
Last Login: 6/26/2009 5:41:26 AM
GenoPro Version: 2.4.0.3
Posts: 3,598,
Visits: 15,023
|
|
Somehow your source named Descedants of Alexander Lumsden is a parent of self, causing an infinite loop in the script writing toc_sources.htm. Since the code in Lang.vbs searches the list of parent sources until the end, there is a stack overflow (out of memory) which eventually occurs because there is no end. I have modified the function AddSourceCitationNode to prevent an infinite loop by adding a guard at 20 levels. You are welcome to open file Lang.vbs and insert the following code at line 944: Function AddSourceCitationNode(s, level, fTreeOpen, fPicturesOnly)
If (level >= 20) Then
Exit Function ' Maximum of 20 levels, to prevent an infinite loop
End If
Dim strHtmlSourceCitation, p, schild, strName, strImgLink
strName = JoinSourceCitationNames(s, s.title, level = 0)
If Not fPicturesOnly Then strImgLink = StrHtmlImgPhotoLink(s, "sources.htm")
strHtmlSourceCitation = Util.FormatString("<img src='images/source.gif' class='icon' /> <a href='sources.htm#{&t}' title='{&t}' onclick='hidePopUpFrame();'>{&t}</a>" & strImgLink, s.id, s.MediaType, strName)
If Not Util.IsNothing(s.Children) Then
Report.WriteFormattedLn "<li class='xT2-{}' onclick='xTclk(event,""2"")'>" & strHtmlSourceCitation, Util.IfElse(fTreeOpen,"o","c")
Report.WriteFormattedLn " <small> ({})</small>", Dic.FormatPhrase("PhUsageCounters",s.Dependents.Count, s.Children.count)
Report.WriteLn "<ul>"
If fPicturesOnly Then
For Each p in s.pictures
Report.WriteBr StrHtmlImgPhoto(p)
Next
End If
For Each schild in s.Children
If Not fPicturesOnly Or schild.pictures.count>0 Then
AddSourceCitationNode schild, level+1, fTreeOpen, fPicturesOnly
End If
Next
Report.WriteLn "</ul></li>"
Else
Report.WriteformattedLn "<li class='xT-b'>{} <small> ({})</small></li>", strHtmlSourceCitation, s.Dependents.count
If fPicturesOnly Then
For Each p in s.pictures
Report.WriteBr StrHtmlImgPhoto(p)
Next
End If
End If
End Function |
I am working on a fix in GenoPro. There should be an update in a few hours...
|
|
|
|
|
Forum Guru
Group: Customers
Last Login: 2 days ago @ 1:39:22 AM
GenoPro Version: 2.0.1.6
Posts: 193,
Visits: 2,887
|
|
I feel, that the table layout let you to make this loop. Create two sources, src1 and src2. Make src1 the parent of src2. Then go to the table view and change the title field of src2 to src1. Now you have just src1 in the table...
Feri
|
|
|
|
|
Legendary Master
Group: Administrators
Last Login: 6/26/2009 5:41:26 AM
GenoPro Version: 2.4.0.3
Posts: 3,598,
Visits: 15,023
|
|
fbukolyi (10/2/2006)
I feel, that the table layout let you to make this loop. Create two sources, src1 and src2. Make src1 the parent of src2. Then go to the table view and change the title field of src2 to src1. Now you have just src1 in the table...The Table Layout does not allow changing the parent source. By the way, if you download Beta 18g, you should get the fix. I fixed the bug in both the script (Lang.vbs) and also added a protection in GenoPro itself.
|
|
|
|
|
Forum Newbie
Group: Customers
Last Login: 10/13/2008 8:02:58 AM
GenoPro Version: 2.0.1.6
Posts: 8,
Visits: 41
|
|
| Thank you so much for your quick response. I will do as suggested. Great Program. Regards Irene
|
|
|
|