/[smecontribs]/rpms/smeserver-tw-logonscript/contribs7/smeserver-tw-logonscript-1.3-panelPrintGroupTable.patch
ViewVC logotype

Annotation of /rpms/smeserver-tw-logonscript/contribs7/smeserver-tw-logonscript-1.3-panelPrintGroupTable.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Mon Nov 16 01:19:46 2009 UTC (14 years, 11 months ago) by chriscosta
Branch: MAIN
CVS Tags: smeserver-tw-logonscript-1_3-12_el4_sme, smeserver-tw-logonscript-1_3-19_el4_sme, smeserver-tw-logonscript-1_3-20_el4_sme, smeserver-tw-logonscript-1_3-15_el4_sme, smeserver-tw-logonscript-1_3-17_el4_sme, smeserver-tw-logonscript-1_3-14_el4_sme, smeserver-tw-logonscript-1_3-11_el4_sme, smeserver-tw-logonscript-1_3-16_el4_sme, smeserver-tw-logonscript-1_3-13_el4_sme, smeserver-tw-logonscript-1_3-10_el4_sme, HEAD
* Mon Nov 16 2009 Christian Costa <christian@tw.co.nz> 1.3-10
- Changes to the SME Server panel. Now it displays a list with all groups that allows custom group batch files to be edited/created for all groups not only the ones associated with i-bays.
- Added a new lexicon to the en_us file

1 chriscosta 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();

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed