Bug 9659 - QA Follow up: Unit tests
[koha.git] / C4 / Scheduler.pm
index 40e4dfb..fe7e2ce 100644 (file)
@@ -13,11 +13,12 @@ package C4::Scheduler;
 # 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 vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 use C4::Context;
@@ -25,7 +26,7 @@ use Schedule::At;
 
 BEGIN {
        # set the version for version checking
-       $VERSION = 0.02;
+    $VERSION = 3.07.00.049;
        require Exporter;
        @ISA = qw(Exporter);
        @EXPORT =
@@ -42,14 +43,11 @@ C4::Scheduler - Module for running jobs with the unix at command
 
 =head1 DESCRIPTION
 
+=cut
 
 =head1 METHODS
 
-=over 2
-
-=cut
-
-=item get_jobs();
+=head2 get_jobs();
 
 This will return all scheduled jobs
 
@@ -61,7 +59,7 @@ sub get_jobs {
     return ($jobs);
 }
 
-=item get_at_jobs();
+=head2 get_at_jobs();
 
 This will return all At scheduled jobs
 
@@ -72,7 +70,7 @@ sub get_at_jobs {
        return (\%jobs);
 }
 
-=item get_at_job($id)
+=head2 get_at_job($id)
 
 This will return the At job with the given id
 
@@ -83,7 +81,7 @@ sub get_at_job {
        my %jobs = Schedule::At::getJobs(JOBID => $id);
 }
 
-=item add_at_job ($time,$command)
+=head2 add_at_job ($time,$command)
 
 Given a timestamp and a command this will schedule the job to run at that time.
 
@@ -140,7 +138,7 @@ __END__
 
 At some point C<C4::Scheduler> should be refactored:
 
-=over 4
+=over
 
 =item At and C<Schedule::At> does not work on Win32.