Subversion Repositories cms

Compare Revisions

Ignore whitespace Rev 17 → Rev 18

/trunk/html/FR_admin/FM_student/.sql.columnCondition
1,0 → 0,0
% return('[[TB_t_strade_SqlAs_id]]');
% return('[[TB_usr_SqlAs_id]]');
/trunk/html/FR_admin/FM_student/.thead.columnSettings
1,165 → 1,89
<%perl>
if($curfield eq '[[TB_t_strade_SqlAs_id]]') {
$rettraduction = '[[TB_t_strade_SqlAs_id_IT]]';
if($curfield eq '[[TB_usr_SqlAs_id]]') {
$rettraduction = '[[TB_usr_SqlAs_id_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_cod_servizio]]') {
$rettraduction = '[[TB_t_strade_SqlAs_cod_servizio_IT]]';
if($curfield eq '[[TB_usr_SqlAs_name]]') {
$rettraduction = '[[TB_usr_SqlAs_name_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
$retmaxlen = '35';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_denominazione]]') {
$rettraduction = '[[TB_t_strade_SqlAs_denominazione_IT]]';
if($curfield eq '[[TB_usr_SqlAs_cognome]]') {
$rettraduction = '[[TB_usr_SqlAs_cognome_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
$retmaxlen = '35';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_tipo]]') {
$rettraduction = '[[TB_t_strade_SqlAs_tipo_IT]]';
if($curfield eq '[[TB_usr_SqlAs_tel]]') {
$rettraduction = '[[TB_usr_SqlAs_tel_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
$retmaxlen = '20';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_lunghezza]]') {
$rettraduction = '[[TB_t_strade_SqlAs_lunghezza_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
if($curfield eq '[[TB_usr_SqlAs_tel2]]') {
$rettraduction = '[[TB_usr_SqlAs_tel2_IT]]';
$retmaxlen = '20';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_nstrada]]') {
$rettraduction = '[[TB_t_strade_SqlAs_nstrada_IT]]';
if($curfield eq '[[TB_usr_SqlAs_creation]]') {
$rettraduction = '[[TB_usr_SqlAs_creation_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_progressiva_i]]') {
$rettraduction = '[[TB_t_strade_SqlAs_progressiva_i_IT]]';
if($curfield eq '[[TB_usr_SqlAs_profile]]') {
$rettraduction = '[[TB_usr_SqlAs_profile_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
$retmaxlen = '20';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_localita_i]]') {
$rettraduction = '[[TB_t_strade_SqlAs_localita_i_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
if($curfield eq '[[TB_usr_SqlAs_password]]') {
$rettraduction = '[[TB_usr_SqlAs_password_IT]]';
$retmaxlen = '8';
}
if($curfield eq '[[TB_usr_SqlAs_zip]]') {
$rettraduction = '[[TB_usr_SqlAs_zip_IT]]';
$retmaxlen = '5';
}
if($curfield eq '[[TB_t_strade_SqlAs_progressiva_f]]') {
$rettraduction = '[[TB_t_strade_SqlAs_progressiva_f_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
if($curfield eq '[[TB_usr_SqlAs_status]]') {
$rettraduction = '[[TB_usr_SqlAs_status_IT]]';
$retmaxlen = '10';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_localita_f]]') {
$rettraduction = '[[TB_t_strade_SqlAs_localita_f_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
if($curfield eq '[[TB_usr_SqlAs_street]]') {
$rettraduction = '[[TB_usr_SqlAs_street_IT]]';
$retmaxlen = '35';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_pendenza_max]]') {
$rettraduction = '[[TB_t_strade_SqlAs_pendenza_max_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
if($curfield eq '[[TB_usr_SqlAs_streetnumber]]') {
$rettraduction = '[[TB_usr_SqlAs_streetnumber_IT]]';
$retmaxlen = '15';
}
if($curfield eq '[[TB_t_strade_SqlAs_larghezza_min]]') {
$rettraduction = '[[TB_t_strade_SqlAs_larghezza_min_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
if($curfield eq '[[TB_usr_SqlAs_locality]]') {
$rettraduction = '[[TB_usr_SqlAs_locality_IT]]';
$retmaxlen = '15';
}
if($curfield eq '[[TB_t_strade_SqlAs_raggio_curv_min]]') {
$rettraduction = '[[TB_t_strade_SqlAs_raggio_curv_min_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
if($curfield eq '[[TB_usr_SqlAs_province]]') {
$rettraduction = '[[TB_usr_SqlAs_province_IT]]';
$retmaxlen = '15';
}
if($curfield eq '[[TB_t_strade_SqlAs_pendenza_media]]') {
$rettraduction = '[[TB_t_strade_SqlAs_pendenza_media_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
if($curfield eq '[[TB_usr_SqlAs_obs]]') {
$rettraduction = '[[TB_usr_SqlAs_obs_IT]]';
$retmaxlen = '50';
}
if($curfield eq '[[TB_t_strade_SqlAs_larghezza_media]]') {
$rettraduction = '[[TB_t_strade_SqlAs_larghezza_media_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
if($curfield eq '[[FM_student_USRCLASS]]') {
$rettraduction = '[[FM_student_USRCLASS_IT]]';
}
if($curfield eq '[[TB_t_strade_SqlAs_raggio_curv_medio]]') {
$rettraduction = '[[TB_t_strade_SqlAs_raggio_curv_medio_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
if($curfield eq '[[FM_student_TEACHERCLASS]]') {
$rettraduction = '[[FM_student_TEACHERCLASS_IT]]';
}
if($curfield eq '[[TB_t_strade_SqlAs_coordinata_x]]') {
$rettraduction = '[[TB_t_strade_SqlAs_coordinata_x_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_coordinata_y]]') {
$rettraduction = '[[TB_t_strade_SqlAs_coordinata_y_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_data_1_acquisizione]]') {
$rettraduction = '[[TB_t_strade_SqlAs_data_1_acquisizione_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_agg_strada]]') {
$rettraduction = '[[TB_t_strade_SqlAs_agg_strada_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
}
if($curfield eq '[[TB_stradexsettore_SqlAs_id_settore]]') {
$rettraduction = '[[TB_stradexsettore_SqlAs_id_settore_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
}
if($curfield eq '[[TB_stradexsettore_SqlAs_km_da]]') {
$rettraduction = '[[TB_stradexsettore_SqlAs_km_da_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
}
if($curfield eq '[[TB_stradexsettore_SqlAs_km_a]]') {
$rettraduction = '[[TB_stradexsettore_SqlAs_km_a_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
}
if($curfield eq '[[TB_usr_SqlAs_permision]]') {
$rettraduction = '[[TB_usr_SqlAs_permision_IT]]';
$retmaxlen = '10';
185,11 → 109,11
if($curfield eq '[[usr_profile_student]]') {
$rettraduction = '[[usr_profile_student_IT]]';
}
if($curfield eq '[[FM_strada_TIT2_info]]') {
$rettraduction = '[[FM_strada_TIT2_info_IT]]';
if($curfield eq '[[FM_student_TIT2_info]]') {
$rettraduction = '[[FM_student_TIT2_info_IT]]';
}
if($curfield eq '[[FM_strada_TIT2_settore]]') {
$rettraduction = '[[FM_strada_TIT2_settore_IT]]';
if($curfield eq '[[FM_student_TIT2_address]]') {
$rettraduction = '[[FM_student_TIT2_address_IT]]';
}
if($cursetting eq 'traduction') {
return($rettraduction);
/trunk/html/FR_admin/FM_student/.sql.condition
1,0 → 0,0
%return('[[TB_t_strade_id]]=?');
%return('[[TB_usr_id]]=?');
/trunk/html/FR_admin/FM_student/.table.name
1,0 → 0,0
% return('[[TB_NAME_strade]]');
% return('[[TB_NAME_usr]]');
/trunk/html/FR_admin/FM_student/autohandler
7,7 → 7,7
%#<& .footer &>
%#
<%method title>
Form Strade
Form Student
</%method>
%#
<%init>
/trunk/html/FR_admin/FM_student/.sql.columnAs
1,0 → 0,0
%return('id_strade,cod_servizio,nstrada,denominazione,tipo,progressiva_i,localita_i,progressiva_f,localita_f,lunghezza,pendenza_max,larghezza_min,raggio_curv_min,pendenza_media,larghezza_media,raggio_curv_medio,coordinata_x,coordinata_y,data_1_acquisizione,agg_strada');
%return('id,profile,name,cognome,password,status,creation,tel,tel2,street,streetnumber,zip,locality,province,obs,permision');
/trunk/html/FR_admin/F2_class/.sql.columnCondition
1,0 → 0,0
% return('[[TB_strada_SqlAs_id]]');
% return('[[TB_class_SqlAs_id]]');
/trunk/html/FR_admin/F2_class/.thead.columnSettings
1,63 → 1,53
<%perl>
if($curfield eq '[[TB_t_strade_SqlAs_id]]') {
$rettraduction = '[[TB_t_strade_SqlAs_id_IT]]';
if($curfield eq '[[TB_class_SqlAs_id]]') {
$rettraduction = '[[TB_class_SqlAs_id_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
$retmaxlen = '9';
}
if($curfield eq '[[TB_t_strade_SqlAs_id_settore]]') {
$rettraduction = '[[TB_t_strade_SqlAs_id_settore_IT]]';
if($curfield eq '[[TB_class_SqlAs_descshort]]') {
$rettraduction = '[[TB_class_SqlAs_descshort_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
$retmaxlen = '30';
}
if($curfield eq '[[TB_t_strade_SqlAs_km_da]]') {
$rettraduction = '[[TB_t_strade_SqlAs_km_da_IT]]';
if($curfield eq '[[TB_class_SqlAs_permision]]') {
$rettraduction = '[[TB_class_SqlAs_permision_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
}
if($curfield eq '[[TB_t_strade_SqlAs_km_a]]') {
$rettraduction = '[[TB_t_strade_SqlAs_km_a_IT]]';
if($curfield eq '[[TB_class_SqlAs_desclong]]') {
$rettraduction = '[[TB_class_SqlAs_desclong_IT]]';
$retalign = 'center';
$retwidth = '20%';
$retmaxlen = '12';
 
}
if($curfield eq '[[TB_usr_SqlAs_permision]]') {
$rettraduction = '[[TB_usr_SqlAs_permision_IT]]';
$retmaxlen = '10';
if($curfield eq '[[TB_class_SqlAs_siteok]]') {
$rettraduction = '[[TB_class_SqlAs_siteok_IT]]';
$retalign = 'center';
$retwidth = '20%';
}
if($curfield eq '[[BT_ok]]') {
$rettraduction = '[[BT_ok_IT]]';
if($curfield eq '[[TB_class_SqlAs_sitebad]]') {
$rettraduction = '[[TB_class_SqlAs_sitebad_IT]]';
$retalign = 'center';
$retwidth = '20%';
}
if($curfield eq '[[BT_cancel]]') {
$rettraduction = '[[BT_cancel_IT]]';
if($curfield eq '[[TB_class_SqlAs_sitefm]]') {
$rettraduction = '[[TB_class_SqlAs_sitefm_IT]]';
$retalign = 'center';
$retwidth = '20%';
}
if($curfield eq '[[BT_delete_usr]]') {
$rettraduction = '[[BT_delete_usr_IT]]';
if($curfield eq '[[BT_delete_class]]') {
$rettraduction = '[[BT_delete_class_IT]]';
}
if($curfield eq '[[usr_profile_gestion]]') {
$rettraduction = '[[usr_profile_gestion_IT]]';
if($curfield eq '[[F2_class_TIT2_teachers]]') {
$rettraduction = '[[F2_class_TIT2_teachers_IT]]';
}
if($curfield eq '[[usr_profile_teacher]]') {
$rettraduction = '[[usr_profile_teacher_IT]]';
if($curfield eq '[[F2_class_TIT2_students]]') {
$rettraduction = '[[F2_class_TIT2_students_IT]]';
}
if($curfield eq '[[usr_profile_admin]]') {
$rettraduction = '[[usr_profile_admin_IT]]';
if($curfield eq '[[F2_class_TIT2_info]]') {
$rettraduction = '[[F2_class_TIT2_info_IT]]';
}
if($curfield eq '[[usr_profile_student]]') {
$rettraduction = '[[usr_profile_student_IT]]';
}
if($curfield eq '[[FM_strada_TIT2_info]]') {
$rettraduction = '[[FM_strada_TIT2_info_IT]]';
}
if($curfield eq '[[FM_strada_TIT2_address]]') {
$rettraduction = '[[FM_strada_TIT2_address_IT]]';
}
if($cursetting eq 'traduction') {
return($rettraduction);
}
/trunk/html/FR_admin/F2_class/.sql.condition
1,0 → 0,0
%return('[[TB_strada_id]]=?');
%return('[[TB_class_id]]=?');
/trunk/html/FR_admin/F2_class/.table.name
1,0 → 0,0
% return('[[TB_NAME_stradexsettore]]');
% return('[[TB_NAME_class]]');
/trunk/html/FR_admin/F2_class/.sql.columnAs
1,0 → 0,0
%return('id_strade,id_settore,km_da,km_a');
%return('id,descshort,desclong,siteok,sitebad,sitefm,permision');
/trunk/html/FR_admin/F2_class/.access.profile
1,0 → 0,0
% return('[[usr_profile_admin]]');
% return('[[usr_profile_gestion]]');
/trunk/html/include/styles.css
212,7 → 212,7
}
INPUT.DATE
{
BEHAVIOR: url(/htdocs/include/DATE.htc);
BEHAVIOR: url(/cms/include/DATE.htc);
BORDER-RIGHT: #000000 0px solid;
BORDER-TOP: #000000 0px solid;
FONT-FAMILY: Verdana;
224,7 → 224,7
}
INPUT.LOGIN
{
BEHAVIOR: url(/htdocs/include/LOGIN.htc);
BEHAVIOR: url(/cms/include/LOGIN.htc);
BORDER-RIGHT: #000000 0px solid;
BORDER-TOP: #000000 0px solid;
FONT-FAMILY: Verdana;
236,7 → 236,7
}
INPUT.PASS
{
BEHAVIOR: url(/htdocs/include/PASS.htc);
BEHAVIOR: url(/cms/include/PASS.htc);
BORDER-RIGHT: #000000 0px solid;
BORDER-TOP: #000000 0px solid;
FONT-FAMILY: Verdana;
248,7 → 248,7
}
INPUT.CLASS
{
BEHAVIOR: url(/htdocs/include/CLASS.htc);
BEHAVIOR: url(/cms/include/CLASS.htc);
BORDER-RIGHT: #000000 0px solid;
BORDER-TOP: #000000 0px solid;
FONT-FAMILY: Verdana;
/trunk/html/dbconnect
1,7 → 1,7
<%perl>
my $dbh_cms = DBI->connect([[DB_StrConnect]]) or die "Cant connect dbh_cms;" . $DBI::strerr;
# DBI->trace(2, '[[log_trace_dbconnect]]');
DBI->trace(1);
DBI->trace(1, '[[log_trace_dbconnect]]');
# DBI->trace(1);
$dbh_cms->{RaiseError} = $raiseError;
$dbh_cms->{AutoCommit} = $autoCommit;
$dbh_cms->do('set DateStyle to SQL, EUROPEAN');
/trunk/html/FR_teacher/FM_control/class.html
238,6 → 238,11
}
$cmd_action = 'enableclass';
 
my $curaula = _getField($dbh, 'classlayout', 'id', 'where pcip=?', $remoteIp); ###030128
my $classpersis = _getField($dbh, 'class', 'classroompersistent', 'where id=?', $classid); ###030128
$rooms = "-room $curaula";
$rooms .= ($classpersis) ? ' -room ' . $classpersis : '';
 
if($classpermision =~ m/[[class_permision_YI]]/ ){
my $listusr4web = '';
if($classpermision =~ m/[[usr_permision_WW]]/){
244,10 → 249,6
$listusr4web = _getStudentOfClass($dbh, $classid, '4web');
}
my $teacherid = _getUsrConnectInfo($dbh, 'usrid');
my $curaula = _getField($dbh, 'classlayout', 'id', 'where pcip=?', $remoteIp); ###030128
my $classpersis = _getField($dbh, 'class', 'classroompersistent', 'where id=?', $classid); ###030128
$rooms = "-room $curaula";
$rooms .= ($classpersis) ? ' -room ' . $classpersis : '';
my $sitefm = _getField($dbh, 'class', 'sitefm', 'where id=?', $classid);
my $siteok = _getField($dbh, 'class', 'siteok', 'where id=?', $classid);
my $sitebad = _getField($dbh, 'class', 'sitebad', 'where id=?', $classid);
/trunk/html/autohandler
351,8 → 351,8
$raiseError = 1;
}
my $dbh_cms = DBI->connect([[DB_StrConnect]]) or die "Cant connect dbh_cms;" . $DBI::strerr;
# DBI->trace(2, '[[log_trace_dbconnect]]');
DBI->trace(1);
DBI->trace(1, '[[log_trace_dbconnect]]');
# DBI->trace(1);
$dbh_cms->{RaiseError} = $raiseError;
$dbh_cms->{AutoCommit} = $autoCommit;
$dbh_cms->do('set DateStyle to SQL, EUROPEAN');