[Koha-devel] CVS: koha detail.pl,1.4,1.5 modbib.pl,1.1.1.1,1.2 updatebiblio.pl,1.1.1.1,1.2

[Gynn Lomax]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv16527

Modified Files:
        detail.pl modbib.pl updatebiblio.pl 
Log Message:
Update to catalogue to allow change of biblio abstracts.
Related modifications to acqui system to match changes in Acquisition.pm
detail.pm changed to show abstract - still working on how to show url's


Index: detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/detail.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** detail.pl   3 May 2002 02:47:33 -0000       1.4
--- detail.pl   9 May 2002 03:01:40 -0000       1.5
***************
*** 14,31 ****
  my $title = $input->param('title');
  my @items = &ItemInfo(undef, $bib, $type);
  my $dat   = &bibdata($bib);
  my $count = @items;
! my ($count3, $addauthor) = &addauthor($bib);
  my $additional = $addauthor->[0]->{'author'};
- my @temp       = split('\t', $items[0]);
  my $main;
  my $secondary;
  
! if ($type eq ''){
      $type = 'opac';
  } # if
  
  # setup colours
! if ($type eq 'opac'){
      $main      = '#99cccc';
      $secondary = '#efe5ef';
--- 14,33 ----
  my $title = $input->param('title');
  my @items = &ItemInfo(undef, $bib, $type);
+ my @temp  = split('\t', $items[0]);
  my $dat   = &bibdata($bib);
  my $count = @items;
! my ($authorcount, $addauthor) = &addauthor($bib);
  my $additional = $addauthor->[0]->{'author'};
  my $main;
  my $secondary;
+ my $colour;
  
! 
! if ($type eq '') {
      $type = 'opac';
  } # if
  
  # setup colours
! if ($type eq 'opac') {
      $main      = '#99cccc';
      $secondary = '#efe5ef';
***************
*** 34,37 ****
--- 36,44 ----
      $secondary = '#ffffcc';
  } # else
+ $colour = $secondary;
+ 
+ for (my $i = 1; $i < $authorcount; $i++) {
+     $additional .= "|" . $addauthor->[$i]->{'author'};
+ } # for
  
  print $input->header;
***************
*** 41,52 ****
  if ($type ne 'opac'){
      print << "EOF";
! <a href=request.pl?bib=$bib><img height=42  WIDTH=120 BORDER=0 
src=\"/images/requests.gif\" align=right border=0></a>
  EOF
  } # if
  
- for (my $i = 1; $i < $count3; $i++) {
-     $additional .= "|" . $addauthor->[$i]->{'author'};
- } # for
- 
  if ($type eq 'catmain'){
    print mkheadr(3,"Catalogue Maintenance");
--- 48,55 ----
  if ($type ne 'opac'){
      print << "EOF";
! <a href=request.pl?bib=$bib><img height=42  WIDTH=120 BORDER="0" 
src=\"/images/requests.gif\" align="right" border="0"></a>
  EOF
  } # if
  
  if ($type eq 'catmain'){
    print mkheadr(3,"Catalogue Maintenance");
***************
*** 57,97 ****
  } else {
    print mkheadr(3,"$dat->{'title'} $temp[4]");
! }
! print << "EOF";
! 
! <TABLE  CELLSPACING=0  CELLPADDING=5 border=1 align=left width="220">
  
  <!-----------------BIBLIO RECORD TABLE--------->
  
! 
! <form action=/cgi-bin/koha/modbib.pl method=post>
! <input type=hidden name=bibnum value=$bib>
! <TR VALIGN=TOP>
! 
! <td  bgcolor="$main" 
  EOF
  
- if ($type ne 'opac'){
-  print "background=\"/images/background-mem.gif\"";
- }
  print << "EOF";
! ><B>BIBLIO RECORD 
  EOF
  
! if ($type ne 'opac'){
    print "$bib";
  }
- print << "EOF";
- </TD></TR>
  
  
! <tr VALIGN=TOP  >
! <TD>
  EOF
  
- if ($type ne 'opac'){
-   print "<INPUT TYPE=\"image\" name=\"submit\"  VALUE=\"modify\" height=42  
WIDTH=93 BORDER=0 src=\"/images/modify-mem.gif\"> 
-   <INPUT TYPE=\"image\" name=\"delete\"  VALUE=\"delete\" height=42  WIDTH=93 
BORDER=0 src=\"/images/delete-mem.gif\">";
- }
  print << "EOF";
  <br>
--- 60,106 ----
  } else {
    print mkheadr(3,"$dat->{'title'} $temp[4]");
! } # if
  
+ print << "EOF";
+ <table cellspacing="0" callpadding="5" border="1" align="left" width="220">
  <!-----------------BIBLIO RECORD TABLE--------->
+ <tr valign="top">
+ EOF
  
! if ($type ne 'opac') {
!     print << "EOF";
! <td bgcolor="$main" background="/images/background-mem.gif">
  EOF
+ } else {
+     print << "EOF";
+ <td bgcolor="$main">
+ EOF
+ } # else
  
  print << "EOF";
! <b>BIBLIO RECORD</b>
  EOF
  
! if ($type ne 'opac') {
    print "$bib";
  }
  
+ print << "EOF";
+ </td>
+ </tr>
+ <tr valign="top">
+ <td>
+ EOF
  
! if ($type ne 'opac') {
!   print << "EOF";
! <form action="/cgi-bin/koha/modbib.pl" method="post">
! <input type="hidden" name="bibnum" value="$bib">
! <input type="image" name="submit" value="modify" height="42" width="93" 
border="0" src="/images/modify-mem.gif"> 
! <input type="image" name="delete" value="delete" height="42" width="93" 
border="0" src="/images/delete-mem.gif">
! </form>
  EOF
+ } # if
  
  print << "EOF";
  <br>
***************
*** 100,105 ****
  
  
! if ($type ne 'opac'){
! print << "EOF";
  <b>Subtitle:</b> $dat->{'subtitle'}<br>
  <b>Author:</b> $dat->{'author'}<br>
--- 109,114 ----
  
  
! if ($type ne 'opac') {
!     print << "EOF";
  <b>Subtitle:</b> $dat->{'subtitle'}<br>
  <b>Author:</b> $dat->{'author'}<br>
***************
*** 117,247 ****
  EOF
  
! }
! else {
! if ($dat->{'subtitle'} ne ''){
!   print "<b>Subtitle:</b> $dat->{'subtitle'}<br>";
! }
! if ($dat->{'author'} ne ''){
!   print "<b>Author:</b> $dat->{'author'}<br>";
! }
! #Additional Author: <br>
! if ($dat->{'seriestitle'} ne ''){
!   print "<b>Seriestitle:</b> $dat->{'seriestitle'}<br>";
! }
! if ($dat->{'subject'} ne ''){
!   print "<b>Subject:</b> $dat->{'subject'}<br>";
! }
! if ($dat->{'copyrightdate'} ne ''){
!   print "<b>Copyright:</b> $dat->{'copyrightdate'}<br>";
! }
! if ($dat->{'notes'} ne ''){
!   print "<b>Notes:</b> $dat->{'notes'}<br>";
! }
! if ($dat->{'unititle'} ne ''){
!   print "<b>Unititle:</b> $dat->{'unititle'}<br>";
! }
! #Analytical Author: <br>
! #Analytical Title: <br>
! if ($dat->{'serial'} ne '0'){
!  print "<b>Serial:</b> Yes<br>";
! }
! print "<b>Total Number of Items:</b> $count
  <p>
! ";
  
- }
  print << "EOF";
! </form>
! </font></TD>
! </TR>
  
! </TABLE>
! <img src="/images/holder.gif" width=16 height=300 align=left>
  EOF
  
- my $i=0;
  print center();
  print mktablehdr;
- if ($type eq 'opac'){
  
!   print mktablerow(6,$main,'Item Type','Class','Branch','Date Due','Last 
Seen'); 
  } else {
!   print mktablerow(6,$main,'Itemtype','Class','Location','Date Due','Last 
Seen','Barcode',"/images/background-mem.gif"); 
! }
! my $colour=1;
! while ($i < $count){
  
-   my @results = split('\t', $items[$i]);
-   if ($type ne 'opac'){
-     
$results[1]=mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]&type=$type",$results[1]);
-   }
-   if ($results[2] eq ''){
-     $results[2]='Available';
-   }
-   if ($type eq 'catmain'){
-     
$results[10]=mklink("/cgi-bin/koha/maint/catmaintain.pl?type=fixitemtype&bi=$results[8]&item=$results[6]","Fix
 Itemtype");
-   }
-   if ($colour == 1){
      if ($type ne 'opac'){
!       if ($type eq 'catmain'){
!         print 
mktablerow(8,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9],$results[10]);
!       } else {
!         print 
mktablerow(7,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]);
!       }
      } else {
!       $results[6]=ItemType($results[6]);
!       print 
mktablerow(6,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]);
!     } 
!     $colour=0;                                                                
                
!   } else{                                                                     
                
!     if ($type ne 'opac'){
!       if ($type eq 'catmain'){
!         print 
mktablerow(8,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9],$results[10]);
!       } else {
!         print 
mktablerow(7,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]);
!       }
      } else {
!       $results[6]=ItemType($results[6]);
!       print 
mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]);
!     }
!     $colour=1;                                                                
                
!   }
!    $i++;
! }
  
  print mktableft();
  print "<p>";
  print mktablehdr();
! if ($type ne 'opac'){
! print << "EOF";
! <TR VALIGN=TOP>
! <TD  bgcolor="99cc33" background="/images/background-mem.gif" 
colspan=2><p><b>HELP</b><br>
  <b>Update Biblio for all Items:</b> Click on the <b>Modify</b> button [left] 
to amend the biblio.  Any changes you make will update the record for 
<b>all</b> the items listed above. <p>
  <b>Updating the Biblio for only ONE or SOME Items:</b> 
  EOF
  
! if ($type eq 'catmain'){
! print << "EOF";
  If some of the items listed above need a different biblio, 
  you need to click on the wrong item, then shift the group it belongs to, to 
the correct biblio.
  You will need to know the correct biblio number
! <p>
! 
!    </TR>
  EOF
  
! } else {
! print << "EOF";
  If some of the items listed above need a different biblio, or are on the 
wrong biblio, you must use the <a href="acquisitions/">acquisitions</a> process 
to fix this. You will need to "re-order" the items, and delete them from this 
biblio.
! <p>
! 
!    </TR>
  EOF
  
! }
! }
  print mktableft();
  print endcenter();
! print "<br clear=all>";
  print endmenu($type);
  print endpage();
--- 126,292 ----
  EOF
  
! } else {
!     if ($dat->{'subtitle'} ne ''){
!       print "<b>Subtitle:</b> $dat->{'subtitle'}<br>";
!     } # if
!     if ($dat->{'author'} ne ''){
!       print "<b>Author:</b> $dat->{'author'}<br>";
!     } # if
! 
! # Additional Author: <br>
!     if ($dat->{'seriestitle'} ne '') {
!       print "<b>Seriestitle:</b> $dat->{'seriestitle'}<br>";
!     } # if
!     if ($dat->{'subject'} ne '') {
!       print "<b>Subject:</b> $dat->{'subject'}<br>";
!     } # if
!     if ($dat->{'copyrightdate'} ne '') {
!       print "<b>Copyright:</b> $dat->{'copyrightdate'}<br>";
!     } # if
!     if ($dat->{'notes'} ne '') {
!       print "<b>Notes:</b> $dat->{'notes'}<br>";
!     } # if
!     if ($dat->{'unititle'} ne '') {
!       print "<b>Unititle:</b> $dat->{'unititle'}<br>";
!     } # if
! 
! # Analytical Author: <br>
! # Analytical Title: <br>
!     if ($dat->{'serial'} ne '0') {
!       print "<b>Serial:</b> Yes<br>";
!     } # if
! 
!     print << "EOF";
! <b>Total Number of Items:</b> $count
  <p>
! EOF
! 
! } # if
  
  print << "EOF";
! </font></td>
! </tr>
! </table>
  
! <img src="/images/holder.gif" width="16" height="300" align="left">
  EOF
  
  print center();
  print mktablehdr;
  
! if ($type eq 'opac') {
!     print mktablerow(6,$main,'Item Type','Class','Branch','Date Due','Last 
Seen');
!     if ($dat->{'url'} ne '') {
!       $dat->{'url'} =~ s/^http:\/\///;
!       print mktablerow(6, $colour, 'Website', 'WEB', 'Online', 'Available', 
"<a href=\"http://$dat->{'url'}\">$dat->{'url'}</a>");
!     } # if
  } else {
!     print mktablerow(7,$main,'Itemtype','Class','Location','Date Due','Last 
Seen','Barcode',"","/images/background-mem.gif");
!     if ($dat->{'url'} ne '') {
!       $dat->{'url'} =~ s/^http:\/\///;
!       print mktablerow(7, $colour, 'WEB', '', 'Online', 'Available', "<a 
href=\"http://$dat->{'url'}\">$dat->{'url'}</a>");
!     } # if
! } # else
! 
! $colour = 'white';
! for (my $i = 0; $i < $count; $i ++) {
!     
!     my @results = split('\t', $items[$i]);
! 
!     if ($type ne 'opac') {
!       $results[1] = 
mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]&type=$type",$results[1]);
!     } # if
! 
!     if ($results[2] eq '') {
!       $results[2] = 'Available';
!     } # if
! 
!     if ($type eq 'catmain'){
!       $results[10] = 
mklink("/cgi-bin/koha/maint/catmaintain.pl?type=fixitemtype&bi=$results[8]&item=$results[6]","Fix
 Itemtype");
!     } # if
  
      if ($type ne 'opac'){
!       if ($type eq 'catmain'){
!           print 
mktablerow(8,$colour,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9],$results[10]);
!       } else {
!           print 
mktablerow(7,$colour,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]);
!       } # else
      } else {
!       $results[6] = ItemType($results[6]);
!       print 
mktablerow(6,$colour,$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]);
!     } # else
!     
!     if ($colour eq $secondary) {
!       $colour = 'white';
      } else {
!       $colour = $secondary;
!     } # else
! 
! } # for
  
  print mktableft();
  print "<p>";
  print mktablehdr();
! 
! if ($type ne 'opac') {
!     print << "EOF";
! <tr valign="top">
! <td bgcolor="99cc33" background="/images/background-mem.gif" 
colspan="2"><p><b>HELP</b><br>
  <b>Update Biblio for all Items:</b> Click on the <b>Modify</b> button [left] 
to amend the biblio.  Any changes you make will update the record for 
<b>all</b> the items listed above. <p>
  <b>Updating the Biblio for only ONE or SOME Items:</b> 
  EOF
  
!     if ($type eq 'catmain') {
!       print << "EOF";
  If some of the items listed above need a different biblio, 
  you need to click on the wrong item, then shift the group it belongs to, to 
the correct biblio.
  You will need to know the correct biblio number
! <p />
! </tr>
  EOF
  
!     } else {
!       print << "EOF";
  If some of the items listed above need a different biblio, or are on the 
wrong biblio, you must use the <a href="acquisitions/">acquisitions</a> process 
to fix this. You will need to "re-order" the items, and delete them from this 
biblio.
! <p />
! </tr>
  EOF
  
!     } # else
! } # if
! 
  print mktableft();
  print endcenter();
! print << "EOF";
! <br clear=all>
! <p />
! EOF
! 
! if ($type ne 'opac') {
!     print << "EOF";
! <table border="1" cellspacing="0" cellpadding="5" width="90%">
! <tr valign="top">
! <td bgcolor="$main" 
background="/images/background-mem.gif"><b>Abstract</b></td>
! </tr>
! <tr valign="top">
! <td>$dat->{'abstract'}</td>
! </tr>
! </table>
! EOF
! } else {
!     if ($dat->{'abstract'} ne '') {
!       print << "EOF";
! <table border="1" cellspacing="0" cellpadding="5" width="90%">
! <tr valign="top">
! <td bgcolor="$main"><b>Abstract</b></td>
! </tr>
! <tr valign="top">
! <td>$dat->{'abstract'}</td>
! </tr>
! </table>
! EOF
!     } # if
! } # else
! 
  print endmenu($type);
  print endpage();

Index: modbib.pl
===================================================================
RCS file: /cvsroot/koha/koha/modbib.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** modbib.pl   19 Dec 2000 23:45:52 -0000      1.1.1.1
--- modbib.pl   9 May 2002 03:01:40 -0000       1.2
***************
*** 13,84 ****
  my $input = new CGI;
  
! my $bibnum=$input->param('bibnum');
! my $data=bibdata($bibnum);
! my ($count,$subject)=subject($data->{'biblionumber'});
! my ($count2,$subtitle)=subtitle($data->{'biblionumber'});
! my ($count3,$addauthor)=addauthor($data->{'biblionumber'});
! my $submit=$input->param('submit.x');                                         
                                                     
! if ($submit eq ''){                                                           
                                                     
!   print $input->redirect("/cgi-bin/koha/delbiblio.pl?biblio=$bibnum");        
                             
! }  
  
  print $input->header;
! #my ($analytictitle)=analytic($biblionumber,'t');
! #my ($analyticauthor)=analytic($biblionumber,'a');
  print startpage();
  print startmenu();
- my %inputs;
  
! #have to get all subtitles, subjects and additional authors
! my $sub=$subject->[0]->{'subject'};
! for (my $i=1;$i<$count;$i++){
!   $sub=$sub."|".$subject->[$i]->{'subject'};
! }
! my $additional=$addauthor->[0]->{'author'};
! for (my $i=1;$i<$count3;$i++){
!   $additional=$additional."|".$addauthor->[$i]->{'author'};
! }
! 
! 
! #hash is set up with input name being the key then
! #the value is a tab separated list, the first item being the input type
! $inputs{'Author'}="text\t$data->{'author'}\t0";
! $data->{'title'}=tidyhtml($data->{'title'});
! $inputs{'Title'}="text\t$data->{'title'}\t1";
! my $dewey = $data->{'dewey'};                                                 
     
! $dewey =~ s/0+$//;                                                            
     
! if ($dewey eq "000.") { $dewey = "";};                                        
     
! if ($dewey < 10){$dewey='00'.$dewey;}                                         
     
! if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}                          
     
! if ($dewey <= 0){                                                             
     
!   $dewey='';                                                                  
     
! } 
! $dewey=~ s/\.$//;
! 
#$inputs{'Class'}="text\t$data->{'classification'}$dewey$data->{'subclass'}\t2";
! #$inputs{'Item Type'}="text\t$data->{'itemtype'}\t3";
! $inputs{'Subject'}="textarea\t$sub\t4";
! #$inputs{'Publisher'}="text\t$data->{'publishercode'}\t5";
! $inputs{'Copyright date'}="text\t$data->{'copyrightdate'}\t6";
! #$inputs{'ISBN'}="text\t$data->{'isbn'}\t7";
! #$inputs{'Publication Year'}="text\t$data->{'publicationyear'}\t8";
! #$inputs{'Pages'}="text\t$data->{'pages'}\t9";
! #$inputs{'Illustrations'}="text\t$data->{'illustration'}\t10";
! $inputs{'Series Title'}="text\t$data->{'seriestitle'}\t11";
! $inputs{'Additional Author'}="text\t$additional\t12";
! $inputs{'Subtitle'}="text\t$subtitle->[0]->{'subtitle'}\t13";
! $inputs{'Unititle'}="text\t$data->{'unititle'}\t14";
! $inputs{'Notes'}="textarea\t$data->{'notes'}\t15";
! $inputs{'Serial'}="text\t$data->{'serial'}\t16";
! #$inputs{'Volume'}="text\t$data->{'volumeddesc'}\t17";
! $inputs{'Analytic author'}="text\t\t18";
! $inputs{'Analytic title'}="text\t\t19";
! 
! $inputs{'bibnum'}="hidden\t$data->{'biblionumber'}\t20";
! $inputs{'bibitemnum'}="hidden\t$data->{'biblioitemnumber'}\t21";
! 
! 
! print mkform3('updatebiblio.pl',%inputs);
! #print mktablehdr();
! #print mktableft();
  print endmenu();
  print endpage();
--- 13,128 ----
  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'});
! my ($addauthorcount, $addauthor) = &addauthor($data->{'biblionumber'});
! my $sub        = $subject->[0]->{'subject'};
! my $additional = $addauthor->[0]->{'author'};
! my %inputs;
! my $dewey;
! 
! if ($submit eq '') {
!   print $input->redirect("/cgi-bin/koha/delbiblio.pl?biblio=$bibnum");
! } # if
  
  print $input->header;
! # my ($analytictitle)  = &analytic($biblionumber,'t');
! # my ($analyticauthor) = &analytic($biblionumber,'a');
  print startpage();
  print startmenu();
  
! # have to get all subtitles, subjects and additional authors
! for (my $i = 1; $i < $subjectcount; $i++) {
!   $sub = $sub . "|" . $subject->[$i]->{'subject'};
! } # for
! 
! for (my $i = 1; $i < $addauthorcount; $i++) {
!   $additional = $additional . "|" . $addauthor->[$i]->{'author'};
! } # for
! 
! 
! $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'});
! 
! print << "EOF";
! <form action="updatebiblio.pl" method="post">
! <input type="hidden" name="biblionumber" value="$data->{'biblionumber'}">
! <input type="hidden" name="biblioitemnumber" 
value="$data=>{'biblioitemnumber'}">
! <table border="0" cellspacing="0" cellpadding="5">
! <tr valign="top">
! <td>Author</td>
! <td><input type="text" name="author" value="$data->{'author'}"></td>
! </tr>
! <tr valign="top">
! <td>Title</td>
! <td><input type="text" name="title" value="$data->{'title'}"></td>
! </tr>
! <tr valign="top">
! <td>Abstract</td>
! <td><textarea name="abstract" cols="40" 
rows="4">$data->{'abstract'}</textarea></td>
! </tr>
! <tr valign="top">
! <td>Subject</td>
! <td><textarea name="subject" cols="40" rows="4">$sub</textarea></td>
! </tr>
! <tr valign="top">
! <td>Copyright Date</td>
! <td><input type="text" name="copyrightdate" 
value="$data->{'copyrightdate'}"></td>
! </tr>
! <tr valign="top">
! <td>Series Title</td>
! <td><input type="text" name="seriestitle" value="$data->{'seriestitle'}"></td>
! </tr>
! <tr valign="top">
! <td>Additional Author</td>
! <td><input type="text" name="additionalauthor" value="$additional"></td>
! </tr>
! <tr valign="top">
! <td>Subtitle</td>
! <td><input type="text" name="subtitle" value="$data->{'subtitle'}"></td>
! </tr>
! <tr valign="top">
! <td>Unititle</td>
! <td><input type="text" name="unititle" value="$data->{'untitle'}"></td>
! </tr>
! <tr valign="top">
! <td>Notes</td>
! <td><textarea name="notes" cols="40" rows="4">$data->{'notes'}</textarea></td>
! </tr>
! <tr valign="top">
! <td>Serial</td>
! <td><input type="text" name="serial" value="$data->{'serial'}"></td>
! </tr>
! <tr valign="top">
! <td>Analytic Author</td>
! <td><input type="text" name="analyticauthor"></td>
! </tr>
! <tr valign="top">
! <td>Analytic Title</td>
! <td><input type="text" name="analytictitle"></td>
! </tr>
! </table>
! <br>
! <input type="submit" name="submit" value="Save Changes">
! </form>
! EOF
! 
  print endmenu();
  print endpage();

Index: updatebiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/updatebiblio.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** updatebiblio.pl     19 Dec 2000 23:45:53 -0000      1.1.1.1
--- updatebiblio.pl     9 May 2002 03:01:40 -0000       1.2
***************
*** 7,75 ****
  use C4::Output;
  
! my $input= new CGI;
! #print $input->header;
! #print $input->dump;
! 
! 
! my $title=checkinp($input->param('Title'));
! my $author=checkinp($input->param('Author'));
! my $bibnum=checkinp($input->param('bibnum'));
! my $copyright=checkinp($input->param('Copyright'));
! my $seriestitle=checkinp($input->param('Series'));
! my $serial=checkinp($input->param('Serial'));
! my $unititle=checkinp($input->param('Unititle'));
! my $notes=checkinp($input->param('Notes'));
! 
! 
modbiblio($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes);
! 
! my $subtitle=checkinp($input->param('Subtitle'));
! modsubtitle($bibnum,$subtitle);
! 
! my $subject=checkinp($input->param('Subject'));
! $subject=uc $subject;
! my @sub=split(/\|/,$subject);
! #print @sub;
! #
! 
! my $addauthor=checkinp($input->param('Additional'));
! modaddauthor($bibnum,$addauthor);
! my address@hidden;
! 
! for (my $i=0; $i<$count1; $i++){
!   $sub[$i]=~ s/ +$//;
! }
! 
! #print $input->header;
! my $force=$input->param('Force');
! my $error=modsubject($bibnum,$force,@sub);
  
  if ($error ne ''){
!   print $input->header;
!   print startpage();
!   print startmenu();
!   print $error;
!   my @subs=split('\n',$error);
!   print "<p> Click submit to force the subject";
!   my @names=$input->param;
!   my %data;
!   my address@hidden;
!   for (my $i=0;$i<$count;$i++){
!     if ($names[$i] ne 'Force'){
!       my $value=$input->param("$names[$i]");
!       $data{$names[$i]}="hidden\t$value\t$i";
!     }
!   }
!   $data{"Force"}="hidden\t$subs[0]\t$count";
!   print mkform3('updatebiblio.pl',%data);
!   print endmenu();
!   print endpage();
  } else {
!   print $input->redirect("detail.pl?type=intra&bib=$bibnum");
! }
  
  sub checkinp{
    my ($inp)address@hidden;
!   $inp=~ s/\'/\\\'/g;
!   $inp=~ s/\"/\\\"/g;
    return($inp);
  }
--- 7,75 ----
  use C4::Output;
  
! my $input       = new CGI;
! my $bibnum      = checkinp($input->param('biblionumber'));
! my $biblio = {
!     biblionumber => $bibnum,
!     title        => $input->param('title')?$input->param('title'):"",
!     author       => $input->param('author')?$input->param('author'):"",
!     abstract     => $input->param('abstract')?$input->param('abstract'):"",
!     copyright    => 
$input->param('copyrightdate')?$input->param('copyrightdate'):"",
!     seriestitle  => 
$input->param('seriestitle')?$input->param('seriestitle'):"",
!     serial       => $input->param('serial')?$input->param('serial'):"",
!     unititle     => $input->param('unititle')?$input->param('unititle'):"",
!     notes        => $input->param('notes')?$input->param('notes'):"",
! }; # my $biblio
! my $subtitle    = checkinp($input->param('subtitle'));
! my $subject     = checkinp($input->param('subject'));
! my $addauthor   = checkinp($input->param('additionalauthor'));
! my $force       = $input->param('Force');
! my %data;
! my @sub;
! my @subs;
! my @names;
! my $count;
! my $error;
! 
! &modbiblio($biblio);
! &modsubtitle($bibnum, $subtitle);
! &modaddauthor($bibnum, $addauthor);
! 
! $subject = uc($subject);
! @sub     = split(/\|/, $subject);
! $count   = @sub;
! 
! for (my $i = 0; $i < $count; $i++) {
!     $sub[$i] =~ s/ +$//;
! } # for
! 
! $error = &modsubject($bibnum,$force,@sub);
  
  if ($error ne ''){
!     print $input->header;
!     print startpage();
!     print startmenu();
!     print $error;
!     @subs = split('\n',$error);
!     print "<p> Click submit to force the subject";
!     @names = $input->param;
!     $count = @names;
!     for (my $i = 0; $i < $count; $i++) {
!       if ($names[$i] ne 'Force') {
!           my $value = $input->param("$names[$i]");
!           $data{$names[$i]} = "hidden\t$value\t$i";
!       } # if
!     } # for
!     $data{"Force"} = "hidden\t$subs[0]\t$count";
!     print mkform3('updatebiblio.pl', %data);
!     print endmenu();
!     print endpage();
  } else {
!     print $input->redirect("detail.pl?type=intra&bib=$bibnum");
! } # else
  
  sub checkinp{
    my ($inp)address@hidden;
!   $inp =~ s/\'/\\\'/g;
!   $inp =~ s/\"/\\\"/g;
    return($inp);
  }