grzyby.pl
parietyna, parietin, Parietin
my @Rf;
push @Rf, 'A: ' .$sbst->rfa if $sbst->rfa;
push @Rf, 'B: ' .$sbst->rfb if $sbst->rfb;
push @Rf, "B': " .$sbst->rfb_ if $sbst->rfb_;
push @Rf, 'C: ' .$sbst->rfc .'' if $sbst->rfc;
push @Rf, 'E: ' .$sbst->rfe if $sbst->rfe;
push @Rf, 'F: ' .$sbst->rff if $sbst->rff;
push @Rf, 'G: ' .$sbst->rfg if $sbst->rfg;
my @SR;
push @SR, 'K ' .($sbst->srk eq '-' ? '—' : $sbst->srk) if $sbst->srk;
push @SR, 'C ' .($sbst->src eq '-' ? '—' : $sbst->src) if $sbst->src;
push @SR, 'KC ' .($sbst->srkc eq '-' ? '—' : $sbst->srkc) if $sbst->srkc;
push @SR, "CK " .$sbst->srck if $sbst->srck;
push @SR, 'P ' .($sbst->srp eq '-' ? '—' : $sbst->srp) if $sbst->srp;
push @SR, 'FeCl3 ' .$sbst->srfecl3 if $sbst->srfecl3;
push @SR, 'other: ' .$sbst->srinne if $sbst->srinne;
TLC, spot tests
class: <% $sbst->klasa %>
% if ( $conf->is_development ) {
✍
% }
Rf values in standard eluents systems: <% join ' · ', @Rf %>
Visibility: in natural light: <% $sbst->l eq '-' ? '—' : '' .$sbst->l .'' %>
· in UV-C (254nm): <% ($sbst->uvc eq '-' ? '—' : '' .$sbst->uvc .'' ) .( $sbst->uva ? ' · fluorescence in UV-A (ca.360nm): '. $sbst->uva .'' : '') %>
Visibility after H2SO4 spraying and 10 min in 110°C charring:
in natural light: <% $sbst->al eq '-' ? '—' : '' .$sbst->al .'' %>
in UV-A (ca.360nm): <% $sbst->auva eq '-' ? '—' : '' .$sbst->auva .'' %>
Spot tests: <% join ' · ', @SR %>
% if ( $sbst->mikrokrystalizacja ) {
microcrystallization
<% $sbst->mikrokrystalizacja %>
<%perl>
if (my $lit = $sbst->literatura) {
map { push @{$m->notes('literatura_do_strony')}, $_ } split(' ', $lit);
}
}