View | Details | Raw Unified | Return to bug 3150
Collapse All | Expand All

(-)a/opac/opac-sendshelf.pl (-9 lines)
Lines 60-74 if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) { Link Here
60
  if ( $email ) {
60
  if ( $email ) {
61
    my $comment    = $query->param('comment');
61
    my $comment    = $query->param('comment');
62
62
63
    my ( $template2, $borrowernumber, $cookie ) = get_template_and_user(
64
        {
65
            template_name   => "opac-sendshelf.tt",
66
            query           => $query,
67
            type            => "opac",
68
            authnotrequired => 1,
69
        }
70
    );
71
72
    my $patron = Koha::Patrons->find( $borrowernumber );
63
    my $patron = Koha::Patrons->find( $borrowernumber );
73
    my $user_email = $patron->first_valid_email_address;
64
    my $user_email = $patron->first_valid_email_address;
74
    my $shelf = Koha::Virtualshelves->find( $shelfid );
65
    my $shelf = Koha::Virtualshelves->find( $shelfid );
(-)a/virtualshelves/sendshelf.pl (-12 / +2 lines)
Lines 40-46 use Koha::Virtualshelves; Link Here
40
40
41
my $query = CGI->new;
41
my $query = CGI->new;
42
42
43
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
43
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
44
    {
44
    {
45
        template_name   => "virtualshelves/sendshelfform.tt",
45
        template_name   => "virtualshelves/sendshelfform.tt",
46
        query           => $query,
46
        query           => $query,
Lines 55-74 my $to_address = $query->param('email'); Link Here
55
my $shelf = Koha::Virtualshelves->find( $shelfid );
55
my $shelf = Koha::Virtualshelves->find( $shelfid );
56
56
57
output_and_exit( $query, $cookie, $template, 'insufficient_permission' )
57
output_and_exit( $query, $cookie, $template, 'insufficient_permission' )
58
    if $shelf && !$shelf->can_be_viewed( $loggedinuser );
58
    if $shelf && !$shelf->can_be_viewed( $borrowernumber );
59
59
60
if ($to_address) {
60
if ($to_address) {
61
    my $comment = $query->param('comment');
61
    my $comment = $query->param('comment');
62
62
63
    my ( $template2, $borrowernumber, $cookie ) = get_template_and_user(
64
        {
65
        template_name   => "virtualshelves/sendshelf.tt",
66
        query           => $query,
67
        type            => "intranet",
68
        flagsrequired   => { catalogue => 1 },
69
        }
70
    );
71
72
    my $patron = Koha::Patrons->find( $borrowernumber );
63
    my $patron = Koha::Patrons->find( $borrowernumber );
73
    my $user_email = $patron->first_valid_email_address;
64
    my $user_email = $patron->first_valid_email_address;
74
    my $contents = $shelf->get_contents;
65
    my $contents = $shelf->get_contents;
75
- 

Return to bug 3150