(bug #3651) sending baskets and shelves

this patch restrict the send of baskets and shelves to authenticated users only, and show their surname/firstname in the e-mail, so the receiver will know who sent the list.
This commit is contained in:
Nahuel ANGELINETTI 2009-09-21 15:08:27 +02:00 committed by Henri-Damien LAURENT
parent 067f40a287
commit f87b755228
4 changed files with 15 additions and 4 deletions

View file

@ -5,7 +5,7 @@ Your Cart
<HEADER>
Hi,
Here is your cart, sent from our online catalog.
<!-- TMPL_VAR NAME="firstname" --> <!-- TMPL_VAR NAME="surname" --> sent you a cart from our online catalog.
Please note that the attached file is a MARC biblographic records file
which can be imported into a Personal Bibliographic Software like EndNote,

View file

@ -5,7 +5,7 @@ Your List : <!-- TMPL_VAR NAME="shelfname" -->
<HEADER>
Hi,
Here is your list called <!-- TMPL_VAR NAME="shelfname" -->, sent from our online catalog.
<!-- TMPL_VAR NAME="firstname" --> <!-- TMPL_VAR NAME="surname" -->, sent you from our online catalog, the virtual shelf called : <!-- TMPL_VAR NAME="shelfname" -->.
Please note that the attached file is a MARC biblographic records file
which can be imported into a Personal Bibliographic Software like EndNote,

View file

@ -28,6 +28,7 @@ use C4::Items;
use C4::Auth;
use C4::Output;
use C4::Biblio;
use C4::Members;
my $query = new CGI;
@ -36,7 +37,7 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
template_name => "opac-sendbasketform.tmpl",
query => $query,
type => "opac",
authnotrequired => 1,
authnotrequired => 0,
flagsrequired => { borrow => 1 },
}
);
@ -99,10 +100,15 @@ if ( $email_add ) {
}
my $resultsarray = \@results;
my $user = GetMember($borrowernumber);
$template2->param(
BIBLIO_RESULTS => $resultsarray,
email_sender => $email_sender,
comment => $comment
comment => $comment,
firstname => $user->{firstname},
surname => $user->{surname},
);
# Getting template result

View file

@ -31,6 +31,7 @@ use C4::Biblio;
use C4::Items;
use C4::Output;
use C4::VirtualShelves;
use C4::Members;
my $query = new CGI;
@ -97,11 +98,15 @@ if ( $email ) {
push( @results, $dat );
}
my $user = GetMember($borrowernumber);
$template2->param(
BIBLIO_RESULTS => \@results,
email_sender => $email_from,
comment => $comment,
shelfname => $shelf[1],
firstname => $user->{firstname},
surname => $user->{surname},
);
# Getting template result