[Koha-cvs] CVS: koha/C4/Interface ReserveentCDK.pm,1.3,1.4

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4/Interface
In directory usw-pr-cvs1:/tmp/cvs-serv15447

Modified Files:
        ReserveentCDK.pm 
Log Message:
Deleted unused variables.
Removed trailing whitespace.


Index: ReserveentCDK.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Interface/ReserveentCDK.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** ReserveentCDK.pm    11 Oct 2002 12:38:43 -0000      1.3
--- ReserveentCDK.pm    13 Oct 2002 08:32:32 -0000      1.4
***************
*** 30,72 ****
  require Exporter;
  use DBI;
! use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
!   
  # set the version for version checking
  $VERSION = 0.01;
!     
  @ISA = qw(Exporter);
  @EXPORT = qw(&FindBiblioScreen &SelectBiblio &MakeReserveScreen);
- %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
-                 
- # your exported package globals go here,
- # as well as any optionally exported functions
- 
- @EXPORT_OK   = qw($Var1 %Hashit);
- # non-exported package globals go here
- use vars qw(@more $stuff);
-       
- # initalize package globals, first exported ones
- 
- my $Var1   = '';
- my %Hashit = ();
-                   
- # then the others (which are still accessible as $Some::Module::stuff)
- my $stuff  = '';
- my @more   = ();
-       
- # all file-scoped lexicals must be created before
- # the functions below that use them.
-               
- # file-private lexicals go here
- my $priv_var    = '';
- my %secret_hash = ();
-                           
- # here's a file-private function as a closure,
- # callable as &$priv_func;  it cannot be prototyped.
- my $priv_func = sub {
-   # stuff goes here.
- };
-                                                   
- # make all your functions, whether exported or not;
  
  sub FindBiblioScreen {
--- 30,40 ----
  require Exporter;
  use DBI;
! use vars qw($VERSION @ISA @EXPORT);
! 
  # set the version for version checking
  $VERSION = 0.01;
! 
  @ISA = qw(Exporter);
  @EXPORT = qw(&FindBiblioScreen &SelectBiblio &MakeReserveScreen);
  
  sub FindBiblioScreen {
***************
*** 75,84 ****
    #my @coltitles=("a","b");
    my @rowtitles;
!   my $nflds address@hidden; 
    my $ow = 0;
    while ($ow < $nflds) {
      @address@hidden;
      $ow++;
!   }  
    my @coltitles = ("");
    my @coltypes  = ("UMIXED");
--- 43,52 ----
    #my @coltitles=("a","b");
    my @rowtitles;
!   my $nflds address@hidden;
    my $ow = 0;
    while ($ow < $nflds) {
      @address@hidden;
      $ow++;
!   }
    my @coltitles = ("");
    my @coltypes  = ("UMIXED");
***************
*** 105,110 ****
          $responses[$i] =$info->[$i][0];
        $i++;
!      }     
!   } 
    return($reason,@responses);
  }
--- 73,78 ----
          $responses[$i] =$info->[$i][0];
        $i++;
!      }
!   }
    return($reason,@responses);
  }
***************
*** 112,116 ****
  sub SelectBiblio {
    my ($env,$count,$entries) = @_;
!   my $titlepanel = titlepanel($env,"Reserves","Select title");  
    my $biblist = new Cdk::Alphalist('Title'=>"Select a Title",
       'List'=>address@hidden,'Height' => 22,'Width' => 76,
--- 80,84 ----
  sub SelectBiblio {
    my ($env,$count,$entries) = @_;
!   my $titlepanel = titlepanel($env,"Reserves","Select title");
    my $biblist = new Cdk::Alphalist('Title'=>"Select a Title",
       'List'=>address@hidden,'Height' => 22,'Width' => 76,
***************
*** 119,123 ****
    my $reason;
    my $result;
!   if (!defined $selection) { 
       $reason="Circ";
    } else {
--- 87,91 ----
    my $reason;
    my $result;
!   if (!defined $selection) {
       $reason="Circ";
    } else {
***************
*** 139,144 ****
       my $split = int(($testlen-72)*0.7);
       $line = substr($line,0,72+$split-$authlen)." ".$bibliorec->{'author'};
!      $line = fmtstr($env,$line,"L72");   
!   } 
    my @book = ($line);
    my $bookpanel = new Cdk::Label ('Message' =>address@hidden,
--- 107,112 ----
       my $split = int(($testlen-72)*0.7);
       $line = substr($line,0,72+$split-$authlen)." ".$bibliorec->{'author'};
!      $line = fmtstr($env,$line,"L72");
!   }
    my @book = ($line);
    my $bookpanel = new Cdk::Label ('Message' =>address@hidden,
***************
*** 148,152 ****
       'List'=>address@hidden,
       'Xpos'=>"20",'Ypos'=>"5",'Width'=>"18",'Height'=>"6");
!   $branchlist->draw();            
    my $i = 0;
    my $brcnt = @$branches;
--- 116,120 ----
       'List'=>address@hidden,
       'Xpos'=>"20",'Ypos'=>"5",'Width'=>"18",'Height'=>"6");
!   $branchlist->draw();
    my $i = 0;
    my $brcnt = @$branches;
***************
*** 157,165 ****
      if ($brcode eq $brtest) {
        $brdef = 1
!     } else {  
        $branchlist->inject('Input'=>"KEY_DOWN");
        $i++;
!     }  
!   }  
    $branchlist->inject('Input'=>" ");
    my @constraintlist = ("Any item","Only Selected","Except Selected");
--- 125,133 ----
      if ($brcode eq $brtest) {
        $brdef = 1
!     } else {
        $branchlist->inject('Input'=>"KEY_DOWN");
        $i++;
!     }
!   }
    $branchlist->inject('Input'=>" ");
    my @constraintlist = ("Any item","Only Selected","Except Selected");
***************
*** 194,208 ****
       'Type'=>"UMIXED");
    borrbind($env,$borrowerentry);
!   # $borrowentry->bind('Key'=>"KEY_TAB",'Function'=>sub {$x = 
act($scroll1);});  
    my $complete = 0;
    my $reason = "";
    my @answers;
    while ($complete == 0) {
!     my $borrowercode = $borrowerentry->activate();  
      if (!defined $borrowercode) {
        $reason="Circ";
        $complete = 1;
        @answers[0] = ""
!     } else { 
        @answers[0] = $borrowercode;
        if ($borrowercode ne "") { $complete = 1; };
--- 162,176 ----
       'Type'=>"UMIXED");
    borrbind($env,$borrowerentry);
!   # $borrowentry->bind('Key'=>"KEY_TAB",'Function'=>sub {$x = 
act($scroll1);});
    my $complete = 0;
    my $reason = "";
    my @answers;
    while ($complete == 0) {
!     my $borrowercode = $borrowerentry->activate();
      if (!defined $borrowercode) {
        $reason="Circ";
        $complete = 1;
        @answers[0] = ""
!     } else {
        @answers[0] = $borrowercode;
        if ($borrowercode ne "") { $complete = 1; };
***************
*** 214,218 ****
          } else {
            my @brline = split(" ",@$branches[$x]);
!           @answers[1] = @brline[0]; 
            $complete = 2;
          $answers[2] = "a";
--- 182,186 ----
          } else {
            my @brline = split(" ",@$branches[$x]);
!           @answers[1] = @brline[0];
            $complete = 2;
          $answers[2] = "a";
***************
*** 228,232 ****
                $complete = 3;
                if ($answers[2] ne "a") {
!                 while ($complete == 3) {                 
                    my @itemans = $itemlist->activate();
                    if (!defined @itemans) {
--- 196,200 ----
                $complete = 3;
                if ($answers[2] ne "a") {
!                 while ($complete == 3) {
                    my @itemans = $itemlist->activate();
                    if (!defined @itemans) {
***************
*** 245,249 ****
                          @items[$j] = @blarr[0];
                            $j++;
!                       }  
                          $i++;
                        }
--- 213,217 ----
                          @items[$j] = @blarr[0];
                            $j++;
!                       }
                          $i++;
                        }
***************
*** 252,264 ****
                  }
                }
!             }   
              } else {
              $complete = 3;
!           }  
          }
        }
!       }        
      }
!   }  
    return ($reason,@answers);
  }
--- 220,232 ----
                  }
                }
!             }
              } else {
              $complete = 3;
!           }
          }
        }
!       }
      }
!   }
    return ($reason,@answers);
  }