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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/virtualshelves/sendshelfform.tt (+1 lines)
Lines 3-8 Link Here
3
[% INCLUDE 'doc-head-close.inc' %]
3
[% INCLUDE 'doc-head-close.inc' %]
4
</head>
4
</head>
5
<body id="lists_sendshelfform" class="lists" style="padding: 1em;">
5
<body id="lists_sendshelfform" class="lists" style="padding: 1em;">
6
[% INCLUDE 'blocking_errors.inc' %]
6
<div class="container">[% IF ( email ) %]
7
<div class="container">[% IF ( email ) %]
7
8
8
    [% IF ( SENT ) %]
9
    [% IF ( SENT ) %]
(-)a/virtualshelves/sendshelf.pl (-5 / +9 lines)
Lines 31-43 use C4::Biblio qw( Link Here
31
    GetMarcSubjects
31
    GetMarcSubjects
32
);
32
);
33
use C4::Items qw( GetItemsInfo );
33
use C4::Items qw( GetItemsInfo );
34
use C4::Output qw( output_html_with_http_headers );
34
use C4::Output qw(
35
    output_html_with_http_headers
36
    output_and_exit
37
);
35
use Koha::Email;
38
use Koha::Email;
36
use Koha::Virtualshelves;
39
use Koha::Virtualshelves;
37
40
38
my $query = CGI->new;
41
my $query = CGI->new;
39
42
40
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
43
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
41
    {
44
    {
42
        template_name   => "virtualshelves/sendshelfform.tt",
45
        template_name   => "virtualshelves/sendshelfform.tt",
43
        query           => $query,
46
        query           => $query,
Lines 49-55 my ( $template, $borrowernumber, $cookie ) = get_template_and_user( Link Here
49
my $shelfid    = $query->param('shelfid');
52
my $shelfid    = $query->param('shelfid');
50
my $to_address = $query->param('email');
53
my $to_address = $query->param('email');
51
54
52
my $dbh = C4::Context->dbh;
55
my $shelf = Koha::Virtualshelves->find( $shelfid );
56
57
output_and_exit( $query, $cookie, $template, 'insufficient_permission' )
58
    if $shelf && !$shelf->can_be_viewed( $loggedinuser );
53
59
54
if ($to_address) {
60
if ($to_address) {
55
    my $comment = $query->param('comment');
61
    my $comment = $query->param('comment');
Lines 63-69 if ($to_address) { Link Here
63
        }
69
        }
64
    );
70
    );
65
71
66
    my $shelf = Koha::Virtualshelves->find( $shelfid );
67
    my $contents = $shelf->get_contents;
72
    my $contents = $shelf->get_contents;
68
    my $marcflavour = C4::Context->preference('marcflavour');
73
    my $marcflavour = C4::Context->preference('marcflavour');
69
    my $iso2709;
74
    my $iso2709;
70
- 

Return to bug 29542