perlPackages.PadWalker
  perlPackages.DataDump

        $inputType eq "git" || $inputType eq "build";

        $inputType eq "git" || $inputType eq "build" || $inputType eq "sysbuild" ;

}
sub fetchInputSystemBuild {
    my ($db, $project, $jobset, $name, $type, $value) = @_;
        my ($projectName, $jobsetName, $jobName, $attrs) = parseJobName($value);
        $projectName ||= $project->name;
        $jobsetName ||= $jobset->name;
        my @latestBuilds = $db->resultset('LatestSucceededForJob')
          ->search({}, {bind => [$projectName, $jobsetName, $jobName]});
        my @validBuilds = ();
        foreach my $build (@latestBuilds) {
        	if(isValidPath($build->outpath)) {
        		push(@validBuilds,$build);
        	}
        }
        
        if (scalar(@validBuilds) == 0) {
            print STDERR "input `", $name, "': no previous build available\n";
            return undef;
        }
		my @inputs = ();
        foreach my $prevBuild (@validBuilds) {
	        my $pkgNameRE = "(?:(?:[A-Za-z0-9]|(?:-[^0-9]))+)";
	        my $versionRE = "(?:[A-Za-z0-9\.\-]+)";
	
	        my $relName = ($prevBuild->resultInfo->releasename or $prevBuild->nixname);
	        my $version = $2 if $relName =~ /^($pkgNameRE)-($versionRE)$/;
	        
	        my $input =
	            { type => "sysbuild"
	            , storePath => $prevBuild->outpath
	            , id => $prevBuild->id
	            , version => $version
	            , system => $prevBuild->system
	            };
	        push(@inputs, $input);
		}
		return @inputs;		        

    }
    elsif ($type eq "sysbuild") {
	return fetchInputSystemBuild($db, $project, $jobset, $name, $type, $value);

                when (["svn", "path", "build", "git", "cvs"]) {

                when (["svn", "path", "build", "git", "cvs", "sysbuild"]) {

    my @filteredJobs = ();
    foreach my $job (@{$jobs->{job}}) {
    	my $validJob = 1;
  		foreach my $arg (@{$job->{arg}}) {
  			my $input = $inputInfo->{$arg->{name}}->[$arg->{altnr}] ;
  			if($input->{type} eq "sysbuild" && ! ($input->{system} eq $job->{system}) ) {
  				$validJob = 0 ;
  			}
    	}
    	if($validJob) {
    	  push(@filteredJobs, $job);
    	}    	
    }
    $jobs->{job} = \@filteredJobs;
    

          [% IF input.type == "build" %]

          [% IF input.type == "build" || input.type == "sysbuild" %]

              [% IF input.type == "build" %]

              [% IF input.type == "build" || input.type == "sysbuild" %]

    , "sysbuild" = "Build output (same system)"

use Data::Dump qw(dump);

            , $input->type eq "build"

            , ( $input->type eq "build" || $input->type eq "sysbuild")

use Data::Dump qw(dump);

            my $info = fetchInput($db, $project, $jobset, $input->name, $input->type, $alt->value);
            push @{$$inputInfo{$input->name}}, $info if defined $info;

        	if($input->type eq "sysbuild") {
              my @info = fetchInput($db, $project, $jobset, $input->name, $input->type, $alt->value);
              foreach my $info_el (@info) {
              	push @{$$inputInfo{$input->name}}, $info_el if defined $info_el;
              }
        	} else {
              my $info = fetchInput($db, $project, $jobset, $input->name, $input->type, $alt->value);
              push @{$$inputInfo{$input->name}}, $info if defined $info;
        	}