X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FMaintainance.pm;h=8726ef91f1da39c8b0e556c4f27430261d3a0d91;hb=98bde26d2571b43ecee07e017e36f45e1aa6e680;hp=b8a23c8c3d4f6685ea1d33b0b39e6d78f17d8ccd;hpb=f8e9fb6445dadbdef91e13a253c9c6bcb75e0eec;p=koha.git

diff --git a/C4/Maintainance.pm b/C4/Maintainance.pm
index b8a23c8c3d..8726ef91f1 100644
--- a/C4/Maintainance.pm
+++ b/C4/Maintainance.pm
@@ -16,11 +16,12 @@ package C4::Maintainance; #assumes C4/Maintainance
 # 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
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 use strict;
+#use warnings; FIXME - Bug 2505
 use C4::Context;
 
 require Exporter;
@@ -28,7 +29,7 @@ require Exporter;
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = 0.01;
+$VERSION = 3.07.00.049;
 
 =head1 NAME
 
@@ -46,15 +47,13 @@ miscategorized items, etc.
 
 =head1 FUNCTIONS
 
-=over 2
-
 =cut
 
 @ISA = qw(Exporter);
 @EXPORT = qw(&listsubjects &shiftgroup &deletedbib &undeletebib
 &updatetype &logaction);
 
-=item listsubjects
+=head2 listsubjects
 
   ($count, $results) = &listsubjects($subject, $n, $offset);
 
@@ -73,6 +72,7 @@ C<&listsubject> returns up to C<$n> items, starting at C<$offset>. If
 C<$n> is 0, it will return all matching subjects.
 
 =cut
+
 #'
 # FIXME - This API is bogus. The way it's currently used, it should
 # just return a list of strings.
@@ -100,7 +100,7 @@ sub listsubjects {
   return($i,\@results);
 }
 
-=item shiftgroup
+=head2 shiftgroup
 
   &shiftgroup($biblionumber, $biblioitemnumber);
 
@@ -109,6 +109,7 @@ C<$biblioitemnumber> is the number of the biblioitem to change.
 C<$biblionumber> is the biblionumber to associate it with.
 
 =cut
+
 #'
 sub shiftgroup{
   my ($biblionumber,$bi)=@_;
@@ -121,7 +122,7 @@ sub shiftgroup{
   $sth->finish;
 }
 
-=item deletedbib
+=head2 deletedbib
 
   ($count, $results) = &deletedbib($title);
 
@@ -133,6 +134,7 @@ the fields of the deletedbiblio table in the Koha database. C<$count>
 is the number of elements in C<$results>.
 
 =cut
+
 #'
 sub deletedbib{
   my ($title)=@_;
@@ -149,7 +151,7 @@ sub deletedbib{
   return($i,\@results);
 }
 
-=item undeletebib
+=head2 undeletebib
 
   &undeletebib($biblionumber);
 
@@ -158,6 +160,7 @@ biblionumber in the deletedbiblio table of the Koha database, and
 moves its entry to the biblio table.
 
 =cut
+
 #'
 sub undeletebib{
   my ($biblionumber)=@_;
@@ -182,7 +185,7 @@ sub undeletebib{
   $sth->finish;
 }
 
-=item updatetype
+=head2 updatetype
 
   &updatetype($biblioitemnumber, $itemtype);
 
@@ -190,6 +193,7 @@ Changes the type of the item with the given biblioitemnumber to be
 C<$itemtype>.
 
 =cut
+
 #'
 sub updatetype{
   my ($bi,$type)=@_;
@@ -204,10 +208,8 @@ END { }       # module clean-up code here (global destructor)
 1;
 __END__
 
-=back
-
 =head1 AUTHOR
 
-Koha Developement team <info@koha.org>
+Koha Development Team <http://koha-community.org/>
 
 =cut