[value name=mv_submit set=""] [value name=agree set=""] Something is wrong [comment][scratch name=wizard interpolate=1][/comment]
MiniVend
Configuration
Wizard

[scratch name=fail_message interpolate=1]

[perl values] my $msg = q{}; for(%{$Safe{'values'}}) { next unless /^mv_error_(.*)/; my $name = $1; #my $value = delete $Safe{'values'}->{$_}; my $value = $Safe{'values'}->{$_}; next unless $value; $msg .= "\n$name: $value\n"; } sub redo_message { my($param,$word) = @_; if ($word =~ /diretory_write/i) { return "

  • The directory you specify needs to be writable.\n"; } elsif ($word =~ /phone/i) { return "
  • Is that really a phone number?\n"; } elsif ($word =~ /Mv_result/) { return "
  • Check failed: $param"; } else { return "
  • $param: $word\n" } } @msg = grep /\S/, split /\n/, $msg; $msg = '
      '; for(@msg) { ($var, $val) = split /:\s*/, $_; $msg .= redo_message($var, $val); } $msg .= '
    '; return $msg; [/perl]

  •      

    Return to main menu