Mailing List Archive

Hi,

I'm getting an error in my logfile when trying to merge the metadata via
the admin-page.

Any ideas what this error does mean?

René

0.0.0.0 VssgcqWM:0.0.0.0 - [13/June/2018:09:44:08 +0300] mycat
www.mysite.tld:443/admin/merge_meta Safe: syntax error at (eval 504)
line 2, near "{."
>
>
> my $bdb = $Db{.mv_metadata_asc};
> my $mtab = q{mv_metadata} || 'mv_metadata';
> my $mdb = $Db{$mtab};
> if(! $bdb) {
> $Scratch->{merge_error}
> = errmsg("Cannot merge metadata -- table %s is missing.",
> 'mv_metadata_asc');
> return;
> }
> if(! $mdb) {
> $Scratch->{merge_error}
> = errmsg("Cannot merge metadata -- table %s is missing.",
> $mtab);
> return;
> }
> my @needcols = qw(extended);
> if(@needcols = grep {! $mdb->column_exists($_)} @needcols) {
> $Scratch->{merge_error}
> = errmsg("Cannot merge metadata -- column(s) '%s' is missing
in table %s.", join(',', @needcols), $mtab);
> return;
> }
> my @base;
> while( my ($k) = $bdb->each_record()) {
> push @base, $k;
> }
>
> my %merge;
> if($CGI->{merge_key}) {
> my @keys = split /\0/, $CGI->{merge_key};
> my @status = split /\0/, $CGI->{merge_status};
> for(my $i = 0; $i < @keys; $i++) {
> $merge{$keys[$i]} = $status[$i];
> }
> }
>
> $Scratch->{merge_updated} = 0;
> $Scratch->{merge_complete} = 0;
> $Scratch->{merge_needed} = 0;
> %source = ();
> %target = ();
> for(@base) {
> my $source = $bdb->row_hash($_);
> my $target = $mdb->row_hash($_);
> if(! $target or $merge{$_} == 1) {
> my $ext = get_option_hash($source->{extended});
> $ext->{ui_version} = $Scratch->{newver};
> $source->{extended} = uneval($ext);
> my $code = delete $source->{code};
> $mdb->set_slice($code, $source);
> $Scratch->{merge_updated}++;
> }
> elsif($merge{$_} == -1) {
> my $ext = get_option_hash($target->{extended});
> $ext->{ui_version} = $Scratch->{newver};
> $target->{extended} = uneval($ext);
> my $code = delete $target->{code};
> $mdb->set_slice($code, $target);
> $Scratch->{merge_updated}++;
> }
> elsif( check_merge($source, $target) ) {
> $Scratch->{merge_complete}++;
> }
> else {
> $Scratch->{merge_needed}++;
> $source{$_} = $source;
> $target{$_} = $target;
> }
> }
> if($Scratch->{merge_needed} == 0) {
> $mdb->set_field('ui-version', 'label', $Scratch->{newver});
> }
> return;
>
>

_______________________________________________
interchange-users mailing list
interchange-users@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-users