"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "code/SystemTag/warnings.coretag" between
interchange-5.8.2.tar.gz and interchange-5.10.0.tar.gz

About: Interchange is an Electronic commerce system (supports SSL, PGP/GPG).

warnings.coretag  (interchange-5.8.2)	:	warnings.coretag  (interchange-5.10.0)
skipping to change at line 22		skipping to change at line 22
UserTag warnings Order message		UserTag warnings Order message
UserTag warnings addAttr		UserTag warnings addAttr
UserTag warnings PosNumber 1		UserTag warnings PosNumber 1
UserTag warnings Version $Revision: 1.9 $		UserTag warnings Version $Revision: 1.9 $
UserTag warnings Routine <<EOR		UserTag warnings Routine <<EOR
sub {		sub {
my($message, $opt) = @_;		my($message, $opt) = @_;
if($message) {		if($message) {
my $param = ref $opt->{param} ? $opt->{param} : [$opt->{param}];		my $param = ref $opt->{param} ? $opt->{param} : [$opt->{param}];
push_warning($message, @$param);		if($opt->{param}) {
		my $param = ref $opt->{param} ? $opt->{param} : [$opt->{param}];
		push_warning($message, @$param);
		}
		else {
		push_warning($message);
		}
return unless $opt->{show};		return unless $opt->{show};
}		}
return unless $Vend::Session->{warnings};		return unless $Vend::Session->{warnings};
my $out = $opt->{header} || "";		my $out = $opt->{header} || "";
if($opt->{auto}) {		if($opt->{auto}) {
$opt->{list_container} ||= 'ul';		$opt->{list_container} ||= 'ul';
$out .= "<$opt->{list_container}";		$out .= "<$opt->{list_container}";
for(qw/ class style extra /) {		for(qw/ class style extra /) {
End of changes. 1 change blocks.
1 lines changed or deleted		7 lines changed or added

---