Koha-community/kumara
2
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

getting more mod item functionaltity

Browse source
This commit is contained in:
chris 2000-05-12 00:03:59 +00:00
parent 92252c0517
commit 320e320981
5 changed files with 69 additions and 40 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
C4/Acquisitions.pm
View file

@ -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;

2
C4/Search.pm
View file

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

90
moditem.pl
View file

@ -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 ";
}
$format.="</table>";
my $rightside=mkform3('updateitem.pl',%inputs);
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
;
print mktablehdr();
print mktablerow(1,'white',$rightside);
print mktableft();
print endmenu();
print endpage();

2
updatebiblio.pl
View file

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

5
updateitem.pl
View file

@ -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;