koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Andrew Arensburger
Subject: [Koha-cvs] CVS: koha/acqui.simple additem.pl,1.6,1.7
Date: Sun, 13 Oct 2002 00:39:09 -0700

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">




reply via email to

[Prev in Thread] Current Thread [Next in Thread]