Changeset 1492 in genappalpha


Ignore:
Timestamp:
Jul 20, 2018, 6:30:48 AM (2 years ago)
Author:
ehb
Message:

Further dependency inserts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • bin/genapp_run.pl

    r1491 r1492  
    575575                                print "rplc menu:id " . $$rplc_menu2{ "menu:id" } . " " . $$rplc_menu{ 'menu:id' } . "\n" if $debug_srplc;
    576576                                @l = @l_sav;
     577                                if ( grep /__modulejson__/, @l ) {
     578                                    my $js = JSON->new;
     579                                    $js->canonical(1);
     580                                    my $enc_mod_json = $js->encode( get_file_json_lang_specific( $module_to_file{ $l }{ $$rplc_menu2{ 'menu:modules:id' } }, $l, 1 ) );
     581                                    grep s/__modulejson__/$enc_mod_json/g, @l;
     582                                }
     583                                foreach my $sub ( keys %extra_subs ) {
     584                                    print "doing extra sub $sub to $extra_subs{$sub}\n" if $debug_srplc;
     585                                    grep s/$sub/$extra_subs{$sub}/g, @l;
     586                                }
     587
    577588                                while ( my ( $k, $v ) = each %$rplc_directives )
    578589                                {
     
    631642                                    grep s/__${k}__/${v}/g, @l;
    632643                                }
    633                                
     644
     645                                # print "outdata 3--------\n";
     646                                # print join '', @l;
    634647                                print "adding to outdata------------------------------\n" if $debug_srplc;
    635648                                $outdata .= join '', @l;
Note: See TracChangeset for help on using the changeset viewer.