[system] / branches / ghe3_dev / webwork2 / lib / WeBWorK / ContentGenerator / Instructor / ProblemSetList.pm Repository:
ViewVC logotype

Diff of /branches/ghe3_dev/webwork2/lib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 2284 Revision 2285
… …
1519 my $totalUsers = $self->{totalUsers}; 1519 my $totalUsers = $self->{totalUsers};
1520 my $problems = $db->listGlobalProblems($Set->set_id); 1520 my $problems = $db->listGlobalProblems($Set->set_id);
1521 1521
1522 my $usersAssignedToSetURL = $self->systemLink($urlpath->new(type=>'instructor_users_assigned_to_set', args=>{courseID => $courseName, setID => $Set->set_id} )); 1522 my $usersAssignedToSetURL = $self->systemLink($urlpath->new(type=>'instructor_users_assigned_to_set', args=>{courseID => $courseName, setID => $Set->set_id} ));
1523 my $problemListURL = $self->systemLink($urlpath->new(type=>'instructor_problem_list', args=>{courseID => $courseName, setID => $Set->set_id} )); 1523 my $problemListURL = $self->systemLink($urlpath->new(type=>'instructor_problem_list', args=>{courseID => $courseName, setID => $Set->set_id} ));
1524 my $problemSetListURL = $self->systemLink($urlpath->new(type=>'instructor_set_list', args=>{courseID => $courseName, setID => $Set->set_id})) . "&editMode=1&visible_sets=" . $Set->set_id;
1525 my $imageURL = $ce->{webworkURLs}->{htdocs}."/images/edit.gif";
1526 my $imageLink = CGI::a({href => $problemSetListURL}, CGI::img({src=>$imageURL, border=>0}));
1524 1527
1525 my @tableCells; 1528 my @tableCells;
1526 my %fakeRecord; 1529 my %fakeRecord;
1527 $fakeRecord{select} = CGI::checkbox(-name => "selected_sets", -value => $Set->set_id, -checked => $setSelected, -label => "", ); 1530 $fakeRecord{select} = CGI::checkbox(-name => "selected_sets", -value => $Set->set_id, -checked => $setSelected, -label => "", );
1528 $fakeRecord{set_id} = CGI::font({class=>$publishedClass}, $Set->set_id); 1531 $fakeRecord{set_id} = CGI::font({class=>$publishedClass}, $Set->set_id) . ($editMode ? "" : $imageLink);
1529 $fakeRecord{problems} = CGI::a({href=>$problemListURL}, "$problems"); 1532 $fakeRecord{problems} = CGI::a({href=>$problemListURL}, "$problems");
1530 $fakeRecord{users} = CGI::a({href=>$usersAssignedToSetURL}, "$users/$totalUsers"); 1533 $fakeRecord{users} = CGI::a({href=>$usersAssignedToSetURL}, "$users/$totalUsers");
1531 1534
1532 # Select 1535 # Select
1533 if ($editMode) { 1536 if ($editMode) {
… …
1540 -checked => $setSelected, 1543 -checked => $setSelected,
1541 -label => "", 1544 -label => "",
1542 ); 1545 );
1543 } 1546 }
1544 1547
1545
1546
1547 # Set ID 1548 # Set ID
1548 push @tableCells, CGI::font({class=>$publishedClass}, $Set->set_id); 1549 push @tableCells, CGI::font({class=>$publishedClass}, $Set->set_id . $imageLink);
1549 1550
1550 # Problems link 1551 # Problems link
1551 if ($editMode) { 1552 if ($editMode) {
1552 # column not there 1553 # column not there
1553 } else { 1554 } else {
Legend:
Removed from v.2284  
changed lines
  Added in v.2285
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9