+
+=head2 GetBorrowerCategorycode
+
+ $categorycode = &GetBorrowerCategoryCode( $borrowernumber );
+
+Given the borrowernumber, the function returns the corresponding categorycode
+=cut
+
+sub GetBorrowerCategorycode {
+ my ( $borrowernumber ) = @_;
+ my $dbh = C4::Context->dbh;
+ my $sth = $dbh->prepare( qq{
+ SELECT categorycode
+ FROM borrowers
+ WHERE borrowernumber = ?
+ } );
+ $sth->execute( $borrowernumber );
+ return $sth->fetchrow;
+}
+