Compile fixes

C4/Circulation.pm

@@ -5,6 +5,7 @@ package C4::Circulation; #asummes C4/Circulation
 use strict;
 require Exporter;
 use DBI;
+use C4::Interface;
 use C4::Database;
 use C4::Circulation::Issues;
 
@@ -54,7 +55,7 @@ sub Start_circ{
   my (%env)=@_;
   #connect to database
   #start interface
-  startint(\%env,'Circulation');
+  &startint(\%env,'Circulation');
   my ($reason,$data)=menu('console','Circulation',('Issues','Returns','Borrower Enquiries'));
   my $donext;
   if ($data eq 'Issues'){  

C4/Circulation/Issues.pm

@@ -92,7 +92,7 @@ sub Issue  {
     }
     #check if member has a card reported as lost
     if ($borrower->{'lost'} ==1){
-      #updae member info
+      #update member info
       output(20,1,"Borrower has lost card");
     }
     #check the notes field if notes exist display them
@@ -168,7 +168,7 @@ sub processitems {
     # }
   } else {
     #check if item is on issue already
-    $my $currbor = &previousissue(\%env,$item->{'itemnumber'},$dbh,$bornum);
+    my $currbor = &previousissue(\%env,$item->{'itemnumber'},$dbh,$bornum);
     #check reserve
     &checkreserve;
     #if charge deal with it

testissue.pl

@@ -1,9 +1,22 @@
 #!/usr/bin/perl
 
 use strict;
+use C4::Security;
 use C4::Circulation;
 
-
-Start_circ();
+# 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 => ""
+  );
+Login(\%env);
+Start_circ(\%env);
 #my@date=Issue();
 #print @date;