-n/a-

diff --git a/selfforum-cgi/shared/Encode/Plain.pm b/selfforum-cgi/shared/Encode/Plain.pm
index f2085ce13d2acd3371c709c64a93e98d84f022ee..17c749c1e6b6f1419ed1836b69669b5a43a1e0ce 100644 (file)
--- a/selfforum-cgi/shared/Encode/Plain.pm
+++ b/selfforum-cgi/shared/Encode/Plain.pm
@@ -255,17 +255,17 @@ sub toUTF8 ($) {
     ? $$ref
     : $ref;
 
     ? $$ref
     : $ref;
 

-  if ($v56) {
-    no warnings 'utf8';
-    $string =~ tr/\x80-\xff//CU;
-  }
-  else {
+# if ($v56) {
+#   no warnings 'utf8';
+#   $string =~ tr/\x80-\xff//CU;
+# }
+# else {

     $string =~ s
       {([\x80-\xff])}
       { chr((ord ($1) >> 6) | 192)
        .chr((ord ($1) & 191))
       }eg;
     $string =~ s
       {([\x80-\xff])}
       { chr((ord ($1) >> 6) | 192)
        .chr((ord ($1) & 191))
       }eg;

-  }
+# }

 
   ref($ref)
     ? \$string
 
   ref($ref)
     ? \$string


@@ -531,4 +531,4 @@ BEGIN {
 
 #
 #
 
 #
 #

-### end of Encode::Plain #######################################################
\ No newline at end of file
+### end of Encode::Plain #######################################################

diff --git a/selfforum-cgi/shared/Template/_thread.pm b/selfforum-cgi/shared/Template/_thread.pm
index 3f00ad25c8655a146ed959dd0154c805fcbc2729..5f105a66f4e4ab0e6ba820544b35a5c0fd7b8b7c 100644 (file)
--- a/selfforum-cgi/shared/Template/_thread.pm
+++ b/selfforum-cgi/shared/Template/_thread.pm
@@ -70,7 +70,9 @@ sub html_thread ($$$) {
              $temp -> {subject} => $_ -> {subject},
              $temp -> {cat}     => $_ -> {cat},
              $temp -> {time}    => plain(short_hr_time ($_ -> {time})),
              $temp -> {subject} => $_ -> {subject},
              $temp -> {cat}     => $_ -> {cat},
              $temp -> {time}    => plain(short_hr_time ($_ -> {time})),

-             $temp -> {link}    => query_string({$t => $tid, $p => $_ -> {mid}})
+             $temp -> {link}    => query_string({$t => $tid, $p => $_ -> {mid}}),
+             $temp -> {tid}     => $tid,
+             $temp -> {mid}     => $_ -> {mid},

            },
            $par -> {addParam}
           )} .
            },
            $par -> {addParam}
           )} .


@@ -90,7 +92,9 @@ sub html_thread ($$$) {
              $temp -> {subject} => $_ -> {subject},
              $temp -> {cat}     => $_ -> {cat},
              $temp -> {time}    => plain(short_hr_time ($_ -> {time})),
              $temp -> {subject} => $_ -> {subject},
              $temp -> {cat}     => $_ -> {cat},
              $temp -> {time}    => plain(short_hr_time ($_ -> {time})),

-             $temp -> {link}    => query_string({$t => $tid, $p => $_ -> {mid}})
+             $temp -> {link}    => query_string({$t => $tid, $p => $_ -> {mid}}),
+             $temp -> {tid}     => $tid,
+             $temp -> {mid}     => $_ -> {mid},

            },
            $par -> {addParam}
           )}.
            },
            $par -> {addParam}
           )}.


@@ -134,7 +138,9 @@ sub html_thread ($$$) {
              $temp -> {subject} => $_ -> {subject},
              $temp -> {cat}     => $_ -> {cat},
              $temp -> {time}    => plain(short_hr_time ($_ -> {time})),
              $temp -> {subject} => $_ -> {subject},
              $temp -> {cat}     => $_ -> {cat},
              $temp -> {time}    => plain(short_hr_time ($_ -> {time})),

-             $temp -> {link}    => query_string({$t => $tid, $p => $_ -> {mid}})
+             $temp -> {link}    => query_string({$t => $tid, $p => $_ -> {mid}}),
+             $temp -> {tid}     => $tid,
+             $temp -> {mid}     => $_ -> {mid},

            },
            $par -> {addParam}
           )}.
            },
            $par -> {addParam}
           )}.


@@ -153,7 +159,9 @@ sub html_thread ($$$) {
              $temp -> {subject} => $_ -> {subject},
              $temp -> {cat}     => $_ -> {cat},
              $temp -> {time}    => plain(short_hr_time ($_ -> {time})),
              $temp -> {subject} => $_ -> {subject},
              $temp -> {cat}     => $_ -> {cat},
              $temp -> {time}    => plain(short_hr_time ($_ -> {time})),

-             $temp -> {link}    => query_string({$t => $tid, $p => $_ -> {mid}})
+             $temp -> {link}    => query_string({$t => $tid, $p => $_ -> {mid}}),
+             $temp -> {tid}     => $tid,
+             $temp -> {mid}     => $_ -> {mid},

            },
            $par -> {addParam}
           )}.
            },
            $par -> {addParam}
           )}.