[Koha-cvs] koha/opac opac-serial-issues.pl opac-suggestion...

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/07 09:01:03

Modified files:
        opac           : opac-serial-issues.pl opac-suggestions.pl 

Log message:
        Sub renamed & GPL Licence added.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-serial-issues.pl?cvsroot=koha&r1=1.6&r2=1.7
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-suggestions.pl?cvsroot=koha&r1=1.5&r2=1.6

Patches:
Index: opac-serial-issues.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-serial-issues.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- opac-serial-issues.pl       21 May 2006 02:29:09 -0000      1.6
+++ opac-serial-issues.pl       7 Jul 2006 09:01:03 -0000       1.7
@@ -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: opac-serial-issues.pl,v 1.7 2006/07/07 09:01:03 toins Exp $
+
 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 ($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 @@
                );
 
 } 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",

Index: opac-suggestions.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-suggestions.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- opac-suggestions.pl 4 Jul 2006 14:36:52 -0000       1.5
+++ opac-suggestions.pl 7 Jul 2006 09:01:03 -0000       1.6
@@ -47,8 +47,8 @@
 }
 
 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 "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,