|
Lines 71-77
BEGIN {
Link Here
|
| 71 |
&GetNoticeEmailAddress |
71 |
&GetNoticeEmailAddress |
| 72 |
|
72 |
|
| 73 |
&GetAge |
73 |
&GetAge |
| 74 |
&GetSortDetails |
|
|
| 75 |
&GetTitles |
74 |
&GetTitles |
| 76 |
|
75 |
|
| 77 |
&GetHideLostItemsPreference |
76 |
&GetHideLostItemsPreference |
|
Lines 1599-1629
sub SetAge{
Link Here
|
| 1599 |
return $borrower; |
1598 |
return $borrower; |
| 1600 |
} # sub SetAge |
1599 |
} # sub SetAge |
| 1601 |
|
1600 |
|
| 1602 |
=head2 GetSortDetails (OUEST-PROVENCE) |
|
|
| 1603 |
|
| 1604 |
($lib) = &GetSortDetails($category,$sortvalue); |
| 1605 |
|
| 1606 |
Returns the authorized value details |
| 1607 |
C<&$lib>return value of authorized value details |
| 1608 |
C<&$sortvalue>this is the value of authorized value |
| 1609 |
C<&$category>this is the value of authorized value category |
| 1610 |
|
| 1611 |
=cut |
| 1612 |
|
| 1613 |
sub GetSortDetails { |
| 1614 |
my ( $category, $sortvalue ) = @_; |
| 1615 |
my $dbh = C4::Context->dbh; |
| 1616 |
my $query = qq|SELECT lib |
| 1617 |
FROM authorised_values |
| 1618 |
WHERE category=? |
| 1619 |
AND authorised_value=? |; |
| 1620 |
my $sth = $dbh->prepare($query); |
| 1621 |
$sth->execute( $category, $sortvalue ); |
| 1622 |
my $lib = $sth->fetchrow; |
| 1623 |
return ($lib) if ($lib); |
| 1624 |
return ($sortvalue) unless ($lib); |
| 1625 |
} |
| 1626 |
|
| 1627 |
=head2 MoveMemberToDeleted |
1601 |
=head2 MoveMemberToDeleted |
| 1628 |
|
1602 |
|
| 1629 |
$result = &MoveMemberToDeleted($borrowernumber); |
1603 |
$result = &MoveMemberToDeleted($borrowernumber); |