GetParam/Code

Code

Version 0.92

---

sub GetParam {
  my ($name, $default) = @_;
  my $result;
 
  $result = $q->param($name);
  if (!defined($result)) {
    if (defined($UserData{$name})) {
      $result = $UserData{$name};
    } else {
      $result = $default;
    }
  }
  return $result;
 }