|
Lines 70-76
BEGIN {
Link Here
|
| 70 |
&GetNoticeEmailAddress |
70 |
&GetNoticeEmailAddress |
| 71 |
|
71 |
|
| 72 |
&GetAge |
72 |
&GetAge |
| 73 |
&GetSortDetails |
|
|
| 74 |
&GetTitles |
73 |
&GetTitles |
| 75 |
|
74 |
|
| 76 |
&GetHideLostItemsPreference |
75 |
&GetHideLostItemsPreference |
|
Lines 1496-1526
sub SetAge{
Link Here
|
| 1496 |
return $borrower; |
1495 |
return $borrower; |
| 1497 |
} # sub SetAge |
1496 |
} # sub SetAge |
| 1498 |
|
1497 |
|
| 1499 |
=head2 GetSortDetails (OUEST-PROVENCE) |
|
|
| 1500 |
|
| 1501 |
($lib) = &GetSortDetails($category,$sortvalue); |
| 1502 |
|
| 1503 |
Returns the authorized value details |
| 1504 |
C<&$lib>return value of authorized value details |
| 1505 |
C<&$sortvalue>this is the value of authorized value |
| 1506 |
C<&$category>this is the value of authorized value category |
| 1507 |
|
| 1508 |
=cut |
| 1509 |
|
| 1510 |
sub GetSortDetails { |
| 1511 |
my ( $category, $sortvalue ) = @_; |
| 1512 |
my $dbh = C4::Context->dbh; |
| 1513 |
my $query = qq|SELECT lib |
| 1514 |
FROM authorised_values |
| 1515 |
WHERE category=? |
| 1516 |
AND authorised_value=? |; |
| 1517 |
my $sth = $dbh->prepare($query); |
| 1518 |
$sth->execute( $category, $sortvalue ); |
| 1519 |
my $lib = $sth->fetchrow; |
| 1520 |
return ($lib) if ($lib); |
| 1521 |
return ($sortvalue) unless ($lib); |
| 1522 |
} |
| 1523 |
|
| 1524 |
=head2 MoveMemberToDeleted |
1498 |
=head2 MoveMemberToDeleted |
| 1525 |
|
1499 |
|
| 1526 |
$result = &MoveMemberToDeleted($borrowernumber); |
1500 |
$result = &MoveMemberToDeleted($borrowernumber); |