/usr/local/CPAN/CGI-Bus/CGI/Bus/lngbase/CGI_Bus_tm.pm

• package CGI::Bus::lngbase::CGI_Bus_tm
  • lngbase
• EOF

#!perl -w
#
# admiral 
# 19/01/2002
#
# 

package CGI::Bus::lngbase::CGI_Bus_tm; # Language base
use strict;


1;

sub lngbase {
 (-nap=>['Top',    'The topmost level']
 ,-nup=>['Up',     'An upper level']
 ,-nth=>['Reset',  'This application default']
 ,-bck=>['Back',   'Back to previous screen']
 ,-lgn=>['Login',  'Login to the System']
 ,-lst=>['List',   'List records, select records under query condition']
 ,-lsr=>['List',   'List records']
 ,-qry=>['Query',  'Query condition to list records by']
 ,-crt=>['New',    'New record creation to insert it to the database']
 ,-sel=>['Read',   '(Re)read data from database, select record; escape edit mode discarding changes']
 ,-prn=>['Print',  'Printable form']
 ,-edt=>['Edit',   'Edit mode switch']
 ,-frm=>['Form',   'Form reload and review, data recalculation']
 ,-upd=>['Update', 'Update record in the database, save changes of this record']
 ,-del=>['Delete', 'Delete record from the database']
 ,-ins=>['Insert', 'Insert new record into database']
 ,-hlp=>['Help',   'Open Help screen']

 ,'op!let'  => ['',       'Operation \'$_\' is not allowed']
 ,'!constr' => ['',       'Constraint violations']

 ,'Help'     =>['Help',         '']
 ,'Lists'    =>['Views',	'Views (lists of records) defined by application']
 ,'Fields'   =>['Fields',       'Data fields defined by application']
 ,'Commands' =>['Commands',     'Commands may be used']
 )
}