7690cd5ad1
This patch adds a new DB field serial.claims_count
This field already exists for late orders. It makes sense to introduce
it for serial.
Test plan:
0/
a) Does not apply the patch.
b) Remove all your claimissues notices and be sure you have some serial issues
in late.
c) remove email address for the vendor you will use.
d) remove email address for the logged in user.
e) Export claims using the csv export => The selected issues will be
marked as claimed.
f) logout/login (to update the email address).
1/ Apply the patch and execute the updatedb entry.
2/ Go on the Serials > Claims page
3/ Verify that you get a warning message 'No claimissue notice defined'
4/ Verify the vendor list is correct (with the number of serial in late.
You should not get any changes here.
5/ Select one vendor and verify that the issue which was claimed before
has a claim count set to 1.
6/ Verify that you are not able to send notification to the vendor.
7/ Create a claimissue notice.
Something like:
<<LibrarianFirstname>>
<<LibrarianSurname>>
The following issues are in late:
<order><<biblio.title>>, <<biblio.author>> (<<biblio.serial>>)</order>
8/ Go on the Serials > Claims page, the warning message does not appear
anymore.
9/ Select issues. Select a notice. And "Send notification".
You should get an error (no email defined for this vendor).
10/ Add an email for the vendor.
11/ Select issues. Select a notice. And "Send notification".
You should get an error (no email defined for your user).
12/ Add an email address to your user
logout/login
13/ Select issues. Select a notice. And "Send notification".
You should get a happy message: the email has been sent!
14/ The email will contain the order tags if bug 12851 is not
pushed/applied.
Signed-off-by: Paola Rossi <paola.rossi@cineca.it>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Works as described, some small issues fixed in a follow-up.
Note: If you change the email address of your staff user, you will
have to log out and back in to make the change take effect.
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
245 lines
9.5 KiB
Perl
245 lines
9.5 KiB
Perl
#!/usr/bin/perl
|
|
use Modern::Perl;
|
|
|
|
use Test::More tests => 36;
|
|
|
|
use MARC::Record;
|
|
|
|
use C4::Biblio qw( AddBiblio );
|
|
use C4::Members qw( AddMember );
|
|
use t::lib::Mocks;
|
|
use_ok('C4::Serials');
|
|
use_ok('C4::Budgets');
|
|
|
|
# Mock userenv
|
|
local $SIG{__WARN__} = sub { warn $_[0] unless $_[0] =~ /redefined/ };
|
|
my $userenv;
|
|
*C4::Context::userenv = \&Mock_userenv;
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
$dbh->{AutoCommit} = 0;
|
|
$dbh->{RaiseError} = 1;
|
|
|
|
my $record = MARC::Record->new();
|
|
$record->append_fields(
|
|
MARC::Field->new( '952', '0', '0', a => 'CPL', b => 'CPL' )
|
|
);
|
|
my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio($record, '');
|
|
|
|
my $my_branch = 'CPL';
|
|
my $another_branch = 'MPL';
|
|
my $budgetid;
|
|
my $bpid = AddBudgetPeriod({
|
|
budget_period_startdate => '2015-01-01',
|
|
budget_period_enddate => '2015-12-31',
|
|
budget_period_description => "budget desc"
|
|
});
|
|
|
|
my $budget_id = AddBudget({
|
|
budget_code => "ABCD",
|
|
budget_amount => "123.132",
|
|
budget_name => "Périodiques",
|
|
budget_notes => "This is a note",
|
|
budget_period_id => $bpid
|
|
});
|
|
|
|
my $subscriptionid_from_my_branch = NewSubscription(
|
|
undef, $my_branch, undef, undef, $budget_id, $biblionumber,
|
|
'2013-01-01', undef, undef, undef, undef,
|
|
undef, undef, undef, undef, undef, undef,
|
|
1, "notes",undef, '2013-01-01', undef, undef,
|
|
undef, undef, 0, "intnotes", 0,
|
|
undef, undef, 0, undef, '2013-12-31', 0
|
|
);
|
|
die unless $subscriptionid_from_my_branch;
|
|
|
|
my $subscriptionid_from_another_branch = NewSubscription(
|
|
undef, $another_branch, undef, undef, $budget_id, $biblionumber,
|
|
'2013-01-01', undef, undef, undef, undef,
|
|
undef, undef, undef, undef, undef, undef,
|
|
1, "notes",undef, '2013-01-01', undef, undef,
|
|
undef, undef, 0, "intnotes", 0,
|
|
undef, undef, 0, undef, '2013-12-31', 0
|
|
);
|
|
|
|
|
|
my $subscription_from_my_branch = GetSubscription( $subscriptionid_from_my_branch );
|
|
is( C4::Serials::can_edit_subscription($subscription_from_my_branch), 0, "cannot edit a subscription without userenv set");
|
|
|
|
my $userid = 'my_userid';
|
|
my $borrowernumber = C4::Members::AddMember(
|
|
firstname => 'my fistname',
|
|
surname => 'my surname',
|
|
categorycode => 'S',
|
|
branchcode => $my_branch,
|
|
userid => $userid,
|
|
);
|
|
|
|
$userenv = { flags => 1, id => $borrowernumber, branch => '' };
|
|
|
|
# Can edit a subscription
|
|
|
|
is( C4::Serials::can_edit_subscription($subscription_from_my_branch), 1, "User can edit a subscription with an empty branchcode");
|
|
|
|
my $subscription_from_another_branch = GetSubscription( $subscriptionid_from_another_branch );
|
|
|
|
$userenv->{id} = $userid;
|
|
$userenv->{branch} = $my_branch;
|
|
|
|
# Branches are independent
|
|
t::lib::Mocks::mock_preference( "IndependentBranches", 1 );
|
|
set_flags( 'superlibrarian', $borrowernumber );
|
|
is( C4::Serials::can_edit_subscription($subscription_from_my_branch), 1,
|
|
"With IndependentBranches, superlibrarian can edit a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_edit_subscription($subscription_from_another_branch), 1,
|
|
"With IndependentBranches, superlibrarian can edit a subscription from another branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_my_branch), 1,
|
|
"With IndependentBranches, superlibrarian can show a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_another_branch), 1,
|
|
"With IndependentBranches, superlibrarian can show a subscription from another branch"
|
|
);
|
|
|
|
set_flags( 'superserials', $borrowernumber );
|
|
is( C4::Serials::can_edit_subscription($subscription_from_my_branch), 1,
|
|
"With IndependentBranches, superserials can edit a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_edit_subscription($subscription_from_another_branch), 1,
|
|
"With IndependentBranches, superserials can edit a subscription from another branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_my_branch), 1,
|
|
"With IndependentBranches, superserials can show a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_another_branch), 1,
|
|
"With IndependentBranches, superserials can show a subscription from another branch"
|
|
);
|
|
|
|
|
|
set_flags( 'edit_subscription', $borrowernumber );
|
|
is( C4::Serials::can_edit_subscription($subscription_from_my_branch), 1,
|
|
"With IndependentBranches, edit_subscription can edit a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_edit_subscription($subscription_from_another_branch), 0,
|
|
"With IndependentBranches, edit_subscription cannot edit a subscription from another branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_my_branch), 1,
|
|
"With IndependentBranches, show_subscription can show a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_another_branch), 0,
|
|
"With IndependentBranches, show_subscription cannot show a subscription from another branch"
|
|
);
|
|
|
|
set_flags( 'renew_subscription', $borrowernumber );
|
|
is( C4::Serials::can_edit_subscription($subscription_from_my_branch), 0,
|
|
"With IndependentBranches, renew_subscription cannot edit a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_edit_subscription($subscription_from_another_branch), 0,
|
|
"With IndependentBranches, renew_subscription cannot edit a subscription from another branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_my_branch), 1,
|
|
"With IndependentBranches, renew_subscription can show a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_another_branch), 0,
|
|
"With IndependentBranches, renew_subscription cannot show a subscription from another branch"
|
|
);
|
|
|
|
|
|
# Branches are not independent
|
|
t::lib::Mocks::mock_preference( "IndependentBranches", 0 );
|
|
set_flags( 'superlibrarian', $borrowernumber );
|
|
is( C4::Serials::can_edit_subscription($subscription_from_my_branch), 1,
|
|
"Without IndependentBranches, superlibrarian can edit a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_edit_subscription($subscription_from_another_branch), 1,
|
|
"Without IndependentBranches, superlibrarian can edit a subscription from another branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_my_branch), 1,
|
|
"Without IndependentBranches, superlibrarian can show a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_another_branch), 1,
|
|
"Without IndependentBranches, superlibrarian can show a subscription from another branch"
|
|
);
|
|
|
|
set_flags( 'superserials', $borrowernumber );
|
|
is( C4::Serials::can_edit_subscription($subscription_from_my_branch), 1,
|
|
"Without IndependentBranches, superserials can edit a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_edit_subscription($subscription_from_another_branch), 1,
|
|
"Without IndependentBranches, superserials can edit a subscription from another branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_my_branch), 1,
|
|
"Without IndependentBranches, superserials can show a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_another_branch), 1,
|
|
"Without IndependentBranches, superserials can show a subscription from another branch"
|
|
);
|
|
|
|
set_flags( 'edit_subscription', $borrowernumber );
|
|
is( C4::Serials::can_edit_subscription($subscription_from_my_branch), 1,
|
|
"Without IndependentBranches, edit_subscription can edit a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_edit_subscription($subscription_from_another_branch), 1,
|
|
"Without IndependentBranches, edit_subscription can edit a subscription from another branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_my_branch), 1,
|
|
"Without IndependentBranches, show_subscription can show a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_another_branch), 1,
|
|
"Without IndependentBranches, show_subscription can show a subscription from another branch"
|
|
);
|
|
|
|
set_flags( 'renew_subscription', $borrowernumber );
|
|
is( C4::Serials::can_edit_subscription($subscription_from_my_branch), 0,
|
|
"Without IndependentBranches, renew_subscription cannot edit a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_edit_subscription($subscription_from_another_branch), 0,
|
|
"Without IndependentBranches, renew_subscription cannot edit a subscription from another branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_my_branch), 1,
|
|
"Without IndependentBranches, renew_subscription cannot show a subscription from his branch"
|
|
);
|
|
is( C4::Serials::can_show_subscription($subscription_from_another_branch), 1,
|
|
"Without IndependentBranches, renew_subscription cannot show a subscription from another branch"
|
|
);
|
|
|
|
$dbh->rollback;
|
|
|
|
# C4::Context->userenv
|
|
sub Mock_userenv {
|
|
return $userenv;
|
|
}
|
|
|
|
sub set_flags {
|
|
my ( $flags, $borrowernumber ) = @_;
|
|
my $superlibrarian_flags = 1;
|
|
if ( $flags eq 'superlibrarian' ) {
|
|
$dbh->do(
|
|
q|
|
|
UPDATE borrowers SET flags=? WHERE borrowernumber=?
|
|
|, {}, $superlibrarian_flags, $borrowernumber
|
|
);
|
|
$userenv->{flags} = $superlibrarian_flags;
|
|
}
|
|
else {
|
|
$dbh->do(
|
|
q|
|
|
UPDATE borrowers SET flags=? WHERE borrowernumber=?
|
|
|, {}, 0, $borrowernumber
|
|
);
|
|
$userenv->{flags} = 0;
|
|
my ( $module_bit, $code ) = ( '15', $flags );
|
|
$dbh->do(
|
|
q|
|
|
DELETE FROM user_permissions where borrowernumber=?
|
|
|, {}, $borrowernumber
|
|
);
|
|
|
|
$dbh->do(
|
|
q|
|
|
INSERT INTO user_permissions( borrowernumber, module_bit, code ) VALUES ( ?, ?, ? )
|
|
|, {}, $borrowernumber, $module_bit, $code
|
|
);
|
|
}
|
|
}
|