X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/10eefa1f9b43420c8609f5809bfe9dd81ebaca7d..a4d21c439a8b7953427fa2815d5dc41470e3eb59:/selfforum-cgi/shared/Posting/Write.pm

diff --git a/selfforum-cgi/shared/Posting/Write.pm b/selfforum-cgi/shared/Posting/Write.pm
index 0a76a02..eed1534 100644
--- a/selfforum-cgi/shared/Posting/Write.pm
+++ b/selfforum-cgi/shared/Posting/Write.pm
@@ -56,16 +56,16 @@ sub write_posting ($) {
     $thread = create_new_thread (
       { msg      => $mid,
         ip       => $param -> {ip},
-        name     => $param -> {author},
-        email    => $param -> {email},
-        home     => $param -> {homepage},
-        image    => $param -> {image},
-        category => $param -> {category},
-        subject  => $param -> {subject},
+        name     => $param -> {author}   || '',
+        email    => $param -> {email}    || '',
+        home     => $param -> {homepage} || '',
+        image    => $param -> {image}    || '',
+        category => $param -> {category} || '',
+        subject  => $param -> {subject}  || '',
         time     => $param -> {time},
         dtd      => $param -> {dtd},
         thread   => $tid,
-        body     => $param -> {body},
+        body     => $param -> {body}     || '',
         pars     => $pars
       }
     );
@@ -79,9 +79,10 @@ sub write_posting ($) {
           { mid     => $param -> {lastMessage} + 1,
             unid    => $param -> {uniqueID},
             name    => plain($param -> {author}),
-            cat     => plain(length($param -> {category})?$param->{category}:''),
+            cat     => plain(defined $param -> {category}?$param->{category}:''),
             subject => plain($param -> {subject}),
-            time    => plain($param -> {time})
+            time    => plain($param -> {time}),
+            level   => 0,
           }
          ];