[Koha-cvs] CVS: koha/admin aqbookfund.pl,1.13,1.14

[Mike Hansen]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv15180/koha/admin

Modified Files:
	aqbookfund.pl 
Log Message:


Index: aqbookfund.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbookfund.pl,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** aqbookfund.pl	8 Apr 2003 12:01:24 -0000	1.13
--- aqbookfund.pl	13 Apr 2003 05:54:18 -0000	1.14
***************
*** 121,125 ****
  	$template->param(bookfundid =>$bookfundid);
  	$template->param(bookfundname =>$data->{'bookfundname'});
- 	$template->param(bookfundgroup =>$data->{'bookfundgroup'});
  
  													# END $OP eq ADD_FORM
--- 121,124 ----
***************
*** 133,140 ****
  	$sth->execute;
  	$sth->finish;
! 	$query = "replace aqbookfund (bookfundid,bookfundname,bookfundgroup) values (";
  	$query.= $dbh->quote($input->param('bookfundid')).",";
! 	$query.= $dbh->quote($input->param('bookfundname')).",";
! 	$query.= $dbh->quote($input->param('bookfundgroup')).")";
  	my $sth=$dbh->prepare($query);
  	$sth->execute;
--- 132,138 ----
  	$sth->execute;
  	$sth->finish;
! 	$query = "replace aqbookfund (bookfundid,bookfundname) values (";
  	$query.= $dbh->quote($input->param('bookfundid')).",";
! 	$query.= $dbh->quote($input->param('bookfundname')).")";
  	my $sth=$dbh->prepare($query);
  	$sth->execute;
***************
*** 155,159 ****
  	$template->param(bookfundid => $bookfundid);
  	$template->param(bookfundname => $data->{'bookfundname'});
- 	$template->param(bookfundgroup => $data->{'bookfundgroup'});
  													# END $OP eq DELETE_CONFIRM
  ################## DELETE_CONFIRMED ##################################
--- 153,156 ----
***************
*** 185,193 ****
  	   my @bookfundid = ();
  	   my @bookfundname = ();
- 	   my @bookfundgroup = ();
  	   push(@toggle,$toggle);
  	   push(@bookfundid,$results->[$i]{'bookfundid'});
  	   push(@bookfundname,$results->[$i]{'bookfundname'});
- 	   push(@bookfundgroup,$results->[$i]{'bookfundgroup'});
  	   if ($toggle eq 'white'){
  	    		$toggle="#ffffcc";
--- 182,188 ----
***************
*** 195,204 ****
  	    		$toggle="white";
  	  	}
! 	while (@toggle and @bookfundid and @bookfundname and @bookfundgroup) {
  	   my %row_data;
  	   $row_data{toggle} = shift @toggle;
  	   $row_data{bookfundid} = shift @bookfundid;
  	   $row_data{bookfundname} = shift @bookfundname;
- 	   $row_data{bookfundgroup} = shift @bookfundgroup;
  	   push(@loop_data, \%row_data);
         }
--- 190,198 ----
  	    		$toggle="white";
  	  	}
! 	while (@toggle and @bookfundid and @bookfundname) {
  	   my %row_data;
  	   $row_data{toggle} = shift @toggle;
  	   $row_data{bookfundid} = shift @bookfundid;
  	   $row_data{bookfundname} = shift @bookfundname;
  	   push(@loop_data, \%row_data);
         }