version 1.60, 2003/10/14 18:32:15
|
version 1.66, 2004/03/24 22:22:04
|
Line 230 my $paramHash;
|
Line 230 my $paramHash;
|
# In the debugger, this means that breakpoints are ignored until you step into |
# In the debugger, this means that breakpoints are ignored until you step into |
# a function and get out of what must be a "faked up scope" in the Apache-> |
# a function and get out of what must be a "faked up scope" in the Apache-> |
# mod_perl connection. In this code, it was manifesting itself in the existence |
# mod_perl connection. In this code, it was manifesting itself in the existence |
# of two seperate file-scoped $helper variables, one set to the value of the |
# of two separate file-scoped $helper variables, one set to the value of the |
# helper in the helper constructor, and one referenced by the handler on the |
# helper in the helper constructor, and one referenced by the handler on the |
# "$helper->process()" line. Using the debugger, one could actually |
# "$helper->process()" line. Using the debugger, one could actually |
# see the two different $helper variables, as hashes at completely |
# see the two different $helper variables, as hashes at completely |
Line 1777 sub start_resource {
|
Line 1777 sub start_resource {
|
$paramHash->{'suppressEmptySequences'} = $token->[2]{'suppressEmptySequences'}; |
$paramHash->{'suppressEmptySequences'} = $token->[2]{'suppressEmptySequences'}; |
$paramHash->{'toponly'} = $token->[2]{'toponly'}; |
$paramHash->{'toponly'} = $token->[2]{'toponly'}; |
$paramHash->{'addstatus'} = $token->[2]{'addstatus'}; |
$paramHash->{'addstatus'} = $token->[2]{'addstatus'}; |
|
$paramHash->{'closeallpages'} = $token->[2]{'closeallpages'}; |
return ''; |
return ''; |
} |
} |
|
|
Line 1962 BUTTONS
|
Line 1963 BUTTONS
|
'showParts' => 0, |
'showParts' => 0, |
'filterFunc' => $filterFunc, |
'filterFunc' => $filterFunc, |
'resource_no_folder_link' => 1, |
'resource_no_folder_link' => 1, |
|
'closeAllPages' => $self->{'closeallpages'}, |
'suppressEmptySequences' => $self->{'suppressEmptySequences'}, |
'suppressEmptySequences' => $self->{'suppressEmptySequences'}, |
'iterator_map' => $mapUrl } |
'iterator_map' => $mapUrl } |
); |
); |
Line 2905 the old values taking effect.
|
Line 2907 the old values taking effect.
|
no strict; |
no strict; |
@ISA = ("Apache::lonhelper::element"); |
@ISA = ("Apache::lonhelper::element"); |
use strict; |
use strict; |
|
use Apache::lonlocal; |
BEGIN { |
BEGIN { |
&Apache::lonhelper::register('Apache::lonhelper::final', |
&Apache::lonhelper::register('Apache::lonhelper::final', |
('final', 'exitpage')); |
('final', 'exitpage')); |
Line 2999 sub render {
|
Line 3001 sub render {
|
|
|
if ($self->{'restartCourse'}) { |
if ($self->{'restartCourse'}) { |
my $targetURL = '/adm/menu'; |
my $targetURL = '/adm/menu'; |
|
if ($ENV{'course.'.$ENV{'request.course.id'}.'.url'}=~/^uploaded/) { |
|
$targetURL = '/adm/coursedocs'; |
|
} else { |
|
$targetURL = '/adm/navmaps'; |
|
} |
if ($ENV{'course.'.$ENV{'request.course.id'}.'.clonedfrom'}) { |
if ($ENV{'course.'.$ENV{'request.course.id'}.'.clonedfrom'}) { |
$targetURL = '/adm/parmset?overview=1'; |
$targetURL = '/adm/parmset?overview=1'; |
} |
} |
Line 3011 sub render {
|
Line 3018 sub render {
|
"<input type='hidden' name='selectrole' value='1' />\n" . |
"<input type='hidden' name='selectrole' value='1' />\n" . |
"<input type='hidden' name='" . $ENV{'request.role'} . |
"<input type='hidden' name='" . $ENV{'request.role'} . |
"' value='1' />\n<input type='submit' value='" . |
"' value='1' />\n<input type='submit' value='" . |
&mt('Finish Course Initialization') . " />\n" . |
&mt('Finish Course Initialization') . "' />\n" . |
"</form></center>"; |
"</form></center>"; |
} |
} |
|
|
Line 3114 sub render {
|
Line 3121 sub render {
|
} |
} |
|
|
my $result = "<form name='helpform' method='get' action='/adm/parmset#$affectedResourceId&$parm_name&$level'>\n"; |
my $result = "<form name='helpform' method='get' action='/adm/parmset#$affectedResourceId&$parm_name&$level'>\n"; |
$result .= '<p>Confirm that this information is correct, then click "Finish Wizard" to complete setting the parameter.<ul>'; |
$result .= '<p>Confirm that this information is correct, then click "Finish Helper" to complete setting the parameter.<ul>'; |
|
|
# Print the type of manipulation: |
# Print the type of manipulation: |
$result .= '<li>Setting the <b>' . $dateTypeHash{$vars->{ACTION_TYPE}} . '</b>'; |
$result .= '<li>Setting the <b>' . $dateTypeHash{$vars->{ACTION_TYPE}} . '</b>'; |