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

(-)a/Koha/Item.pm (-10 / +17 lines)
Lines 76-89 sub store { Link Here
76
        $self->itype($self->biblio->biblioitem->itemtype);
76
        $self->itype($self->biblio->biblioitem->itemtype);
77
    }
77
    }
78
78
79
    my %updated_columns = $self->_result->get_dirty_columns;
80
    if (   exists $updated_columns{itemcallnumber}
81
        or exists $updated_columns{cn_source} )
82
    {
83
        my $cn_sort = GetClassSort( $self->cn_source, $self->itemcallnumber, "" );
84
        $self->cn_sort($cn_sort);
85
    }
86
87
    my $today = dt_from_string;
79
    my $today = dt_from_string;
88
    unless ( $self->in_storage ) { #AddItem
80
    unless ( $self->in_storage ) { #AddItem
89
        unless ( $self->permanent_location ) {
81
        unless ( $self->permanent_location ) {
Lines 100-105 sub store { Link Here
100
            $self->dateaccessioned($today);
92
            $self->dateaccessioned($today);
101
        }
93
        }
102
94
95
        if (   $self->itemcallnumber
96
            or $self->cn_source )
97
        {
98
            my $cn_sort = GetClassSort( $self->cn_source, $self->itemcallnumber, "" );
99
            $self->cn_sort($cn_sort);
100
        }
101
103
        C4::Biblio::ModZebra( $self->biblionumber, "specialUpdate", "biblioserver" );
102
        C4::Biblio::ModZebra( $self->biblionumber, "specialUpdate", "biblioserver" );
104
103
105
        logaction( "CATALOGUING", "ADD", $self->itemnumber, "item" )
104
        logaction( "CATALOGUING", "ADD", $self->itemnumber, "item" )
Lines 138-145 sub store { Link Here
138
            }
137
            }
139
        }
138
        }
140
139
141
        %updated_columns = $self->_result->get_dirty_columns;
140
        my %updated_columns = $self->_result->get_dirty_columns;
142
        return $self->SUPER::store unless %updated_columns;
141
        return $self->SUPER::store unless %updated_columns;
142
143
        if (   exists $updated_columns{itemcallnumber}
144
            or exists $updated_columns{cn_source} )
145
        {
146
            my $cn_sort = GetClassSort( $self->cn_source, $self->itemcallnumber, "" );
147
            $self->cn_sort($cn_sort);
148
        }
149
150
143
        if (    exists $updated_columns{location}
151
        if (    exists $updated_columns{location}
144
            and $self->location ne 'CART'
152
            and $self->location ne 'CART'
145
            and $self->location ne 'PROC'
153
            and $self->location ne 'PROC'
146
- 

Return to bug 23463