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

(-)a/C4/Items.pm (+4 lines)
Lines 3001-3006 sub PrepareItemrecordDisplay { Link Here
3001
                            push @authorised_values, $itemtype->{itemtype};
3001
                            push @authorised_values, $itemtype->{itemtype};
3002
                            $authorised_lib{$itemtype->{itemtype}} = $itemtype->{translated_description};
3002
                            $authorised_lib{$itemtype->{itemtype}} = $itemtype->{translated_description};
3003
                        }
3003
                        }
3004
                        if ($defaultvalues && $defaultvalues->{'itemtype'}) {
3005
                            $defaultvalue = $defaultvalues->{'itemtype'};
3006
                        }
3007
3004
                        #---- class_sources
3008
                        #---- class_sources
3005
                    } elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "cn_source" ) {
3009
                    } elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "cn_source" ) {
3006
                        push @authorised_values, "" unless ( $tagslib->{$tag}->{$subfield}->{mandatory} );
3010
                        push @authorised_values, "" unless ( $tagslib->{$tag}->{$subfield}->{mandatory} );
(-)a/C4/Serials.pm (-1 / +25 lines)
Lines 66-72 BEGIN { Link Here
66
    @EXPORT = qw(
66
    @EXPORT = qw(
67
      &NewSubscription    &ModSubscription    &DelSubscription
67
      &NewSubscription    &ModSubscription    &DelSubscription
68
      &GetSubscription    &CountSubscriptionFromBiblionumber      &GetSubscriptionsFromBiblionumber
68
      &GetSubscription    &CountSubscriptionFromBiblionumber      &GetSubscriptionsFromBiblionumber
69
      &SearchSubscriptions
69
      &SearchSubscriptions &GetItemnumberFromSerialId
70
      &GetFullSubscriptionsFromBiblionumber   &GetFullSubscription &ModSubscriptionHistory
70
      &GetFullSubscriptionsFromBiblionumber   &GetFullSubscription &ModSubscriptionHistory
71
      &HasSubscriptionStrictlyExpired &HasSubscriptionExpired &GetExpirationDate &abouttoexpire
71
      &HasSubscriptionStrictlyExpired &HasSubscriptionExpired &GetExpirationDate &abouttoexpire
72
      &GetSubscriptionHistoryFromSubscriptionId
72
      &GetSubscriptionHistoryFromSubscriptionId
Lines 183-188 sub GetSerialStatusFromSerialId { Link Here
183
    return $dbh->prepare($query);
183
    return $dbh->prepare($query);
184
}
184
}
185
185
186
=head2 GetItemnumberFromSerialId
187
188
$itemnumber = GetSerialInformation($serialid);
189
this function returns the itemnumber, given a serialid in parameter
190
return : itemnumber
191
192
=cut
193
194
sub GetItemnumberFromSerialId {
195
    my ($serialid) = @_;
196
    my $dbh   = C4::Context->dbh;
197
    my $query = qq|
198
        SELECT itemnumber
199
        FROM   serialitems
200
        WHERE  serialid = ?
201
    |;
202
    my $sth = $dbh->prepare($query);
203
    $sth->execute($serialid);
204
    my ($result) = $sth->fetchrow;
205
    return ($result);
206
}
207
208
209
186
=head2 GetSerialInformation
210
=head2 GetSerialInformation
187
211
188
212
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/serials.pref (-1 / +1 lines)
Lines 55-58 Serials: Link Here
55
          choices:
55
          choices:
56
            yes: Make
56
            yes: Make
57
            no: Do not make
57
            no: Do not make
58
        - previous serial automatically available when collecting a new serial. Please note that the item-level_itypes syspref must be set to specific item.
58
        - previous serial automatically available when receiving a new serial issue. The previous issue can also be set to another item type when receiving a new one. Please note that the item-level_itypes syspref must be set to specific item.
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/subscription-add.tt (-1 / +1 lines)
Lines 666-672 $(document).ready(function() { Link Here
666
                                </li>
666
                                </li>
667
                                [%IF makePreviousSerialAvailable %]
667
                                [%IF makePreviousSerialAvailable %]
668
                                <li>
668
                                <li>
669
                                    <label for="previousitemtype">Previous item type:</label>
669
                                    <label for="previousitemtype">item type for older issues:</label>
670
                                    <select name="previousitemtype" id="previousitemtype">
670
                                    <select name="previousitemtype" id="previousitemtype">
671
                                            <option value=""></option>
671
                                            <option value=""></option>
672
                                        [% FOREACH previous IN previoustypeloop %]
672
                                        [% FOREACH previous IN previoustypeloop %]
(-)a/serials/serials-edit.pl (-8 / +1 lines)
Lines 256-268 if ( $op and $op eq 'serialchangestatus' ) { Link Here
256
            my $previous = GetPreviousSerialid($subscriptionids[$i]);
256
            my $previous = GetPreviousSerialid($subscriptionids[$i]);
257
            if ($previous) {
257
            if ($previous) {
258
258
259
                # Getting the itemnumber matching the serialid
259
                if (my $itemnumber = GetItemnumberFromSerialId($previous)) {
260
                my $query = "SELECT itemnumber FROM serialitems WHERE serialid=?";
261
                my $sth = $dbh->prepare($query);
262
                $sth->execute($previous);
263
                my @row = $sth->fetchrow_array;
264
                if ($row[0]) {
265
                    my $itemnumber = $row[0];
266
260
267
                    # Getting the itemtype to set from the database
261
                    # Getting the itemtype to set from the database
268
                    my $subscriptioninfos = GetSubscription($subscriptionids[$i]);
262
                    my $subscriptioninfos = GetSubscription($subscriptionids[$i]);
269
- 

Return to bug 7677