From 1696f62652a9b09db5aa2d2291e2af2c3707debb Mon Sep 17 00:00:00 2001 From: toins Date: Fri, 7 Jul 2006 09:00:12 +0000 Subject: [PATCH] Sub renamed & GPL Licence added. --- opac/opac-ISBDdetail.pl | 10 ++++++---- opac/opac-alert-subscribe.pl | 23 +++++++++++++++++++++-- opac/opac-detail.pl | 36 ++++++++++++++++++++++++++++-------- opac/opac-serial-issues.pl | 25 ++++++++++++++++++++++--- opac/opac-suggestions.pl | 8 ++++---- suggestion/acceptorreject.pl | 27 +++++++++++++++++++++++---- 6 files changed, 104 insertions(+), 25 deletions(-) diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl index 986f598ea9..b23b03995e 100755 --- a/opac/opac-ISBDdetail.pl +++ b/opac/opac-ISBDdetail.pl @@ -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; } diff --git a/opac/opac-alert-subscribe.pl b/opac/opac-alert-subscribe.pl index f3761304cf..ae8037f51e 100755 --- a/opac/opac-alert-subscribe.pl +++ b/opac/opac-alert-subscribe.pl @@ -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}, diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index 1b1ac04938..84f329e139 100755 --- a/opac/opac-detail.pl +++ b/opac/opac-detail.pl @@ -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; } diff --git a/opac/opac-serial-issues.pl b/opac/opac-serial-issues.pl index e94a25b883..e44b207c58 100755 --- a/opac/opac-serial-issues.pl +++ b/opac/opac-serial-issues.pl @@ -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", diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl index 8883e29b1c..02687aa7a6 100755 --- a/opac/opac-suggestions.pl +++ b/opac/opac-suggestions.pl @@ -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, diff --git a/suggestion/acceptorreject.pl b/suggestion/acceptorreject.pl index 528340e7aa..9f1721e6b3 100755 --- a/suggestion/acceptorreject.pl +++ b/suggestion/acceptorreject.pl @@ -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"), -- 2.20.1