Revision 80591b8a
Von Bernd Bleßmann vor fast 3 Jahren hinzugefügt
| bin/mozilla/common.pl | ||
|---|---|---|
| 23 | 23 |
|
| 24 | 24 |
my $form = $main::form; |
| 25 | 25 |
|
| 26 |
my $script = $form->{script};
|
|
| 27 |
|
|
| 26 |
my $script = $form->{script};
|
|
| 27 |
my $fragment; |
|
| 28 | 28 |
my @parts; |
| 29 | 29 |
|
| 30 | 30 |
foreach my $key (@_) {
|
| ... | ... | |
| 33 | 33 |
if ($key =~ /(.*?)=(.*)/) {
|
| 34 | 34 |
if ($1 eq 'script') {
|
| 35 | 35 |
$script = $2; |
| 36 |
|
|
| 37 |
} elsif ($1 eq 'fragment') {
|
|
| 38 |
$fragment = $2; |
|
| 39 |
|
|
| 36 | 40 |
} else {
|
| 37 | 41 |
push @parts, $key; |
| 38 | 42 |
} |
| ... | ... | |
| 44 | 48 |
} |
| 45 | 49 |
} |
| 46 | 50 |
|
| 47 |
my $url = "${script}?" . join('&', @parts);
|
|
| 51 |
my $url = "${script}?" . join('&', @parts) . (defined $fragment ? "#$fragment" : '');
|
|
| 48 | 52 |
|
| 49 | 53 |
$main::lxdebug->leave_sub(2); |
| 50 | 54 |
|
Auch abrufbar als: Unified diff
build_std_url: Fragment unterstützen