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.
<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,
<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,
use C4::Auth;
use C4::Output;
use C4::Biblio;
+use C4::Members;
my $query = new CGI;
template_name => "opac-sendbasketform.tmpl",
query => $query,
type => "opac",
- authnotrequired => 1,
+ authnotrequired => 0,
flagsrequired => { borrow => 1 },
}
);
}
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
use C4::Items;
use C4::Output;
use C4::VirtualShelves;
+use C4::Members;
my $query = new CGI;
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