[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);
         }