Shifting fiels to package for download

telnet/borrwraper.pl

@@ -0,0 +1,51 @@
+#!/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]
+      );
+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);
+    my $time=localtime(time);                                                     
+    open (FILE,">>/tmp/$<_$ARGV[6]");                                             
+    print FILE "borrower found $bornum";
+    close FILE;
+  $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;                                                                

telnet/startint.pl

@@ -0,0 +1,78 @@
+#!/usr/bin/perl
+
+use strict;
+#use C4::Security;
+#use C4::Database;                                                                   
+use C4::Circulation::Main;                                                          
+#use C4::Circulation::Issues;                                                        
+#use C4::Circulation::Returns;                                                       
+#use C4::Circulation::Renewals;                                                      
+#use C4::Circulation::Borrower;                                                      
+#use C4::Reserves;                                                                   
+use C4::InterfaceCDK;                                                               
+#use C4::Security;
+
+
+# set up environment array
+# branchcode - logged on branch
+# usercode - current user
+# proccode - current or last procedure
+# borrowernumber - current or last borrowernumber
+# logintime - time logged on
+# lasttime - lastime security checked
+# tempuser - temporary user
+my %env = (
+  branchcode => "", usercode => "", proccode => "lgon", borrowernumber => "",
+  logintime  => "", lasttime => "", tempuser => "", debug => "9"
+  );
+
+$env{'branchcode'} = "C";
+$env{'usercode'} = `whoami`;
+$env{'telnet'} = "Y";
+
+
+#start interface                                                                  
+&startint(\%env,'Circulation');                                                    
+getbranch(\%env);                                                                  
+getprinter(\%env);                                                                 
+my $donext = 'Circ';                                                              
+my $reason;                                                                       
+my $data;                                                                         
+while ($donext ne 'Quit') {                                                       
+  if ($donext  eq "Circ") {                                                       
+    ($reason,$data) = menu(\%env,'console','Circulation',                          
+    ('Issues','Returns','Select Branch','Select Printer'));                     
+  } else {                                                                        
+    $data = $donext;                                                              
+  }                                                                               
+  if ($data eq 'Issues') {                                                        
+   my @args=('issuewrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}",$$);
+  open (FILE,">>/tmp/$<_$$");
+   my $time=localtime(time);
+   print FILE "Start issues $time \n";
+   close FILE;
+   system(@args);
+  } elsif ($data eq 'Returns') {                                                  
+   my @args=('returnswrapper.pl',"$env{'branchcode'}","$env{'usercode'}","$env{'telnet'}","$env{'queue'}","$env{'printtype'}","$env{'brdata'}",$$);
+   open (FILE,">>/tmp/$<_$$");
+   my $time=localtime(time);
+   print FILE "Start returns $time \n";
+   close FILE;
+   system(@args);
+#    $donext=Returns(\%env); #C4::Circulation::Returns                              
+  } elsif ($data eq 'Select Branch') {                                            
+    getbranch(\%env);                                                              
+  } elsif ($data eq 'Select Printer') {                                           
+    getprinter(\%env);                                                             
+#  } elsif ($data eq 'Borrower Enquiries') {                                       
+    #  $donext=Borenq($env); #C4::Circulation::Borrower - conversion              
+#  } elsif ($data eq 'Reserves'){                                                  
+#    $donext=EnterReserves(\%env); #C4::Reserves                                    
+  } elsif ($data eq 'Quit') {                                                     
+    $donext = $data;                                                              
+    &endint(\%env);            
+    die;
+  }                                                                               
+}
+    &endint(\%env);            
+    die;