modwebsites.pl

   1 #!/usr/bin/perl
   2
   3
   4 # Copyright 2000-2002 Katipo Communications
   5 #
   6 # This file is part of Koha.
   7 #
   8 # Koha is free software; you can redistribute it and/or modify it under the
   9 # terms of the GNU General Public License as published by the Free Software
  10 # Foundation; either version 2 of the License, or (at your option) any later
  11 # version.
  12 #
  13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  15 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License along with
  18 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  19 # Suite 330, Boston, MA  02111-1307 USA
  20
  21 use strict;
  22
  23 use C4::Search;
  24 use CGI;
  25 use C4::Output;
  26
  27 my $input = new CGI;
  28 my $biblionumber       = $input->param('biblionumber');
  29 my ($count, @websites) = &getwebsites($biblionumber);
  30
  31 if ($biblionumber eq '') {
  32   print $input->redirect("/catalogue/");
  33 } # if
  34
  35 print $input->header;
  36 print startpage();
  37 print startmenu();
  38
  39 print << "EOF";
  40 <p />
  41 <a href="detail.pl?type=intra&bib=$biblionumber">Return to Details Page</a>
  42 EOF
  43
  44 for (my $i = 0; $i < $count; $i++) {
  45     print << "EOF"
  46 <p />
  47 <form action="updatewebsite.pl" method="post">
  48 <input type="hidden" name="biblionumber" value="$biblionumber">
  49 <input type="hidden" name="websitenumber" value="$websites[$i]->{'websitenumber'}">
  50 <table>
  51 <tr valign="top">
  52 <td>Title</td>
  53 <td><input type="text" name="title" value="$websites[$i]->{'title'}"></td>
  54 </tr>
  55 <tr valign="top">
  56 <td>Description</td>
  57 <td><textarea name="description" cols="40" rows="4">$websites[$i]->{'description'}</textarea></td>
  58 </tr>
  59 <tr valign="top">
  60 <td>URL</td>
  61 <td><input type="text" name="url" value="$websites[$i]->{'url'}"></td>
  62 </tr>
  63 </table>
  64 <input type="submit" value="Update this Website Link">   <input type="submit" name="delete" value="Delete this Website link">
  65 </form>
  66 EOF
  67 } # for
  68
  69 print << "EOF";
  70 <p />
  71 <h2><b>Add another Website Link</b></h2>
  72 <form action="addwebsite.pl" method="post">
  73 <input type="hidden" name="biblionumber" value="$biblionumber">
  74 <table>
  75 <tr valign="top">
  76 <td>Title</td>
  77 <td><input type="text" name="title"></td>
  78 </tr>
  79 <tr valign="top">
  80 <td>Description</td>
  81 <td><textarea name="description" cols="40" rows="4"></textarea></td>
  82 </tr>
  83 <tr valign="top">
  84 <td>URL</td>
  85 <td><input type="text" name="url"></td>
  86 </tr>
  87 </table>
  88 <input type="submit" value="Add this Website Link">
  89 </form>
  90 EOF
  91
  92 print endmenu();
  93 print endpage();