use C4::Serials::Frequency;
use C4::Serials::Numberpattern;
use C4::Letters;
-use Koha::AdditionalField;
+use Koha::AdditionalFields;
use Koha::Biblios;
use Koha::DateUtils;
use Koha::ItemTypes;
my $permission =
( $op eq 'modify' || $op eq 'modsubscription' ) ? "edit_subscription" : "create_subscription";
-my ($template, $loggedinuser, $cookie)
+our ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/subscription-add.tt",
query => $query,
type => "intranet",
my $subs;
our $firstissuedate;
+my $mana_url = C4::Context->config('mana_config');
+$template->param( 'mana_url' => $mana_url );
+my $subscriptionid = $query->param('subscriptionid');
+
if ($op eq 'modify' || $op eq 'dup' || $op eq 'modsubscription') {
- my $subscriptionid = $query->param('subscriptionid');
$subs = GetSubscription($subscriptionid);
output_and_exit( $query, $cookie, $template, 'unknown_subscription')
locations_loop=>$locations_loop,
);
-
-my $additional_fields = Koha::AdditionalField->all( { tablename => 'subscription' } );
-for my $field ( @$additional_fields ) {
- if ( $field->{authorised_value_category} ) {
- $field->{authorised_value_choices} = GetAuthorisedValues( $field->{authorised_value_category} );
+my @additional_fields = Koha::AdditionalFields->search({ tablename => 'subscription' });
+my %additional_field_values;
+if ($subscriptionid) {
+ my $subscription = Koha::Subscriptions->find($subscriptionid);
+ foreach my $value ($subscription->additional_field_values->as_list) {
+ $additional_field_values{$value->field_id} = $value->value;
}
}
-$template->param( additional_fields_for_subscription => $additional_fields );
+
+$template->param(
+ additional_fields => \@additional_fields,
+ additional_field_values => \%additional_field_values,
+);
my $typeloop = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };
$template->param( locales => $languages );
+ my @bookseller_ids = Koha::Acquisition::Booksellers->search->get_column('id');
+ $template->param( bookseller_ids => \@bookseller_ids );
+
output_html_with_http_headers $query, $cookie, $template->output;
}
];
}
-sub _get_sub_length {
- my ($type, $length) = @_;
- return
- (
- $type eq 'issues' ? $length : 0,
- $type eq 'weeks' ? $length : 0,
- $type eq 'months' ? $length : 0,
- );
-}
-
sub _guess_enddate {
my ($startdate_iso, $frequencyid, $numberlength, $weeklength, $monthlength) = @_;
my ($year, $month, $day);
return $enddate;
}
-sub manage_subscription_numbering_pattern_id {
- my $params;
- if ( $query->param('numbering_pattern') eq 'mana' ) {
- foreach (qw/numberingmethod label1 add1 every1 whenmorethan1 setto1
- numbering1 label2 add2 every2 whenmorethan2 setto2 numbering2
- label3 add3 every3 whenmorethan3 setto3 numbering3/) {
- $params->{$_} = $query->param($_) if $query->param($_);
- }
-
- my $existing = Koha::Subscription::Numberpatterns->search($params)->next();
-
- if ($existing) {
- return $existing->id;
- }
-
- $params->{label} = Koha::Subscription::Numberpattern->uniqueLabel($query->param('patternname'));
- $params->{description} = $query->param('sndescription');
-
-
- my $subscription_np = Koha::Subscription::Numberpattern->new()->set($params)->store();
- return $subscription_np->id;
- }
-
- return $query->param('numbering_pattern');
-}
-
-sub manage_subscription_frequencies_id {
- my $periodicity;
- if ( $query->param('frequency') eq 'mana' ) {
+sub redirect_add_subscription {
+ my $periodicity = $query->param('frequency');
+ if ($periodicity eq 'mana') {
my $subscription_freq = Koha::Subscription::Frequency->new()->set(
{
description => $query->param('sfdescription'),
)->store();
$periodicity = $subscription_freq->id;
}
- else {
- $periodicity = $query->param('frequency');
- }
- return $periodicity;
-}
-
-sub redirect_add_subscription {
- my $periodicity = manage_subscription_frequencies_id();
- my $numberpattern = manage_subscription_numbering_pattern_id();
+ my $numberpattern = Koha::Subscription::Numberpatterns->new_or_existing({ $query->Vars });
my $auser = $query->param('user');
my $branchcode = $query->param('branchcode');
my $subtype = $query->param('subtype');
my $sublength = $query->param('sublength');
my ( $numberlength, $weeklength, $monthlength )
- = _get_sub_length( $subtype, $sublength );
+ = GetSubscriptionLength( $subtype, $sublength );
my $add1 = $query->param('add1');
my $lastvalue1 = $query->param('lastvalue1');
my $innerloop1 = $query->param('innerloop1');
my $mana_id;
if ( $query->param('mana_id') ne "" ) {
$mana_id = $query->param('mana_id');
- Koha::SharedContent::manaNewUserPatchRequest("subscription",$mana_id);
- }
- else {
- $mana_id = undef;
+ Koha::SharedContent::increment_entity_value("subscription",$mana_id, "nbofusers");
}
my $startdate = output_pref( { str => scalar $query->param('startdate'), dateonly => 1, dateformat => 'iso' } );
$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate,
$skip_serialseq, $itemtype, $previousitemtype, $mana_id
);
+ if ( (C4::Context->preference('Mana') == 1) and ( grep { $_ eq "subscription" } split(/,/, C4::Context->preference('AutoShareWithMana'))) ){
+ my $result = Koha::SharedContent::send_entity( $query->param('mana_language') || '', $loggedinuser, $subscriptionid, 'subscription');
+ $template->param( mana_msg => $result->{msg} );
+ }
- my $additional_fields = Koha::AdditionalField->all( { tablename => 'subscription' } );
- insert_additional_fields( $additional_fields, $biblionumber, $subscriptionid );
+ my @additional_fields;
+ my $record = GetMarcBiblio({ biblionumber => $biblionumber, embed_items => 1 });
+ my $subscription_fields = Koha::AdditionalFields->search({ tablename => 'subscription' });
+ while ( my $field = $subscription_fields->next ) {
+ my $value = $query->param('additional_field_' . $field->id);
+ if ($field->marcfield) {
+ my ($field, $subfield) = split /\$/, $field->marcfield;
+ if ( $record and $field and $subfield ) {
+ $value = $record->subfield( $field, $subfield );
+ }
+ }
+ push @additional_fields, {
+ id => $field->id,
+ value => $value,
+ };
+ }
+ Koha::Subscriptions->find($subscriptionid)->set_additional_fields(\@additional_fields);
print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");
return;
? output_pref( { str => $nextacquidate, dateonly => 1, dateformat => 'iso' } )
: $firstacquidate;
- my $periodicity = manage_subscription_frequencies_id();
- my $numberpattern = manage_subscription_numbering_pattern_id();
+ my $periodicity = $query->param('frequency');
+ if ($periodicity eq 'mana') {
+ my $subscription_freq = Koha::Subscription::Frequency->new()->set(
+ {
+ description => $query->param('sfdescription'),
+ unit => $query->param('unit'),
+ unitsperissue => $query->param('unitsperissue'),
+ issuesperunit => $query->param('issuesperunit'),
+ }
+ )->store();
+ $periodicity = $subscription_freq->id;
+ }
+ my $numberpattern = Koha::Subscription::Numberpatterns->new_or_existing({ $query->Vars });
my $subtype = $query->param('subtype');
my $sublength = $query->param('sublength');
- my ($numberlength, $weeklength, $monthlength)
- = _get_sub_length( $subtype, $sublength );
+ my ($numberlength, $weeklength, $monthlength) = GetSubscriptionLength( $subtype, $sublength );
my $locale = $query->param('locale');
my $lastvalue1 = $query->param('lastvalue1');
my $innerloop1 = $query->param('innerloop1');
my $skip_serialseq = $query->param('skip_serialseq');
my $mana_id;
- if ( defined( $query->param('mana_id') ) ) {
+ if ( $query->param('mana_id') ne "" ) {
$mana_id = $query->param('mana_id');
- Koha::SharedContent::manaNewUserPatchRequest("subscription",$mana_id);
+ Koha::SharedContent::increment_entity_value("subscription",$mana_id, "nbofusers");
}
else {
$mana_id = undef;
$skip_serialseq, $itemtype, $previousitemtype, $mana_id
);
- my $additional_fields = Koha::AdditionalField->all( { tablename => 'subscription' } );
- insert_additional_fields( $additional_fields, $biblionumber, $subscriptionid );
-
- print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");
- return;
-}
-
-sub insert_additional_fields {
- my ( $additional_fields, $biblionumber, $subscriptionid ) = @_;
- my $record = GetMarcBiblio({
- biblionumber => $biblionumber,
- embed_items => 1 });
- for my $field ( @$additional_fields ) {
- my $af = Koha::AdditionalField->new({ id => $field->{id} })->fetch;
- if ( $af->{marcfield} ) {
- my ( $field, $subfield ) = split /\$/, $af->{marcfield};
- $af->{values} = undef;
- if ( $field and $subfield ) {
- my $value = $record->subfield( $field, $subfield );
- $af->{values} = {
- $subscriptionid => $value
- };
+ my @additional_fields;
+ my $record = GetMarcBiblio({ biblionumber => $biblionumber, embed_items => 1 });
+ my $subscription_fields = Koha::AdditionalFields->search({ tablename => 'subscription' });
+ while ( my $field = $subscription_fields->next ) {
+ my $value = $query->param('additional_field_' . $field->id);
+ if ($field->marcfield) {
+ my ($field, $subfield) = split /\$/, $field->marcfield;
+ if ( $record and $field and $subfield ) {
+ $value = $record->subfield( $field, $subfield );
}
- } else {
- $af->{values} = {
- $subscriptionid => scalar $query->param('additional_field_' . $field->{id})
- } if defined $query->param('additional_field_' . $field->{id});
}
- $af->insert_values;
+ push @additional_fields, {
+ id => $field->id,
+ value => $value,
+ };
}
+ Koha::Subscriptions->find($subscriptionid)->set_additional_fields(\@additional_fields);
+
+ print $query->redirect("/cgi-bin/koha/serials/subscription-detail.pl?subscriptionid=$subscriptionid");
+ return;
}