[freeside-commits] freeside/httemplate/pref pref.html, 1.3.2.1, 1.3.2.2 pref-process.html, 1.4.2.2, 1.4.2.3

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	pref.html pref-process.html 
Log Message:
add package invoice details & comments, RT#3810

Index: pref-process.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/pref/pref-process.html,v
retrieving revision 1.4.2.2
retrieving revision 1.4.2.3
diff -u -d -r1.4.2.2 -r1.4.2.3
--- pref-process.html	21 Sep 2007 00:42:49 -0000	1.4.2.2
+++ pref-process.html	8 Sep 2008 02:42:31 -0000	1.4.2.3
@@ -28,7 +28,8 @@
 % }
 %
 % #XXX autogen
-% my @paramlist = qw( menu_position email_address
+% my @paramlist = qw( menu_position show_pkgnum
+%                     email_address
 %                     height width availHeight availWidth colorDepth
 %                   );
 %

Index: pref.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/pref/pref.html,v
retrieving revision 1.3.2.1
retrieving revision 1.3.2.2
diff -u -d -r1.3.2.1 -r1.3.2.2
--- pref.html	21 Mar 2007 01:35:32 -0000	1.3.2.1
+++ pref.html	8 Sep 2008 02:42:30 -0000	1.3.2.2
@@ -53,8 +53,20 @@
  
  </TABLE>
  <BR>
- 
- 
+
+
+Development
+<% ntable("#cccccc",2) %>
+
+  <TR>
+    <TH>Show internal package numbers: </TH>
+    <TD><INPUT TYPE="checkbox" NAME="show_pkgnum" VALUE="1" <% $curuser->option('show_pkgnum') ? 'CHECKED' : '' %>></TD>
+  </TR>
+
+</TABLE>
+<BR>
+
+
 % foreach my $prop (qw( height width availHeight availWidth colorDepth )) {
   <INPUT TYPE="hidden" NAME="<% $prop %>" VALUE="">
   <SCRIPT TYPE="text/javascript">
@@ -67,11 +79,13 @@
 <% include('/elements/footer.html') %>
 <%init>
 
+my $curuser = $FS::CurrentUser::CurrentUser;
+
 # XSS via your own preferences?  seems unlikely, but nice try anyway...
-( $FS::CurrentUser::CurrentUser->option('menu_position') || 'left' )
+( $curuser->option('menu_position') || 'left' )
   =~ /^(\w+)$/ or die "illegal menu_position";
 my $menu_position = $1;
-( $FS::CurrentUser::CurrentUser->option('email_address') )
+( $curuser->option('email_address') )
   =~ /^([,\w\@.]*)$/ or die "illegal email_address";  #too late
 my $email_address = $1;