fo_posting.pl now runs without warnings, it's yet too special, this will be fixed...

[selfforum.git] / selfforum-cgi / shared / Posting / Write.pm

diff --git a/selfforum-cgi/shared/Posting/Write.pm b/selfforum-cgi/shared/Posting/Write.pm
index 0a76a027c568a13bf5a50f9052472ec7556c9fbe..eed1534639be7e774367cc49cb4218998ba64995 100644 (file)
--- 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,
           }
          ];