|
Lines 746-766
if ($frameworkcode eq 'FA'){
Link Here
|
| 746 |
} |
746 |
} |
| 747 |
|
747 |
|
| 748 |
|
748 |
|
| 749 |
# Getting the list of all frameworks |
749 |
$template->param( frameworkcodeloop => GetFrameworksLoop( $frameworkcode ) , |
| 750 |
# get framework list |
|
|
| 751 |
my $frameworks = getframeworks; |
| 752 |
my @frameworkcodeloop; |
| 753 |
foreach my $thisframeworkcode ( keys %$frameworks ) { |
| 754 |
my %row = ( |
| 755 |
value => $thisframeworkcode, |
| 756 |
frameworktext => $frameworks->{$thisframeworkcode}->{'frameworktext'}, |
| 757 |
); |
| 758 |
if ($frameworkcode eq $thisframeworkcode){ |
| 759 |
$row{'selected'} = 1; |
| 760 |
} |
| 761 |
push @frameworkcodeloop, \%row; |
| 762 |
} |
| 763 |
$template->param( frameworkcodeloop => \@frameworkcodeloop, |
| 764 |
breedingid => $breedingid ); |
750 |
breedingid => $breedingid ); |
| 765 |
|
751 |
|
| 766 |
# ++ Global |
752 |
# ++ Global |