|
From: Mark K. <seg...@us...> - 2002-12-18 20:44:58
|
Update of /cvsroot/formmagick/formmagick/lib/CGI
In directory sc8-pr-cvs1:/tmp/cvs-serv20830/lib/CGI
Modified Files:
FormMagick.pm
Removed Files:
Persistent.pm
Log Message:
Merged changes from branch MITEL-0_87. This includes a small patch to trim blank space from XML lexicon entries and parsing of email addresses per RFC822.
Index: FormMagick.pm
===================================================================
RCS file: /cvsroot/formmagick/formmagick/lib/CGI/FormMagick.pm,v
retrieving revision 1.125
retrieving revision 1.126
diff -C2 -r1.125 -r1.126
*** FormMagick.pm 24 Jun 2002 18:12:20 -0000 1.125
--- FormMagick.pm 18 Dec 2002 20:44:54 -0000 1.126
***************
*** 9,13 ****
package CGI::FormMagick;
! my $VERSION = $VERSION = "0.86";
use XML::Parser;
--- 9,13 ----
package CGI::FormMagick;
! my $VERSION = $VERSION = "0.87";
use XML::Parser;
***************
*** 175,179 ****
$self->{calling_package} = (caller)[0];
$self->{fallback_language} = undef;
!
return $self;
}
--- 175,179 ----
$self->{calling_package} = (caller)[0];
$self->{fallback_language} = undef;
!
return $self;
}
***************
*** 348,352 ****
print $self->{cgi}->header;
-
# debug thingy, to check L10N lexicons, only if you need it
$self->check_l10n() if $self->{cgi}->param('checkl10n');
--- 348,351 ----
***************
*** 391,395 ****
$self->print_page();
}
-
$self->print_form_footer();
$self->clear_navigation_params();
--- 390,393 ----
***************
*** 949,953 ****
my $cgi = $fm->{cgi};
! my $fn = $cgi->param('.id');
my $po = new Persistence::Object::Simple __Fn => $fn;
--- 947,951 ----
my $cgi = $fm->{cgi};
! my $fn = join "/", ($fm->{sessiondir},$cgi->param('.id'));
my $po = new Persistence::Object::Simple __Fn => $fn;
--- Persistent.pm DELETED ---
|