diff -rc koha-2.2.5-orig/intranet-cgi/acqui.simple/addbiblio.pl koha-2.2.5-patch/intranet-cgi/acqui.simple/addbiblio.pl *** koha-2.2.5-orig/intranet-cgi/acqui.simple/addbiblio.pl 2006-01-13 14:24:18.000000000 -0700 --- koha-2.2.5-patch/intranet-cgi/acqui.simple/addbiblio.pl 2006-05-23 16:19:52.000000000 -0600 *************** *** 445,450 **** --- 447,457 ---- } else { ($bibid,$oldbibnum,$oldbibitemnum) = NEWnewbiblio($dbh,$record,$frameworkcode); } + + if ($breedingid) { # came from breeding table. delete! + my $sth = $dbh->prepare("DELETE FROM marc_breeding WHERE id=?"); + $sth->execute($breedingid); + } # now, redirect to additem page print $input->redirect("additem.pl?bibid=$bibid&frameworkcode=$frameworkcode"); exit; *************** *** 525,530 **** --- 532,538 ---- $template->param( frameworkcode => $frameworkcode, itemtype => $frameworkcode, # HINT: if the library has itemtype = framework, itemtype is auto filled ! + breedingid => $breedingid, hide_marc => C4::Context->preference('hide_marc'), ); output_html_with_http_headers $input, $cookie, $template->output; Only in koha-2.2.5-patch/intranet-cgi/export: deletebreeding.pl # File Follows ... export/deletebreeding.pl #!/usr/bin/perl # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. # # Koha is free software; you can redistribute it and/or modify it under the # terms of the GNU General Public License as published by the Free Software # Foundation; either version 2 of the License, or (at your option) any later # version. # # Koha is distributed in the hope that it will be useful, but WITHOUT ANY # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # # You should have received a copy of the GNU General Public License along with # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, # Suite 330, Boston, MA 02111-1307 USA use strict; use CGI; use C4::Auth; use C4::Interface::CGI::Output; use C4::Breeding; use C4::Context; my $dbh = C4::Context->dbh; my $input = new CGI; my ($template, $loggedinuser, $cookie) = get_template_and_user({template_name => "export/deletebreeding.tmpl", query => $input, type => "intranet", authnotrequired => 0, flagsrequired => {editcatalogue => 1}, debug => 1, }); # remove records my $op = $input->param('op'); if ($op eq 'Delete') { my @params=$input->param(); my $count=0; my $sth = $dbh->prepare("DELETE FROM marc_breeding WHERE id=?"); foreach (@params) { my $breedingid = $1 if ($_ =~ /d_(\d+)/); if ($breedingid) { $sth->execute($breedingid); $count++; } } $template->param( deleted => $count, ); } # fill with books in breeding farm my $toggle=0; my $sth = $dbh->prepare("SELECT * FROM marc_breeding ORDER BY title, file"); $sth->execute; my @resultsbr = @{ $sth->fetchall_arrayref({}) }; my @breeding_loop = (); for ( my $i = 0 ; $i <= $#resultsbr ; $i++ ) { my %row_data; $toggle = ! $toggle; $row_data{toggle} = $toggle; $row_data{id} = $resultsbr[$i]->{'id'}; $row_data{isbn} = $resultsbr[$i]->{'isbn'}; $row_data{file} = $resultsbr[$i]->{'file'}; $row_data{title} = $resultsbr[$i]->{'title'}; $row_data{author} = $resultsbr[$i]->{'author'}; push ( @breeding_loop, \%row_data ); } $template->param( breeding_loop => \@breeding_loop, ); output_html_with_http_headers $input, $cookie, $template->output; File Follows ... intranet-tmpl/npl-ish/en/export/deletebreeding.tmpl Koha -- Cataloging: Reservoir Management

MARC acquisition system

Delete from the reservoir

Results :

class="highlight">
Information about MARC records in the reservoir
TitleAuthorISBNComing From 
" value="y" />

There are no records in the Reservoir