X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Felements%2Fmake_appointment.html;h=ddf377f54782563c12b2adb06400b461ccba07fd;hb=bda35ac2da6481a1e4f5414c0b7caf2b90d26fcf;hp=f9e80045ca800125adbd635aeb4e361973764897;hpb=2e2fc8616751ce8fd69bc52344dd61fc03eb2ab0;p=freeside.git

diff --git a/httemplate/elements/make_appointment.html b/httemplate/elements/make_appointment.html
index f9e80045c..ddf377f54 100644
--- a/httemplate/elements/make_appointment.html
+++ b/httemplate/elements/make_appointment.html
@@ -15,7 +15,10 @@
 Length: 
 <SELECT NAME="LengthMin">
 %  for ( my $hours = .5; $hours < 10.5; $hours += .5 ) {
-     <OPTION VALUE="<% $hours * 60 %>"><% $hours %> hour<% $hours > 1 ? 's' : '' %>
+%    my $min = $hours * 60;
+     <OPTION VALUE="<% $min %>"
+             <% $min == $default_length ? 'SELECTED' : '' %>
+     ><% $hours %> hour<% $hours > 1 ? 's' : '' %>
 %  }
 </SELECT>
 <BR>
@@ -28,6 +31,8 @@ Length:
 <& /elements/footer-popup.html &>
 <%init>
 
+my $default_length = FS::Conf->new->config('default_appointment_length') || 180;
+
 #XXX '&pkgnum=$pkgnum";need to be for specific package/location, not just for a customer... default to active(/ordered) package in a pkg_class w/ticketing_queueid, otherwise, a popup?  (well, we're already a popup now) we're getting complicated like form-creat_ticket.html