Done comment system

[ott/bsta] / goto.1.pl

diff --git a/goto.1.pl b/goto.1.pl
index 1ecd8ce04680fdf7f5ba39c1b73d325f91a9bc94..8ea175383dabbc5761f8f6ec268eb69f36b60022 100644 (file)
--- a/goto.1.pl
+++ b/goto.1.pl
@@ -41,7 +41,8 @@ use bsta_lib (
        'print_html_start', 'print_html_end',
        'print_html_head_start', 'print_html_head_end',
        'print_html_body_start', 'print_html_body_end',
-       'write_index'
+       'write_index',
+       'merge_settings'
 );
 
 ###PERL_PATH_SEPARATOR:     PATH_SEPARATOR     = /
@@ -201,7 +202,7 @@ for ($frame = 0; ; $frame += 1) {
                {'path' => $frame}
        );
        if ($password_ok) {
-               $viewer_url = merge_url($viewer_url, {'query' => $password_query, 'append_query' => 1});
+               $viewer_url = merge_url($viewer_url, {'query' => $password_query, 'append_query' => 1, 'preserve_fragment' => 1});
        }
        
        my $_viewer_url = html_entity_encode_dec($viewer_url, 1);