[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha delbiblio.pl modbib.pl [dev_week]
From: |
Joshua Ferraro |
Subject: |
[Koha-cvs] koha delbiblio.pl modbib.pl [dev_week] |
Date: |
Sat, 23 Sep 2006 23:58:26 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Joshua Ferraro <kados> 06/09/23 23:58:26
Removed files:
. : delbiblio.pl modbib.pl
Log message:
removing unused files
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/delbiblio.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.8&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/modbib.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.14.4.3&r2=0
Patches:
Index: delbiblio.pl
===================================================================
RCS file: delbiblio.pl
diff -N delbiblio.pl
--- delbiblio.pl 29 Jun 2003 01:27:36 -0000 1.8
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,49 +0,0 @@
-#!/usr/bin/perl
-
-#script to delete biblios
-#written 2/5/00
-#by address@hidden
-
-
-# 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 C4::Search;
-use CGI;
-use C4::Output;
-use C4::Biblio;
-
-my $input = new CGI;
-#print $input->header;
-
-
-my $biblio=$input->param('biblio');
-# check no items attached
-my $count=C4::Biblio::itemcount($biblio);
-
-
-#print $count;
-if ($count > 0){
- print $input->header;
- print "This biblio has $count items attached, please delete them before
deleting this biblio<p>
- ";
-} else {
- delbiblio($biblio);
- print $input->redirect("/cgi-bin/koha/loadmodules.pl?module=search");
-}
Index: modbib.pl
===================================================================
RCS file: modbib.pl
diff -N modbib.pl
--- modbib.pl 5 Feb 2006 21:59:20 -0000 1.14.4.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,109 +0,0 @@
-#!/usr/bin/perl
-
-# $Id: modbib.pl,v 1.14.4.3 2006/02/05 21:59:20 kados Exp $
-
-#script to modify/delete biblios
-#written 8/11/99
-# modified 11/11/99 by address@hidden
-# modified 12/16/2002 by address@hidden : templating
-
-
-# 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 C4::Search;
-use CGI;
-use C4::Output;
-use HTML::Template;
-use C4::Auth;
-use C4::Context;
-use C4::Interface::CGI::Output;
-
-my $input = new CGI;
-
-my $bibnum=$input->param('bibnum');
-my $data=&bibdata($bibnum);
-my ($subjectcount, $subject) = &subject($bibnum);
-my ($subtitlecount, $subtitle) = &subtitle($bibnum);
-my ($addauthorcount, $addauthor) = &addauthor($bibnum);
-my $sub = $subject->[0]->{'subject'};
-my $additional = $addauthor->[0]->{'author'};
-my $dewey;
-my $submit=$input->param('submit.x');
-if ($submit eq '') {
- print $input->redirect("/cgi-bin/koha/delbiblio.pl?biblio=$bibnum");
-} # if
-
-my ($template, $loggedinuser, $cookie)
- = get_template_and_user({template_name => "modbib.tmpl",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {acquisition => 1},
- debug => 1,
- });
-
-# have to get all subtitles, subjects and additional authors
-$sub = join("|", map { $_->{'subject'} } @{$subject});
-
-$additional = join("|", map { $_->{'author'} } @{$addauthor});
-
-$dewey = $data->{'dewey'};
-$dewey =~ s/0+$//;
-if ($dewey eq "000.") {
- $dewey = "";
-} # if
-if ($dewey < 10) {
- $dewey = '00' . $dewey;
-} # if
-if ($dewey < 100 && $dewey > 10) {
- $dewey = '0' . $dewey;
-} # if
-if ($dewey <= 0){
- $dewey='';
-} # if
-$dewey = ~ s/\.$//;
-
-$data->{'title'} = &tidyhtml($data->{'title'});
-
-$template->param ( biblionumber => $bibnum,
- biblioitemnumber =>
$data->{'biblioitemnumber'},
- author => $data->{'author'},
- title => $data->{'title'},
- abstract => $data->{'abstract'},
- subject => $sub,
- copyrightdate =>
$data->{'copyrightdate'},
- seriestitle =>
$data->{'seriestitle'},
- additionalauthor => $additional,
- subtitle => $data->{'subtitle'},
- unititle => $data->{'unititle'},
- notes => $data->{'bnotes'},
- serial => $data->{'serial'},
- intranetcolorstylesheet =>
C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet =>
C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
- );
-
-output_html_with_http_headers $input, $cookie, $template->output;
-
-sub tidyhtml {
- my ($inp)address@hidden;
- $inp=~ s/\"/\"\;/g;
- return($inp);
-}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha delbiblio.pl modbib.pl [dev_week],
Joshua Ferraro <=