freeside/FS/FS rate.pm,1.4,1.5 svc_acct.pm,1.169,1.170

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv22292/FS/FS

Modified Files:
	rate.pm svc_acct.pm 
Log Message:
add progressbar to service definition add - duplicate checking can take a while, closes: Bug#1126

Index: rate.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/rate.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- rate.pm	17 Feb 2005 00:11:28 -0000	1.4
+++ rate.pm	24 Feb 2005 14:22:02 -0000	1.5
@@ -2,8 +2,6 @@
 
 use strict;
 use vars qw( @ISA $DEBUG );
-use Storable qw(thaw);
-use Data::Dumper;
 use FS::Record qw( qsearch qsearchs dbh fields );
 use FS::rate_detail;
 
@@ -309,6 +307,8 @@
 
 =cut
 
+use Storable qw(thaw);
+use Data::Dumper;
 use MIME::Base64;
 sub process {
   my $job = shift;

Index: svc_acct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_acct.pm,v
retrieving revision 1.169
retrieving revision 1.170
diff -u -d -r1.169 -r1.170
--- svc_acct.pm	14 Feb 2005 03:49:13 -0000	1.169
+++ svc_acct.pm	24 Feb 2005 14:22:02 -0000	1.170
@@ -1414,7 +1414,7 @@
 END
 
   foreach my $group ( @all_groups ) {
-    $html .= '<OPTION';
+    $html .= qq(<OPTION VALUE="$group");
     if ( $sel_groups{$group} ) {
       $html .= ' SELECTED';
       $sel_groups{$group} = 0;
@@ -1422,7 +1422,7 @@
     $html .= ">$group</OPTION>\n";
   }
   foreach my $group ( grep { $sel_groups{$_} } keys %sel_groups ) {
-    $html .= "<OPTION SELECTED>$group</OPTION>\n";
+    $html .= qq(<OPTION VALUE="$group" SELECTED>$group</OPTION>\n);
   };
   $html .= '</SELECT>';