|
Lines 49-72
Review.pm provides many routines for manipulating reviews.
Link Here
|
| 49 |
|
49 |
|
| 50 |
=head1 FUNCTIONS |
50 |
=head1 FUNCTIONS |
| 51 |
|
51 |
|
| 52 |
=head2 savereview |
|
|
| 53 |
|
| 54 |
savereview($biblionumber,$borrowernumber, $review); |
| 55 |
|
| 56 |
Save a review in the 'reviews' database |
| 57 |
|
| 58 |
=cut |
| 59 |
|
| 60 |
sub savereview { |
| 61 |
my ( $biblionumber, $borrowernumber, $review ) = @_; |
| 62 |
my $dbh = C4::Context->dbh; |
| 63 |
my $query = "INSERT INTO reviews (borrowernumber,biblionumber, |
| 64 |
review,approved,datereviewed) VALUES |
| 65 |
(?,?,?,0,now())"; |
| 66 |
my $sth = $dbh->prepare($query); |
| 67 |
$sth->execute( $borrowernumber, $biblionumber, $review ); |
| 68 |
} |
| 69 |
|
| 70 |
=head2 numberofreviewsbybiblionumber |
52 |
=head2 numberofreviewsbybiblionumber |
| 71 |
|
53 |
|
| 72 |
my $count=numberofreviewsbybiblionumber($biblionumber); |
54 |
my $count=numberofreviewsbybiblionumber($biblionumber); |