X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FMaintainance.pm;h=8726ef91f1da39c8b0e556c4f27430261d3a0d91;hb=9c5e40e4923179bf0b2b630d3e09797dc4c1fdb0;hp=740163f7e1b8dc8edd7bce08b21a33d326d4e529;hpb=6241d54c52b9ad1e8f1117b260cbbc86c4d37faa;p=koha.git diff --git a/C4/Maintainance.pm b/C4/Maintainance.pm index 740163f7e1..8726ef91f1 100644 --- a/C4/Maintainance.pm +++ b/C4/Maintainance.pm @@ -29,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 @@ -47,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); @@ -74,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. @@ -101,7 +100,7 @@ sub listsubjects { return($i,\@results); } -=item shiftgroup +=head2 shiftgroup &shiftgroup($biblionumber, $biblioitemnumber); @@ -110,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)=@_; @@ -122,7 +122,7 @@ sub shiftgroup{ $sth->finish; } -=item deletedbib +=head2 deletedbib ($count, $results) = &deletedbib($title); @@ -134,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)=@_; @@ -150,7 +151,7 @@ sub deletedbib{ return($i,\@results); } -=item undeletebib +=head2 undeletebib &undeletebib($biblionumber); @@ -159,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)=@_; @@ -183,7 +185,7 @@ sub undeletebib{ $sth->finish; } -=item updatetype +=head2 updatetype &updatetype($biblioitemnumber, $itemtype); @@ -191,6 +193,7 @@ Changes the type of the item with the given biblioitemnumber to be C<$itemtype>. =cut + #' sub updatetype{ my ($bi,$type)=@_; @@ -205,10 +208,8 @@ END { } # module clean-up code here (global destructor) 1; __END__ -=back - =head1 AUTHOR -Koha Development Team +Koha Development Team =cut