From 9eed1523e29afcfdf554d82ef6d3a15e9fd05512 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Wed, 3 Apr 2002 08:58:36 +0000
Subject: [PATCH] Actually lives in telnet/

---
 borrwraper.pl | 48 ------------------------------------------------
 1 file changed, 48 deletions(-)
 delete mode 100755 borrwraper.pl

diff --git a/borrwraper.pl b/borrwraper.pl
deleted file mode 100755
index f025564d90..0000000000
--- a/borrwraper.pl
+++ /dev/null
@@ -1,48 +0,0 @@
-#!/usr/bin/perl
-
-use DBI;
-use C4::Database;
-use C4::Circulation::Issues;
-use C4::Circulation::Main;
-use C4::InterfaceCDK;
-use C4::Circulation::Borrower;
-
-# my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}");
-my %env = (
-  branchcode => $ARGV[0], usercode => $ARGV[1], proccode => "lgon", borrowernumber => "",
-  logintime  => "", lasttime => "", tempuser => "", debug => "9",
-  telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => $ARGV[5],
-  bcard=>$ARGV[6]  
-      );
-my ($env) = \%env;                                                                  
-  startint();
-  helptext('');                                                                    
-my $done;                                                                        
-my ($items,$items2,$amountdue);                                                  
-my $itemsdet;                                                                    
-$env->{'sysarea'} = "Issues";                                                    
-$done = "Issues";                                                                
-my $i=0;
-my $dbh=&C4Connect;                                                              
-  my ($bornum,$issuesallowed,$borrower,$reason,$amountdue) = C4::Circulation::Borrower::findborrower($env,$dbh);
-  $env->{'loanlength'}="";                                                       
-  if ($reason ne "") {                                                           
-    $done = $reason;                                                             
-  } elsif ($env->{'IssuesAllowed'} eq '0') {                                     
-    error_msg($env,"No Issues Allowed =$env->{'IssuesAllowed'}");                
-  } else {                                                                       
-    $env->{'bornum'} = $bornum;                                                  
-    $env->{'bcard'}  = $borrower->{'cardnumber'};                                
-    ($items,$items2)=C4::Circulation::Main::pastitems($env,$bornum,$dbh); #from Circulation.pm    
-    $done = "No";                                                                
-    my $it2p=0;                                                                  
-    while ($done eq 'No'){                                                       
-      ($done,$items2,$it2p,$amountdue,$itemsdet) = C4::Circulation::Issues::processitems($env,$bornum,$borrower,$items,$items2,$it2p,$amountdue,$itemsdet);                                    
-    }                                                                            
-    
-  } 
-  if ($done ne 'Issues'){
-      $dbh->disconnect;                                                                
-      die "test";
-  }
-$dbh->disconnect;                                                                
-- 
2.39.2