Bug 21738: make call of CanBookBeReserved more safe

[koha.git] / C4 / BackgroundJob.pm

diff --git a/C4/BackgroundJob.pm b/C4/BackgroundJob.pm
index 8bd5fed..f607340 100644 (file)
--- a/C4/BackgroundJob.pm
+++ b/C4/BackgroundJob.pm
@@ -24,12 +24,7 @@ use C4::Context;
 use C4::Auth qw/get_session/;
 use Digest::MD5;
 
-use vars qw($VERSION);
 
-BEGIN {
-       # set the version for version checking
-    $VERSION = 3.07.00.049;
-}
 
 =head1 NAME
 
@@ -300,6 +295,25 @@ sub get {
     return $self->{extra_values}->{$key};
 }
 
+
+=head2 clear
+
+=over 4
+
+=item $job->clear();
+
+=back
+
+Clear the job from the current session.
+
+=cut
+
+sub clear {
+    my $self = shift;
+    get_session($self->{sessionID})->clear('job_' . $self->{jobID});
+}
+
+
 1;
 __END__