-
- elsif ( $createbibitem eq 'YES' ) {
- $bibnum = $input->param('biblio');
- $bibitemnum = $input->param('bibitemnum');
- $bibitemnum = &newbiblioitem(
- {
- biblionumber => $bibnum,
- itemtype => $itemtype ? $itemtype : "",
- isbn => $isbn ? $isbn : "",
- publishercode => $publishercode ? $publishercode : "",
- }
- );
- &modbiblio(
- {
- biblionumber => $bibnum,
- title => $title ? $title : "",
- author => $author ? $author : "",
- copyrightdate => $copyrightdate ? $copyrightdate : "",
- series => $series ? $series : ""
- }
- );
- }
-
- # then attach it to an existing bib
-
- else {
- warn "attaching to an existing bibitem";
-
- $bibnum = $input->param('biblio');
-
- # if we are moddig the bibitem, not creating it createbib wont be set,
- #
- if ($createbibitem) {
- $bibitemnum = $createbibitem;
- }
- else {
- $bibitemnum = $input->param('bibitemnum');
- }
-
- my $oldtype = $input->param('oldtype');
- &modbibitem(
- {
- biblioitemnumber => $bibitemnum,
- isbn => $isbn,
- publishercode => $publishercode,
- itemtype =>
- $itemtype, # added itemtype, not prev. being changed.
- }
- );
- &modbiblio(
- {
- biblionumber => $bibnum,
- title => $title ? $title : "",
- author => $author ? $author : "",
- copyrightdate => $copyrightdate ? $copyrightdate : "",
- series => $series ? $series : ""
- },
- );
- }