Ok, this may be completely unrelated to Perl, however, since my programming is 70% Perl, I figured I'd ask here in case any of you have ran into this issue and know how you fixed it, I'll also ask at the other places that I use, such as MySql and so forth.

Anyhow, I have built a Language Translator for our club, we can give access to certain member that volunteer to translate and that we trust to do it right and not play with the words on the website. Anyhow, When they login to Russian, they see the language tags and a link to preview the current content, or they can search the tables for exact content to edit, once they find it they click edit and perl then delivers a form which shows them the current value in a textarea form field, so they can edit it also it shows the current english content of that tag below it just on the page so they know what to translate.

Anyhow, after they translate it to what they want, then they hit the save changes button, which Perl then writes to the database, here is that code:
        $_ctagValue = $dbh->selectrow_array(qq{select `value` from `$_
+tableName` where `lngId` = ?}, undef, $in{lngId});
        $_updatedTime = time();
        $_updated = $dbh->do(qq{update `$_tableName` set `value` = ?, 
+`d` = ? where `lngId` = ?}, undef, qq~$in{tagvalue}~, $_updatedTime, 
+$in{lngId});
        if($_updated) {
            # Insert Tracking...
            my($stmt,@place);
            $stmt .= ',' if $stmt;
            $stmt .= '`Id` = ?';
            push(@place,$_cust_id);
            $stmt .= ',' if $stmt;
            $stmt .= '`lang` = ?';
            push(@place,$_tableName);
            $stmt .= ',' if $stmt;
            $stmt .= '`lngId` = ?';
            push(@place,$in{lngId});
            $stmt .= ',' if $stmt;
            $stmt .= '`was` = ?';
            push(@place,"$_ctagValue");
            $stmt .= ',' if $stmt;
            $stmt .= '`now` = ?';
            push(@place,"$in{tagvalue}");
            $stmt .= ',' if $stmt;
            $stmt .= '`timel` = ?';
            push(@place,(time() - $in{timel}));
            $stmt .= ',' if $stmt;
            $stmt .= '`d` = ?';
            push(@place,"$_updatedTime");
            $stmt = "INSERT INTO `translation_history` SET $stmt";
            $_tracked = $dbh->do($stmt,undef,@place);
            if(!$_tracked) {
                &send_Richard_error(qq~Could not track language modifi
+cation... attempted this: dbh->do($stmt,undef,~ . @place . qq~); any 
+errors: ~ . $DBI::errstr);
            }
            $sess_ref->attr("show_message","success|I have successfull
+y saved the changes to this language tag.");
            if($in{r} eq "q") {
                window_redirect("$_surl?pg=$in{pg}&do=$in{do}&view=doS
+earchTags&q=$in{q}$inc_sess_id");
            } elsif($in{p}) {
                window_redirect("$_surl?pg=$in{pg}&do=$in{do}&view=$in
+{p}$inc_sess_id");
            } else {
                window_redirect("$_surl?pg=$in{pg}&do=$in{do}$inc_sess
+_id");
            }
        } else {
            &send_Richard_error(qq~Could not update a language tag, he
+re is what I attempted: (dbh->do(qq{update `$_tableName` set `value` 
+= ?, `d` = ? where `lngId` = ?}, undef, qq\~$in{tagvalue}\~, "$_updat
+edTime", "$in{lngId}")) any errors: ~ . $DBI::errstr);
            $sess_ref->attr("show_message","error|I could not save the
+ changes you asked me to. I have brought you back to try again. " . $
+DBI::errstr);
            window_redirect("$_surl?pg=$in{pg}&do=$in{do}&view=editTag
+&lngId=$in{lngId}$inc_sess_id");
        }

[download]
So for instance if I put this into the form:

Принимаю - зарегистрировать меня
(Did not display properly in the preview so I'll put it also in the code below directly into the html):
Принимаю - зарегистрировать меня

and submit that, when I check the database it has this: 
Принимаю - з&#10
+72;регистрир&#1
+086;вать меня

[download]
So it does not work, I think it is Perl doing that because if I go to phpMyAdmin and edit that tag and put that in manually then save it, it is in there just fine when I check it. However, then when I load the edit field or preview the tag in the language editor in the perl system, I see only a bunch of ??? marks.

I made sure my headers in the browser that perl prints have the correct encoding: 
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

[download]
That did not make any difference.

Any idea why this is not working?

Again I apologize if this is completely unrelated to perl, however, if you know of a way to get this working then please help.

thx,
Richard

In reply to Russian Language read from mysql into perl script problem by powerhouse

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.