Create folder with category

Hi,
here you can see a function that I use with success for create a folder, I need to associate a category to this folder, how can I do it?

Thank you in advance.

// very simple sample script to create a new folder
// dnalls 02/27/2007
function Integer CreateNewFolder(Dynamic prgCtx, Integer parentId, String folderName="demo folder")

   Object       llNode = $LLIAPI.LLNodeSubsystem.GetItem($TypeFolder)    // retrieve the folder llNode object
   DapiNode   parentNode                                               // parent folder dapinode
   DapiNode   folderNode                                               // new folder dapinode
   Assoc       createInfo = Assoc.CreateAssoc()                       // create folder info
   Assoc       retVal = Assoc.CreateAssoc()                           // set default return values
   retVal.ok     = true
   retVal.errMsg = ""
   Boolean debug = False
   Integer iRet = -1

   // read log level from config file
   String isDebug = [CUSTWF_CONFIG.ChangeAttributeLogLevel]
   if IsDefined( isDebug ) && isDebug == 'True'
       debug = True
   end
   if ( debug )
       Echo ("custwf:CreateNewFolder->Avvio CreateNewFolder")
   end

   // don't leave home with a parent container id
   if (parentId >0)
       parentNode = DAPI.GetNodeById(prgCtx.dSession().fSession, DAPI.BY_DATAID, parentId)
       // if valid parent, create child folder
       if !isError(parentNode)
           // Check to see if a workflow report already exists.
           retVal = $LLIAPI.NodeUtil.IsNameUnique( folderName, parentNode )
           // if the workflow report doesn't already exist then add it.
           if ( retVal.OK )
               // allocate a folder node using llNode method
               retVal = llNode.NodeAlloc(parentNode, folderName)
               if (retVal.ok)




                   retVal = llNode.NodeCreate(retVal.Node, parentNode, createInfo)
                   // update permissions/acls
                   if (retVal.ok)
                       // have a look in the folder llNode object
                       // for methods that start with "NodeRight" --
                       // these are the methods that update the acls....
                       // determine which are most appropriate for your needs
                       iRet = retVal.Node.pID
                       if ( debug )
                           Echo ("custwf:CreateNewFolder->ok retVal.Node.pID:",retVal.Node.pID)
                       end
                   end
               else
                   retVal.ok = false
                   retVal.errMsg = "Unable to Allocate a Node"
                   if ( debug )
                       Echo ("custwf:CreateNewFolder->Unable to Allocate a Node")
                   end
               end
           else
               //Il noto già esiste
               if ( debug )
                   Echo ("custwf:CreateNewFolder->Il noto già esiste")
               end
               folderNode = DAPI.GetNode(folderName, parentNode)

               if !isError(folderNode)
                   //Il noto già esiste
                   iRet = folderNode.pID
                   if ( debug )
                       Echo ("custwf:CreateNewFolder->NodoID:",iRet)
                   end
               else
                   if ( debug )
                       Echo ("custwf:CreateNewFolder->Individuazione nodo fallita")
                   end
               end
           end
       else
           retVal.ok       = false
           retVal.errMsg = "Unable to Retrieve DapiNode"
           if ( debug )
                Echo ("custwf:CreateNewFolder->Unable to Retrieve DapiNode")
            end
       end

   else
       retVal.ok       = false
       retVal.errMsg = "Invalid ParentId"
       if ( debug )
          Echo ("custwf:CreateNewFolder->Invalid ParentId")
        end
   end

   return (iRet)

end

Find more posts tagged with

Comments

Appu_Nair1

adding categories Dynamically using oscript is not that difficult if you know how to debug and trace oscript.From your posts here and elsewhere I think you are just looking for some simple help.Keit Kivilsid's snippet would have cut it I understood it buut in case you are a starter and would like to see a little more explantions in the method to the madness I enclose a word document.I stay away from showing set categoris and MVA's in examples thaey are doable but not without considerable code.Set's are very hard to report once MVA's also are encountered so I tell peopel to stay away from it.

"How to add Categories to a Node.docx" can be accessed via the following link: https://knowledge.opentext.com/knowledge/cs.dll/Properties/63899706

Now that word document should give you a utility oscript. These are not the only ways in which this can be done.If you see good code there will be awesome optimizations.My intent was to create you awareness and not to say Oscript is such a bad deal to start with .For all practical purposes this code I give worked in 97,10,10.5 and 16

Fabrizio_Menichelli

Thank you very much, really, I dont know how to thank you.

Now is ok, just a question, after that I have created the folder and attached the category I move a file from another folder to this one with:

Integer iMoveNode = DAPI.MoveNode(ObjectToMove, wfStorageFolderDestination)

But the file doesn't inherit the category, do you know why?

Thank you in advance

Appu_Nair1

You are welcome, your foray into Oscript will bring you luck and propserity
Yes that shows you are a starter with Oscript.
Integer iMoveNode = DAPI.MoveNode(ObjectToMove, wfStorageFolderDestination)
You should never user the DAPI commands except some that is totally needed like DAPI.GetNodeBYID
Instead if it is a document get a template node if it is document like 144
Plenty of code in these forums many old oscripters including me provided
Donna Nalls, Jeff Lang ,John Simon a few that help out in many complicated situations Countless others
DAPI commands are executed in almost the last actions of a transaction .However there is a lot of pre work to be done before that.
If you actually use DAPI many unexplainable or callback errosr wil happen.Stay away from that.
As far as copying the document and if it does not inherit the category then what you need to do is
look at the parentnode's attrdata From the example I posted

Take this only as psuedocode
srcnode attachment get its attrdata this is the metadata
trgtnode put this data if you source it from src node
update trgtnode.
A DAPINODE is a n abstraction of everything a Document Node is about. While not technically correct it may look like the Row in DTREE or WEBNODE
Now if a document is being stuck on with a category it will insist the categories that re being put on has madataories filled
If you look in the eventscripts from OT you will see a GeneralEventScript called "SaveToOrig".It has a utility that will tell you the children of your attachments volume.Just be creative
These might be helpful https://knowledge.opentext.com/knowledge/cs.dll?func=ll&objId=18000150&objAction=viewincontainer
I wrote a similar thing to show a dear friend one time https://knowledge.opentext.com/knowledge/cs.dll/63931538/UsingAttachmentsFolderCategoriesonSubItems.zip?func=doc.Fetch&nodeid=63931538 If I do a DAPI move you can scold me...

This word document I amended so it has many more useful script links that may work
"How to add Categories to a Node.docx" can be accessed via the following link: https://knowledge.opentext.com/knowledge/cs.dll/Properties/63899706

CAVEAT EMPTOR-I Don't show you stuff against MVA or SETS
Even though I showed a lot of Oscript ways I am just thinking this is possible in LL without writing one line of code
You can take the WF attributes and put it on a Folder and put its category. It is called Item Handler and many kinds of template definitions
not sure if it can be made to inherit. I think if you actually put it in a regular folder it might. See Praveen Nagarajan's tons of posting like that.
Whenever you write custom code you are introducing an unknown in your env because a few years from now most people
may have left or forgotten about things. If you do take the route of customization always include like we do is a short synopsis of
what the script does and its manifestation for later programmers. We just create an additional folder on the module called it SRC
and leave out a file called relnotes .We then just chronologically place simple comments. With CSIDE you can tie that to Code management systems
we use TFS. Even in old oscript mode taking ASCII dmp files of modules are helpful in tracking versions.

Fabrizio_Menichelli

Thank you very much, now I move the file with NodeMove.

Now I have to copy the category from the folder (DAPISourceNode ) to the Document (DAPIDestinationNode ).

This function doesn't give errors but at the end I don't have the category attached to the file

function Assoc CopyCategory(Object prgCtx, DAPINODE DAPISourceNode , DAPINODE DAPIDestinationNode )
/*
a) srcnode attachment get its attrdata this is the metadata
b) trgtnode put this data if you source it from src node
c) update trgtnode.

Copia la categoria da Source a Destination
*/
   Boolean debug = false
   String isDebug = [CUSTWF_CONFIG.ChangeAttributeLogLevel]
   if IsDefined( isDebug ) && isDebug == 'True'
       debug = True
   end
   if ( debug )
       Echo ("custwf:SetCategoryAttribute->Avvio SetCategoryAttribute")
   end

   Assoc retVal
   retVal.OK=TRUE
   retVal.errMsg=""
   retVal.APIError=""

   //if !isError(targetNode)
   Object   objSourcellnode = $LLIApi.LLNodeSubsystem.GetItem( DAPISourceNode.pSubType )
   Object   objDestinationllnode = $LLIApi.LLNodeSubsystem.GetItem( DAPIDestinationNode.pSubType )
   //Get node category info
   Dynamic originalCatResult = objSourcellnode.NodeCategoriesGet( DAPISourceNode )
   Dynamic DestinationCatResult = objDestinationllnode.NodeCategoriesGet( DAPIDestinationNode )

   Dynamic attrDataSource = originalCatResult.AttrData
   Dynamic attrDataDest = DestinationCatResult.AttrData

   //Add desired category info to attrdata
   if ( debug )
       Echo ("custwf:AddCategoryToNode->AttrGroupAdd attrDataSource:",attrDataSource)
       Echo ("custwf:AddCategoryToNode->AttrGroupAdd attrDataDest:",attrDataDest)
   end

//Dynamic result = attrData.AttrGroupAdd( categoryID , 14, 0 )
//Dynamic result = attrData.AttrGroupAdd( categoryID )

Dynamic dyn = objDestinationllnode.NodeCategoriesUpdate( DAPIDestinationNode, attrDataSource ) //Update node category info

   if (dyn.OK)
       if ( debug )
           Echo ("custwf:AddCategoryToNode->Aggiornamento cat eseguito con successo")
       end
       retVal.OK=TRUE
       retVal.errMsg=""
       retVal.APIError=""
   else
       if ( debug )
           Echo ("custwf:AddCategoryToNode->NodeCategoriesUpdate Error:",dyn.ErrMsg)
       end
       retVal.OK=FALSE
       retVal.errMsg=dyn.ErrMsg
       retVal.APIError=""
   end

   return retVal

end

Or Can I apply the category to the document in the same way that I do with the folder?

I mean:
1) CreateFolder
2) Apply category to the folder
3) Copy the document into the folder
4) Apply category to the document

Thank you very much

eLink User

I will try to answer the last part of your question as I am not completely sure what you are doing.

When you create a Node(subtype=0,144,whatever) a database allocation happens with many checks and balances(you run the risk of losing all that good work if you did directly DAPI.*)
If you create a datastructure to carry Category Template Info from a valid Category definition either the category object itself or a parent node .AttrData is kind of a variable(frame really),Now if you say get me the attrdata of dataid 12345 (this is attrdata.dbget) ,LL performs a roll up of that and puts it there,but if your node ain't created it will be null.Examine your attrdata structure when it has done the dbget.If it got something from the GUI inspect it you will see lots of values you will recognize.
Then when you update node this attrdata will be applied but there is a BUT.... when the node who has to receive the category(Destination) is a versionable object(like subtype 144)

Assume your admin or you has created a category subtype=131.For kicks you have a leaf in it and you called it "Compulsory" and while doing it you made a check box that says "Required" true,then LL will believe you.However you get a free pass only when you are creating container types(this is the default setting usually nobody tampers with it,but you can even make folders mandatory and people will hate you for it). So in a case where you have applied a category having a mandatory attribute and you did not put a value in that,and you put that in the WF Attachment object which is derived from a container object,so it will not cry fowl on that.

However if you drop a document in that and say get that category your call will get attempted,but LL will reject it saying that hey I expect a value to be passed to me for that mandatory.

I left you about 5/6 OScript snippets for you to understand in that word document.

Another approach will be if you come form java or .net,do some of the sample programs that come with CWS or SOAP .You will understand the cat data structure and how painfully it is packaged into .I also would advise you to do what you are trying to do in a GUI and see if your code is actually doing what the GUI does.

I also think that attending a structured classroom setting for oscript will also make you better at this.

Best

Not entirely sure what the thought is

//Get node category info
   Dynamic originalCatResult = objSourcellnode.NodeCategoriesGet( DAPISourceNode )
   Dynamic DestinationCatResult = objDestinationllnode.NodeCategoriesGet( DAPIDestinationNode ) //so does this node have categories or is this a futuristic node

   Dynamic attrDataSource = originalCatResult.AttrData
   Dynamic attrDataDest = DestinationCatResult.AttrData

   //Add desired category info to attrdata
   if ( debug )
       Echo ("custwf:AddCategoryToNode->AttrGroupAdd attrDataSource:",attrDataSource)
       Echo ("custwf:AddCategoryToNode->AttrGroupAdd attrDataDest:",attrDataDest)
   end

..... appnair appunair( Livelink Rocks )

Well, if I called the wrongnumber, why did you answer the phone?
James Thurber, New Yorker cartoon caption, June 5, 1937

On Thu, Sep 15, 2016 at 10:30 AM, eLink Entry: Content Server Development Forum <development@elinkkc.opentext.com> wrote:

Create folder with category Posted byMenichelli, FabrizioOn 09/15/2016 11:29 AM

Thank you very much, now I move the file with NodeMove.
Now I have to copy the category from the folder (DAPISourceNode ) to the Document (DAPIDestinationNode ).
This function doesn't give errors but at the end I don't have the category attached to the filefunction Assoc CopyCategory(Object prgCtx, DAPINODE DAPISourceNode , DAPINODE DAPIDestinationNode )
/*
a) srcnode attachment get its attrdata this is the metadata
b) trgtnode put this data if you source it from src node
c) update trgtnode.Copia la categoria da Source a Destination
*/
   Boolean debug = false
   String isDebug = [CUSTWF_CONFIG.ChangeAttributeLogLevel]
   if IsDefined( isDebug ) && isDebug == 'True'
       debug = True
   end
   if ( debug )
       Echo ("custwf:SetCategoryAttribute->Avvio SetCategoryAttribute")
   end

   Assoc retVal
   retVal.OK=TRUE
   retVal.errMsg=""
   retVal.APIError=""   //if !isError(targetNode)
   Object   objSourcellnode = $LLIApi.LLNodeSubsystem.GetItem( DAPISourceNode.pSubType )
   Object   objDestinationllnode = $LLIApi.LLNodeSubsystem.GetItem( DAPIDestinationNode.pSubType )
   //Get node category info
   Dynamic originalCatResult = objSourcellnode.NodeCategoriesGet( DAPISourceNode )
   Dynamic DestinationCatResult = objDestinationllnode.NodeCategoriesGet( DAPIDestinationNode )

   Dynamic attrDataSource = originalCatResult.AttrData
   Dynamic attrDataDest = DestinationCatResult.AttrData

   //Add desired category info to attrdata
   if ( debug )
       Echo ("custwf:AddCategoryToNode->AttrGroupAdd attrDataSource:",attrDataSource)
       Echo ("custwf:AddCategoryToNode->AttrGroupAdd attrDataDest:",attrDataDest)
   end   //Dynamic result = attrData.AttrGroupAdd( categoryID , 14, 0 )
   //Dynamic result = attrData.AttrGroupAdd( categoryID )   Dynamic dyn = objDestinationllnode.NodeCategoriesUpdate( DAPIDestinationNode, attrDataSource ) //Update node category info
       if (dyn.OK)
       if ( debug )
           Echo ("custwf:AddCategoryToNode->Aggiornamento cat eseguito con successo")
       end
       retVal.OK=TRUE
       retVal.errMsg=""
       retVal.APIError=""
   else
       if ( debug )
           Echo ("custwf:AddCategoryToNode->NodeCategoriesUpdate Error:",dyn.ErrMsg)
       end
       retVal.OK=FALSE
       retVal.errMsg=dyn.ErrMsg
       retVal.APIError=""
   end

   return retVal

end Or Can I apply the category to the document in the same way that I do with the folder?

I mean:
1) CreateFolder
2) Apply category to the folder
3) Copy the document into the folder
4) Apply category to the document
Thank you very much
[To post a comment, use the normal reply function]
Topic: Create folder with category
Forum: Content Server Development Forum
Content Server: Knowledge Center

Fabrizio_Menichelli

eLink thank you very much for your answer but I didn't understand a lot of things, I try to simplify my question:

First question is theoretically:

1) When a document is copied in a folder and it inherits the category of the father, this category is a new istance of that category?

Second question is:

Actually I do:
1) CreateFolder A
2) Apply Category X to that folder A
3) Copy a document DOC from Folder Z to Folder A (the document DOC initially doesn't have categories)
4) I have to do: Apply Category X (Same value of folder A) to Document DOC

Can I use the same function for apply the category?
This is the function:

function Assoc SetCategoryAttribute(Object prgCtx,Integer DataID,String CategoryName, Assoc myDefValues)
   /*Synopsis
   The calling function should pass the program context
   NameOf Category Object (inefficient but under the assumption that categories are controlled in the env)
   Assoc containing leaves of categories to be updated
   Error handling is limited to if the DBput works or not
   Code will check that if the retreived node contains the category

   either through inheritance try to add it
   */

/* There is a bug in this code it is like this
You have a NODE with ID like this .SetCategoryAttribute(this.fprgCtx,835261,"JNS", catValuesToChangeAdd)
assume 835261 has another category called appu in it
then this new category you want to apply won't be added why?

The answer is in this check
//Now get the list of categories returned
   groupList = attrData.AttrGroupNameList()
   scheduler.debugbreak()
   if length(groupList)

I add the category based on the attrdata list only empty
it is a very simple error to fix after all I showed you all this wouldn't you think
you want to learn something out of it?
*/
   Boolean debug = false
   // read log level from config file
   String isDebug = [CUSTWF_CONFIG.ChangeAttributeLogLevel]
   if IsDefined( isDebug ) && isDebug == 'True'
       debug = True
   end
   if ( debug )
       Echo ("custwf:SetCategoryAttribute->Avvio SetCategoryAttribute")
   end

   Dynamic    result
   Dynamic       attrData
   List       groupList
   Boolean       found
   List       catEntry
   Dynamic getCatID

   //Code to set attribute values
   Integer categoryCounter = 0
   Integer attrID
   Dynamic category,attribute,myAttrib


   Assoc retVal
   retVal.OK=TRUE
   retVal.errMsg=""
   retVal.APIError=""

   //Check if this is a valid node


   //Get the keys of the assoc
   Dynamic KeysToBeChanged=Assoc.Keys(myDefValues)
   Dynamic valuesToBeChanged=Assoc.Items(myDefValues)
   Dynamic docNode = DAPI.GetNodeById(prgCtx.DSession().fSession, DAPI.BY_DATAID, DataID)


   if isError(docNode)
       retVal.OK=FALSE
       retVal.errMsg="No Valid Node in System For :"+Str.ValueToString(DataID)
       retVal.APIError=Error.ErrorToString(docNode)
       return retVal
   end

   //Create a new attrData structure to hold the info in
   attrData = $LLIApi.attrData.New( prgCtx, DataID, docNode.pVersionNum )
   //if the node had any categories it would have filled in attrdata
   //typically you may want to look at the folder object and see if cats are on it

   //Get the data from the database for this object (All categories)
   result = attrData.DBGet()

   if !result.OK
       retVal.OK=FALSE
       retVal.errMsg="CATS to Get Call failing something wrong with databse or Oscript:"+Str.ValueToString(DataID)+result.ErrMsg
       retVal.APIError=result.APIError
       return retVal

   end


   //above check may be hard to understand because it is going to return true
   //because it is perfectly ok in livelink to have no categories

   //Now get the list of categories returned
   groupList = attrData.AttrGroupNameList()
//   scheduler.debugbreak()
   if length(groupList)
       //something is there just have to check if it is what we want
       //the parsing downhill will do the honors of checking if the correct category is avilable


   else
       //no categories at all lets add
       //into that empty attrdata structure we are adding the category latest and greatest version of the category

       getCatID = getCategoryDataIdBasedonName(prgCtx,CategoryName)

       if getCatID.OK
           attrData.AttrGroupAdd(getCatID.catID)
       end
   end


   if result.OK

       //Now get the list of categories returned
       groupList = attrData.AttrGroupNameList()

       //We now must look for the category specified to see if it was returned
       found = false
       for catEntry in groupList
           If catEntry[2] == categoryName
               //The category specified was found.
               found = true
               //we have the category ID here in this variable
               catEntry[ 1 ][ 1 ]
               //At this point we should be able to use OpenText standard code
               //Code to set attribute values
               Integer categoryCounter = 0
               Integer attrID

               for category in attrData.fDefinitions
                   categoryCounter = categoryCounter + 1
                   if category.DisplayName == CategoryName
                       for myAttrib in KeysToBeChanged   //thes are the keys of the assoc
                           if ( debug )
                               Echo ("custwf:SetCategoryAttribute->myAttrib:", myAttrib)
                           end
                           for attribute in attrdata.fDefinitions[categoryCounter].Children
                               if attribute.DisplayName == myAttrib
                                   attrID = attribute.ID
                                   attrData.fData[categoryCounter].Values[1].(attrID).Values[1] = myDefValues.(myAttrib)
                                   if ( debug )
                                       Echo ("custwf:SetCategoryAttribute->attribute.DisplayName:", attribute.DisplayName," attrID:", attrID, " attrData.fData[categoryCounter].Values[1].(attrID).Values[1]:",attrData.fData[categoryCounter].Values[1].(attrID).Values[1]," myDefValues.(myAttrib):", myDefValues.(myAttrib))
                                   end
                               end
                           end
                       end
                   end

               end

//               scheduler.debugbreak()

               //Update database
               result=attrData.DBPut()

               if !result.OK
                   retVal.OK=FALSE
                   retVal.errMsg=result.ErrMsg
                   retVal.APIError=result.APIError
                   return retVal
               end
           end

       end

       if !found
           //the category is not in this node
           retVal.OK=FALSE
           retVal.errMsg="No Category by this name:"+categoryName+ " On this Node.Could be a Typo,cApitalization"
           retVal.APIError="No Category by this name:"+categoryName+ " On this Node"
           return retVal
       end

   end


   return retVal

end

function Assoc getCategoryDataIdBasedonName(Object prgctx,string catName)

   Boolean       ok = TRUE
   Object       dbConnect = prgCtx.fDbConnect
   String       stmt
   Dynamic       dbResult
   Integer       catID
   String       errMsg
   Dynamic       apiError
   Assoc       rtnval

   //   Setup sql statement.
   //only thing we are trying to find is teh passed in category is vailable for us to use .
   //If two categories are there is sytem we wll pick the first one and leave a echo out
   //properly you may want to look at the parentnodeid and do it correctly,if it is not there
   //upper and upper

   stmt = "select dataid from dtree where name like :A1 and subtype=131"
   dbResult = CAPI.Exec( \
       dbConnect.fConnection, \
       stmt, catname )

   if IsError( dbResult )
       ok = FALSE
       errMsg = 'Error Retreiving Category MAJOR **************************'
       apiError = dbResult
   else

       catID = dbResult[ 1 ][ 1 ]
   end

   if IsUndefined( rtnval.OK )
       rtnval.OK = ok
       rtnval.ErrMsg = errMsg
       rtnval.ApiError = apiError
       rtnval.catID = catID
   end

   return rtnval

end

eLink User

Frankly I don't know answer to first qn

Second yes if you use that function on a node (document)

That did not have a category it will get it. It doesn't get the folders category unless you put a default value and the category name to it

I think that is what in my system it does.

If it does not debug the call

Ciao, Appu

On Sep 16, 2016, at 3:42 AM, eLink Entry: Content Server Development Forum <development@elinkkc.opentext.com> wrote:

eLink : Re Create folder with category
Re Create folder with category Posted byMenichelli, FabrizioOn 09/16/2016 04:37 AM

eLink thank you very much for your answer but I didn't understand a lot of things, I try to simplify my question:First question is theoretically:1) When a document is copied in a folder and it inherits the category of the father, this category is a new istance of that category?

Second question is:Actually I do:
1) CreateFolder A
2) Apply Category X to that folder A
3) Copy a document DOC from Folder Z to Folder A (the document DOC initially doesn't have categories)
4) I have to do: Apply Category X (Same value of folder A) to Document DOCCan I use the same function for apply the category?
This is the function:
function Assoc SetCategoryAttribute(Object prgCtx,Integer DataID,String CategoryName, Assoc myDefValues)
   /*Synopsis
   The calling function should pass the program context
   NameOf Category Object (inefficient but under the assumption that categories are controlled in the env)
   Assoc containing leaves of categories to be updated
   Error handling is limited to if the DBput works or not
   Code will check that if the retreived node contains the category

   either through inheritance try to add it
   *//* There is a bug in this code it is like this
You have a NODE with ID like this .SetCategoryAttribute(this.fprgCtx,835261,"JNS", catValuesToChangeAdd)
assume 835261 has another category called appu in it
then this new category you want to apply won't be added why?The answer is in this check
//Now get the list of categories returned
   groupList = attrData.AttrGroupNameList()
   scheduler.debugbreak()
   if length(groupList)I add the category based on the attrdata list only empty
it is a very simple error to fix after all I showed you all this wouldn't you think
you want to learn something out of it?
*/
   Boolean debug = false
   // read log level from config file
   String isDebug = [CUSTWF_CONFIG.ChangeAttributeLogLevel]
   if IsDefined( isDebug ) && isDebug == 'True'
       debug = True
   end
   if ( debug )
       Echo ("custwf:SetCategoryAttribute->Avvio SetCategoryAttribute")
   end

   Dynamic    result
   Dynamic       attrData
   List       groupList
   Boolean       found
   List       catEntry
   Dynamic getCatID

   //Code to set attribute values
   Integer categoryCounter = 0
   Integer attrID
   Dynamic category,attribute,myAttrib


   Assoc retVal
   retVal.OK=TRUE
   retVal.errMsg=""
   retVal.APIError=""

   //Check if this is a valid node


   //Get the keys of the assoc
   Dynamic KeysToBeChanged=Assoc.Keys(myDefValues)
   Dynamic valuesToBeChanged=Assoc.Items(myDefValues)
   Dynamic docNode = DAPI.GetNodeById(prgCtx.DSession().fSession, DAPI.BY_DATAID, DataID)


   if isError(docNode)
       retVal.OK=FALSE
       retVal.errMsg="No Valid Node in System For :"+Str.ValueToString(DataID)
       retVal.APIError=Error.ErrorToString(docNode)
       return retVal
   end

   //Create a new attrData structure to hold the info in
   attrData = $LLIApi.attrData.New( prgCtx, DataID, docNode.pVersionNum )
   //if the node had any categories it would have filled in attrdata
   //typically you may want to look at the folder object and see if cats are on it

   //Get the data from the database for this object (All categories)
   result = attrData.DBGet()

   if !result.OK
       retVal.OK=FALSE
       retVal.errMsg="CATS to Get Call failing something wrong with databse or Oscript:"+Str.ValueToString(DataID)+result.ErrMsg
       retVal.APIError=result.APIError
       return retVal

   end


   //above check may be hard to understand because it is going to return true
   //because it is perfectly ok in livelink to have no categories

   //Now get the list of categories returned
   groupList = attrData.AttrGroupNameList()
//   scheduler.debugbreak()
   if length(groupList)
       //something is there just have to check if it is what we want
       //the parsing downhill will do the honors of checking if the correct category is avilable


   else
       //no categories at all lets add
       //into that empty attrdata structure we are adding the category latest and greatest version of the category

       getCatID = getCategoryDataIdBasedonName(prgCtx,CategoryName)

       if getCatID.OK
           attrData.AttrGroupAdd(getCatID.catID)
       end
   end


   if result.OK

       //Now get the list of categories returned
       groupList = attrData.AttrGroupNameList()

       //We now must look for the category specified to see if it was returned
       found = false
       for catEntry in groupList
           If catEntry[2] == categoryName
               //The category specified was found.
               found = true
               //we have the category ID here in this variable
               catEntry[ 1 ][ 1 ]
               //At this point we should be able to use OpenText standard code
               //Code to set attribute values
               Integer categoryCounter = 0
               Integer attrID

               for category in attrData.fDefinitions
                   categoryCounter = categoryCounter + 1
                   if category.DisplayName == CategoryName
                       for myAttrib in KeysToBeChanged   //thes are the keys of the assoc
                           if ( debug )
                               Echo ("custwf:SetCategoryAttribute->myAttrib:", myAttrib)
                           end
                           for attribute in attrdata.fDefinitions[categoryCounter].Children
                               if attribute.DisplayName == myAttrib
                                   attrID = attribute.ID
                                   attrData.fData[categoryCounter].Values[1].(attrID).Values[1] = myDefValues.(myAttrib)
                                   if ( debug )
                                       Echo ("custwf:SetCategoryAttribute->attribute.DisplayName:", attribute.DisplayName," attrID:", attrID, " attrData.fData[categoryCounter].Values[1].(attrID).Values[1]:",attrData.fData[categoryCounter].Values[1].(attrID).Values[1]," myDefValues.(myAttrib):", myDefValues.(myAttrib))
                                   end
                               end
                           end
                       end
                   end

               end

//               scheduler.debugbreak()

               //Update database
               result=attrData.DBPut()

               if !result.OK
                   retVal.OK=FALSE
                   retVal.errMsg=result.ErrMsg
                   retVal.APIError=result.APIError
                   return retVal
               end
           end

       end

       if !found
           //the category is not in this node
           retVal.OK=FALSE
           retVal.errMsg="No Category by this name:"+categoryName+ " On this Node.Could be a Typo,cApitalization"
           retVal.APIError="No Category by this name:"+categoryName+ " On this Node"
           return retVal
       end

   end


   return retVal

end
function Assoc getCategoryDataIdBasedonName(Object prgctx,string catName)

   Boolean       ok = TRUE
   Object       dbConnect = prgCtx.fDbConnect
   String       stmt
   Dynamic       dbResult
   Integer       catID
   String       errMsg
   Dynamic       apiError
   Assoc       rtnval

   //   Setup sql statement.
   //only thing we are trying to find is teh passed in category is vailable for us to use .
   //If two categories are there is sytem we wll pick the first one and leave a echo out
   //properly you may want to look at the parentnodeid and do it correctly,if it is not there
   //upper and upper

   stmt = "select dataid from dtree where name like :A1 and subtype=131"
   dbResult = CAPI.Exec( \
       dbConnect.fConnection, \
       stmt, catname )

   if IsError( dbResult )
       ok = FALSE
       errMsg = 'Error Retreiving Category MAJOR **************************'
       apiError = dbResult
   else

       catID = dbResult[ 1 ][ 1 ]
   end

   if IsUndefined( rtnval.OK )
       rtnval.OK = ok
       rtnval.ErrMsg = errMsg
       rtnval.ApiError = apiError
       rtnval.catID = catID
   end

   return rtnval

end

[To post a comment, use the normal reply function]
Topic: Create folder with category
Forum: Content Server Development Forum
Content Server: Knowledge Center