unicode bug #3390: uri_escape -> uri_escape_utf8

[irspy-moved-to-github.git] / web / htdocs / details / upload.mc

diff --git a/web/htdocs/details/upload.mc b/web/htdocs/details/upload.mc
index 5a5aab3..4a639ad 100644 (file)
--- a/web/htdocs/details/upload.mc
+++ b/web/htdocs/details/upload.mc
@@ -48,16 +48,17 @@ if (!defined $fin) {
 my $xml = join("", <$fin>);
 my $xc = irspy_xpath_context($xml);
 my $id = irspy_record2identifier($xc);
-my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
+my $db = ZOOM::IRSpy::connect_to_registry();
+my $conn = new ZOOM::Connection($db, 0,
                                user => "admin", password => "fruitbat",
                                elementSetName => "zeerex");
-ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode());
+ZOOM::IRSpy::_rewrite_zeerex_record($conn, $xc->getContextNode());
 </%perl>
      <p>
       Upload OK.
      </p>
      <p>
       Proceed to
-      <a href="<% xml_encode("/full.html?id=" . uri_escape($id))
+      <a href="<% xml_encode("/full.html?id=" . uri_escape_utf8($id))
        %>">the new record</a>.
      </p>