[Koha-cvs] CVS: koha modbib.pl,1.4,1.5
Paul POULAIN
tipaul at users.sourceforge.net
Fri Jun 28 14:07:18 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv15393
Modified Files:
modbib.pl
Log Message:
merging 1.2 and main. Diffs are due to new features.
Index: modbib.pl
===================================================================
RCS file: /cvsroot/koha/koha/modbib.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** modbib.pl 14 May 2002 11:26:09 -0000 1.4
--- modbib.pl 28 Jun 2002 12:07:16 -0000 1.5
***************
*** 13,19 ****
my $input = new CGI;
! my $submit = $input->param('submit.x');
! my $bibnum = $input->param('bibnum');
! my $data = &bibdata($bibnum);
my ($subjectcount, $subject) = &subject($data->{'biblionumber'});
my ($subtitlecount, $subtitle) = &subtitle($data->{'biblionumber'});
--- 13,18 ----
my $input = new CGI;
! my $bibnum=$input->param('bibnum');
! my $data=&bibdata($bibnum);
my ($subjectcount, $subject) = &subject($data->{'biblionumber'});
my ($subtitlecount, $subtitle) = &subtitle($data->{'biblionumber'});
***************
*** 23,27 ****
my %inputs;
my $dewey;
!
if ($submit eq '') {
print $input->redirect("/cgi-bin/koha/delbiblio.pl?biblio=$bibnum");
--- 22,26 ----
my %inputs;
my $dewey;
! my $submit=$input->param('submit.x');
if ($submit eq '') {
print $input->redirect("/cgi-bin/koha/delbiblio.pl?biblio=$bibnum");
***************
*** 32,36 ****
# my ($analyticauthor) = &analytic($biblionumber,'a');
print startpage();
! print startmenu();
# have to get all subtitles, subjects and additional authors
--- 31,36 ----
# my ($analyticauthor) = &analytic($biblionumber,'a');
print startpage();
! print startmenu('catalogue');
! my %inputs;
# have to get all subtitles, subjects and additional authors
More information about the Koha-cvs
mailing list