WebGUI 3.4.1 release

This commit is contained in:
JT Smith 2002-03-07 15:30:00 +00:00
parent a93b42789a
commit 6633adf10d
5 changed files with 503 additions and 366 deletions

File diff suppressed because one or more lines are too long

View file

View file

@ -1,5 +1,5 @@
package WebGUI;
our $VERSION = "3.4.0";
our $VERSION = "3.4.1";
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black Software.

View file

@ -67,7 +67,9 @@ sub www_addPage {
$output .= '<h1>'.WebGUI::International::get(98).'</h1>';
$output .= formHeader();
$output .= WebGUI::Form::hidden("op","addPageSave");
$output .= WebGUI::Form::hidden("root","1");
if ($session{form}{root}) {
$output .= WebGUI::Form::hidden("root","1");
}
$output .= '<table>';
$output .= tableFormRow(WebGUI::International::get(99),WebGUI::Form::text("title",20,128,$session{form}{title}));
%hash = sortHash(WebGUI::Template::getList());

View file

@ -149,9 +149,14 @@ sub open {
#-------------------------------------------------------------------
sub refreshPageInfo {
my (%PAGE);
my (%PAGE, $pageId);
tie %PAGE, 'Tie::CPHash';
%PAGE = _getPageInfo($_[0],$session{dbh},$session{setting}{notFoundPage},$session{config}{scripturl});
if ($_[0] == 0) {
$pageId = 1;
} else {
$pageId = $_[0];
}
%PAGE = _getPageInfo($pageId,$session{dbh},$session{setting}{notFoundPage},$session{config}{scripturl});
$session{page} = \%PAGE;
}