X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Fshare%2Fhtml%2FSearch%2FSchedule.html;h=be5a140efc2f896f0b4bc1f37437806aac278c37;hp=34ba142bdf0e24345c56cb210dfe97d7027fda05;hb=09ae66f29fc7cbd46c13ae1f9361713cbce54153;hpb=9aee669886202be7035e6c6049fc71bc99dd3013
diff --git a/rt/share/html/Search/Schedule.html b/rt/share/html/Search/Schedule.html
index 34ba142bd..be5a140ef 100644
--- a/rt/share/html/Search/Schedule.html
+++ b/rt/share/html/Search/Schedule.html
@@ -1,14 +1,9 @@
-<& /Elements/Header, Title => 'Schedule' &>
-
-%#init_overlib.html
-%foreach my $file (@files) {
-
-%}
-
-
+<& /Elements/Header, Title => 'Schedule', JavaScript => 0 &>
<& /Search/Calendar.html,
@@ -86,9 +234,13 @@ if ( ref($ARGS{username}) ) {
} elsif ( $ARGS{username} ) {
@usernames = ( $ARGS{username} );
} else {
- #XXX shouldn't even get offered the link in the first place rather than perl
- # barf, but this is better than erroring out later or empty @username
- die "Can't schedule an appointment - no employees are configured as installers";
+ #look them up ourslves... again, more FS abstraction-leaking, but
+ # we want to link to the schedule view, and better than doing this every
+ # menu render
+ use FS::Record qw( qsearch );
+ use FS::sched_item;
+ my @sched_item = qsearch('sched_item', { 'disabled' => '', });
+ @usernames = map $_->access_user->username, @sched_item;
}
( my $LengthMin = $ARGS{LengthMin} ) =~ /^\d+$/ or die 'non-numeric LengthMin';