[Koha-cvs] CVS: koha/admin itemtypes.pl,1.19,1.20

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26960/admin

Modified Files:
	itemtypes.pl 
Log Message:
new feature : image for itemtypes.

* run updater/updatedatabase to create imageurl field in itemtypes.
* go to Koha >> parameters >> itemtypes >> modify (or add) an itemtype. You will see around 20 nice images to choose between (thanks to owen). If you prefer your own image, you also can type a complete url (http://www.myserver.lib/path/to/my/image.gif)
* go to OPAC, and search something. In the result list, you now have the picture instead of the text itemtype.

Index: itemtypes.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/itemtypes.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -r1.19 -r1.20
*** itemtypes.pl	20 Jun 2005 13:17:16 -0000	1.19
--- itemtypes.pl	2 Sep 2005 14:18:38 -0000	1.20
***************
*** 97,110 ****
  	if ($itemtype) {
  		my $dbh = C4::Context->dbh;
! 		my $sth=$dbh->prepare("select itemtype,description,renewalsallowed,rentalcharge,notforloan from itemtypes where itemtype=?");
  		$sth->execute($itemtype);
  		$data=$sth->fetchrow_hashref;
  		$sth->finish;
  	}
  	$template->param(itemtype => $itemtype,
  							description => $data->{'description'},
  							renewalsallowed => $data->{'renewalsallowed'},
  							rentalcharge => sprintf("%.2f",$data->{'rentalcharge'}),
! 							notforloan => $data->{'notforloan'}
  							);
  ;
--- 97,136 ----
  	if ($itemtype) {
  		my $dbh = C4::Context->dbh;
! 		my $sth=$dbh->prepare("select * from itemtypes where itemtype=?");
  		$sth->execute($itemtype);
  		$data=$sth->fetchrow_hashref;
  		$sth->finish;
  	}
+ 	# build list of images
+ 	my $imagedir = C4::Context->opachtdocs."/".C4::Context->preference('opacthemes');
+ 	warn "img : $imagedir";
+ 	unless (opendir(DIR, "$imagedir/itemtypeimg/")) {
+ # 		my $cgidir = C4::Context->intranetdir;
+ 		opendir(DIR, "$imagedir/value_builder") || die "can't opendir $imagedir/value_builder: $!";
+ 	} 
+ 	my @imagelist;
+ 	while (my $line = readdir(DIR)) {
+ 		if ($line =~ /\.gif$/) {
+ 			my %x;
+ 			$x{KohaImage} = "$line";
+ 			push @imagelist, \%x;
+ 		}
+ 	}
+ 	closedir DIR;
+ # 	my $CGIitemtypes = CGI::scrolling_list(-name=>'itemtypes',
+ # 					-id=>"itemtypes",
+ # 					-values=> \@imagelist,
+ # 					-size=>1,
+ # 					-multiple=>0,
+ # 					);
+ # 					
  	$template->param(itemtype => $itemtype,
  							description => $data->{'description'},
  							renewalsallowed => $data->{'renewalsallowed'},
  							rentalcharge => sprintf("%.2f",$data->{'rentalcharge'}),
! 							notforloan => $data->{'notforloan'},
! 							imageurl => $data->{'imageurl'},
! 							opacthemes => C4::Context->preference('opacthemes'),
! 							IMAGESLOOP => \@imagelist,
  							);
  ;
***************
*** 114,122 ****
  } elsif ($op eq 'add_validate') {
  	my $dbh = C4::Context->dbh;
! 	my $sth=$dbh->prepare("replace itemtypes (itemtype,description,renewalsallowed,rentalcharge,notforloan) values (?,?,?,?,?)");
  	$sth->execute(
  		$input->param('itemtype'),$input->param('description'),
  		$input->param('renewalsallowed'),$input->param('rentalcharge'),
! 		$input->param('notforloan')?1:0);
  	$sth->finish;
  	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=itemtypes.pl\"></html>";
--- 140,149 ----
  } elsif ($op eq 'add_validate') {
  	my $dbh = C4::Context->dbh;
! 	my $sth=$dbh->prepare("replace itemtypes (itemtype,description,renewalsallowed,rentalcharge,notforloan,imageurl) values (?,?,?,?,?,?)");
  	$sth->execute(
  		$input->param('itemtype'),$input->param('description'),
  		$input->param('renewalsallowed'),$input->param('rentalcharge'),
! 		$input->param('notforloan')?1:0,
! 		$input->param('imageurl'));
  	$sth->finish;
  	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=itemtypes.pl\"></html>";
***************
*** 144,150 ****
  
  	$template->param(itemtype => $itemtype,
! 							description => $data->{'description'},
! 							renewalsallowed => $data->{'renewalsallowed'},
! 							rentalcharge => sprintf("%.2f",$data->{'rentalcharge'}),
  							total => $total);
  													# END $OP eq DELETE_CONFIRM
--- 171,178 ----
  
  	$template->param(itemtype => $itemtype,
! 							description => $data->{description},
! 							renewalsallowed => $data->{renewalsallowed},
! 							rentalcharge => sprintf("%.2f",$data->{rentalcharge}),
! 							imageurl => $data->{imageurl},
  							total => $total);
  													# END $OP eq DELETE_CONFIRM
***************
*** 181,188 ****
  		$row_data{renewalsallowed} = $results->[$i]{renewalsallowed};
  		$row_data{notforloan} = $results->[$i]{notforloan};
  		$row_data{rentalcharge} = sprintf("%.2f",$results->[$i]{rentalcharge});
  		push(@loop_data, \%row_data);
  	}
! 	$template->param(loop => \@loop_data);
  	if ($offset>0) {
  		my $prevpage = $offset-$pagesize;
--- 209,222 ----
  		$row_data{renewalsallowed} = $results->[$i]{renewalsallowed};
  		$row_data{notforloan} = $results->[$i]{notforloan};
+ 		if ($results->[$i]{imageurl} =~ /^http/) {
+ 			$row_data{absoluteurl} = 1;
+ 		}
+ 		$row_data{imageurl} = $results->[$i]{imageurl};
  		$row_data{rentalcharge} = sprintf("%.2f",$results->[$i]{rentalcharge});
  		push(@loop_data, \%row_data);
  	}
! 	$template->param(loop => \@loop_data,
! 					opacthemes => C4::Context->preference('opacthemes')
! 					);
  	if ($offset>0) {
  		my $prevpage = $offset-$pagesize;