Subversion Repositories VORC

Rev

Rev 218 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 218 Rev 229
Line 343... Line 343...
343 
  my $showMyShiftsOption = $paramhash->{ShowMyShifts} // 0;
 343 
  my $showMyShiftsOption = $paramhash->{ShowMyShifts} // 0;
344 
  my $highlightShifts = $paramhash->{HighlightShifts} // 0;
 344 
  my $highlightShifts = $paramhash->{HighlightShifts} // 0;
345 
  my $headerButton = $paramhash->{HeaderButton} // "";
 345 
  my $headerButton = $paramhash->{HeaderButton} // "";
346 
  my $blockPersonalTime = $paramhash->{PersonalTimeButton} // "";
 346 
  my $blockPersonalTime = $paramhash->{PersonalTimeButton} // "";
Line 347... Line 347...
347
347
348 
  use CGI qw/param cookie header start_html url/;
 348 
  use CGI qw/param cookie header start_html url url_param/;
349 
  use HTML::Tiny;
 349 
  use HTML::Tiny;
Line 350... Line 350...
350 
  my $h = HTML::Tiny->new( mode => 'html' );
 350 
  my $h = HTML::Tiny->new( mode => 'html' );
351
351
Line 382... Line 382...
382 
    #warn "$_: $FORM{$_}";
 382 
    #warn "$_: $FORM{$_}";
Line 383... Line 383...
383
383
384 
    if ((/^filter/) and ($FORM{$_} ne '')) {  # Build a set of filters to apply
 384 
    if ((/^filter/) and ($FORM{$_} ne '')) {  # Build a set of filters to apply
385 
      my ($filter,$field) = split /-/, $_;
385 
      my ($filter,$field) = split /-/, $_;
- 
 
 386 
      $FILTER->{$field} = $FORM{$_} unless notInArray ($field, \@allFields);
- 
 
 387 
    } elsif ($FORM{$_} eq "true")     # Compile list of fields to display
- 
 
 388 
      { push @displayFields, $_ unless /shiftinclude/; }
- 
 
 389 
  }
- 
 
 390 
 
- 
 
 391 
  foreach (url_param()) {
- 
 
 392 
    if (/^year$/) {
- 
 
 393 
      $YEAR = url_param($_);
- 
 
 394 
      next;
- 
 
 395 
    }
- 
 
 396
- 
 
 397 
    $FORM{$_} = url_param($_);        # Retrieve all of the FORM data submitted
- 
 
 398 
    #warn "$_: $FORM{$_}";
- 
 
 399
- 
 
 400 
    if ((/^filter/) and ($FORM{$_} ne '')) {  # Build a set of filters to apply
- 
 
 401 
      my ($filter,$field) = split /-/, $_;
386 
      $FILTER->{$field} = $FORM{$_} unless notInArray ($field, \@allFields);
 402 
      $FILTER->{$field} = $FORM{$_} unless notInArray ($field, \@allFields);
387 
    } elsif ($FORM{$_} eq "true")     # Compile list of fields to display
 403 
    } elsif ($FORM{$_} eq "true")     # Compile list of fields to display
388 
      { push @displayFields, $_ unless /shiftinclude/; }
 404 
      { push @displayFields, $_ unless /shiftinclude/; }
Line 389... Line 405...
389 
  }
 405 
  }