[Koha-cvs] CVS: koha/acqui.simple additem.pl,1.6,1.7

[Andrew Arensburger]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv5453

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


Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** additem.pl	14 Aug 2002 18:12:52 -0000	1.6
--- additem.pl	13 Oct 2002 07:39:07 -0000	1.7
***************
*** 1,4 ****
--- 1,5 ----
  #!/usr/bin/perl
  
+ # $Id$
  
  # Copyright 2000-2002 Katipo Communications
***************
*** 56,64 ****
          ($branchcount, @branches)        = &branches;
  	($itemtypecount, @itemtypes)     = &getitemtypes;
! 	
  	for (my $i = 0; $i < $itemtypecount; $i++) {
  	    $itemtypedescriptions{$itemtypes[$i]->{'itemtype'}} = $itemtypes[$i]->{'description'};
  	} # for
! 	
  	for (my $i = 0; $i < $branchcount; $i++) {
  	    $branchnames{$branches[$i]->{'branchcode'}} = $branches[$i]->{'branchname'};
--- 57,65 ----
          ($branchcount, @branches)        = &branches;
  	($itemtypecount, @itemtypes)     = &getitemtypes;
! 
  	for (my $i = 0; $i < $itemtypecount; $i++) {
  	    $itemtypedescriptions{$itemtypes[$i]->{'itemtype'}} = $itemtypes[$i]->{'description'};
  	} # for
! 
  	for (my $i = 0; $i < $branchcount; $i++) {
  	    $branchnames{$branches[$i]->{'branchcode'}} = $branches[$i]->{'branchname'};
***************
*** 105,109 ****
  	for (my $i = 0; $i < $biblioitemcount; $i++) {
  	    if ($biblioitems[$i]->{'itemtype'} eq "WEB") {
! 		
  		print << "EOF";
  <tr valign="top" bgcolor="#CCCC99">
--- 106,110 ----
  	for (my $i = 0; $i < $biblioitemcount; $i++) {
  	    if ($biblioitems[$i]->{'itemtype'} eq "WEB") {
! 
  		print << "EOF";
  <tr valign="top" bgcolor="#CCCC99">