// set relnamequalifier constants _IS_TYPE_OF = 6; _IS_LECTOTYPE_OF = 61; if (StructKeyExists(url,"newRefFk")) session.RefFk = newRefFk; jsOnLoad = "initrefs();"; if (StructKeyExists(Form,"Lectotype")) session.Lectotype = 1; else session.Lectotype = 0; session.RefFk = form.RefId; session.ReferenceDetail = form.ReferenceDetail; session.Notes = form.Notes; if (session.RefFk eq "") session.RefFk = "NULL"; if (session.ReferenceDetail eq "") session.ReferenceDetail = "NULL"; else session.ReferenceDetail = "'" & Replace(session.ReferenceDetail,"'", "''", "All") & "'"; if (session.Notes eq "") session.Notes = "NULL"; else session.Notes = "'" & Replace(session.Notes,"'", "''", "All") & "'"; if (session.Lectotype eq 1) RelQualifier = _IS_LECTOTYPE_OF; else RelQualifier = _IS_TYPE_OF; session.RefDetailFk = "NULL"; SELECT dbo.f_web_NextFreeRefDetailId(7000000) AS Id INSERT INTO RefDetail (RefDetailId, RefFk, Details, PreliminaryFlag, Created_When, Created_Who) VALUES (#session.RefDetailFk#, #session.RefFk#, #PreserveSingleQuotes(session.ReferenceDetail)#, 0, GetDate(), '#session.username#') SELECT dbo.f_share_NextFreeRelNameId(1) AS Id INSERT INTO RelName (RelNameId, NameFk1, NameFk2, RelNamequalifierFk, RefFk, RefDetailFk, Created_When, Created_Who, Notes) VALUES (#NewRelNameId.Id#, #url.NameBOrH#, #url.Name#, #RelQualifier#, #session.RefFk#, #session.RefDetailFk#, GetDate(), '#session.username#', #PreserveSingleQuotes(session.Notes)#) session.Lectotype = 0; session.RefFk = ""; session.ReferenceDetail = ""; session.Notes = "";

Selected type:
#OneName1.FullNameCache#

Name #OneName1.FullNameCache#
Nomencl. ref. #OneName1.FullNomRefCache#  
Do you really want to choose #OneName1.FullNameCache# as type for #OneName.FullNameCache# ?
Lectotype checked>
Bibl. ref. Select new reference
  Remove
Bibl. ref. detail
Notes(relation)