sub GetItemEncodingLevel 
{ 
     my $self = shift; 
     my $cgi = shift; 

     my $idno = $cgi->param('idno'); 
     my $tm = $self->GetTermMapper( ); 
     my $rgn; 
     ASSERT( $rgn = $tm->map('ITEM', 'synthetic', 'native') ); 
     my $idnorgn; 
     ASSERT( $idnorgn = $tm->map('IDNO', 'synthetic', 'native') ); 

     # find xpat with this item 
     my $xpat = $self->FindXPatContainingIdno( $idno ); 

     my $query = 
     # qq{pr.region."A-N" (region "A-N" within (region "EDITORIALDECL-T" within ( region mainheader within ( $rgn incl ( $idnorgn incl "$idno" ) ) ) ) );}; 

     qq{pr.region."EDITORIALDECL-T" (region "EDITORIALDECL-T" within ( region mainheader within ( $rgn incl ( $idnorgn incl "$idno" ) ) ) );}; 

     my ( $error, $result ) = $xpat->GetSimpleResultsFromQuery( $query ); 
     if ( $error ) 
     { &DlpsUtils::errorBail( qq{Query error in GetItemEncodingLevel: $result} ); } 

     &DlpsUtils::StripAllRSetCruft( \$result ); 

     $result =~ s,.*N=\"(\d+)\".*,$1,; 

     return $result; 
}