Attachment #15890 for bug #9673

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





    $item->{onloan} = undef if $item->{itemlost};

    for my $field ( qw( itemlost wthdrawn ) ) {
        if ( defined( $item->{$field} ) ) {
            if ( $item->{$field} ) {
                $item->{$field . '_on'} = DateTime::Format::MySQL->format_datetime( DateTime->now() );
            } else {
                $item->{$field . '_on'} = undef;
            }
        }
    }

    _set_derived_columns_for_mod($item);
    _do_column_fixes_for_mod($item);
    # FIXME add checks

Lines 1046-1052 CREATE TABLE `items` ( -- holdings/item information Link Here

(-)a/installer/data/mysql/kohastructure.sql (+2 lines)
1046	`notforloan` tinyint(1) NOT NULL default 0, -- authorized value defining why this item is not for loan (MARC21 952$7)	1046	`notforloan` tinyint(1) NOT NULL default 0, -- authorized value defining why this item is not for loan (MARC21 952$7)
1047	`damaged` tinyint(1) NOT NULL default 0, -- authorized value defining this item as damaged (MARC21 952$4)	1047	`damaged` tinyint(1) NOT NULL default 0, -- authorized value defining this item as damaged (MARC21 952$4)
1048	`itemlost` tinyint(1) NOT NULL default 0, -- authorized value defining this item as lost (MARC21 952$1)	1048	`itemlost` tinyint(1) NOT NULL default 0, -- authorized value defining this item as lost (MARC21 952$1)
		1049	`itemlost_on` datetime DEFAULT NULL, -- the date and time an item was last marked as lost, NULL if not lost
1049	`wthdrawn` tinyint(1) NOT NULL default 0, -- authorized value defining this item as withdrawn (MARC21 952$0)	1050	`wthdrawn` tinyint(1) NOT NULL default 0, -- authorized value defining this item as withdrawn (MARC21 952$0)
		1051	`wthdrawn_on` datetime DEFAULT NULL, -- the date and time an item was last marked as withdrawn, NULL if not withdrawn
1050	`itemcallnumber` varchar(255) default NULL, -- call number for this item (MARC21 952$o)	1052	`itemcallnumber` varchar(255) default NULL, -- call number for this item (MARC21 952$o)
1051	`coded_location_qualifier` varchar(10) default NULL, -- coded location qualifier(MARC21 952$f)	1053	`coded_location_qualifier` varchar(10) default NULL, -- coded location qualifier(MARC21 952$f)
1052	`issues` smallint(6) default NULL, -- number of times this item has been checked out/issued	1054	`issues` smallint(6) default NULL, -- number of times this item has been checked out/issued

Lines 6444-6449 if ( CheckVersion($DBversion) ) { Link Here

(-)a/installer/data/mysql/updatedatabase.pl (+9 lines)
6444	SetVersion($DBversion);	6444	SetVersion($DBversion);
6445	}	6445	}
6446		6446
		6447	$DBversion = "3.11.00.XXX";
		6448	if ( CheckVersion($DBversion) ) {
		6449	$dbh->do("ALTER TABLE items ADD itemlost_on DATETIME NULL AFTER itemlost");
		6450	$dbh->do("ALTER TABLE items ADD wthdrawn_on DATETIME NULL AFTER wthdrawn");
		6451	$dbh->do("ALTER TABLE deleteditems ADD itemlost_on DATETIME NULL AFTER itemlost");
		6452	$dbh->do("ALTER TABLE deleteditems ADD wthdrawn_on DATETIME NULL AFTER wthdrawn");
		6453	print "Upgrade to $DBversion done (Bug 9673 - Track when items are marked as lost or withdrawn)\n";
		6454	SetVersion ($DBversion);
		6455	}
6447		6456
6448	=head1 FUNCTIONS	6457	=head1 FUNCTIONS
6449		6458

Lines 116-121 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/moredetail.tt (-1 / +2 lines)
116		116
117	[% END %]	117	[% END %]
118	</li>	118	</li>
		119	[% IF ITEM_DAT.itemlost_on %]<li><span class="label">Lost on:</span>[% ITEM_DAT.itemlost_on \| $KohaDates %]  </li>[% END %]
119	[% END %]	120	[% END %]
120	[% IF ( ITEM_DAT.itemdamagedloop ) %]	121	[% IF ( ITEM_DAT.itemdamagedloop ) %]
121	<li><span class="label">Damaged status:</span>	122	<li><span class="label">Damaged status:</span>
Lines 165-170 Link Here
165	</form>	166	</form>
166	[% END %]	167	[% END %]
167	</li>	168	</li>
		169	[% IF ITEM_DAT.wthdrawn_on %]<li><span class="label">Withdrawn on:</span>[% ITEM_DAT.wthdrawn_on \| $KohaDates %]  </li>[% END %]
168	</ol></div>	170	</ol></div>
169	<div class="listgroup"><h4>History</h4>	171	<div class="listgroup"><h4>History</h4>
170	<ol class="bibliodetails">	172	<ol class="bibliodetails">
171	-

Return to bug 9673

Lines 535-540 sub ModItem { Link Here

(-)a/C4/Items.pm (+10 lines)
535		535
536	$item->{onloan} = undef if $item->{itemlost};	536	$item->{onloan} = undef if $item->{itemlost};
537		537
		538	for my $field ( qw( itemlost wthdrawn ) ) {
		539	if ( defined( $item->{$field} ) ) {
		540	if ( $item->{$field} ) {
		541	$item->{$field . '_on'} = DateTime::Format::MySQL->format_datetime( DateTime->now() );
		542	} else {
		543	$item->{$field . '_on'} = undef;
		544	}
		545	}
		546	}
		547
538	_set_derived_columns_for_mod($item);	548	_set_derived_columns_for_mod($item);
539	_do_column_fixes_for_mod($item);	549	_do_column_fixes_for_mod($item);
540	# FIXME add checks	550	# FIXME add checks