administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://github.com/pascalabcnet/pascalabcnet

Browse source
This commit is contained in:
Ivan Bondarev 2023-08-20 11:09:41 +02:00
parent 207bfde593 be2b7e874c
commit 151e046aa5
3 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
VisualPlugins/TraningControlPlugin/LoginForm.cs
View file

@ -193,7 +193,7 @@ namespace DBAccessPluginNamespace
}
// На мехмате проверяем lightPT
var isLightPT = Plugin.IsLightPTInWorkingDirectiry();
var isLightPT = Plugin.IsLightPTInWorkingDirectory();
// Первый вариант - в родительский или текущий
var authCreated = false;

13
VisualPlugins/TraningControlPlugin/TeacherControlPlugin.cs
View file

@ -43,14 +43,15 @@ namespace VisualPascalABCPlugins
public VisualPascalABCPlugin_TeacherControlPlugin(IWorkbench Workbench)
{
if (IsLightPTInWorkingDirectiry())
this.Workbench = Workbench;
VisualEnvironmentCompiler = Workbench.VisualEnvironmentCompiler;
if (IsLightPTInWorkingDirectory())
{
IsMechmath = System.Environment.MachineName.ToLower().StartsWith("mil8a-");
User.ServAddr = "https://air.mmcs.sfedu.ru/pascalabc";
loginForm = new LoginForm(this);
}
this.Workbench = Workbench;
VisualEnvironmentCompiler = Workbench.VisualEnvironmentCompiler;
// RegisterForm.VisualEnvironmentCompiler = VisualEnvironmentCompiler; // Пока форма регистрации никак не связана с компилятором
User = new SiteAccessProvider();
@ -87,7 +88,7 @@ namespace VisualPascalABCPlugins
return "";
}
public bool IsLightPTInWorkingDirectiry()
public bool IsLightPTInWorkingDirectory()
{
var WorkingDir = WorkingDirectory();
var lightptname = Path.Combine(WorkingDir, "lightpt.dat");
@ -208,7 +209,7 @@ namespace VisualPascalABCPlugins
// SSM 20/06/22 Решил включить плагин в инсталлят и показывать кнопки только если есть lightpt.dat в текущем
// или auth.dat в корне сетевого - убрал это 11.07.23 - только если при запуске lightpt.dat в текущем!!!
{
if (IsLightPTInWorkingDirectiry()) // если lightpt.dat существует в текущем
if (IsLightPTInWorkingDirectory()) // если lightpt.dat существует в текущем
InitItems(MenuItems, ToolBarItems);
/*else
{
@ -248,7 +249,7 @@ namespace VisualPascalABCPlugins
// !!! НАДО ТУТ ИСКАТЬ lightpt.dat в текущем!!!
var AuthFileFullName = "";
if (IsLightPTInWorkingDirectiry()) // Только если lightPT.dat в текущем, ищем auth.dat в текущем или выше
if (IsLightPTInWorkingDirectory()) // Только если lightPT.dat в текущем, ищем auth.dat в текущем или выше
AuthFileFullName = FullAuthNameFromWorkingDirOrParent();
/*if (AuthFileFullName == "" && IsMechmath)
{

5
bin/Lib/PABCSystem.pas
View file

@ -8884,9 +8884,10 @@ begin
var n := l.Count;
for var i := 0 to n - 1 do
begin
var ind := Random(n);
var v := l[i];
l[i] := l[Random(n)];
l[Random(n)] := v;
l[i] := l[ind];
l[ind] := v;
end;
end;