265265
266266function CreateItemsTable ()
267267 local itemsTable = types [" System.Data.DataTable" ]();
268-
269268 itemsTable .Columns :Add (" Title" );
270269 itemsTable .Columns :Add (" SubTitle" );
271270 itemsTable .Columns :Add (" CallNumber" );
@@ -457,23 +456,21 @@ end
457456
458457function AddRowToItemsTable (itemsDataTable , availableData )
459458 local itemRow = itemsDataTable :NewRow ();
460-
461- itemRow :set_item (HostAppInfo .InstanceDataImport [" Title" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" Title" ].AspaceData ]);
462- itemRow :set_item (HostAppInfo .InstanceDataImport [" SubTitle" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" SubTitle" ].AspaceData ]);
463- itemRow :set_item (HostAppInfo .InstanceDataImport [" CallNumber" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" CallNumber" ].AspaceData ]);
464- itemRow :set_item (HostAppInfo .InstanceDataImport [" Author" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" Author" ].AspaceData ]);
465- itemRow :set_item (HostAppInfo .InstanceDataImport [" Volume" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" Volume" ].AspaceData ]);
466- itemRow :set_item (HostAppInfo .InstanceDataImport [" Barcode" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" Barcode" ].AspaceData ]);
467- itemRow :set_item (HostAppInfo .InstanceDataImport [" Location" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" Location" ].AspaceData ]);
468-
459+ itemRow :set_Item (HostAppInfo .InstanceDataImport [" Title" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" Title" ].AspaceData ]);
460+ itemRow :set_Item (HostAppInfo .InstanceDataImport [" SubTitle" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" SubTitle" ].AspaceData ]);
461+ itemRow :set_Item (HostAppInfo .InstanceDataImport [" CallNumber" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" CallNumber" ].AspaceData ]);
462+ itemRow :set_Item (HostAppInfo .InstanceDataImport [" Author" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" Author" ].AspaceData ]);
463+ itemRow :set_Item (HostAppInfo .InstanceDataImport [" Volume" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" Volume" ].AspaceData ]);
464+ itemRow :set_Item (HostAppInfo .InstanceDataImport [" Barcode" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" Barcode" ].AspaceData ]);
465+ itemRow :set_Item (HostAppInfo .InstanceDataImport [" Location" ].ItemGridColumn , availableData [HostAppInfo .InstanceDataImport [" Location" ].AspaceData ]);
469466 itemsDataTable .Rows :Add (itemRow );
470467end
471468
472469function ImportInstance_Clicked ()
473470 local importRow = catalogSearchForm .Grid .GridControl .MainView :GetFocusedRow ();
474471
475472 if (importRow == nil ) then
476- log : Debug (" Import row was nil. Cancelling the import." );
473+ LogDebug (" Import row was nil. Cancelling the import." );
477474 return ;
478475 end
479476
@@ -663,7 +660,7 @@ function ExtractCreatorName(creatorRecord)
663660end
664661
665662function GetAuthenticationToken ()
666- local authenticationToken = JsonParser :ParseJSON (SendApiRequest (' /users/' .. settings .Username .. ' /login' , ' POST' , { [ " password" ] = settings .Password } ));
663+ local authenticationToken = JsonParser :ParseJSON (SendApiRequest (' /users/' .. settings .Username .. ' /login' , ' POST' , " password= " .. AtlasHelpers . UrlEncode ( settings .Password ) ));
667664
668665 if (authenticationToken == nil or authenticationToken == JsonParser .NIL ) then
669666 ReportError (" Unable to get valid authentication token." );
@@ -734,13 +731,6 @@ function SendApiRequest(apiPath, method, parameters, authToken)
734731
735732 local webClient = types [" System.Net.WebClient" ]();
736733
737- local postParameters = types [" System.Collections.Specialized.NameValueCollection" ]();
738- if (parameters ~= nil ) then
739- for k , v in pairs (parameters ) do
740- postParameters :Add (k , v );
741- end
742- end
743-
744734 webClient .Headers :Clear ();
745735 if (authToken ~= nil and authToken ~= " " ) then
746736 webClient .Headers :Add (" X-ArchivesSpace-Session" , authToken );
@@ -749,31 +739,28 @@ function SendApiRequest(apiPath, method, parameters, authToken)
749739 local success , result ;
750740
751741 if (method == ' POST' ) then
752- success , result = pcall (WebClientPost , webClient , apiPath , postParameters );
742+ success , result = pcall (WebClientPost , webClient , apiPath , method , parameters );
753743 else
754744 success , result = pcall (WebClientGet , webClient , apiPath );
755745 end
756746
757747 if (success ) then
758748 LogDebug (" API call successful" );
759-
760- local utf8Result = types [" System.Text.Encoding" ].UTF8 :GetString (result );
761-
762- LogDebug (" Response: " .. utf8Result );
763- return utf8Result ;
749+ LogDebug (" Response: " .. result );
750+ return result ;
764751 else
765752 LogDebug (" API call error" );
766753 OnError (result );
767754 return " " ;
768755 end
769756end
770757
771- function WebClientPost (webClient , apiPath , postParameters )
772- return webClient :UploadValues (PathCombine (settings .ApiBaseURL , apiPath ), method , postParameters );
758+ function WebClientPost (webClient , apiPath , method , postParameters )
759+ return webClient :UploadString (PathCombine (settings .ApiBaseURL , apiPath ), method , postParameters );
773760end
774761
775762function WebClientGet (webClient , apiPath )
776- return webClient :DownloadData (PathCombine (settings .ApiBaseURL , apiPath ));
763+ return webClient :DownloadString (PathCombine (settings .ApiBaseURL , apiPath ));
777764end
778765
779766function IsSignedIn ()
0 commit comments