gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* check that an item is not on loan before deleting it (proposal from Tmer) 

* escape " to &
This commit is contained in:
tipaul 2006-03-20 15:16:08 +00:00
parent 49a319a92e
commit ebf980a10b
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
acqui.simple/additem.pl
View File

@ -119,9 +119,17 @@ if ($op eq "additem") {
#------------------------------------------------------------------------------------------------------------------------------
} elsif ($op eq "delitem") {
#------------------------------------------------------------------------------------------------------------------------------
# retrieve item if exist => then, it's a modif
&NEWdelitem($dbh,$bibid,$itemnum);
$nextop="additem";
# check that there is no issue on this item before deletion.
my $sth=$dbh->prepare("select * from issues i where i.returndate is null and i.itemnumber=?");
$sth->execute($itemnum);
my $onloan=$sth->fetchrow;
push @errors,"book_on_loan" if ($onloan); ##error book_on_loan added to template as well
if ($onloan){
$nextop = "additem";
}else{
&NEWdelitem($dbh,$bibid,$itemnum);
$nextop="additem";
}
#------------------------------------------------------------------------------------------------------------------------------
} elsif ($op eq "saveitem") {
#------------------------------------------------------------------------------------------------------------------------------
@ -212,6 +220,7 @@ for (my $i=0;$i<=$#big_array; $i++) {
$items_data .="<td>".$big_array[$i]{$subfield_code}."</td>";
}
my %row_data;
$items_data =~ s/"/&quot;/g;
$row_data{item_value} = $items_data;
$row_data{itemnum} = $big_array[$i]->{itemnum};
#reporting this_row values
@ -244,6 +253,7 @@ foreach my $tag (sort keys %{$tagslib}) {
$subfield_data{repeatable}=$tagslib->{$tag}->{$subfield}->{repeatable};
my ($x,$value);
($x,$value) = find_value($tag,$subfield,$itemrecord) if ($itemrecord);
$value =~ s/"/&quot;/g;
#testing branch value if IndependantBranches.
my $test = (C4::Context->preference("IndependantBranches")) &&
($tag eq $branchtagfield) && ($subfield eq $branchtagsubfield) &&

3
koha-tmpl/intranet-tmpl/default/en/acqui.simple/additem.tmpl
View File

@ -66,6 +66,9 @@
<!-- TMPL_IF name="barcode_not_unique" -->
<div id="problem"><b>ERROR : Barcode already exists !<b></div>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="book_on_loan" -->
<div id="problem"><b>ERROR : Item on loan : can't delete it !<b></div>
<!-- /TMPL_IF -->
<!-- TMPL_IF name="opisadd" -->
<input type="button" value="Add item" onClick="Check(this.form)" accesskey="w" class="button catalogue">
<!-- TMPL_ELSE -->