gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Sub renamed & GPL Licence added.

This commit is contained in:
toins 2006-07-07 09:00:12 +00:00
parent 432c8ceea9
commit 1696f62652
6 changed files with 104 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
opac/opac-ISBDdetail.pl
View File

@ -17,6 +17,8 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
# $Id$
=head1 NAME
MARCdetail.pl : script to show a biblio in MARC format
@ -56,7 +58,7 @@ use C4::Search;
use MARC::Record;
use C4::Biblio;
use C4::Acquisition;
use C4::Bull; #uses getsubscriptionfrom biblionumber
use C4::Serials; #uses getsubscriptionfrom biblionumber
use HTML::Template;
my $query=new CGI;
@ -74,16 +76,16 @@ my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
my $record =MARCgetbiblio($dbh,$bibid);
#coping with subscriptions
my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
my $dat = MARCmarc2koha($dbh,$record);
my @subscriptions = getsubscriptions($dat->{title},$dat->{issn},$biblionumber);
my @subscriptions = GetSubscriptions($dat->{title},$dat->{issn},$biblionumber);
my @subs;
foreach my $subscription (@subscriptions){
my %cell;
$cell{subscriptionid}= $subscription->{subscriptionid};
$cell{subscriptionnotes}= $subscription->{notes};
#get the three latest serials.
$cell{latestserials}=getlatestserials($subscription->{subscriptionid},3);
$cell{latestserials}=GetLatestSerials($subscription->{subscriptionid},3);
push @subs, \%cell;
}

23
opac/opac-alert-subscribe.pl
View File

@ -1,5 +1,24 @@
#!/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
# $Id$
use strict;
use CGI;
use C4::Auth;
@ -9,7 +28,7 @@ use C4::Interface::CGI::Output;
use C4::Context;
use C4::Koha;
use C4::Letters;
use C4::Bull;
use C4::Serials;
# use C4::Search;
use HTML::Template;
@ -49,7 +68,7 @@ if ($op eq 'alert_confirmed') {
} else {
if ($alerttype eq 'issue') { # alert for subscription issues
my $subscription = &getsubscription($externalid);
my $subscription = &GetSubscription($externalid);
$template->param("typeissue$op" => 1,
bibliotitle => $subscription->{bibliotitle},
notes => $subscription->{notes},

36
opac/opac-detail.pl
View File

@ -1,9 +1,29 @@
#!/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
# $Id$
use strict;
require Exporter;
use CGI;
use C4::Auth;
use C4::Bull; #uses getsubscriptionfrom biblionumber
use C4::Serials; #uses getsubscriptionfrom biblionumber
use C4::Interface::CGI::Output;
use HTML::Template;
use C4::Biblio;
@ -31,12 +51,12 @@ my $dat = &bibdata($biblionumber);
my ( $authorcount, $addauthor ) = &getaddauthor($biblionumber);
my ( $webbiblioitemcount, @webbiblioitems ) = &getwebbiblioitems($biblionumber);
my ( $websitecount, @websites ) = &getwebsites($biblionumber);
my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
#coping with subscriptions
my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
my @subscriptions =
getsubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
my @subs;
foreach my $subscription (@subscriptions) {
my %cell;
@ -45,7 +65,7 @@ foreach my $subscription (@subscriptions) {
#get the three latest serials.
$cell{latestserials} =
getlatestserials( $subscription->{subscriptionid}, 3 );
GetLatestSerials( $subscription->{subscriptionid}, 3 );
push @subs, \%cell;
}
@ -124,9 +144,9 @@ my $titlewords = \@title;
my $authorwords = \@author;
#coping with subscriptions
my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber);
my $subscriptionsnumber = GetSubscriptionFromBiblionumber($biblionumber);
my @subscriptions =
getsubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
my @subs;
foreach my $subscription (@subscriptions) {
warn "subsid :" . $subscription->{subscriptionid};
@ -136,7 +156,7 @@ foreach my $subscription (@subscriptions) {
#get the three latest serials.
$cell{latestserials} =
getlatestserials( $subscription->{subscriptionid}, 3 );
GetLatestSerials( $subscription->{subscriptionid}, 3 );
push @subs, \%cell;
}

25
opac/opac-serial-issues.pl
View File

@ -1,11 +1,30 @@
#!/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
# $Id$
use strict;
use CGI;
use C4::Auth;
use C4::Koha;
use C4::Date;
use C4::Bull;
use C4::Serials;
use C4::Letters;
use C4::Output;
use C4::Interface::CGI::Output;
@ -23,7 +42,7 @@ my $sth;
my ($template, $loggedinuser, $cookie);
my $biblionumber = $query->param('biblionumber');
if ($selectview eq "full"){
my $subscriptions = get_full_subscription_list_from_biblionumber($biblionumber);
my $subscriptions = GetFullSubscriptionListFromBiblionumber($biblionumber);
my $title = $subscriptions->[0]{bibliotitle};
my $yearmin=$subscriptions->[0]{year};
@ -51,7 +70,7 @@ if ($selectview eq "full"){
);
} else {
my $subscriptions = get_subscription_list_from_biblionumber($biblionumber);
my $subscriptions = GetSubscriptionListFromBiblionumber($biblionumber);
($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "opac-serial-issues.tmpl",

8
opac/opac-suggestions.pl
View File

@ -47,8 +47,8 @@ if (!$borrowernumber) {
}
if ($op eq "add_confirm") {
&newsuggestion($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn,'');
# empty fields, to avoid filter in "searchsuggestion"
&NewSuggestion($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn,'');
# empty fields, to avoid filter in "SearchSuggestion"
$title='';
$author='';
$publishercode='';
@ -63,12 +63,12 @@ if ($op eq "add_confirm") {
if ($op eq "delete_confirm") {
my @delete_field = $input->param("delete_field");
foreach my $delete_field (@delete_field) {
&delsuggestion($borrowernumber,$delete_field);
&DelSuggestion($borrowernumber,$delete_field);
}
$op='else';
}
my $suggestions_loop= &searchsuggestion($borrowernumber,$author,$title,$publishercode,$status,$suggestedbyme);
my $suggestions_loop= &SearchSuggestion($borrowernumber,$author,$title,$publishercode,$status,$suggestedbyme);
$template->param(suggestions_loop => $suggestions_loop,
title => $title,
author => $author,

27
suggestion/acceptorreject.pl
View File

@ -1,9 +1,28 @@
#!/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
# $Id$
use strict;
require Exporter;
use CGI;
use HTML::Template;
use C4::Auth; # get_template_and_user
use C4::Interface::CGI::Output;
use C4::Suggestions;
@ -38,7 +57,7 @@ if ($op eq "aorr_confirm") {
my ($newstatus,$suggestionid) = ($1,$2);
$newstatus="REJECTED" if $newstatus eq "R";
$newstatus="ACCEPTED" if $newstatus eq "A";
changestatus($suggestionid,$newstatus,$loggedinuser);
ModStatus($suggestionid,$newstatus,$loggedinuser);
}
}
$op="else";
@ -47,12 +66,12 @@ if ($op eq "aorr_confirm") {
if ($op eq "delete_confirm") {
my @delete_field = $input->param("delete_field");
foreach my $delete_field (@delete_field) {
&delsuggestion($loggedinuser,$delete_field);
&DelSuggestion($loggedinuser,$delete_field);
}
$op='else';
}
my $suggestions_loop= &searchsuggestion("","","","",'ASKED',"");
my $suggestions_loop= &SearchSuggestion("","","","",'ASKED',"");
$template->param(suggestions_loop => $suggestions_loop,
"op_$op" => 1,
intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),