smeserver-tw-logonscript/contribs8/smeserver-tw-logonscript-1.3-panelPrintGroupTable.patch

--- smeserver-tw-logonscript-1.3/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibayletters.pm.panelPrintGroupTable       2009-11-04 13:34:52.000000000 +1300
+++ smeserver-tw-logonscript-1.3/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibayletters.pm    2009-11-16 14:07:43.000000000 +1300
@@ -17,7 +17,6 @@
 use File::Basename;
 use Exporter;
 use Carp;
-use CGI::Carp qw(fatalsToBrowser) ;
 use Data::Dumper;
 our @ISA = qw(esmith::FormMagick Exporter);
 use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
@@ -77,6 +76,31 @@
 
 *wherenext = \&CGI::FormMagick::wherenext;
 
+sub print_group_table {
+    my $self = shift;
+    my $q = $self->{cgi};
+    my $group  = $self->localise('Group');
+
+    my %groups = get_group_list();
+    print $q->br();
+    print $q->br();
+    print $self->localise('GROUP_LIST_DESCRIPTION');
+    print $q->br();
+    print $q->br();
+    print $q->end_table,"\n";
+    print $q->start_table({-CLASS => "sme-border"}),"\n";
+    print $q->Tr (
+                  esmith::cgi::genSmallCell($q, $group,"header"),
+                  esmith::cgi::genSmallCell($q, $self->localise('CUSTOM_BATCH_FILE'),"header")),"\n";
+    foreach my $group_name (keys %groups){
+       print $q->Tr (
+                  esmith::cgi::genSmallCell($q, $groups{$group_name}),
+                  esmith::cgi::genSmallCell($q, "<a href=\"ibayletters?page_stack=;page=0;groupname=$group_name&action=createcustombatchfile&wherenext=CustomBatchGroup\">$group_name.bat</a>","normal"));
+
+    }
+    print $q->end_table,"\n";
+    return "";
+}
 
 sub print_ibay_table {
     my $self = shift;
@@ -100,8 +124,7 @@
                   esmith::cgi::genSmallCell($q, $name,"header"),
                   esmith::cgi::genSmallCell($q, $description,"header"),
                   esmith::cgi::genSmallCell($q, $group,"header"),
-                  esmith::cgi::genSmallCell($q, $drive_letter,"header"),
-                  esmith::cgi::genSmallCell($q, $self->localise('CUSTOM_BATCH_FILE'),"header")),"\n";
+                  esmith::cgi::genSmallCell($q, $drive_letter,"header")),"\n";
     my $scriptname = basename($0);
 
     foreach my $i (@ibays) 
@@ -115,8 +138,7 @@
             esmith::cgi::genSmallCell($q, $ibayname,"normal"),
             esmith::cgi::genSmallCell($q, $ibaydesc,"normal"),
             esmith::cgi::genSmallCell($q, $group_list{$ibaygroup}|| $ibaygroup,"normal"),
-            esmith::cgi::genSmallCell($q, genSelect("$ibayname","$driveletter",\@names,\@values),"normal"),
-            esmith::cgi::genSmallCell($q, "<a href=\"ibayletters?page_stack=;page=0;groupname=$ibaygroup&action=createcustombatchfile&wherenext=CustomBatchGroup\">$ibaygroup.bat</a>","normal"));
+            esmith::cgi::genSmallCell($q, genSelect("$ibayname","$driveletter",\@names,\@values),"normal"));
     }
 
     my $db = esmith::ConfigDB->open_ro();
1	unnilennium	1.1	--- smeserver-tw-logonscript-1.3/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibayletters.pm.panelPrintGroupTable 2009-11-04 13:34:52.000000000 +1300
2			+++ smeserver-tw-logonscript-1.3/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/ibayletters.pm 2009-11-16 14:07:43.000000000 +1300
3			@@ -17,7 +17,6 @@
4			use File::Basename;
5			use Exporter;
6			use Carp;
7			-use CGI::Carp qw(fatalsToBrowser) ;
8			use Data::Dumper;
9			our @ISA = qw(esmith::FormMagick Exporter);
10			use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
11			@@ -77,6 +76,31 @@
12
13			*wherenext = \&CGI::FormMagick::wherenext;
14
15			+sub print_group_table {
16			+ my $self = shift;
17			+ my $q = $self->{cgi};
18			+ my $group = $self->localise('Group');
19			+
20			+ my %groups = get_group_list();
21			+ print $q->br();
22			+ print $q->br();
23			+ print $self->localise('GROUP_LIST_DESCRIPTION');
24			+ print $q->br();
25			+ print $q->br();
26			+ print $q->end_table,"\n";
27			+ print $q->start_table({-CLASS => "sme-border"}),"\n";
28			+ print $q->Tr (
29			+ esmith::cgi::genSmallCell($q, $group,"header"),
30			+ esmith::cgi::genSmallCell($q, $self->localise('CUSTOM_BATCH_FILE'),"header")),"\n";
31			+ foreach my $group_name (keys %groups){
32			+ print $q->Tr (
33			+ esmith::cgi::genSmallCell($q, $groups{$group_name}),
34			+ esmith::cgi::genSmallCell($q, "<a href=\"ibayletters?page_stack=;page=0;groupname=$group_name&action=createcustombatchfile&wherenext=CustomBatchGroup\">$group_name.bat</a>","normal"));
35			+
36			+ }
37			+ print $q->end_table,"\n";
38			+ return "";
39			+}
40
41			sub print_ibay_table {
42			my $self = shift;
43			@@ -100,8 +124,7 @@
44			esmith::cgi::genSmallCell($q, $name,"header"),
45			esmith::cgi::genSmallCell($q, $description,"header"),
46			esmith::cgi::genSmallCell($q, $group,"header"),
47			- esmith::cgi::genSmallCell($q, $drive_letter,"header"),
48			- esmith::cgi::genSmallCell($q, $self->localise('CUSTOM_BATCH_FILE'),"header")),"\n";
49			+ esmith::cgi::genSmallCell($q, $drive_letter,"header")),"\n";
50			my $scriptname = basename($0);
51
52			foreach my $i (@ibays)
53			@@ -115,8 +138,7 @@
54			esmith::cgi::genSmallCell($q, $ibayname,"normal"),
55			esmith::cgi::genSmallCell($q, $ibaydesc,"normal"),
56			esmith::cgi::genSmallCell($q, $group_list{$ibaygroup}\|\| $ibaygroup,"normal"),
57			- esmith::cgi::genSmallCell($q, genSelect("$ibayname","$driveletter",\@names,\@values),"normal"),
58			- esmith::cgi::genSmallCell($q, "<a href=\"ibayletters?page_stack=;page=0;groupname=$ibaygroup&action=createcustombatchfile&wherenext=CustomBatchGroup\">$ibaygroup.bat</a>","normal"));
59			+ esmith::cgi::genSmallCell($q, genSelect("$ibayname","$driveletter",\@names,\@values),"normal"));
60			}
61
62			my $db = esmith::ConfigDB->open_ro();