package Business::Cart::Generic::View::Order;
use strict;
use warnings;
use JSON::XS;
use Moose;
use Text::Xslate 'mark_raw';
extends 'Business::Cart::Generic::View::Base';
use namespace::autocl
ss="red">$message</span>|,
div_name => 'order_message_div',
order_count => 0,
};
return JSON::XS -> new -> utf8 -> encode($output);
} # End of cancel_order.
# -----------------------------
country_id == $$config{default_country_id})
{
$min_id = $$config{default_zone_id};
}
return JSON::XS -> new -> utf8 -> encode({menu => $self -> build_special_select($zone_map, $min_id, 'zone_id'
package Business::Cart::Generic::View::Search;
use strict;
use warnings;
use JSON::XS;
use Moose;
extends 'Business::Cart::Generic::View::Base';
use namespace::autoclean;
our $VERSION = '0.85';
'order_message_div',
content => $self -> templater -> render('error.tx', $param),
};
return JSON::XS -> new -> utf8 -> encode($output);
} # End of format_errors.
# ----------------------------
> 'order_message_div',
content => $self -> templater -> render('note.tx', $param),
};
return JSON::XS -> new -> utf8 -> encode($output);
} # End of format_note.
# ------------------------------
ns a JSON and utf8 encoded block of text (usually of error messages) suitable for sending to the client.
=head2 format_note($note)
$note is a hashref of information for the user.
Returns a JSON and
package Business::Cart::Generic::View::Product;
use strict;
use warnings;
use JSON::XS;
use Moose;
use Text::Xslate 'mark_raw';
extends 'Business::Cart::Generic::View::Base';
use namespace::auto