my $form = $main::form;
- my $script = $form->{script};
-
+ my $script = $form->{script};
+ my $fragment;
my @parts;
foreach my $key (@_) {
if ($key =~ /(.*?)=(.*)/) {
if ($1 eq 'script') {
$script = $2;
+
+ } elsif ($1 eq 'fragment') {
+ $fragment = $2;
+
} else {
push @parts, $key;
}
}
}
- my $url = "${script}?" . join('&', @parts);
+ my $url = "${script}?" . join('&', @parts) . (defined $fragment ? "#$fragment" : '');
$main::lxdebug->leave_sub(2);