# Copyright 2002-2007 Interchange Development Group and others

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version. See the LICENSE file for details.

### This is in package Vend::Interpolate, and may make reference

### to variables in that module

UserTag error Order name

UserTag error addAttr

UserTag error PosNumber 1

UserTag error Version 1.11

UserTag error Routine <<EOR

sub set_error {

my ($error, $var, $opt) = @_;

$var = 'default' unless $var;

$opt = { keep => 1 } if ! $opt;

my $ref = $Vend::Session->{errors};

if($ref->{$var} and ! $opt->{overwrite}) {

$ref->{$var} .= errmsg(" AND ");

}

else {

$ref->{$var} = '';

}

$ref->{$var} .= $error;

return tag_error($var, $opt);

}

sub tag_error {

my($var, $opt) = @_;

$Vend::Session->{errors} = {}

unless defined $Vend::Session->{errors};

if($opt->{set}) {

$opt->{keep} = 1 unless defined $opt->{keep};

my $error = delete $opt->{set};

if($opt->{param}) {

$opt->{param} = [ $opt->{param} ] unless ref($opt->{param}) eq 'ARRAY';

$error = sprintf($error, @{$opt->{param}});

}

return set_error($error, $var, $opt);

}

unless(defined $opt->{filter}) {

$opt->{filter} = 'encode_entities';

}

my $err_ref = $Vend::Session->{errors};

my $text;

my @errors;

my $found_error = '';

if($opt->{auto}) {

$opt->{all} = 1;

$opt->{show_error} = 1;

$opt->{std_label} = 0;

$opt->{show_var} = 1

unless defined $opt->{show_var};

$opt->{joiner} = '<li>'

unless length $opt->{joiner};

$opt->{text} ||= '%s';

$opt->{list_container} ||= 'ul';

my $out = '';

$out .= "<$opt->{list_container}";

for(qw/ class style extra /) {

next unless $opt->{$_};

if($_ eq 'extra') {

$out .= ' ' . $opt->{$_};

}

else {

$out .= ' ' . qq{$_="$opt->{$_}"};

}

}

$out .= '>';

$out .= $opt->{joiner};

$opt->{header} ||= $out;

$opt->{footer} ||= "</$opt->{list_container}>";

}

$text = $opt->{text} if $opt->{text};

#::logDebug("tag_error: var=$var text=$text opt=" . ::uneval($opt));

#::logDebug("tag_error: var=$var text=$text");

if($opt->{all}) {

$opt->{joiner} = "\n" unless defined $opt->{joiner};

for(sort keys %$err_ref) {

my $err = $err_ref->{$_};

delete $err_ref->{$_} unless $opt->{keep};

next unless $err;

$found_error++;

my $string = '';

if ($opt->{show_label}) {

if ($string = $Vend::Session->{errorlabels}{$_}) {

$string =~ s/[:\s]+$//;

$string .= " ($_)" if $opt->{show_var};

$string .= ": ";

} else {

# Use the variable name unless Locale has a default label.

my $label = errmsg("error_label_${_}");

$label = $_ if $label eq "error_label_${_}";

$string .= "($label): ";

}

} else {

$string .= "$_: " if $opt->{show_var};

}

$string .= $err;

push @errors, $string;

}

#::logDebug("error all=1 found=$found_error contents='@errors'");

return $found_error unless $text || $opt->{show_error};

$text .= "%s" if $text !~ /\%s/;

$text = pull_else($text, $found_error);

return '' unless @errors;

@errors = map { filter_value($opt->{filter}, $_) } @errors

if $opt->{filter};

my $etext = sprintf $text, join($opt->{joiner}, @errors);

return join "", $opt->{header}, $etext, $opt->{footer};

}

$found_error = ! (not $err_ref->{$var});

my $err = $err_ref->{$var} || '';

delete $err_ref->{$var} unless $opt->{keep};

#::logDebug("error found=$found_error contents='$err'");

return !(not $found_error)

unless $opt->{std_label} || $text || $opt->{show_error};

$err = filter_value($opt->{filter}, $err)

if $opt->{filter};

if($opt->{std_label}) {

# store the error label in user's session for later

# possible use in [error show_label=1] calls

$Vend::Session->{errorlabels}{$var} = $opt->{std_label};

if($text) {

# do nothing

}

elsif(defined $::Variable->{MV_ERROR_STD_LABEL}) {

$text = $::Variable->{MV_ERROR_STD_LABEL};

}

else {

my $contrast = $::Variable->{CSS_CONTRAST} || 'mv_contrast';

$text = <<EOF;

<span class="$contrast">{LABEL} <small><i>(%s)</i></small></span>

[else]{REQUIRED <b>}{LABEL}{REQUIRED </b>}[/else]

EOF

}

$text =~ s/{LABEL}/$opt->{std_label}/g;

$text =~ s/{NEWLINE}/<br$Vend::Xtrailer>/g;

$text =~ s/{REQUIRED\s+([^}]*)}/$opt->{required} ? $1 : ''/ge;

$err =~ s/\s+$//;

}

$text = '' unless defined $text;

$text .= '%s' unless ($text =~ /\%s/ ||

length $::Variable->{MV_ERROR_STD_LABEL});

$text = pull_else($text, $found_error);

$text =~ s/\%s/$err/;

return $text;

}

sub {

return tag_error(@_);

}

EOR