Browse Source

got deleting items going

master
chris 24 years ago
parent
commit
e1baf13717
  1. 12
      C4/Acquisitions.pm
  2. 18
      delitem.pl
  3. 12
      moditem.pl
  4. 4
      moredetail.pl

12
C4/Acquisitions.pm

@ -15,7 +15,7 @@ $VERSION = 0.01;
&newordernum &modbiblio &modorder &getsingleorder &invoice &receiveorder
&bookfundbreakdown &curconvert &updatesup &insertsup &makeitems &modbibitem
&getcurrencies &modsubtitle &modsubject &modaddauthor &moditem &countitems
&findall &needsmod);
&findall &needsmod &delitem);
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
# your exported package globals go here,
@ -676,6 +676,16 @@ sub needsmod{
return($result);
}
sub delitem{
my ($itemnum)=@_;
my $dbh=C4Connect;
my $query="Delete from items where itemnumber=$itemnum";
my $sth=$dbh->prepare($query);
$sth->execute;
$sth->finish;
$dbh->disconnect;
}
END { } # module clean-up code here (global destructor)

18
delitem.pl

@ -0,0 +1,18 @@
#!/usr/bin/perl
#script to delete items
#written 2/5/00
#by chris@katipo.co.nz
use strict;
use C4::Search;
use CGI;
use C4::Output;
use C4::Acquisitions;
my $input = new CGI;
my $item=$input->param('itemnum');
delitem($item);
my $bibitemnum=$input->param('bibitemnum');
print $input->redirect("/cgi-bin/koha/moredetail.pl?bi=$bibitemnum");

12
moditem.pl

@ -12,10 +12,18 @@ use C4::Output;
use C4::Acquisitions;
my $input = new CGI;
print $input->header;
my $submit=$input->param('delete.x');
my $itemnum=$input->param('item');
my $bibitemnum=$input->param('bibitem');
if ($submit ne ''){
print $input->redirect("/cgi-bin/koha/delitem.pl?itemnum=$itemnum&bibitemnum=$bibitemnum");
}
print $input->header;
#print $input->dump;
my $data=bibitemdata($bibitemnum);
my $itemnum=$input->param('item');
my $item=itemnodata('blah','',$itemnum);
#my ($analytictitle)=analytic($biblionumber,'t');
#my ($analyticauthor)=analytic($biblionumber,'a');

4
moredetail.pl

@ -63,7 +63,7 @@ print <<printend
<tr VALIGN=TOP >
<TD width=210 >
<INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif">
<INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif">
<INPUT TYPE="image" name="submit" VALUE="delete" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif">
<br>
<FONT SIZE=2 face="arial, helvetica">
<b>Biblionumber:</b> $bib<br>
@ -102,7 +102,7 @@ print <<printend
<input type=hidden name=bibitem value=$bi>
<input type=hidden name=item value=$items[$i]->{'itemnumber'}>
<INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/modify-mem.gif">
<INPUT TYPE="image" name="submit" VALUE="modify" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif">
<INPUT TYPE="image" name="delete" VALUE="delete" height=42 WIDTH=93 BORDER=0 src="/images/delete-mem.gif">
<br>
printend
;

Loading…
Cancel
Save