From truth_nz@users.sourceforge.net Sun Apr 28 22:29:05 2002 From: Gynn Lomax To: koha-devel@lists.koha-community.org Subject: [Koha-devel] CVS: koha/acqui.simple addbiblio.pl,NONE,1.1 addbiblioitem.pl,NONE,1.1 additem.pl,NONE,1.1 isbnsearch.pl,NONE,1.1 keywordsearch.pl,NONE,1.1 savebiblio.pl,NONE,1.1 savebiblioitem.pl,NONE,1.1 saveitem.pl,NONE,1.1 websitesearch.pl,NONE,1.1 Date: Sun, 28 Apr 2002 22:30:02 +0000 Message-ID: MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============3820240393199487531==" --===============3820240393199487531== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Update of /cvsroot/koha/koha/acqui.simple In directory usw-pr-cvs1:/tmp/cvs-serv28376 Added Files: addbiblio.pl addbiblioitem.pl additem.pl isbnsearch.pl=20 keywordsearch.pl savebiblio.pl savebiblioitem.pl saveitem.pl=20 websitesearch.pl=20 Log Message: scripts for new acqui.simple system --- NEW FILE --- #!/usr/bin/perl # # TODO # # Add info on biblioitems and items already entered as you enter new ones # use CGI; use strict; use C4::Output; my $input =3D new CGI; my $error =3D $input->param('error'); print $input->header; print startpage(); print startmenu('acquisitions'); print << "EOF"; Adding a new Biblio
=20
Section One: Copyright Information
EOF if ($error eq "notitle") { print << "EOF";

Please Specify a Title
EOF } # if print << "EOF";
Title: *
Subtitle:
Author:
Series Title:
(if applicable)
Copyright Date:
Abstract:
Notes:
* Required EOF print endmenu(); print endpage(); --- NEW FILE --- #!/usr/bin/perl use CGI; use strict; use C4::Acquisitions; use C4::Output; my $input =3D new CGI; my $biblionumber =3D $input->param('biblionumber'); my $title; my $count; my @results; if (! $biblionumber) { print $input->redirect('addbooks.pl'); } else { =20 ($count, @results) =3D &getbiblio($biblionumber); $title =3D @results[0]->{'title'}; print $input->header; print startpage(); print startmenu('acquisitions'); print << "EOF"; Adding New Group Information - $title
Section Two: Publication information
=20

=20
Publisher:
Publication Year: Place of Publication:
Illustrator:
ISBN:
Additional Authors:
One Author per line
Subject Headings:
One Subject per line		 =
EOF print endmenu(); print endpage(); } # else --- NEW FILE --- #!/usr/bin/perl use CGI; use strict; use C4::Acquisitions; use C4::Output; my $input =3D new CGI; my $biblioitemnum =3D $input->param('biblioitemnum'); my $maxbarcode; my $isbn; my $count; my @results; if (! $biblioitemnum) { print $input->redirect('addbooks.pl'); } else { =20 ($count, @results) =3D &getbiblioitem($biblioitemnum); =20 if (! $count) { print $input->redirect('addbooks.pl'); } else { $isbn =3D $results[0]->{'isbn'}; $maxbarcode =3D $results[0]->{'biblionumber'}; =20 print $input->header; print startpage(); print startmenu('acquisitions'); =20 ($count, @results) =3D &getitemsbybiblioitem($biblioitemnum); if ($count) { print << "EOF";

EOF for (my $i =3D 0; $i < $count; $i++) { print << "EOF"; EOF } # for print << "EOF";
Existing Items with ISBN $isbn
BarcodeTitleAuthorNotes
$results[$i]->{'barcode'} $results[$i]->{'title'} $results[$i]->{'author'} $results[$i]->{'itemnotes'}

EOF } # if print << "EOF";

Section Three: Specific Item Information

BARCODE: Home Branch:
Replacement Price:
Notes:
EOF =20 print endmenu(); print endpage(); } # if } # if --- NEW FILE --- #!/usr/bin/perl use CGI; use strict; use C4::Acquisitions; my $input =3D new CGI; my $isbn =3D $input->param('isbn'); my $biblioitemnum; my $count; my @results; if (! $isbn) { print $input->redirect('addbooks.pl'); } else { ($count, @results) =3D &isbnsearch($isbn); if (! $count) { print $input->redirect("addbooks.pl?error=3Dnotfound"); } else { $biblioitemnum =3D $results[0]->{'biblioitemnumber'}; print $input->redirect("additem.pl?biblioitemnum=3D$biblioitemnum"); } # else } # else --- NEW FILE --- #!/usr/bin/perl use CGI; use strict; use C4::Acquisitions; use C4::Output; my $input =3D new CGI; my $keywords =3D $input->param('keyword'); my $offset =3D $input->param('offset'); my $num =3D $input->param('num'); my $total; my $count; my @results; if (! $keywords) { print $input->redirect('addbooks.pl'); } else { if (! $offset) { $offset =3D 0 }; if (! $num) { $num =3D 10 }; ($count, @results) =3D &keywordsearch($keywords); if ($count < ($offset + $num)) { $total =3D $count; } else { $total =3D $offset + $num; } # else print $input->header; print startpage(); print startmenu('acquisitions'); print << "EOF"; Biblio Search Results
You searched on keywords $keywords, $count results found
Results $offset to $total displayed

Add New Biblio

EOF for (my $i =3D $offset; $i < $total; $i++) { if ($i % 2) { print << "EOF"; EOF } else { print << "EOF"; EOF } # else print << "EOF"; EOF } # for print << "EOF";
TITLE AUTHOR ©
{'biblionumber'}= ">$results[$i]->{'title'} {'biblionumber'}= ">$results[$i]->{'author'} $results[$i]->{'copyrightdate'}
     

EOF for (my $i =3D 0; ($i * $num) < $count; $i++) { my $newoffset =3D $i * $num; print << "EOF"; $i EOF } # for print << "EOF";

Results per page: 5 10= 20= 50=


 

EOF print endmenu(); print endpage(); } # else --- NEW FILE --- #!/usr/bin/perl use CGI; use strict; use C4::Acquisitions; my $input =3D new CGI; my $biblio->{'title'} =3D $input->param('title'); my $biblio->{'subtitle'} =3D $input->param('subtitle'); my $biblio->{'author'} =3D $input->param('author'); my $biblio->{'seriestitle'} =3D $input->param('seriestitle'); my $biblio->{'copyright'} =3D $input->param('copyrightdate'); my $biblio->{'abstract'} =3D $input->param('abstract'); my $biblio->{'notes'} =3D $input->param('notes'); my $biblionumber; if (! $biblio->{'title'}) { print $input->redirect('addbiblio.pl?error=3Dnotitle'); } else { $biblionumber =3D &newbiblio($biblio); &newsubtitle($biblionumber, $subtitle); print $input->redirect('addbiblioitem.pl?biblionumber=3D$biblionumber'); } # else --- NEW FILE --- #!/usr/bin/perl use CGI; use strict; use C4::Acquisitions; my $input =3D new CGI; my $biblionumber =3D $input->param('biblionumber'); my $biblioitem =3D { biblionumber =3D> $biblionumber, publishercode =3D> $input->param('publishercode'), publicationyear =3D> $input->param('publicationyear'), place =3D> $input->param('year'), illus =3D> $input->param('illus'), isbn =3D> $input->param('isbn'), additionalauthors =3D> $input->param('additionalauthors'), subjectheadings =3D> $input->param('subjectheadings'), itemtype =3D> $input->param('itemtype'), url =3D> $input->param('url'), dewey =3D> $input->param('dewey'), subclass =3D> $input->param('subclass'), issn =3D> $input->param('issn'), lccn =3D> $input->param('lccn'), volume =3D> $input->param('volume'), number =3D> $input->param('number'), volumeddesc =3D> $input->param('volumeddesc'), pages =3D> $input->param('pages'), size =3D> $input->param('size'), notes =3D> $input->param('notes') }; my $biblioitemnum; if (! $biblionumber) { print $input->redirect('addbooks.pl'); } else { $biblioitemnum =3D &newbiblioitem($biblioitem); print $input->redirect('additem.pl?biblioitemnum=3D$biblioitemnum'); } # else --- NEW FILE --- #!/usr/bin/perl use CGI; use strict; use C4::Acquisitions; my $input =3D new CGI; my $barcode =3D $input->param('barcode'); my $biblioitemnum =3D $input->param('biblioitemnum'); my $item =3D { biblioitemnum =3D> $biblioitemnum, homebranch =3D> $input->param('homebranch'), replacementprice =3D> $input->param('replacementprice'), itemnotes =3D> $input->param('notes') }; my $count; my @results; if (! $barcode) { print $input->redirect('additem.pl?error=3Dnobarcode'); } elsif (! $biblioitemnum) { print $input->redirect('addbooks.pl'); } else { ($count, @results) =3D &getbiblioitem($biblioitemnum); if (! $count) { print->redirect('addbooks.pl'); } else { $item->{'biblionumber'} =3D $results[0]->{'biblionumber'}; &newitems($item, ($barcode)); print $input->redirect('additem.pl?biblioitemnum=3D$biblioitemnum'); } # else } # else --- NEW FILE --- #!/usr/bin/perl use CGI; use strict; use C4::Acquisitions; use C4::Output; my $input =3D new CGI; my $keywords =3D $input->param('keyword'); my $offset =3D $input->param('offset'); my $num =3D $input->param('num'); my $total; my $count; my @results; if (! $keywords) { print $input->redirect('addbooks.pl'); } else { if (! $offset) { $offset =3D 0 }; if (! $num) { $num =3D 10 }; ($count, @results) =3D &websitesearch($keywords); if ($count < ($offset + $num)) { $total =3D $count; } else { $total =3D $offset + $num; } # else print $input->header; print startpage(); print startmenu('acquisitions'); print << "EOF"; Website Search Results
You searched on keywords $keywords, $count results found
Results $offset to $total displayed

Add New Biblio

EOF for (my $i =3D $offset; $i < $total; $i++) { if ($i % 2) { print << "EOF"; EOF } else { print << "EOF"; EOF } # else print << "EOF"; EOF } # for print << "EOF";
TITLE AUTHOR ©
{'biblionumber'}= ">$results[$i]->{'title'} {'biblionumber'}= ">$results[$i]->{'author'} $results[$i]->{'copyrightdate'}
     

EOF for (my $i =3D 0; ($i * $num) < $count; $i++) { my $newoffset =3D $i * $num; print << "EOF"; $i EOF } # for print << "EOF";

Results per page: 5 10= 20= 50=


 

EOF print endmenu(); print endpage(); } # else --===============3820240393199487531==--