| # | Line 112 | Line 112 | sub param { | |
|---|---|---|
| 112 | my $self=shift; | |
| 113 | my $param=shift; | |
| 114 | ||
| 115 | < | $self->{vars}{'param'}; |
| 115 | > | $self->{vars}{$param}; |
| 116 | } | |
| 117 | ||
| 118 | # | |
| # | Line 122 | Line 122 | sub _vartostring { | |
| 122 | my $self=shift; | |
| 123 | ||
| 124 | my $string=""; | |
| 125 | < | foreach $key ( keys %{$self->{vars}} ) { |
| 125 | > | foreach $key ( sort(keys %{$self->{vars}}) ) { |
| 126 | $string=$string.(($string eq "")?"":"\&").$key."=".$self->{vars}{$key}; | |
| 127 | } | |
| 128 | return $string; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |