| … | |
… | |
| 613 | return join ("", |
613 | return join ("", |
| 614 | "Make ", |
614 | "Make ", |
| 615 | CGI::popup_menu( |
615 | CGI::popup_menu( |
| 616 | -name => "action.publish.scope", |
616 | -name => "action.publish.scope", |
| 617 | -values => [ qw(none all selected) ], |
617 | -values => [ qw(none all selected) ], |
| 618 | -default => $actionParams{"action.publish.scope"}->[0] || "none", |
618 | -default => $actionParams{"action.publish.scope"}->[0] || "selected", |
| 619 | -labels => { |
619 | -labels => { |
| 620 | none => "", |
620 | none => "", |
| 621 | all => "all sets", |
621 | all => "all sets", |
| 622 | # visible => "visible sets", |
622 | # visible => "visible sets", |
| 623 | selected => "selected sets", |
623 | selected => "selected sets", |
| … | |
… | |
| 677 | |
677 | |
| 678 | |
678 | |
| 679 | sub delete_form { |
679 | sub delete_form { |
| 680 | my ($self, $onChange, %actionParams) = @_; |
680 | my ($self, $onChange, %actionParams) = @_; |
| 681 | return join("", |
681 | return join("", |
| 682 | qq!\n<div style="background-color:red">!, |
682 | qq!\n<div class="ResultsWithError">!, |
| 683 | "Delete ", |
683 | "Delete ", |
| 684 | CGI::popup_menu( |
684 | CGI::popup_menu( |
| 685 | -name => "action.delete.scope", |
685 | -name => "action.delete.scope", |
| 686 | -values => [qw(none visible selected)], |
686 | -values => [qw(none visible selected)], |
| 687 | -default => $actionParams{"action.delete.scope"}->[0] || "none", |
687 | -default => $actionParams{"action.delete.scope"}->[0] || "none", |
| … | |
… | |
| 786 | 1 => "a single set", |
786 | 1 => "a single set", |
| 787 | 8 => "multiple sets", |
787 | 8 => "multiple sets", |
| 788 | }, |
788 | }, |
| 789 | -onchange => "$onChange;$importScript", |
789 | -onchange => "$onChange;$importScript", |
| 790 | ), |
790 | ), |
| 791 | " from set definition file(s) ", |
791 | " from ", # set definition file(s) ", |
| 792 | CGI::popup_menu( |
792 | CGI::popup_menu( |
| 793 | -name => "action.import.source", |
793 | -name => "action.import.source", |
| 794 | -values => [ "", $self->getDefList() ], |
794 | -values => [ "", $self->getDefList() ], |
|
|
795 | -labels => { "" => "the following file(s)" }, |
| 795 | -default => $actionParams{"action.import.source"}->[0] || "", |
796 | -default => $actionParams{"action.import.source"}->[0] || "", |
| 796 | -size => $actionParams{"action.import.number"}->[0] || "1", |
797 | -size => $actionParams{"action.import.number"}->[0] || "1", |
| 797 | -onchange => $onChange, |
798 | -onchange => $onChange, |
| 798 | ), |
799 | ), |
| 799 | " with set name: ", |
800 | " with set name(s): ", |
| 800 | CGI::textfield( |
801 | CGI::textfield( |
| 801 | -name => "action.import.name", |
802 | -name => "action.import.name", |
| 802 | -value => $actionParams{"action.import.name"}->[0] || "", |
803 | -value => $actionParams{"action.import.name"}->[0] || "", |
| 803 | -width => "50", |
804 | -width => "50", |
| 804 | -onchange => $onChange, |
805 | -onchange => $onChange, |
| 805 | ), |
806 | ), |
| 806 | "assigning this set to ", |
807 | "assigning this set to ", |
| 807 | CGI::popup_menu( |
808 | CGI::popup_menu( |
| 808 | -name => "action.import.assign", |
809 | -name => "action.import.assign", |
| 809 | -value => [qw(all visible selected none)], |
810 | -value => [qw(all none)], |
| 810 | -default => $actionParams{"action.import.assign"}->[0] || "none", |
811 | -default => $actionParams{"action.import.assign"}->[0] || "none", |
| 811 | -labels => { |
812 | -labels => { |
| 812 | all => "all current users.", |
813 | all => "all current users.", |
| 813 | #visible => "visible users.", |
|
|
| 814 | visible => "", |
|
|
| 815 | #selected => "selected users.", |
|
|
| 816 | selected => "", |
|
|
| 817 | none => "no users.", |
814 | none => "no users.", |
| 818 | }, |
815 | }, |
| 819 | -onchange => $onChange, |
816 | -onchange => $onChange, |
| 820 | ), |
817 | ), |
| 821 | ); |
818 | ); |
Parent Directory
| 
Revision Log
| 
Patch