removing .po in the wrong place (is in po/ now)

[koha.git] / modwebsites.pl

diff --git a/modwebsites.pl b/modwebsites.pl
index f9c2314..70f846d 100755 (executable)
--- a/modwebsites.pl
+++ b/modwebsites.pl
@@ -1,10 +1,32 @@
 #!/usr/bin/perl
 
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA  02111-1307 USA
+
+# modified by hdl@ifrance.com 12/16/2002, templating
+
 use strict;
 
 use C4::Search;
 use CGI;
 use C4::Output;
+use HTML::Template;
+use C4::Auth;
 
 my $input = new CGI;
 my $biblionumber       = $input->param('biblionumber');
@@ -14,62 +36,30 @@ if ($biblionumber eq '') {
   print $input->redirect("/catalogue/");
 } # if
 
-print $input->header;
-print startpage();
-print startmenu();
+#print $input->header;
+#print startpage();
+#print startmenu();
+my ($template, $loggedinuser, $cookie) = get_template_and_user({
+                            template_name   => "modwebsites.tmpl",
+                              query           => $input,
+                              type            => "intranet",
+                              flagsrequired   => {catalogue => 1},
+                      });
+
 
-print << "EOF";
-<p />
-<a href="detail.pl?type=intra&bib=$biblionumber">Return to Details Page</a>
-EOF
 
+my @websitesloop;
 for (my $i = 0; $i < $count; $i++) {
-    print << "EOF"
-<p />
-<form action="updatewebsite.pl" method="post">
-<input type="hidden" name="biblionumber" value="$biblionumber">
-<input type="hidden" name="websitenumber" value="$websites[$i]->{'websitenumber'}">
-<table>
-<tr valign="top">
-<td>Title</td>
-<td><input type="text" name="title" value="$websites[$i]->{'title'}"></td>
-</tr>
-<tr valign="top">
-<td>Description</td>
-<td><textarea name="description" cols="40" rows="4">$websites[$i]->{'description'}</textarea></td>
-</tr>
-<tr valign="top">
-<td>URL</td>
-<td><input type="text" name="url" value="$websites[$i]->{'url'}"></td>
-</tr>
-</table>
-<input type="submit" value="Update this Website Link">   <input type="submit" name="delete" value="Delete this Website link">
-</form>
-EOF
+       my %website;
+       $website{'biblionumber'}=$biblionumber;
+       $website{'websitenumber'}=$websites[$i]->{'websitenumber'};
+       $website{'title'}=$websites[$i]->{'title'};
+       $website{'description'}=$websites[$i]->{'description'};
+       $website{'url'}=$websites[$i]->{'url'};
+       push (@websitesloop, \%website);
 } # for
 
-print << "EOF";
-<p />
-<h2><b>Add another Website Link</b></h2>
-<form action="addwebsite.pl" method="post">
-<input type="hidden" name="biblionumber" value="$biblionumber">
-<table>
-<tr valign="top">
-<td>Title</td>
-<td><input type="text" name="title"></td>
-</tr>
-<tr valign="top">
-<td>Description</td>
-<td><textarea name="description" cols="40" rows="4"></textarea></td>
-</tr>
-<tr valign="top">
-<td>URL</td>
-<td><input type="text" name="url"></td>
-</tr>
-</table>
-<input type="submit" value="Add this Website Link">
-</form>
-EOF
+$template->param(      biblionumber => $biblionumber,
+                                                               websitesloop => \@websitesloop);
 
-print endmenu();
-print endpage();
+print "Content-Type: text/html\n\n", $template->output;