Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

merging 1.2 and main. Diffs are due to new features.

Browse source
This commit is contained in:
tipaul 2002-06-28 12:07:16 +00:00
parent 33947ff039
commit 466a1e3837
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
modbib.pl
View file

@ -12,9 +12,8 @@ use C4::Output;
my $input = new CGI;
my $submit = $input->param('submit.x');
my $bibnum = $input->param('bibnum');
my $data = &bibdata($bibnum);
my $bibnum=$input->param('bibnum');
my $data=&bibdata($bibnum);
my ($subjectcount, $subject) = &subject($data->{'biblionumber'});
my ($subtitlecount, $subtitle) = &subtitle($data->{'biblionumber'});
my ($addauthorcount, $addauthor) = &addauthor($data->{'biblionumber'});
@ -22,7 +21,7 @@ my $sub = $subject->[0]->{'subject'};
my $additional = $addauthor->[0]->{'author'};
my %inputs;
my $dewey;
my $submit=$input->param('submit.x');
if ($submit eq '') {
print $input->redirect("/cgi-bin/koha/delbiblio.pl?biblio=$bibnum");
} # if
@ -31,7 +30,8 @@ print $input->header;
# my ($analytictitle) = &analytic($biblionumber,'t');
# my ($analyticauthor) = &analytic($biblionumber,'a');
print startpage();
print startmenu();
print startmenu('catalogue');
my %inputs;
# have to get all subtitles, subjects and additional authors
for (my $i = 1; $i < $subjectcount; $i++) {