Subversion Repositories VORC

Rev

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

Rev 196 Rev 222
Line 71... Line 71...
71 
    my $tmpFormValue = param ("filter-${colName}");
 71 
    my $tmpFormValue = param ("filter-${colName}");
72 
    my $categories = join "", map { $tmpFormValue eq $_ ? $h->option ({ value=>$_, selected=>[] }, $DEPTS->{$_}) : $h->option ({ value=>$_ }, $DEPTS->{$_}) } grep { $LVL > 4 or $ORCUSER->{department}->{$_} >= 3 } sort keys %{$DEPTS};
 72 
    my $categories = join "", map { $tmpFormValue eq $_ ? $h->option ({ value=>$_, selected=>[] }, $DEPTS->{$_}) : $h->option ({ value=>$_ }, $DEPTS->{$_}) } grep { $LVL > 4 or $ORCUSER->{department}->{$_} >= 3 } sort keys %{$DEPTS};
73 
    my $Options = "<OPTION></OPTION>".$categories;
 73 
    my $Options = "<OPTION></OPTION>".$categories;
Line 74... Line 74...
74
74
- 
 
 75 
    $Options =~ s/>($tmpFormValue)/ selected>$1/;
75 
    $Options =~ s/>($tmpFormValue)/ selected>$1/;
 76 
    my $autoload = param ("autoload") // 1;
76 
    my $onChange = param ("autoload") ? "onChange='page.value = 1; submit();'" : "";
 77 
    my $onChange = $autoload ? "onChange='page.value = 1; submit();'" : "";
77 
    return "<SELECT name=filter-${colName} $onChange>$Options</SELECT>";
 78 
    return "<SELECT name=filter-${colName} $onChange>$Options</SELECT>";
78 
  }
 79 
  }
Line 79... Line 80...
79 
}
 80 
}