[system] / trunk / webwork2 / lib / WeBWorK / ContentGenerator / Instructor / PGProblemEditor.pm Repository:
ViewVC logotype

Diff of /trunk/webwork2/lib/WeBWorK/ContentGenerator/Instructor/PGProblemEditor.pm

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

Revision 1043 Revision 1044
… …
19our $rowheight; 19our $rowheight;
20 20
21sub title { 21sub title {
22 my $self = shift; 22 my $self = shift;
23 #FIXME don't need the entire path ?? 23 #FIXME don't need the entire path ??
24 return "Instructor Tools - PG Problem Editor for ". $self->{ce}->{problemPath}; 24 return "Instructor Tools - PG Problem Editor for ". $self->{problemPath};
25} 25}
26sub go { 26sub go {
27 my $self = shift; 27 my $self = shift;
28 my ($setName, $problemNumber) = @_; 28 my ($setName, $problemNumber) = @_;
29 my $r = $self->{r}; 29 my $r = $self->{r};
… …
45 my $editFileSuffix = $self->{ce}->{editFileSuffix}; 45 my $editFileSuffix = $self->{ce}->{editFileSuffix};
46 my $problemSeed = ($r->param('problemSeed')) ? $r->param('problemSeed') : ''; 46 my $problemSeed = ($r->param('problemSeed')) ? $r->param('problemSeed') : '';
47 my $displayMode = ($r->param('displayMode')) ? $r->param('displayMode') : ''; 47 my $displayMode = ($r->param('displayMode')) ? $r->param('displayMode') : '';
48 48
49 my $viewURL = "http://$hostname:$port"; 49 my $viewURL = "http://$hostname:$port";
50 $viewURL .= "/webwork/$courseName/$setName/$problemNumber/?"; 50 $viewURL .= $ce->{webworkURLs}->{root}."/$courseName/$setName/$problemNumber/?";
51 $viewURL .= $self->url_authen_args; 51 $viewURL .= $self->url_authen_args;
52 $viewURL .= "&displayMode=$displayMode&problemSeed=$problemSeed"; # optional displayMode and problemSeed overrides 52 $viewURL .= "&displayMode=$displayMode&problemSeed=$problemSeed"; # optional displayMode and problemSeed overrides
53 $viewURL .= "&editMode=temporaryFile"; 53 $viewURL .= "&editMode=temporaryFile";
54 $viewURL .= '&sourceFilePath='. $self->{currentSourceFilePath}; # path to pg text for viewing 54 $viewURL .= '&sourceFilePath='. $self->{currentSourceFilePath}; # path to pg text for viewing
55 $viewURL .= "&submit_button=$submit_button"; # allows Problem.pg to recognize state 55 $viewURL .= "&submit_button=$submit_button"; # allows Problem.pg to recognize state
Legend:
Removed from v.1043  
changed lines
  Added in v.1044
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9