POD for four more files

This commit is contained in:
Colin Kuskie 2006-03-03 21:37:24 +00:00
parent 8a86fea5f0
commit 0b02edaea5
4 changed files with 187 additions and 0 deletions

View file

@ -15,6 +15,20 @@ use strict;
use WebGUI::International;
use Safe;
=head1 NAME
Package WebGUI::Operation::Shared
=head1 DESCRIPTION
Shared routines for WebGUI Operations.
=head2 accountOptions ( $session )
Copies the requested database link in the form variable C<dlid> if the user
is in group Admin (3). Returns the user to the List Database Links screen.
=cut
#-------------------------------------------------------------------
sub accountOptions {
@ -66,6 +80,14 @@ use Safe;
}
=head2 secureEval ( $session, $code )
Eval $code inside of a Safe compartment to prevent sneaky attacks, mainly for use with
the Profile system, where internationalized labels are stored as perl code inside
the database.
=cut
#-------------------------------------------------------------------
# This function is here to replace the dangerous eval calls in the User Profile System.
sub secureEval {