Working on web interface

C4/Search.pm

@@ -15,7 +15,7 @@ $VERSION = 0.01;
     
 @ISA = qw(Exporter);
 @EXPORT = qw(&CatSearch &BornameSearch &ItemInfo &KeywordSearch &subsearch
-&itemdata &bibdata &GetItems &borrdata &getacctlist &itemnodata); 
+&itemdata &bibdata &GetItems &borrdata &getacctlist &itemnodata &itemcount); 
 %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
 		  
 # your exported package globals go here,
@@ -55,7 +55,7 @@ sub KeywordSearch {
   my ($env,$type,$search,$num,$offset)=@_;
   my $dbh = &C4Connect;
   my $query ="Select count(*) from biblio where author like
-'%$search->{'keyword'}%' or
+  '%$search->{'keyword'}%' or
   title like '%$search->{'keyword'}%'";
 
   my $sth=$dbh->prepare($query);
@@ -154,14 +154,14 @@ sub CatSearch  {
   my $i=0;
   my $i2=0;
   my $limit=$num+$offset;
-
+#  print $query;
   if ($search->{'title'} ne '' || $search->{'author'} ne '' ){
     while ((my $data=$sth->fetchrow_hashref) && $i < $limit){
-      if ($i >= $offset){
+#      if ($i >= $offset){
         $results[$i2]="$data->{'biblionumber'}\t$data->{'title'}\t$data->{'author'}";
         $i2++;
-      }
-      $i++;
+#      }
+#      $i++;
     }
   } else {
     while (my $data=$sth->fetchrow_hashref){
@@ -388,7 +388,41 @@ sub getacctlist {
    }
    return ($numlines,\@acctlines,$total);
 }
-				      
+
+sub itemcount {
+  my ($env,$bibnum)=@_;
+  my $dbh=C4Connect;
+  my $query="Select * from items where
+  biblionumber=$bibnum";
+  my $sth=$dbh->prepare($query); 
+#  print $query;
+  $sth->execute;
+  my $count=0;
+  my $lcount=0;
+  my $nacount=0;
+  while (my $data=$sth->fetchrow_hashref){
+    $count++;
+    my $query2="select * from issues where itemnumber=
+    '$data->{'itemnumber'}'";
+#    print $query2;
+    my $sth2=$dbh->prepare($query2);
+    $sth2->execute;
+    if (my $data2=$sth2->fetchrow_hashref){
+      $nacount++;
+    } else {
+      if ($data->{'holdingbranch'}='L'){
+        $lcount++;
+      }
+    }
+    $sth2->finish;
+  }
+  $sth->finish;
+  print $lcount;
+  print $nacount;
+  return $count;
+  $dbh->disconnect;
+}
+
 END { }       # module clean-up code here (global destructor)
 
 

addborrower.pl

@@ -2,6 +2,7 @@
 
 #script to guide user thru adding/modifying a borrower entry
 #written 22/11/99
+#update 21/12/99 by chris@katipo.co.nz
 
 use strict;
 #use C4::Search;
@@ -96,7 +97,7 @@ if ($action eq 'S') {
   $inputs{'contactname'}  ="18\tR\tContact Name\ttext\t40\t$data->{'contactname'}";
   $inputs{'borrowernotes'}="19\t\tNotes\ttextarea\t40x4\t$data->{'borrowernotes'}";
   $inputs{'type'}         ="20\t\t\thidden\tborrowers";
-  $inputs{'updtype'}      ="I";
+  $inputs{'updtype'}      ="21\t\t\thidden\tI";
   if ($action eq "M") {
     $inputs{'updtype'} = "\21\t\t\thidden\tM";
     $inputs{'borrowernumber'} ="22\t\t\thidden\t$data->{'borrowernumber'}";

search.pl

@@ -9,6 +9,7 @@ use C4::Search;
 use CGI;
 use C4::Output;
 
+my $env;
 my $input = new CGI;
 print $input->header;
 #print $input->dump;
@@ -72,7 +73,7 @@ print mktablehdr;
 if ($subject ne ''){
   print mktablerow(1,'#cccc99','<b>SUBJECT</b>');
 } else {
-  print mktablerow(2,'#cccc99','<b>TITLE</b>','<b>AUTHOR</b>');
+  print mktablerow(3,'#cccc99','<b>TITLE</b>','<b>AUTHOR</b>','<b>ITEM COUNT</b>');
 }
 my $count2=@results;
 my $i=0;
@@ -89,22 +90,24 @@ while ($i < $count2){
       $word=~ s/\n//g;
       my $url="/cgi-bin/kumara/search.pl?author=$word&type=a";
       $stuff[2]=mklink($url,$stuff[2]);
+      my $count=itemcount($env,$stuff[0]);
+      $stuff[3]=$count;
     } else {
       my $word=$stuff[1];
       $word=~ s/ /%20/g;
       $stuff[1]=mklink("/cgi-bin/kumara/subjectsearch.pl?subject=$word",$stuff[1]);
     }
     if ($colour == 1){
-      print mktablerow(2,'#ffffcc',$stuff[1],$stuff[2]);
+      print mktablerow(3,'#ffffcc',$stuff[1],$stuff[2],$stuff[3]);
       $colour=0;
     } else{
-      print mktablerow(2,'white',$stuff[1],$stuff[2]);
+      print mktablerow(3,'white',$stuff[1],$stuff[2],$stuff[3]);
       $colour=1;
     }
     $i++;
 }
 $offset=$num+$offset;
-print mktablerow(2,'#cccc99',' &nbsp; ',' &nbsp; ');
+print mktablerow(3,'#cccc99',' &nbsp; ',' &nbsp; ',' &nbsp;');
 print mktableft();
 if ($offset < $count){
     my $search="num=$num&offset=$offset";