Implemented `bq --rm' and `bq --move-to'

[bex.git] / lib / BEX / Job.pm

diff --git a/lib/BEX/Job.pm b/lib/BEX/Job.pm
index b0add1b3fe1f37bc1789af28f5e8d74f6a7a563e..d040f1a08652307675a2ce1395a75c1338d91e85 100644 (file)
--- a/lib/BEX/Job.pm
+++ b/lib/BEX/Job.pm
@@ -56,6 +56,14 @@ sub id($) {
        return $_[0]->{'ID'};
 }
 
+sub name($) {
+       my ($job) = @_;
+       my $name = $job->{'ID'};
+       my $subj = $job->{'Subject'} // "";
+       $name .= " ($subj)" if $subj !~ /^\s*$/;
+       return $name;
+}
+
 sub attr($$;$) {
        my ($job, $attr, $val) = @_;
        $job->{$attr} = $val if defined $val;