[Koha-cvs] CVS: koha/acqui acquire.pl,1.7,1.8
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 09:37:13 CEST 2002
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> </p>
--- 272,276 ----
</form>
</center>
! <br clear=all>
<p> </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
More information about the Koha-cvs
mailing list