Attachment #34914 for bug #13372

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





=head2 GetLostItems

  $items = GetLostItems( $where );

This function gets a list of lost items.


{ barcode    => 'abc123',
  homebranch => 'CPL',    }

C<$orderby> is a field of the items table by which the resultset
should be orderd.

=item return:

C<$items> is a reference to an array full of hashrefs with columns

=item usage in the perl script:

  my $where = { barcode => '0001548' };
  my $items = GetLostItems( $where );
  $template->param( itemsloop => $items );

=back

sub GetLostItems {
    # Getting input args.
    my $where   = shift;
    my $orderby = shift;
    my $dbh     = C4::Context->dbh;

    my $query   = "

        $query .= " AND $key LIKE ?";
        push @query_parameters, "%$where->{$key}%";
    }
    my @ordervalues = qw/title author homebranch itype barcode price replacementprice lib datelastseen location/;
    
    if ( defined $orderby && grep($orderby, @ordervalues)) {
        $query .= ' ORDER BY '.$orderby;
    }

    my $sth = $dbh->prepare($query);
    $sth->execute( @query_parameters );




	[% ELSE %]
	
	<form name="f" action="/cgi-bin/koha/reports/itemslost.pl" method="post">
    <fieldset class="rows">
        <ol>

        <option value="title">Title</option>
        <option value="author">Author</option>
        <option value="homebranch">Home library</option>
        <option value="itype">Item types</option>
        <option value="barcode">Barcode</option>
        <option value="price">Price</option>
        <option value="replacementprice">Replacement price</option>
        <option value="lib">Lost code</option>
        <option value="datelastseen">Date last seen</option>
        <option value="location">Location</option>
    </select></li>
	
	<li><label for="barcodefilter">Barcode: </label><input type="text" name="barcodefilter" id="barcodefilter" size="6" /></li>
	<li><label for="branchfilter">Library: </label><select name="branchfilter" id="branchfilter">
                <option value="">All</option>




my $get_items = $params->{'get_items'};

if ( $get_items ) {
    my $orderbyfilter    = $params->{'orderbyfilter'}   || undef;
    my $branchfilter     = $params->{'branchfilter'}    || undef;
    my $barcodefilter    = $params->{'barcodefilter'}   || undef;
    my $itemtypesfilter  = $params->{'itemtypesfilter'} || undef;

    $where{'homebranch'}       = $branchfilter    if defined $branchfilter;
    $where{'barcode'}          = $barcodefilter   if defined $barcodefilter;
    $where{'authorised_value'} = $loststatusfilter if defined $loststatusfilter;

    my $itype = C4::Context->preference('item-level_itypes') ? "itype" : "itemtype";
    $where{$itype}            = $itemtypesfilter if defined $itemtypesfilter;

    my $items = GetLostItems( \%where );
    foreach my $it (@$items) {
        $it->{'datelastseen'} = format_date($it->{'datelastseen'});
    }
- 

Return to bug 13372

Lines 958-964 sub GetItemLocation { Link Here

(-)a/C4/Items.pm (-11 / +2 lines)
958		958
959	=head2 GetLostItems	959	=head2 GetLostItems
960		960
961	$items = GetLostItems( $where, $orderby );	961	$items = GetLostItems( $where );
962		962
963	This function gets a list of lost items.	963	This function gets a list of lost items.
964		964
Lines 972-980 and the value to match as value. For example: Link Here
972	{ barcode => 'abc123',	972	{ barcode => 'abc123',
973	homebranch => 'CPL', }	973	homebranch => 'CPL', }
974		974
975	C<$orderby> is a field of the items table by which the resultset
976	should be orderd.
977
978	=item return:	975	=item return:
979		976
980	C<$items> is a reference to an array full of hashrefs with columns	977	C<$items> is a reference to an array full of hashrefs with columns
Lines 983-989 from the "items" table as keys. Link Here
983	=item usage in the perl script:	980	=item usage in the perl script:
984		981
985	my $where = { barcode => '0001548' };	982	my $where = { barcode => '0001548' };
986	my $items = GetLostItems( $where, "homebranch" );	983	my $items = GetLostItems( $where );
987	$template->param( itemsloop => $items );	984	$template->param( itemsloop => $items );
988		985
989	=back	986	=back
Lines 993-999 from the "items" table as keys. Link Here
993	sub GetLostItems {	990	sub GetLostItems {
994	# Getting input args.	991	# Getting input args.
995	my $where = shift;	992	my $where = shift;
996	my $orderby = shift;
997	my $dbh = C4::Context->dbh;	993	my $dbh = C4::Context->dbh;
998		994
999	my $query = "	995	my $query = "
Lines 1013-1023 sub GetLostItems { Link Here
1013	$query .= " AND $key LIKE ?";	1009	$query .= " AND $key LIKE ?";
1014	push @query_parameters, "%$where->{$key}%";	1010	push @query_parameters, "%$where->{$key}%";
1015	}	1011	}
1016	my @ordervalues = qw/title author homebranch itype barcode price replacementprice lib datelastseen location/;
1017
1018	if ( defined $orderby && grep($orderby, @ordervalues)) {
1019	$query .= ' ORDER BY '.$orderby;
1020	}
1021		1012
1022	my $sth = $dbh->prepare($query);	1013	my $sth = $dbh->prepare($query);
1023	$sth->execute( @query_parameters );	1014	$sth->execute( @query_parameters );

Lines 96-116 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/itemslost.tt (-15 / +3 lines)
96	[% ELSE %]	96	[% ELSE %]
97		97
98	<form name="f" action="/cgi-bin/koha/reports/itemslost.pl" method="post">	98	<form name="f" action="/cgi-bin/koha/reports/itemslost.pl" method="post">
99	<fieldset class="rows"><ol> <li><label for="orderbyfilter">Order by: </label>	99	<fieldset class="rows">
100	<select id="orderbyfilter" name="orderbyfilter">	100	<ol>
101	<option value=""> --- </option>	101
102	<option value="title">Title</option>
103	<option value="author">Author</option>
104	<option value="homebranch">Home library</option>
105	<option value="itype">Item types</option>
106	<option value="barcode">Barcode</option>
107	<option value="price">Price</option>
108	<option value="replacementprice">Replacement price</option>
109	<option value="lib">Lost code</option>
110	<option value="datelastseen">Date last seen</option>
111	<option value="location">Location</option>
112	</select></li>
113
114	<li><label for="barcodefilter">Barcode: </label><input type="text" name="barcodefilter" id="barcodefilter" size="6" /></li>	102	<li><label for="barcodefilter">Barcode: </label><input type="text" name="barcodefilter" id="barcodefilter" size="6" /></li>
115	<li><label for="branchfilter">Library: </label><select name="branchfilter" id="branchfilter">	103	<li><label for="branchfilter">Library: </label><select name="branchfilter" id="branchfilter">
116	<option value="">All</option>	104	<option value="">All</option>

Lines 53-59 my $params = $query->Vars; Link Here

(-)a/reports/itemslost.pl (-4 / +2 lines)
53	my $get_items = $params->{'get_items'};	53	my $get_items = $params->{'get_items'};
54		54
55	if ( $get_items ) {	55	if ( $get_items ) {
56	my $orderbyfilter = $params->{'orderbyfilter'} \|\| undef;
57	my $branchfilter = $params->{'branchfilter'} \|\| undef;	56	my $branchfilter = $params->{'branchfilter'} \|\| undef;
58	my $barcodefilter = $params->{'barcodefilter'} \|\| undef;	57	my $barcodefilter = $params->{'barcodefilter'} \|\| undef;
59	my $itemtypesfilter = $params->{'itemtypesfilter'} \|\| undef;	58	my $itemtypesfilter = $params->{'itemtypesfilter'} \|\| undef;
Lines 63-73 if ( $get_items ) { Link Here
63	$where{'homebranch'} = $branchfilter if defined $branchfilter;	62	$where{'homebranch'} = $branchfilter if defined $branchfilter;
64	$where{'barcode'} = $barcodefilter if defined $barcodefilter;	63	$where{'barcode'} = $barcodefilter if defined $barcodefilter;
65	$where{'authorised_value'} = $loststatusfilter if defined $loststatusfilter;	64	$where{'authorised_value'} = $loststatusfilter if defined $loststatusfilter;
66		65
67	my $itype = C4::Context->preference('item-level_itypes') ? "itype" : "itemtype";	66	my $itype = C4::Context->preference('item-level_itypes') ? "itype" : "itemtype";
68	$where{$itype} = $itemtypesfilter if defined $itemtypesfilter;	67	$where{$itype} = $itemtypesfilter if defined $itemtypesfilter;
69		68
70	my $items = GetLostItems( \%where, $orderbyfilter );	69	my $items = GetLostItems( \%where );
71	foreach my $it (@$items) {	70	foreach my $it (@$items) {
72	$it->{'datelastseen'} = format_date($it->{'datelastseen'});	71	$it->{'datelastseen'} = format_date($it->{'datelastseen'});
73	}	72	}
74	-