added zebra_insert_record call, function in perl api, documentation and tests

[idzebra-moved-to-github.git] / perl / IDZebra.i

diff --git a/perl/IDZebra.i b/perl/IDZebra.i
index 27af217..6a9c75d 100644 (file)
--- a/perl/IDZebra.i
+++ b/perl/IDZebra.i
@@ -278,6 +278,17 @@ void zebra_repository_show (ZebraHandle zh);
    If not, and match_criteria is provided, then sysno is guessed
    If not, and a record is provided, then sysno is got from there */
 
+%name(insert_record)       
+int zebra_insert_record (ZebraHandle zh, 
+                        recordGroup *rGroup, 
+                        const char *recordType,
+                        int sysno, 
+                        const char *match, 
+                        const char *fname,
+                        const char *buf, 
+                        int buf_size,
+                        int force_update);
+
 %name(update_record)       
 int zebra_update_record (ZebraHandle zh, 
                         recordGroup *rGroup,