# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
use CGI;
use Encode qw(encode);
+use Carp;
use Mail::Sendmail;
use MIME::QuotedPrint;
use C4::Items;
use C4::Output;
use C4::VirtualShelves;
+use C4::Members;
my $query = new CGI;
my $dbh = C4::Context->dbh;
+if ( ShelfPossibleAction( (defined($borrowernumber) ? $borrowernumber : -1), $shelfid, 'view' ) ) {
+
if ( $email ) {
my $email_from = C4::Context->preference('KohaAdminEmailAddress');
my $comment = $query->param('comment');
push( @results, $dat );
}
+ my $user = GetMember(borrowernumber => $borrowernumber);
+
$template2->param(
BIBLIO_RESULTS => \@results,
email_sender => $email_from,
comment => $comment,
shelfname => $shelf[1],
+ firstname => $user->{firstname},
+ surname => $user->{surname},
);
# Getting template result
}
else {
# do something if it doesnt work....
- warn "Error sending mail: $Mail::Sendmail::error \n";
+ carp "Error sending mail: $Mail::Sendmail::error \n";
$template->param( error => 1 );
}
);
output_html_with_http_headers $query, $cookie, $template->output;
}
+
+} else {
+ $template->param( invalidlist => 1,
+ url => "/cgi-bin/koha/opac-sendshelf.pl",
+ );
+ output_html_with_http_headers $query, $cookie, $template->output;
+}
\ No newline at end of file