FWS-V2
view release on metacpan or search on metacpan
lib/FWS/V2/Database.pm view on Meta::CPAN
=head2 updateDataCache
Update the cache version of the data record. This is called automatically when saveData is called.
$fws->updateDataCache(%theDataHash);
=cut
sub updateDataCache {
my ( $self, %dataHash ) = @_;
#
# get the field hash so we don't have to try to add fields that might not be there EVERY time
#
my %tableFieldHash = $self->tableFieldHash( 'data_cache' );
#
# set the page id of the guid for easy access on search pages
#
lib/FWS/V2/Database.pm view on Meta::CPAN
=head2 updateDatabase
Alter the database to match the schema for FWS 2. The return will print the SQL statements used to adjust the tables.
print $fws->updateDatabase()."\n";
This method is automatically called when on the web optimized version of FWS when rendering the 'System' screen. This will also auto trigger a flag to only it allow it to execute once so it doesn't recurse itself.
=cut
sub updateDatabase {
my ( $self ) = @_;
#
# our passback for what we did
#
my $dbResponse;
#
# make sure I didn't do this yet
#
lib/FWS/V2/Database.pm view on Meta::CPAN
=head2 updateModifiedDate
Update the modified date of the page a dataHash element resides on.
$fws->updateModifiedDate(%dataHash);
Note: By updating anything that is persistant against multiple pages all pages will have thier date updated as it is considered a site wide change.
=cut
sub updateModifiedDate {
my ( $self, %paramHash ) = @_;
#
# it is default or not
#
$paramHash{siteGUID} ||= $self->{siteGUID};
#
# set the type to page if the id itself is a page
#
lib/FWS/V2/Geo.pm view on Meta::CPAN
zipStateAbbr
zipAreaCode
zipUTC
zipLatitude
zipLongitude
zipCounty
zipDistance
=cut
sub updateZipArray {
my ( $self, $fromZip, @dataArray ) = @_;
#
# clean the from zip
#
$fromZip = $self->safeSQL( $fromZip );
#
# get the zipArray and create a , delemented string or the sql
#
my @zipArray;
( run in 0.392 second using v1.01-cache-2.11-cpan-95122f20152 )