% require "se_travel.pl"; my $parameter = &vermittlung_encode_parameter; my $out = &vermittlung_decode_parameter($parameter); my %sortmode; $sortmode{$in{sortmode}} = "SELECTED"; foreach (split(/&/,$ENV{QUERY_STRING})) { my ($a,$b) = split(/=/,$_); next if $a =~ /sortmode|action|seite/; $hidden_fields .= qq(\n) if $b; } return qq(
$out |
); %>
|