[freeside-commits] freeside/httemplate/edit svc_Common.html, 1.2.4.1, 1.2.4.2

Ivan,,, ivan at wavetail.420.am
Wed Feb 17 01:00:42 PST 2010


Update of /home/cvs/cvsroot/freeside/httemplate/edit
In directory wavetail.420.am:/tmp/cvs-serv17600

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	svc_Common.html 
Log Message:
fix svc_pbx provisioniing

Index: svc_Common.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/edit/svc_Common.html,v
retrieving revision 1.2.4.1
retrieving revision 1.2.4.2
diff -u -d -r1.2.4.1 -r1.2.4.2
--- svc_Common.html	13 Feb 2010 02:53:49 -0000	1.2.4.1
+++ svc_Common.html	17 Feb 2010 09:00:40 -0000	1.2.4.2
@@ -1,6 +1,33 @@
 <% include('elements/svc_Common.html',
              'table'        => $table,
 	     'post_url'     => popurl(1). "process/svc_Common.html",
+             %opt,
 	  )
 %>
-%# i don't think this is actuallly used by anything??
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
+
+# false laziness w/view/svc_Common.html
+
+$cgi->param('svcdb') =~ /^(svc_\w+)$/ or die "unparsable svcdb";
+my $table = $1;
+require "FS/$table.pm";
+
+my %opt;
+if ( UNIVERSAL::can("FS::$table", 'table_info') ) {
+  $opt{'name'}   = "FS::$table"->table_info->{'name'};
+
+  my $fields = "FS::$table"->table_info->{'fields'};
+  my %labels = map { $_ => ( ref($fields->{$_})
+                               ? $fields->{$_}{'label'}
+			       : $fields->{$_}
+			   );
+                   }
+               keys %$fields;
+  $opt{'labels'} = \%labels;
+
+}
+
+</%init>



More information about the freeside-commits mailing list