[LON-CAPA-cvs] cvs: loncom /interface lonwizard.pm

[bowersj2]

bowersj2		Fri Feb 21 16:27:28 2003 EDT

  Modified files:              
    /loncom/interface	lonwizard.pm 
  Log:
  Minor bug fix in the resource choice; now Wizards must know where they
  are, as states may need to know. Gotta document this right.
  
  
  
Index: loncom/interface/lonwizard.pm
diff -u loncom/interface/lonwizard.pm:1.11 loncom/interface/lonwizard.pm:1.12
--- loncom/interface/lonwizard.pm:1.11	Fri Feb 21 13:50:09 2003
+++ loncom/interface/lonwizard.pm	Fri Feb 21 16:27:28 2003
@@ -30,6 +30,8 @@
 
 =head1 Class: lonwizard
 
+FIXME: Doc the parameters of the wizard well: Title, Data (Query string), URL.
+
 =head2 lonwizard Attributes
 
 =over 4
@@ -59,6 +61,7 @@
 
     $self->{TITLE} = shift;
     $self->{DATA} = shift;
+    $self->{URL} = shift;
     &Apache::loncommon::get_unprocessed_cgi($self->{DATA});
 
 
@@ -214,7 +217,7 @@
     if ($self->{STATE} ne "START" || $ENV{"form.SUBMIT"} eq "Next ->")
     {
 	my $prevState = $self->{STATES}{$self->{STATE}};
-	$prevState->postprocess();
+            $prevState->postprocess();
     }
     
     # Note, to handle errors in a state's input that a user must correct,
@@ -1274,7 +1277,7 @@
                                                   Apache::lonnavmaps::resource()],
                                        'showParts' => 0,
                                        'queryString' => $wizard->queryStringVars() . '&folderManip=1',
-                                       'url' => '/adm/wizard',
+                                       'url' => $wizard->{URL},
                                        'filterFunc' => $filterFunc } );
                                                 
     $result .= $self->{MESSAGE_AFTER} if (defined $self->{MESSAGE_AFTER});