[Koha-cvs] CVS: koha addwebsite.pl,NONE,1.1 deletewebsite.pl,NONE,1.1 modwebsites.pl,NONE,1.1 updatewebsite.pl,NONE,1.1 database.mysql,1.6,1.7 detail.pl,1.5,1.6 modbib.pl,1.2,1.3
Gynn Lomax
truth_nz at users.sourceforge.net
Sun May 12 17:37:55 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv5006
Modified Files:
database.mysql detail.pl modbib.pl
Added Files:
addwebsite.pl deletewebsite.pl modwebsites.pl updatewebsite.pl
Log Message:
New files, and changes to add associated webstes to a biblio.
Adds a new table to database - so installer needs updating again.
--- NEW FILE ---
#!/usr/bin/perl
use strict;
use C4::Acquisitions;
use CGI;
my $input = new CGI;
my $biblionumber = $input->param('biblionumber');
my $website = {
biblionumber => $biblionumber,
title => $input->param('title')?$input->param('title'):"",
description => $input->param('description')?$input->param('description'):"",
url => $input->param('url')?$input->param('url'):""
}; # my $website
if (! $biblionumber) {
print $input->redirect("/catalogue/");
} else {
&addwebsite($website);
print $input->redirect("modwebsites.pl?biblionumber=$biblionumber");
} # else
--- NEW FILE ---
#!/usr/bin/perl
use strict;
use C4::Acquisitions;
use CGI;
my $input = new CGI;
my $biblionumber = $input->param('biblionumber');
my $websitenumber = $input->param('websitenumber');
if (! $biblionumber) {
print $input->redirect("/catalogue/");
} elsif (! $websitenumber) {
print $input->param("modwebsite.pl?biblionumber=$biblionumber");
} else {
&deletewebsite($websitenumber);
print $input->redirect("modwebsites.pl?biblionumber=$biblionumber");
} # else
--- NEW FILE ---
#!/usr/bin/perl
use strict;
use C4::Search;
use CGI;
use C4::Output;
my $input = new CGI;
my $biblionumber = $input->param('biblionumber');
my ($count, @websites) = &getwebsites($biblionumber);
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
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
} # 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
print endmenu();
print endpage();
--- NEW FILE ---
#!/usr/bin/perl
use strict;
use C4::Acquisitions;
use CGI;
my $input = new CGI;
my $biblionumber = $input->param('biblionumber');
my $websitenumber = $input->param('websitenumber');
my $website = {
biblionumber => $biblionumber,
websitenumber => $websitenumber,
title => $input->param('title')?$input->param('title'):"",
description => $input->param('description')?$input->param('description'):"",
url => $input->param('url')?$input->param('url'):""
}; # my $website
if ($input->param('delete')) {
print $input->redirect("deletewebsite.pl?biblionumber=$biblionumber&websitenumber=$websitenumber");
} elsif (! $biblionumber) {
print $input->redirect("/catalogue/");
} elsif (! $websitenumber) {
print $input->redirect("modwebsites.pl?biblionumber=$biblionumber");
} else {
&updatewebsite($website);
print $input->redirect("modwebsites.pl?biblionumber=$biblionumber");
} # else
Index: database.mysql
===================================================================
RCS file: /cvsroot/koha/koha/database.mysql,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** database.mysql 12 May 2002 00:02:17 -0000 1.6
--- database.mysql 12 May 2002 15:37:53 -0000 1.7
***************
*** 800,801 ****
--- 800,813 ----
);
+ #
+ # Table structure for table 'websites'
+ #
+
+ CREATE TABLE websites (
+ websitenumber int(11) NOT NULL auto_increment,
+ biblionumber int(11) NOT NULL default '0',
+ title text,
+ description text,
+ url varchar(255),
+ PRIMARY KEY (websitenumber)
+ ) TYPE=ISAM PACK_KEYS=1;
Index: detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/detail.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** detail.pl 9 May 2002 03:01:40 -0000 1.5
--- detail.pl 12 May 2002 15:37:53 -0000 1.6
***************
*** 12,20 ****
my $type = $input->param('type');
my $bib = $input->param('bib');
- my $title = $input->param('title');
my @items = &ItemInfo(undef, $bib, $type);
my @temp = split('\t', $items[0]);
- my $dat = &bibdata($bib);
my $count = @items;
my ($authorcount, $addauthor) = &addauthor($bib);
my $additional = $addauthor->[0]->{'author'};
--- 12,20 ----
my $type = $input->param('type');
my $bib = $input->param('bib');
my @items = &ItemInfo(undef, $bib, $type);
my @temp = split('\t', $items[0]);
my $count = @items;
+ my $dat = &bibdata($bib);
+ my ($websitecount, @websites) = &getwebsites($bib);
my ($authorcount, $addauthor) = &addauthor($bib);
my $additional = $addauthor->[0]->{'author'};
***************
*** 273,276 ****
--- 273,297 ----
</tr>
</table>
+ <p />
+ <table border="1" cellspacing="0" cellpadding="5" width="90%">
+ <tr valign="top">
+ <td bgcolor="$main" background="/images/background-mem.gif"><b>Links to Associated Websites<b></td>
+ </tr>
+ EOF
+
+ for (my $i = 0; $i < $websitecount; $i++) {
+ $websites[$i]->{'url'} =~ s/^http:\/\///;
+ print << "EOF";
+ <tr>
+ <td><b>Title:</b> $websites[$i]->{'title'}<br>
+ <b>Description:</b> $websites[$i]->{'description'}<br>
+ <b>URL:</b> http://$websites[$i]->{'url'}<br>
+ </td>
+ </tr>
+ EOF
+ } # for
+
+ print << "EOF";
+ </table>
EOF
} else {
***************
*** 284,287 ****
--- 305,333 ----
<td>$dat->{'abstract'}</td>
</tr>
+ </table>
+ <p />
+ EOF
+ } # if
+ if ($websitecount) {
+ print << "EOF";
+ <table border="1" cellspacing="0" cellpadding="5" width="90%">
+ <tr valign="top">
+ <td bgcolor="$main" background="/images/background-mem.gif"><b>Link to Associated Websites</b></td>
+ </tr>
+ EOF
+
+ for (my $i = 0; $i < $websitecount; $i++) {
+ $websites[$i]->{'url'} =~ s/^http:\/\///;
+ print << "EOF";
+ <tr>
+ <td><b>Title:</b> $websites[$i]->{'title'}<br>
+ <b>Description:</b> $websites[$i]->{'description'}<br>
+ <b>URL:</b> http://$websites[$i]->{'url'}<br>
+ </td>
+ </tr>
+ EOF
+ } # for
+
+ print << "EOF";
</table>
EOF
Index: modbib.pl
===================================================================
RCS file: /cvsroot/koha/koha/modbib.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** modbib.pl 9 May 2002 03:01:40 -0000 1.2
--- modbib.pl 12 May 2002 15:37:53 -0000 1.3
***************
*** 63,66 ****
--- 63,67 ----
print << "EOF";
+ <a href="modwebsites.pl?biblionumber=$data->{'biblionumber'}">Modify Website Links</a>
<form action="updatebiblio.pl" method="post">
<input type="hidden" name="biblionumber" value="$data->{'biblionumber'}">
More information about the Koha-cvs
mailing list