telnet/doreturns.pl

   1 #!/usr/bin/perl
   2
   3 use DBI;
   4 use C4::Database;
   5 use C4::Accounts;
   6 use C4::InterfaceCDK;
   7 use C4::Circulation::Main;
   8 use C4::Format;
   9 use C4::Scan;
  10 use C4::Stats;
  11 use C4::Search;
  12 use C4::Print;
  13 use C4::Circulation::Returns;
  14
  15
  16 my %env = (
  17 branchcode => $ARGV[0], usercode => $ARGV[1], proccode => "lgon", borrowernumber => "",
  18 logintime  => "", lasttime => "", tempuser => "", debug => "9",
  19 telnet => $ARGV[2], queue => $ARGV[3], printtype => $ARGV[4], brdata => $ARGV[5]
  20 );
  21 my $env=\%env;
  22
  23
  24 my $dbh=&C4Connect;
  25 my @items;
  26 @items[0]=" "x50;
  27 my $reason;
  28 my $item;
  29 my $reason;
  30 my $borrower;
  31 my $itemno;
  32 my $itemrec;
  33 my $bornum;
  34 my $amt_owing;
  35 my $odues;
  36 my $issues;
  37 my $resp;
  38 startint();
  39 until ($reason ne "") {
  40   ($reason,$item) = returnwindow($env,"Enter Returns",$item,\@items,$borrower,$amt_owing,$odues,$dbh,$resp); #C4::Circulation
  41   if ($reason eq "")  {
  42     $resp = "";
  43     ($resp,$bornum,$borrower,$itemno,$itemrec,$amt_owing) = C4::Circulation::Returns::checkissue($env,$dbh,$item);
  44     if ($bornum ne "") {
  45       ($issues,$odues,$amt_owing) = borrdata2($env,$bornum);
  46     } else {
  47       $issues = "";
  48       $odues = "";
  49       $amt_owing = "";
  50     }
  51     if ($resp ne "") {
  52       if ($itemno ne "" ) {
  53         my $item = itemnodata($env,$dbh,$itemno);
  54         my $fmtitem = C4::Circulation::Issues::formatitem($env,$item,"",$amt_owing);
  55         unshift @items,$fmtitem;
  56         if ($items[20] > "") {
  57           pop @items;
  58         }
  59       }
  60     }
  61   }
  62 }
  63 die;
  64 $dbh->disconnect;
  65
  66