nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Unable to update valuelist metadata programmatically

rabs

We are attempting to update Value list metadata using the Script model API, and reading metadata values from a spreadsheet. The revisemetadata function is not using the value read from the spreadsheet to update Value List metatada, but is using the default value of the Value List Metadata. Metadata is being updated for every other type of metadata.

Find more posts tagged with

Comments

msrinivas

Please post your code.

Also, it is usually recommended to use String List than Value List. No because of what you are facing but....

From page 358 of MediaBin Asset Server Admin Guide 4.6.1

Note – A string list is preferred over a value list because its elements are full-text searchable.

rabs

My code is below.....

set mdValue = arrMeta(i).CreateMetaDataValue()
mdValue.SetValue(exValue & "")
mdCollection.Add(mdValue)
asset.ReviseMetaData(mdCollection)

note: exValue is the value from the excel spreadsheet
Like you said, this works for StringList and every other type of metadata.

msrinivas

What version of MB do you have? Is this a new script or if it is old did it ever work? I am assuming you do not have errors in reading the excel sheet and are able to print the actual value out. Did you check out the sample code in the SDK scripts on support site?

Also, is there any particular reason why you dont want to use String List, esp. when the same script works for String List?

The following is a working piece of code from 4.5.3. I am assuming it should work the same in 4.6.1


'--------------------------------------------------------------------------
' SetMetadata()
'--------------------------------------------------------------------------
Sub SetMetadata(ByRef objAsset, ByRef arrMetadata, ByVal strMetadataGUID, ByVal strNewValue)
 'Set Asset Status
 dim AssetMD
 on error resume next
 set AssetMD = objAsset.MetaData(arrMetadata)
 if (AssetMD.count = 0) and (err.number = 0) then

  Dim MDDef, mMetaDataToRevise, metaDataValue, gNewValue 
  set mMetaDataToRevise = objSession.CreateObjectCollection
  Set MDDef = objSession.GetMetadataDefinition(strMetadataGUID)

 ' Report missing metadata
 wscript.echo "*** Applying " & MDDef.Name & " metadata to Asset [" & objAsset.Identifier & "] " & objAsset.Name

  Set metaDataValue = MDDef.CreateMetaDataValue()

    If (metaDataValue.IsMultipleValue) Then
      ' if multiselect metadata value, set value as array
      dim arrValues
      if (IsArray(strNewValue)) then
       arrValues = strNewValue
      else
       Dim strValue
       on error resume next
       strValue = CStr( strNewValue )
       if ( err.number <> 0 ) then
        err.clear
        exit sub
       end if
       if ( len(strElementDelineator) > 0 ) and ( len(strValue) >= (len(strElementDelineator) * 2) ) then
        strValue = Replace( Left(strNewValue, 1), strElementDelineator, "") & Mid( strNewValue, 2, Len(strNewValue) - 2) & Replace( Right(strNewValue, 1), strElementDelineator, "")
       end if 

       arrValues = split( strValue, strElementDelineator & strArrayDelimiter & strElementDelineator )

       'arrValues = Array(strNewValue)
      end if

      dim ix
      for ix = LBound(arrValues) To UBound(arrValues)
       select case objMDValue.Type
       case IntegerMetaData, IntegerChoiceMetaData
        arrValues(ix) = CLng(arrValues(ix))
       case DoubleMetaData, DoubleChoiceMetaData
        arrValues(ix) = CDbl(arrValues(ix))
       case DateTimeMetaData
        if (IsDate(arrValues(ix))) then
         arrValues(ix) = CDate(arrValues(ix))
        else
         arrValues(ix) = Now
        end if
       case BooleanMetaData
        arrValues(ix) = CBool(arrValues(ix))
       case else   ' MDTypeStringEdit, MDTypeStringChoice, MDTypeUNCFileName, MDTypeURLLink
        arrValues(ix) = CStr(arrValues(ix))
       End Select
      next
      metaDataValue.SetValue arrValues

     Else
      ' Only a single value
      dim vntDataValue

      select case metaDataValue.Type
      case BooleanMetaData
       'Dim strValue
       strValue = lcase(CStr(strNewValue))

       if ( strValue = "yes" ) then
        vntDataValue = True
       elseif ( strValue = "no" ) then
        vntDataValue = False
       elseif ( strValue = "true" ) or ( strValue = "false" ) then
        vntDataValue = CBool(strNewValue)
       else
        'Error Invalid data for Boolean, exit w/ SetValue = False
        exit sub
       end if
      case IntegerMetaData, IntegerChoiceMetaData
        vntDataValue = CLng(strNewValue)
      case DoubleMetaData, DoubleChoiceMetaData
        vntDataValue = CDbl(strNewValue)
      case DateTimeMetaData
       On Error Resume Next
       if (IsDate(strNewValue)) then
        vntDataValue = CDate(strNewValue)
       else
        vntDataValue = Now
       end if
      case BooleanMetaData
       vntDataValue = CBool(strNewValue)
      case else
       vntDataValue = CStr(strNewValue)
      End Select

      metaDataValue.SetValue vntDataValue
 End If


 metaDataValue.SetValue strNewValue
  mMetaDataToRevise.Add metaDataValue
  objAsset.ReviseMetaData mMetaDataToRevise, Nothing

  wscript.echo "*** Finished updating " & MDDef.Name & " to '" & strNewValue & "'"
 end if
 err.Clear
end sub
'--------------------------------------------------------------------------

rabs

Thanks for your response.

What version of MB do you have?
4.6.1

Is this a new script or if it is old did it ever work?
This is a new script; it's a new requirement in this version of MB

I am assuming you do not have errors in reading the excel sheet and are able to print the actual value out.
There are no error in reading the excel spreadsheet, and I can print the value out

Also, is there any particular reason why you dont want to use String List, esp. when the same script works for String List?
I have tested with String List metadata, and it works. The client insists on using Value List for a particular metadata.

msrinivas

I have tested with String List metadata, and it works. The client insists on using Value List for a particular metadata.

I checked with engineering and the only difference between string list and value list (other than that string list is full text searchable, which is very good) is that you can have duplicate values in value lists, use case being case sensitivity.

I am not sure if they have that use case. If not you should probably support your case for string list.

If my example above doesn't help you then please open a support case.

rabs

Thanks.

I already opnened a support case. The engineer the case was assigned to advised me that support does not deal with questions regarding api. That I would be better off posting a question on devnet.

msnider

Unlike a String List, a Value List is comprised of integer values and string labels. So in order to change the value of value list metadata, you must send in the integer value as opposed to the string label.

e.g. For a value list metadata called "Fruit" where 0=apple, 1=pear, 2=orange, to assign a Fruit of pear, you would send in the value of 1.

Mark

rabs

Thanks Mark,

so from you example,

e.g. For a value list metadata called "Fruit" where 0=apple, 1=pear, 2=orange, to assign a Fruit of pear, you would send in the value of 1.

I am reading value of fruit i.e. apple, pear, orange from a spreadsheet

and setting the value in the code below....

mdValue.SetValue(exValue & "")
mdCollection.Add(mdValue)
asset.ReviseMetaData(mdCollection)

How can I amend this(the code above) to achieve your solution?

msnider

Either the spreadsheet data would need to change to store the 0-based index of the string labels or your code will need to do a mapping such that you read the string labels from the spreadsheet and map them to the correct index before creating the metadata value.

To assign the values, your code would look like this:



    dim objAsset
    dim mdArray
    dim mdValue

   'Get Asset
   set objAsset = g_objSession.GetAsset( AssetID )    

   'Create an instance of the value list metadata setting the value to the second element in the list
   set mdValue = g_objSession.CreateMetaDataValue( MetadataID, 1 )

   'Create a metadata array and add the newly created metadata instance
   set mdArray = g_objSession.CreateObjectCollection
   mdArray.Add mdValue

    'Revise the asset's metadata
    objAsset.ReviseMetadata mdArray

Mark

rabs

Thanks for your reply mark,

I am have amened my code as follows, but still no joy....

I have defined metadataId, but am confused about about its value...

if (searchable = "True")then
Response.write("1")
set mdValue = arrMeta(i).CreateMetaDataValue(metadataId, 1)
'Response.write mdValue
set mdArray = MediaBinServerObject.CreateObjectCollection
mdArray.Add mdValue
'Response.write mdValue
Response.write("2")
else
set mdValue = arrMeta(i).CreateMetaDataValue()
end if

and I am using the code below to revise....

if (searchable = "True")then
asset.ReviseMetaData mdArray
Response.write("3")
end if.

I'm getting 1, 2 ,3 written out, but the assets is still getting updated by the default value of value list.

Thanks.

msnider

Try replacing arrMeta(i) with MediaBinServerObject

rabs

Thanks for all your help guys. Finally got this working. I had to give all the values in the spreadsheet an index and then map them to the values in mediabin.

rabs

The saga continues.....

although I am now able to revise ValueList metedata, I am now not able to revise any other type of metadata at in the same routine.

so I select a text metadata, and a valuelist metadata, only the valuelist metadata gets revised. If I select a valueList metadata by itself, it gets revised.

My code is as follows....

This is the code that does the revision.
if (x <> "")then
asset.ReviseMetaData mdArray
response.write("
"&asset.Name &" updated with " & mdValue.Name & " metadata&colon; value - " & exValue&"")
'end if
else
asset.ReviseMetaData(mdCollection)
response.write("
"&asset.Name &" updated with " & mdValue.Name & " metadata&colon; value - " & mdValue.GetValue()&"")
end if

The value ox x is set here....

if (searchable = "True")then
'Dim x
if (exValue = "Full Permission") then
x = 0
elseif (exValue = "Need Permission") then
x = 1
elseif (exValue = "AMICO Successors") then
x = 2
elseif (exValue = "Online Use Only") then
x = 3
elseif (exValue = "Permission Denied") then
x = 4
elseif (exValue = "Permission with Restrictions") then
x = 5
end if
end if
if (x <> "") then
set mdValue = MediaBinServerObject.CreateMetaDataValue(metadataId, x)
set mdArray = MediaBinServerObject.CreateObjectCollection
mdArray.Add mdValue
'end if
else
set mdValue = arrMeta(i).CreateMetaDataValue()
end if

any help would be appreciated.

msnider

Why do you have two different calls to ReviseMetaData...one where you are passing mdArray and the other where you are passing mdCollection?

First, a conditional would only be needed when creating values....you should only have one call to ReviseMetaData.

Second, I don't see where you are actually creating mdCollection.

You should probably do something like this:


if (x <> "") then
set mdValue = MediaBinServerObject.CreateMetaDataValue(metadataId, x)
'end if 
else
set mdValue = arrMeta(i).CreateMetaDataValue()
end if

set mdArray = MediaBinServerObject.CreateObjectCollection
mdArray.Add mdValue

asset.ReviseMetaData mdArray