Browse Source

Fixing bug 372

3.0.x
rangi 21 years ago
parent
commit
fb9b0e39c6
  1. 4
      koha-tmpl/intranet-tmpl/default/en/modwebsites.tmpl
  2. 10
      modwebsites.pl

4
koha-tmpl/intranet-tmpl/default/en/modwebsites.tmpl

@ -1,7 +1,7 @@
<TMPL_INCLUDE Name="acquisitions-top.inc"> <TMPL_INCLUDE Name="acquisitions-top.inc">
<p> <p>
<a href="detail.pl?type=intra&bib=<TMPL_VAR Name="biblionumber">">Return to Details Page</a> <a href="detail.pl?type=intra&bib=<TMPL_VAR Name="biblionumber">">Return to Details Page</a>
EOF
<TMPL_LOOP Name="websitesloop"> <TMPL_LOOP Name="websitesloop">
<p> <p>
@ -46,6 +46,6 @@ EOF
</table> </table>
<input type="submit" value="Add this Website Link"> <input type="submit" value="Add this Website Link">
</form> </form>
EOF
<TMPL_INCLUDE Name="acquisitions-bottom.inc"> <TMPL_INCLUDE Name="acquisitions-bottom.inc">

10
modwebsites.pl

@ -26,6 +26,7 @@ use C4::Search;
use CGI; use CGI;
use C4::Output; use C4::Output;
use HTML::Template; use HTML::Template;
use C4::Auth;
my $input = new CGI; my $input = new CGI;
my $biblionumber = $input->param('biblionumber'); my $biblionumber = $input->param('biblionumber');
@ -38,7 +39,14 @@ if ($biblionumber eq '') {
#print $input->header; #print $input->header;
#print startpage(); #print startpage();
#print startmenu(); #print startmenu();
my $template = gettemplate("modwebsites.tmpl"); my ($template, $loggedinuser, $cookie) = get_template_and_user({
template_name => "modwebsites.tmpl",
query => $input,
type => "intranet",
flagsrequired => {catalogue => 1},
});
my @websitesloop; my @websitesloop;
for (my $i = 0; $i < $count; $i++) { for (my $i = 0; $i < $count; $i++) {

Loading…
Cancel
Save