WebSVN – PEEPS – Diff – /trunk/site/view_league.pl

 my $pageTitle = "View League";
 my $homeURL = "/";
 my $DBTable = "organization";
 my %FIELDS = (
-	id                  => [qw(ID               5    auto      static   )],
+	id                  => [qw(ID                    5    auto      static   )],
-	league_name         => [qw(DisplayName     10    text      required )],
+	league_name         => ["League Display Name",  10,  'text',   'required' ],
-	business_name       => [qw(BusinessName    15    text               )],
+	business_name       => ["Business Name",        15,  'text'               ],
-	city                => [qw(City            20    text               )],
+	city                => [qw(City                 20    text               )],
-	state_province      => [qw(State/Province  25    text               )],
+	state_province      => [qw(State/Province       25    text               )],
-	country             => [qw(Country         30    text               )],
+	country             => [qw(Country              30    text               )],
-	url                 => [qw(URL             35    text               )],
+	url                 => [qw(URL                  35    text               )],
-	type                => [qw(Type            40    select    required )],
+	type                => [qw(Type                 40    select    required )],
-	status              => [qw(Status          45    select    required )],
+	status              => [qw(Status               45    select    required )],
-	legal_entity_type   => [qw(LegalType       50    text               )],
+	legal_entity_type   => ["Legal Org Type",       50,  'text',              ],
-	tax_id              => [qw(TaxID           55    text               )],
+	tax_id              => [qw(TaxID                55    text               )],
-	date_established    => [qw(Established     60    date               )],
+	date_established    => [qw(Established          60    date               )],
-	updated             => [qw(Updated         65    readonly  static   )],
+	updated             => [qw(Updated              65    readonly  static   )],
 );
 my %fieldDisplayName = map  { $_ => $FIELDS{$_}->[0]   } keys %FIELDS;
 my %fieldType        = map  { $_ => $FIELDS{$_}->[2]   } keys %FIELDS;
 my @requiredFields   = sort fieldOrder grep { defined $FIELDS{$_}->[3] } keys %FIELDS;
 my @DBFields   = sort fieldOrder grep { $fieldType{$_} =~ /^(text|select|number|switch|date|time|auto)/ } keys %FIELDS;
 my @ROFields   = sort fieldOrder grep { $fieldType{$_} =~ /^(readonly)/ } keys %FIELDS;
-my @SAFields = qw/ league_name business_name type status legal_entity_type /;
+my @SAFields = qw/ type status /;
 my $primary = $DBFields[0];
 sub display_form  {
   my $R = shift;
   my $view = shift // "";
 	my $actionbutton;
-  $view = "View" unless $ORCUSER->{SYSADMIN};
+  $view = "View" unless $ORCUSER->{SYSADMIN} or $leagueAdmin;
   if ($view eq "POSTSAVE" and $R->{$primary} eq "NEW") {
       print &formField ("Cancel", "Back", "POSTSAVE");
     if ($view eq "Update") {
       # We'd like to update that thing, give the user a form...
       print $h->p ("Updating League: $R->{$primary}...");
+      foreach (@DBFields) {
-      foreach (@DBFields) {
+        if (notInArray ($_, \@SAFields) or $ORCUSER->{SYSADMIN}) {
+          $F{$_} = formField ($_, $F{$_});
+        }
         $F{$_} = formField ($_, $F{$_});
+      }
       $actionbutton = formField ("choice", "Save");
       print $h->p ("Viewing League: $R->{$primary}...");
       $F{$DBFields[0]} .= $h->input ({ type=>"hidden", name=>$DBFields[0], value=> $F{$DBFields[0]} });
       # Put the time fields into the user's preference
+      map { $F{$_} = convertTime $F{$_} } grep { $fieldType{$_} eq "time" } keys %FIELDS;
-      map { $F{$_} = convertTime $F{$_} } grep { $fieldType{$_} eq "time" } keys %FIELDS;
+      $F{url} = $h->a ({href => $F{url}, target=>"_blank"}, $F{url}) unless !$F{url};
-      $actionbutton = formField ("choice", "Update") if $ORCUSER->{SYSADMIN};
+      $actionbutton = formField ("choice", "Update") if $ORCUSER->{SYSADMIN} or $leagueAdmin;
       if ($view eq "POSTSAVE" or $choice eq "View") {
         $actionbutton .= formField ("Cancel", "Back", "POSTSAVE");
       } else {
    ])
   );
+  print $actionbutton;
+  return unless $leagueAdmin or inArray ($R->{$primary} ,[keys %{$org}]) or $ORCUSER->{SYSADMIN};
+  my @role_section = ($h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableHead", style=>"font-size: smaller;" }, qw(Role Count) ) ]));
+  my @roles = @{ $dbh->selectall_arrayref ("select role, count(role) from role where member_org_id = ? group by role order by role", undef, $R->{$primary}) };
+  my ($total_members) = $dbh->selectrow_array ("select count(distinct person_id) from role where member_org_id = ?", undef, $R->{$primary});
+  foreach (@roles) {
+    my %role;
+    @role{qw/role count/} = @{$_};
+    push @role_section, $h->div ({ class=>"rTableRow shaded", onClick=>"window.location.href='people?excel=0&autoload=1&id=true&name_first=true&name_last=true&derby_name=true&league_id=true&role=true&created=true&updated=true&filter-id=&filter-name_first=&filter-name_last=&filter-derby_name=&filter-league_id=".$R->{$primary}."&filter-role=".$role{role}."&filter-created=&filter-updated=&sortby=id&limit=25&page=1'" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: smaller;" }, $role{role}, $role{count}) ]);
+  }
-  print $actionbutton;
+  push @role_section, $h->div ({ class=>"rTableRow shaded", onClick=>"window.location.href='people?excel=0&autoload=1&id=true&name_first=true&name_last=true&derby_name=true&league_id=true&role=true&created=true&updated=true&filter-id=&filter-name_first=&filter-name_last=&filter-derby_name=&filter-league_id=".$R->{$primary}."&filter-role=&filter-created=&filter-updated=&sortby=id&limit=25&page=1'" },[ $h->div ({ class=>"rTableCellr", style=>"font-size: smaller;font-weight: bold;" }, "Total Members", $total_members) ]);
   my @policyhistory = ($h->div ({ class=>"rTableRow" },[ $h->div ({ class=>"rTableHead", style=>"font-size: smaller;" }, qw(ID Policy Start End) ) ]));
   my @policy_columns = qw(id organization_id policy_name fee created start end active);
                                    ((!$active_policy or remainingOrgPolicyDays ($R->{$primary}, $active_policy) <= 90) ? $h->button (($active_policy ? "Renew" : "Purchase")." General Liability") : ""),
                                    ((!$active_alcohol_policy or remainingOrgPolicyDays ($R->{$primary}, $active_alcohol_policy) <= 90) ? $h->button (($active_alcohol_policy ? "Renew" : "Purchase")." Alcohol Liability") : "")
                                  ]);
+  }
+  print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "League Role Counts:"), $h->ul ([ @role_section ])]);
   print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "League Insurance Policy History:"), $h->ul ([ @policyhistory ])]);
   print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Recent Activity:"), getOrgLog ($R->{$primary})]) unless $R->{$primary} !~ /^\d+$/;
   print $h->close ("form");
+}
 sub process_form  {
-  error ("ERROR: Only SysAdmins can change leagues.") unless $ORCUSER->{SYSADMIN};
+  error ("ERROR: Only SysAdmins or League Admins can change leagues.") unless $ORCUSER->{SYSADMIN} or $leagueAdmin;
+  	}
+  }
   	 # check for required fields
 	my @errors = ();
-	foreach (@requiredFields) {
+	foreach (grep {notInArray ($_, \@SAFields) unless $ORCUSER->{SYSADMIN} } @requiredFields) {
 		push @errors, "$fieldDisplayName{$_} is missing." if $FORM{$_} eq "" and $FIELDS{$_}->[3] ne "static";
+	}
   display_form ({ $primary=>$FORM{$primary} }, "POSTSAVE");
+}
 sub saveForm {
-  error ("ERROR: Only SysAdmins can change league details.") unless $ORCUSER->{SYSADMIN};
+  error ("ERROR: Only SysAdmins or League Admins can change league details.") unless $ORCUSER->{SYSADMIN} or $leagueAdmin;
     error ("ERROR: Attempting to edit existing league, but league ID not found [$FTS->{$primary}]!") unless $OG->{$primary} =~ /^\d+$/;
     my $league_name = getLeagueName ($FTS->{$primary});
+    foreach my $field (grep { notInArray ($_, \@ROFields) } keys %{$FTS}) {
-    foreach my $field (grep { notInArray ($_, \@ROFields) } keys %{$FTS}) {
+      if (notInArray ($field, \@SAFields) or $ORCUSER->{SYSADMIN}) {
-      if ($FTS->{$field} ne $OG->{$field}) {
+        if ($FTS->{$field} ne $OG->{$field}) {
-        $dbh->do ("update $DBTable set $field = ?, updated = now() where $primary = ?", undef, $FTS->{$field}, $FTS->{$primary});
+          $dbh->do ("update $DBTable set $field = ?, updated = now() where $primary = ?", undef, $FTS->{$field}, $FTS->{$primary});
+          logit ($ORCUSER->{person_id}, "Updated league $league_name [$FTS->{$primary}]: $field -> $FTS->{$field}");
-        logit ($ORCUSER->{person_id}, "Updated league $league_name [$FTS->{$primary}]: $field -> $FTS->{$field}");
+          orglogit ($ORCUSER->{person_id}, $FTS->{$primary}, "Updated league: $field -> $FTS->{$field}");
         orglogit ($ORCUSER->{person_id}, $FTS->{$primary}, "Updated league: $field -> $FTS->{$field}");
+      }

Subversion Repositories PEEPS

(root)/trunk/site/view_league.pl – Rev 6 → 14