[Koha-cvs] CVS: koha/acqui acquire.pl,1.7,1.8

[Andrew Arensburger]

Update of /cvsroot/koha/koha/acqui
In directory usw-pr-cvs1:/tmp/cvs-serv4994

Modified Files:
	acquire.pl 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: acquire.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/acquire.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** acquire.pl	6 Oct 2002 00:00:50 -0000	1.7
--- acquire.pl	13 Oct 2002 07:37:10 -0000	1.8
***************
*** 1,4 ****
--- 1,6 ----
  #!/usr/bin/perl
  
+ # $Id$
+ 
  #script to recieve orders
  #written by chris at katipo.co.nz 24/2/2000
***************
*** 45,49 ****
  my $gst=$input->param('gst');
  my ($count, at results)=ordersearch($search,$biblio,$catview);
! my ($count2, at booksellers)=bookseller($results[0]->{'booksellerid'}); 
  #print $count;
  my @date=split('-',$results[0]->{'entrydate'});
--- 47,51 ----
  my $gst=$input->param('gst');
  my ($count, at results)=ordersearch($search,$biblio,$catview);
! my ($count2, at booksellers)=bookseller($results[0]->{'booksellerid'});
  #print $count;
  my @date=split('-',$results[0]->{'entrydate'});
***************
*** 152,163 ****
  EOP
  ;
! my ($count2, at branches)=branches();                                                                         
! for (my $i=0;$i<$count2;$i++){                                                                           
!   print "<option value=$branches[$i]->{'branchcode'}";                                                   
!   if ($results[0]->{'branchcode'} == $branches[$i]->{'branchcode'}){                                           
!   print " Selected";                                                                                   
!   }                                                                                                      
!   print ">$branches[$i]->{'branchname'}";                                                                
! }   
  print <<EOP
  </select>
--- 154,165 ----
  EOP
  ;
! my ($count2, at branches)=branches();
! for (my $i=0;$i<$count2;$i++){
!   print "<option value=$branches[$i]->{'branchcode'}";
!   if ($results[0]->{'branchcode'} == $branches[$i]->{'branchcode'}){
!   print " Selected";
!   }
!   print ">$branches[$i]->{'branchname'}";
! }
  print <<EOP
  </select>
***************
*** 211,216 ****
  ;
  my @bookfund;
! ($count2, at bookfund)=bookfunds();                                                    
! for (my $i=0;$i<$count2;$i++){                                                       
    print "<option value=$bookfund[$i]->{'bookfundid'}";
    if ($bookfund[$i]->{'bookfundid'}==$results[0]->{'bookfundid'}){
--- 213,218 ----
  ;
  my @bookfund;
! ($count2, at bookfund)=bookfunds();
! for (my $i=0;$i<$count2;$i++){
    print "<option value=$bookfund[$i]->{'bookfundid'}";
    if ($bookfund[$i]->{'bookfundid'}==$results[0]->{'bookfundid'}){
***************
*** 218,222 ****
    }
    print ">$bookfund[$i]->{'bookfundname'}";
! }      
  
  my $rrp=$results[0]->{'rrp'};
--- 220,224 ----
    }
    print ">$bookfund[$i]->{'bookfundname'}";
! }
  
  my $rrp=$results[0]->{'rrp'};
***************
*** 270,274 ****
  </form>
  </center>
! <br clear=all>		
  <p> &nbsp; </p>
  
--- 272,276 ----
  </form>
  </center>
! <br clear=all>
  <p> &nbsp; </p>
  
***************
*** 278,286 ****
  print "<center><table>";
  print <<EOP
! <tr valign=top bgcolor=#99cc33>                                                                
  
! <td background="/images/background-mem.gif"><b>ISBN</b></td>                                   
! <td background="/images/background-mem.gif"><b>TITLE</b></td>                                  
! <td background="/images/background-mem.gif"><b>AUTHOR</b></td>                                 
  </tr>
  EOP
--- 280,288 ----
  print "<center><table>";
  print <<EOP
! <tr valign=top bgcolor=#99cc33>
  
! <td background="/images/background-mem.gif"><b>ISBN</b></td>
! <td background="/images/background-mem.gif"><b>TITLE</b></td>
! <td background="/images/background-mem.gif"><b>AUTHOR</b></td>
  </tr>
  EOP