diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-25 13:08:48 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-25 13:08:48 +0000 |
commit | 755bc3096292b14ec4ecc5add0b2e5dd8d666a5a (patch) | |
tree | 65131bff7ba206f2db7ca30a064812a5832a809b | |
parent | 887f8616476b873b62d0307badd083e151836592 (diff) |
Add the thorn name to the RFR print tree ... do we want the
implementation name as well?
git-svn-id: http://svn.cactuscode.org/flesh/trunk@784 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/schedule_parser.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/sbin/schedule_parser.pl b/lib/sbin/schedule_parser.pl index 762b339f..03da42f5 100644 --- a/lib/sbin/schedule_parser.pl +++ b/lib/sbin/schedule_parser.pl @@ -388,7 +388,7 @@ sub parse_schedule_ccl sub find_schedule_block { - local($number,@data) = @_; + local($thorn,$number,@data) = @_; local(@block); local($i,$line); @@ -408,7 +408,7 @@ sub find_schedule_block $line_number = $i; if($1) { - $desc = "\"$1\""; + $desc = "\"$thorn: $1\""; } else { @@ -452,7 +452,7 @@ sub parse_schedule_block $proto = ""; $out = ""; - ($routine,$when,$desc,@block) = &find_schedule_block($number,@data); + ($routine,$when,$desc,@block) = &find_schedule_block($thorn,$number,@data); # At the moment can schedule at RFR entry points of at STARTUP if ($type eq "startup" && $when =~ /\s*STARTUP\s*/i) { |