getting more mod item functionaltity

C4/Acquisitions.pm

@@ -292,7 +292,7 @@ sub modbiblio {
   where
   biblionumber=$bibnum";
   my $sth=$dbh->prepare($query);
-#    print $query;
+    print $query;
   $sth->execute;
   $sth->finish;
   $dbh->disconnect;
@@ -613,7 +613,7 @@ sub makeitems {
 }
 
 sub moditem {
-  my ($itemnum,$bibitemnum,$barcode,$notes)=@_;
+  my ($itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn)=@_;
   my $dbh=C4Connect;
   my $query="update items set biblioitemnumber=$bibitemnum,
   barcode='$barcode',itemnotes='$notes'
@@ -621,6 +621,12 @@ sub moditem {
   if ($barcode eq ''){
     $query="update items set biblioitemnumber=$bibitemnum where itemnumber=$itemnum";
   }
+  if ($lost ne ''){
+    $query="update items set biblioitemnumber=$bibitemnum,
+      barcode='$barcode',itemnotes='$notes',homebranch='$homebranch',
+      itemlost='$lost',wthdrawn='$wthdrawn' where itemnumber=$itemnum";
+  }
+
   my $sth=$dbh->prepare($query);
   $sth->execute;
   $sth->finish;

C4/Search.pm

@@ -372,7 +372,7 @@ sub CatSearch  {
 	$sth1->finish;
       }
   }
-#print $query;
+print $query;
   my $sth=$dbh->prepare($query);
 #  if ($search->{'isbn'} eq ''){
     $sth->execute;

moditem.pl

@@ -63,6 +63,8 @@ $inputs{'Illustrations'}="hidden\t$data->{'illustration'}\t10";
 $inputs{'ItemNotes'}="textarea\t$item->{'itemnotes'}\t15";
 #$inputs{'Serial'}="text\t$data->{'serial'}\t16";
 $inputs{'Volume'}="hidden\t$data->{'volumeddesc'}\t17";
+$inputs{'Home Branch'}="text\t$item->{'homebranch'}\t18";
+$inputs{'Lost'}="radio\t$item->{'itemlost'}\t19";
 #$inputs{'Analytic author'}="text\t\t18";
 #$inputs{'Analytic title'}="text\t\t19";
 
@@ -74,47 +76,65 @@ $inputs{'itemnumber'}="hidden\t$itemnum\t22";
 
 print <<printend
 <FONT SIZE=6><em>$data->{'title'} ($data->{'author'})</em></FONT><br>
+<table border=0 cellspacing=0 cellpadding=5>
+<tr valign=top bgcolor=white><td><form action=updateitem.pl method=post>
+<table border=0 cellspacing=0 cellpadding=5>
+<tr valign=top bgcolor=white><td>Barcode</td><td><input type=text name=Barcode value="$item->{'barcode'}" size=40></td></tr>
+<input type=hidden name=Class value="$data->{'classification'}$dewey$data->{'subclass'}">
+<input type=hidden name=Publisher value="$data->{'publisher'}">
+<input type=hidden name=ISBN value="$data->{'isbn'}">
+<input type=hidden name=Publication Year value="$data->{'publicationyear'}">
+<input type=hidden name=Pages value="$data->{'pages'}">
+<input type=hidden name=Illustrations value="$data->{'illustration'}">
+<tr valign=top bgcolor=white><td>ItemNotes</td><td><textarea name=ItemNotes cols=40 rows=4>$item->{'itemnotes'}</textarea></td></tr>
+<input type=hidden name=Volume value="$data->{'volumeddesc'}">
+<tr valign=top bgcolor=white><td>Home Branch</td><td><input type=text name=Home Branch value="$item->{'homebranch'}" size=40></td></tr>
+<tr valign=top bgcolor=white><td>Lost</td><td><input type=radio name=Lost value=1
 printend
 ;
-my @formats=findall($data->{'biblionumber'});
-my $count=@formats;
-my $format="<TABLE  CELLSPACING=0  CELLPADDING=5 border=1 align=left width=\"220\">
-";
-my $i=0;
-while ($i<$count){
-  $format.="<TR VALIGN=TOP>
-  <td  bgcolor=\"#cccc99\" background=\"/images/background-mem.gif\">
-  <B>FORMAT - $formats[$i]->{'description'}</TD></TR>
-  <tr VALIGN=TOP  >
-  <TD>
-  <FONT SIZE=2  face=\"arial, helvetica\">
-  <b>ISBN:</b> $formats[$i]->{'isbn'}<br>
-  <b>Item type:</b> $formats[$i]->{'itemtype'}<br>
-  <b>Class:</b>  $formats[$i]->{'classification'}
-  ";
-  my $bibitemnumber=$formats[$i]->{'biblioitemnumber'};
-  while ($bibitemnumber == $formats[$i]->{'biblioitemnumber'}){
-    $format.="<hr>
-    <b>Item:</b> <a href=\"/cgi-bin/koha/moredetail.pl?item=36358&bib=12073&bi=61386\">$formats[$i]->{'barcode'}</a><br>
-    <b>Location:</b> $formats[$i]->{'holdingbranch'}<br>
-    <b>Last Seen:</b> $formats[$i]->{'datelastseen'}
-    </font>";
-    $bibitemnumber=$formats[$i]->{'biblioitemnumber'};
-    $i++;
-  }
-#  $i++;
-  $format.="</td></TR>";
+if ($item->{'itemlost'} ==1){
+  print " checked ";
 }
-					     
+print <<printend
+>Yes
+<input type=radio name=Lost value=0
+printend
+;
+if ($item->{'itemlost'} ==0){
+  print " checked ";
+}
+print <<printend
+>No</td></tr>
+<tr valign=top bgcolor=white><td>Cancelled</td><td><input type=radio name=withdrawn value=1
+printend
+;
+if ($item->{'wthdrawn'} ==1){
+  print " checked ";
+}
+print <<printend
+>Yes
+<input type=radio name=withdrawn value=0
+printend
+;
+if ($item->{'wthdrawn'} ==0){
+  print " checked ";
+}
+print <<printend
+>No</td></tr>
+<input type=hidden name=bibnum value="$data->{'biblionumber'}">	
+<input type=hidden name=bibitemnum value="$data->{'biblioitemnumber'}">
+<input type=hidden name=itemnumber value="$itemnum">
+<tr valign=top bgcolor=white><td><input type=submit></td></tr>
+</table>
+</form></td></tr>
+</table>
+	
+printend
+;
 
-$format.="</table>";
-my $rightside=mkform3('updateitem.pl',%inputs);
 
 
-print mktablehdr();
-print mktablerow(1,'white',$rightside);
 
-print mktableft();
 
 print endmenu();
 print endpage();

updatebiblio.pl

@@ -7,7 +7,7 @@ use C4::Acquisitions;
 use C4::Output;
 
 my $input= new CGI;
-#print $input->header;
+print $input->header;
 #print $input->dump;
 
 

updateitem.pl

@@ -32,6 +32,9 @@ my $isbn=checkinp($input->param('ISBN'));
 my $publishercode=checkinp($input->param('Publisher'));
 my $publicationdate=checkinp($input->param('Publication'));
 my $class=checkinp($input->param('Class'));
+my $homebranch=checkinp($input->param('Home'));
+my $lost=$input->param('Lost');
+my $wthdrawn=$input->param('withdrawn');
 my $classification;
 my $dewey;
 my $subclass;
@@ -70,7 +73,7 @@ my $volumeddesc=checkinp($input->param('Volume'));
 #  }
 #} 
 #modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc);
-moditem($itemnum,$bibitemnum,$barcode,$notes);
+moditem($itemnum,$bibitemnum,$barcode,$notes,$homebranch,$lost,$wthdrawn);
 
 print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");
 #print $bibitemnum;