userflag table now created in upgrade script (bugfix #171)

[koha_fer] / modwebsites.pl

diff --git a/modwebsites.pl b/modwebsites.pl
index 04e0567..0a0ccfd 100755 (executable)
--- a/modwebsites.pl
+++ b/modwebsites.pl
@@ -18,11 +18,14 @@
 # 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;
 
 my $input = new CGI;
 my $biblionumber       = $input->param('biblionumber');
@@ -32,62 +35,23 @@ if ($biblionumber eq '') {
   print $input->redirect("/catalogue/");
 } # if
 
-print $input->header;
-print startpage();
-print startmenu();
-
-print << "EOF";
-<p />
-<a href="detail.pl?type=intra&bib=$biblionumber">Return to Details Page</a>
-EOF
+#print $input->header;
+#print startpage();
+#print startmenu();
+my $template = gettemplate("modwebsites.tmpl");
 
+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;