[Aimmath-commit] AIM/WEB-INF/maple/aim/admin Zone.mpl,1.2.2.1,1.2.2.2

[<nps...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv23666/WEB-INF/maple/aim/admin

Modified Files:
      Tag: develop_2_1
	Zone.mpl 
Log Message:
Removed code for updating home pages, which now belongs in ZoneAdminHome.mpl and ZoneStudentHome.mpl, and was left in accidentally.

Index: Zone.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/admin/Zone.mpl,v
retrieving revision 1.2.2.1
retrieving revision 1.2.2.2
diff -C2 -d -r1.2.2.1 -r1.2.2.2
*** Zone.mpl	10 Jul 2003 20:10:04 -0000	1.2.2.1
--- Zone.mpl	11 Jul 2003 14:17:29 -0000	1.2.2.2
***************
*** 245,251 ****
     local subject,excludedsubject,nam,subjectlist,ord,err,
           subjecttable,subjectnumber,togglehidden,explainhidden,
!          hiddensubjects,visiblesubjects,
!          studenthead,studentfoot,adminhead,adminfoot,
!          studentheadfile,studentfootfile,adminheadfile,adminfootfile;
  
     global DefaultZone;
--- 245,249 ----
     local subject,excludedsubject,nam,subjectlist,ord,err,
           subjecttable,subjectnumber,togglehidden,explainhidden,
!          hiddensubjects,visiblesubjects;
  
     global DefaultZone;
***************
*** 263,300 ****
     fi;
     
-    studentheadfile := cat(Config['RootDir'],"/zonehead.html");
-    studentfootfile := cat(Config['RootDir'],"/zonefoot.html");
-    adminheadfile := cat(Config['RootDir'],"/adminhead.html");
-    adminfootfile := cat(Config['RootDir'],"/adminfoot.html");
- 
     if p["Action"] = "LoadZoneOptions" then
-     
-     studenthead :=
-      traperror(`Util/TextFileContents`(studentheadfile));
-     if studenthead = lasterror then studenthead := ""; fi;
- 
-     studentfoot :=
-      traperror(`Util/TextFileContents`(studentfootfile));
-     if studentfoot = lasterror then studentfoot := ""; fi;
- 
-     adminhead :=
-      traperror(`Util/TextFileContents`(adminheadfile));
-     if adminhead = lasterror then adminhead := ""; fi;
- 
-     adminfoot :=
-      traperror(`Util/TextFileContents`(adminfootfile));
-     if adminfoot = lasterror then adminfoot := ""; fi;
     else
- 
-     studenthead := p["StudentHead"];
-     studentfoot := p["StudentFoot"];
-     adminhead := p["AdminHead"];
-     adminfoot := p["AdminFoot"];
- 
-     fprintf(studentheadfile,"%s\n",studenthead);
-     fprintf(studentfootfile,"%s\n",studentfoot);
-     fprintf(adminheadfile,"%s\n",adminhead);
-     fprintf(adminfootfile,"%s\n",adminfoot);
- 
      page['SetTable',
       DefaultZone,
--- 261,266 ----
***************
*** 472,480 ****
      "togglehidden" = togglehidden,
      "explainhidden" = explainhidden,
!     "subjecttable" = subjecttable['ToString'],
!     "studenthead" = studenthead,
!     "studentfoot" = studentfoot,
!     "adminhead" = adminhead,
!     "adminfoot" = adminfoot
     ];
    end
--- 438,442 ----
      "togglehidden" = togglehidden,
      "explainhidden" = explainhidden,
!     "subjecttable" = subjecttable['ToString']
     ];
    end