/trunk/html/FR_admin/FM_listurl/.sqlColumnAs |
---|
0,0 → 1,0 |
%return('siteok'); |
Property changes: |
Added: svn:eol-style |
+native |
\ No newline at end of property |
Added: svn:keywords |
+Author Date Id Revision |
\ No newline at end of property |
/trunk/html/FR_admin/FM_listurl/listURL.html |
---|
0,0 → 1,108 |
<body> |
<form name="form1" action="save" method="post"> |
<table width="100%"> |
<tr> |
%# <td align=left>URLs :</td> |
<td colspan="2" class="h01"><% $titinfo %>:</td> |
</tr> |
<tr> |
% $curfield = 'field'; |
% $curvalue = 'value="' . $field . '"' . ' READONLY '; |
<td colspan="3"><input type="hidden" name="<% $curfield %>" class="inputText" <% $curvalue %> ></td> |
</tr> |
<tr> |
% $curfield = 'condition'; |
% $curvalue = 'value="' . $condition . '"' . ' READONLY '; |
<td colspan="3"><input type="hidden" name="<% $curfield %>" class="inputText" <% $curvalue %> ></td> |
</tr> |
<tr> |
<td colspan="2" align="center" width="100%"> |
<textarea rows="22" style="width: 100%;" name="<% $nametextarea %>" class="boxlook"><% $retvalue %> |
</textarea> |
</td> |
</tr> |
<tr> |
<td colspan="2" ><hr></td> |
</tr> |
<tr> |
<td colspan="" align="center"> |
% if($updatable){ |
<input type="button" value="[[BT_blank_listurl_IT]]" onClick="javascript:document.form1.<% $nametextarea %>.innerHTML=''" class="boxlook"> |
<input type="submit" value="[[BT_save_modify_IT]]" class="boxlook" onClick="this.disabled=true; form1.submit()"> |
<input type="button" value="[[BT_cancel_IT]]" onClick="javascript:window.close()" class="boxlook"> |
% }else{ |
<input type="button" value="[[BT_cancel_IT]]" onClick="javascript:window.close()" class="boxlook"> |
% } |
</td> |
</tr> |
</table> |
</form> |
</body> |
<%method title> |
Lista Siti |
</%method> |
<%args> |
$tb => 'NULL' |
$wh |
$field |
</%args> |
<%init> |
my $tablename = $tb; |
my $condition = $wh; |
my $column = ''; |
my $titinfo = 'Lista Siti '; |
# my $usrprofile = $m->comp('../../getprofile', field => 'profile'); |
my $usrprofile = getUsrConnectInfo('profile'); |
my $updatable = 'TRUE'; |
if ($field eq '[[listURL_school_sitebad]]' or $field eq '[[listURL_school_siteok]]'){ |
if($usrprofile eq '[[usr_profile_teacher]]'){ |
$updatable = ''; |
} |
$tablename = '[[TB_NAME_school]]'; |
$condition = '[[current_school]]'; |
if($field eq '[[listURL_school_sitebad]]'){ |
$column = '[[TB_school_SqlAs_sitebad]]'; |
$titinfo .= 'Non Autorizati' |
}else{ |
$column = '[[TB_school_SqlAs_siteok]]'; |
$titinfo .= 'Autorizati' |
} |
}elsif($field eq '[[listURL_class_sitebad]]' or $field eq '[[listURL_class_siteok]]'){ |
$tablename = '[[TB_NAME_class]]'; |
if($field eq '[[listURL_class_sitebad]]'){ |
$column = '[[TB_class_SqlAs_sitebad]]'; |
$titinfo .= 'Non Autorizati' |
}else{ |
$column = '[[TB_class_SqlAs_siteok]]'; |
$titinfo .= 'Autorizati' |
} |
}elsif($field eq '[[listURL_class_siteFM]]'){ |
$tablename = '[[TB_NAME_class]]'; |
$column = '[[TB_class_SqlAs_sitefm]]'; |
$titinfo .= 'Follow Me' |
}else{ |
$m->out("default with :$field"); |
} |
use DBI; |
my $dbh = $m->comp('../../dbconnect'); |
# =============================== Get Class Status - active suspend |
my $cmd = "select $column"; |
my $from = " from $tablename"; |
my $where = " where id=?"; |
my $sth = $dbh->prepare("$cmd $from $where"); |
$sth->execute($condition); |
my ($retvalue) = $sth->fetchrow_array; |
my $curvalue; |
my $curfield; |
my $nametextarea = 'value'; |
</%init> |
Property changes: |
Added: svn:eol-style |
+native |
\ No newline at end of property |
Added: svn:keywords |
+Author Date Id Revision |
\ No newline at end of property |
/trunk/html/FR_admin/FM_listurl/.sqlCondition |
---|
0,0 → 1,0 |
%return('[[TB_class_id]]=?'); |
Property changes: |
Added: svn:eol-style |
+native |
\ No newline at end of property |
Added: svn:keywords |
+Author Date Id Revision |
\ No newline at end of property |
/trunk/html/FR_admin/FM_listurl/.table.name |
---|
0,0 → 1,0 |
% return('[[TB_NAME_class]]'); |
Property changes: |
Added: svn:eol-style |
+native |
\ No newline at end of property |
Added: svn:keywords |
+Author Date Id Revision |
\ No newline at end of property |
/trunk/html/FR_admin/FM_listurl/save |
---|
0,0 → 1,98 |
<%perl> |
$tablename2 = 'keys'; |
if ($field eq '[[listURL_school_sitebad]]' or $field eq '[[listURL_school_siteok]]'){ |
$tablename = '[[TB_NAME_school]]'; |
$condition = '[[current_school]]'; |
if($field eq '[[listURL_school_sitebad]]'){ |
$column = '[[TB_school_SqlAs_sitebad]]'; |
$keytag = 'NoAuthList' |
}else{ |
$column = '[[TB_school_SqlAs_siteok]]'; |
$keytag = 'OkAuthList' |
} |
}elsif($field eq '[[listURL_class_sitebad]]' or $field eq '[[listURL_class_siteok]]'){ |
$tablename = '[[TB_NAME_class]]'; |
if($field eq '[[listURL_class_sitebad]]'){ |
$column = '[[TB_class_SqlAs_sitebad]]'; |
$keytag = "NoAuth_$condition" |
}else{ |
$column = '[[TB_class_SqlAs_siteok]]'; |
$keytag = "OkAuth_$condition" |
} |
}elsif($field eq '[[listURL_class_siteFM]]'){ |
$tablename = '[[TB_NAME_class]]'; |
$column = '[[TB_class_SqlAs_sitefm]]'; |
$keytag = "FM_$condition" |
}else{ |
$m->out("default with :$field"); |
} |
# ================ Update table Class o School ====================== |
$curSQL = "update $tablename set $column ='$value' where id=?"; |
#$m->out( $curSQL); |
$sth = $dbh->prepare($curSQL); |
$ret = $sth->execute($condition); |
$message = "Error saving tb"; |
if ($ret){ |
$message = 'OK saving data - close the form'; |
} |
# ================ Update table Keys ====================== |
$curSQL = "update $tablename2 set id=nextval('keys_id'), value=? where key=?"; |
$sth = $dbh->prepare($curSQL); |
$ret = $sth->execute($value,$keytag); |
$message = "Error saving keys"; |
if ($ret){ |
$message = 'OK saving data - close the form'; |
} |
# $ret = $m->comp('../../run', pg=>'refreshredirect', ar=>""); |
$ret = checkExec('listURL', "su1 HUP_squid_redirect"); |
</%perl> |
% if ( $ret){ |
<script language="JavaScript"> |
window.close(); |
</script> |
% }else{ |
%# |
<table cellspacing="2" cellpadding="2" border="0"> |
<tr> |
<td colspan="4" class="h01">Errore: </td> |
</tr> |
<tr> |
<td colspan="6" width="*" align="center"> |
<textarea rows="5" cols="34" name="error" class="boxlook"><% $message %> |
</textarea> |
</td> |
</tr> |
<tr> |
<td colspan="4" align="center"><input type="button" value="Close" class="boxlook" onClick="javascript:window.close()"></td> |
</tr> |
</table> |
%# |
% } |
%# |
<%init> |
use DBI; |
my $dbh = $m->comp('../../dbconnect'); |
#$m->out( Dumper (%ARGS)); |
my $tablename = ''; |
my $tablename2 = ''; |
my $field = %ARGS->{'field'}; |
my $value = %ARGS->{'value'}; |
my $condition = %ARGS->{'condition'}; |
my $column = ''; |
my $keytag; |
my $curSQL; |
my $sth; |
my $ret; |
my $message; |
</%init> |
Property changes: |
Added: svn:eol-style |
+native |
\ No newline at end of property |
Added: svn:keywords |
+Author Date Id Revision |
\ No newline at end of property |
/trunk/html/FR_admin/TB_teacher/.javaScript.function.swo |
---|
0,0 → 1,15 |
b0VIM 6.0 mUA=5z ³ pisoni linuxpisoni /home/virtual/mason.pisoni.com.ar/CMS/web/FR_admin/TB_teacher/.javaScript.function 3210#"! U tp ÿ C ad Q |