//  THIS IS THE LIBRARY OF ROUTINES/FUNCTIONS USED IN 'BSW'

<def term term>
// Courses are abbreviated like 1999S2 for Spring 1999
<if substring(term,5,6)=="1">
   Fall
</if>
<if substring(term,5,6)=="2">
   Spring
</if>
<if substring(term,5,6)=="3">
   Summer I
</if>
<if substring(term,5,6)=="4">
   Summer II
</if>
<return left(term,4)>
</def>


// Submit Button Definition
<def submit>
   <input type="submit" value="Submit">
</def>

// This one is adapted to use in the dba environment
<def NextNumberB rel fn>
 // <let svrmax = 1>
   <dbquery>
	SELECT max(<?fn>)+1  FROM <? rel>;
        <db column>
//         <if r[fn]==0> 
//          1          
//         <else>
         <field>
//         </if>
    </dbquery>
// <return "SrvField">
</def>



<include dba.hei>

// This one displays the dbaform row in two columns with a 'plain English'
// header (phrase) -created by Danny Stewart
<def dbatfix app fn size maxsize=size phrase def=null>
  <tr><td valign="top"><b><font size="-1"><?phrase>&nbsp;</font></b></td>
      <td valign="top"><dbafi app fn size maxsize def=def>&nbsp;</td>
  </tr>
</def>

// LIKE ABOVE, BUT ONLY 2-CELLS' TD. YOU MUST DEF YOUR OWN TR.
<def dbatfi2 app fn size maxsize=size phrase def=null>
  <td valign="top"><b><font size="-1"><?phrase>&nbsp;</font></b></td>
      <td valign="top"><dbafi app fn size maxsize def=def>&nbsp;</td>
</def>



// SAME AS ABOVE, BUT FOR A CENTERED PHRASE AND TEXT AREA
<def dbatfixC app fn size maxsize=size phrase>
  <tr><td valign="top"><b><font size="-1"><?phrase>&nbsp;</font></b>
    </td></tr>
      <td valign="top"><dbafi app fn size maxsize>&nbsp;
    </td></tr>
</def>




// SIMILAR TO ABOVE, BUT FOR LARGE TEXT FIELDS:
<def LdbaTextArea app fn size maxsize=size phrase def=null>
  <tr><td valign="top"><b><font size="-1"><?phrase>&nbsp;</font></b>
   </td></tr>
  <tr><td valign="top"><dbaTextArea app fn rows=size cols=maxsize>&nbsp;
   </td></tr>
</def>

<def LdbaTextAreaH app fn size maxsize=size phrase def=null disp="html">
  <tr><td valign="top"><b><font size="-1"><?phrase>&nbsp;</font></b>
   </td></tr>
  <tr><td valign="top"><dbaTextArea app fn rows=size cols=maxsize>&nbsp;
   </td></tr>
</def>

// THIS IS A FUNCTION TO LINK THE DATA IN ONE TABLE WITH THAT IN ANOTHER
// USING FIELDS WITH SAME VALUES, DIFFERING NAMES
<def dbatflink app fn size maxsize=size phrase pg fn2 val=(app.q[fn])>
 <tr><td valign="top"><b><font size="-1"><?phrase>&nbsp;</font></b></td>
     <td valign="top"><a href="<?pg>?display=t&k.<?fn2>=<?val>">
      <dbafi app fn size maxsize>&nbsp;</a>
  </td></tr>
</def>

// YET ANOTHER LIKE FUNCTION - SAME NAMES, SAME VALUES, DISPLAYED IN A
// DIFFERING FIELD
<def dbatflinkb app fn size maxsize=size phrase pg fn2 val=(app.q[fn2])>
 <tr><td valign="top"><b><font size="-1"><?phrase>&nbsp;</font></b></td>
     <td valign="top"><a href="<?pg>?display=t&k.<?fn2>=<?val>">
      <dbafi app fn size maxsize>&nbsp;</a>
  </td></tr>
</def>

// THIS LINKS THE DATA IN ONE TABLE WITH THAT IN ANOTHER USING DIFFERING
// FIELDS AND DIFFERING VALUES
<def dbatflinkc app fn size maxsize=size phrase pg fn2 fn3 val=(app.q[fn3])>
 <tr><td valign="top"><b><font size="-1"><?phrase>&nbsp;</font></b></td>
     <td valign="top"><a href="<?pg>?display=t&k.<?fn2>=<?val>">
      <dbafi app fn size maxsize>&nbsp;</a>
  </td></tr>
</def>

<def dbatlink app fn size maxsize=size phrase pg>
 <tr><td valign="top"><b><font size="-1"><?phrase>&nbsp;</font></b></td>
     <td valign="top"><a href="<?pg>?display=t&k.<?fn>=<?q[fn]>">
      <dbafi app fn size maxsize>&nbsp;</td>
  </a></tr>
</def>

// A three-cell row similar to the first dbatfix:
<def dbatfixx app fn fna size maxsize=size phrase def=null>
  <tr><td valign="top"><b><font size="-1"><?phrase>&nbsp;</font></b></td>
      <td valign="top"><dbafi app fn size maxsize def=def>&nbsp;</td>
      <td valign="top"><dbafi app fna size maxsize def=def>&nbsp;</td>
  </tr>
</def>



// Created by Christina Woodruff:
// The following tag works ONLY with the one below it:
// It is a POPUP MENU tag.


<def Popup tbl fn>
<let srvmax=300>
  <select size=1 name="r.<?fn>" value=(app.q[fn] quoted)>
    <dbquery q>
      SELECT DISTINCT <?fn> FROM <?tbl>
      ORDER BY <?fn>;
    <dbrow>
   <option > <? q[fn]> // </option>
  </dbquery>
 </select>
</def>

// (These two MUST go hand-in-hand!)
<def dbaXSelect app fn tbl size maxsize=size phrase def=null>
  <tr><td valign="top"><b><font size="-1"><?phrase></font></b></td>
      <td valign="top"><Popup tbl fn></td>
  </tr>
</def>

<def dbaXSelectC app fn tbl size maxsize=size phrase def=null>
  <tr><td valign="top"><b><font size="-1"><?phrase></font></b></td>
  </tr>
  <tr>
      <td valign="top"><Popup tbl fn></td>
  </tr>
</def>



<def Popupa tbl fna>
<let srvmax=300>
  <select size=1 name="r.<?fna>" type="text" value=(app.q[fna] quoted)>
    <dbquery q>
      SELECT DISTINCT <?fna> FROM <?tbl>
      ORDER BY <?fna>;
    <dbrow>
   <option > <? q[fna]> // </option>
  </dbquery>
 </select>
</def>

<def dbaXSelectx app fn tbl fna size maxsize=size phrase def=null>
// <if app.writeable>
  <tr><td valign="top"><b><font size="-1"><?phrase></font></b></td>
      <td valign="top"><Popupa tbl fna></td>
  </tr>
// <else> <dbatfix app fn size maxsize=size phrase=phrase def=def>
// </if>
</def>

// ***This tag creates a 2-cell popup menu****

<def Popupb tbl fnb>
<let srvmax=300>
  <select size=1 name="r.<?fnb>" type="text" value=(app.q[fnb] quoted)>
    <dbquery q>
      SELECT  * FROM <?tbl>
//      ORDER BY <?fnb>;
    <dbrow>
    <option><? q[fnb]>&nbsp;=&nbsp;<? q[tbl]> 
//   <option > <? q[fnb]> // </option>
  </dbquery>
 </select>
</def>

<def Popupx tbl fnx>
<let srvmax=300>
  <select size=1 name="r.<?fnx>" type="text" value=(app.q[fnx] quoted)>
    <dbquery q>
      SELECT  * FROM <?tbl>
      ORDER BY <?fnx>;
    <dbrow>
    <option><? q[fnx]><? q[tbl]> 
  </dbquery>
 </select>
</def>

<def dbaXSelectxx app fn tbl fnb fnx size maxsize=size phrase def=null>
// <if app.writeable>
  <tr><td valign="top"><b><font size="-1"><?phrase></font></b></td>
      <td valign="top"><Popupb tbl fnb></td>
  </tr>
// <else> <dbatfix app fn size maxsize=size phrase=phrase def=def>
// </if>
</def>



// bgcolor="#FFEF99" */ 

<def BswMenu>
    <table border=1 bgcolor="#FFEF99" cellpadding=8 cellspacing=3>
     <tr><td><center><font size="-1">
<a href="/bsw/"><b>BSW Homepage</b></a></font></center></td>
     <td><center><font size="-1">
<a href="/bsw/courses/"><b>BSW Course Information</b></a></font></center></td>
     <td><center><font size="-1">
<a href="/bsw/faculty/"><b>Faculty Information</b></a></font></center></td>
       <td><center><font size="-1">
 <a href="mailto:admin@mulerider.saumag.edu"><b>Give Us
Your Feedback!</b></a></font></center></td></tr>
    </table>
</def>


<def BswFacMenu>
   <center> <table border=1 bgcolor="#FFEF99" cellpadding=8 cellspacing=3>
//     <tr><td><center><b>Site Menu</b></center></td></tr>
     <tr><td><center><font size="-1">
<b><a href="http://mulerider.saumag.edu/bsw/">BSW Homepage</a></b></font></center></td>
     <td><center><font size="-1">
<b><a href="http://mulerider.saumag.edu/bsw/courses/">BSW Course Information</a></b></font></center></td>
//      <td> &nbsp;<font size="-1">
// <a href=""><b></b></a></font></td></tr>
//      <tr><td> &nbsp;<font size="-1">
// <a href=" "><b> </b></a></font></td></tr>
//      <tr><td> &nbsp;<font size="-1">
// <a href=" "><b> </b></a></font></td></tr>
//      <tr><td> &nbsp;<font size="-1">
// <a href=" "><b> </b></a></font></td></tr>
//      <tr><td> &nbsp;<font size="-1">
// <a href=" "><b> </b></a></font></td></tr>
//      <tr><td> &nbsp;<font size="-1">
// <a href=" "><b> </b></a></font></td></tr>
//      <tr><td> &nbsp;<font size="-1">
// <a href=" "><b> </b></a></font></td></tr>
//      <tr><td> &nbsp;<font size="-1">
// <a href=" "><b> </b></a></font></td></tr>
//      <tr><td> &nbsp;<font size="-1">
// <a href=" "><b> </b></a></b></font></td></tr>
//      <tr><td> &nbsp;<font size="-1">
// <a href=" "><b> </b></a></font></td></tr>
//      <tr><td> &nbsp;<font size="-1">
// <a href=" "><b> </b></a></font></td></tr>
       <td><center><font size="-1"><b>
 <a href="mailto:admin@mulerider.saumag.edu">Give Us
Your Feedback!</a></b></font></center></td></tr>
    </table></center>
</def>

<def BswFacMenu2>
   <center> <table border=1 bgcolor="#FFFFFF" cellpadding=8 cellspacing=3>
     <tr><td><center><font size="-1">
<b><a href="http://mulerider.saumag.edu/bsw/">BSW Homepage</a></b></font></center></td>
     <td><center><font size="-1">
<b><a href="http://mulerider.saumag.edu/bsw/courses/">BSW Course Information</a></b></font></center></td>
     <td><center><font size="-1">
<b><a href="http://mulerider.saumag.edu/bsw/faculty/">BSW Faculty Access</a></b></font></center></td>
       <td><center><font size="-1"><b>
 <a href="mailto:admin@mulerider.saumag.edu">Give Us
Your Feedback!</a></b></font></center></td></tr>
    </table></center>
</def>




<defenv BswLay title since="11-18-98">
 <include ive.heitml>
<HTML>
<HEAD>
   <TITLE><?title></TITLE>
</HEAD>
<BODY BACKGROUND="/images/smoothsa.jpeg">
// <BODY BGCOLOR="#FFFFFF">
   <center>
  <h3>Southern Arkansas University<br>
   Department of Behavioral and Social Sciences<br>
   Baccalaureate of Social Work Program Web Site</h3> </center>
<br>
<CENTER>
<TABLE BORDER=0 WIDTH="100%">
   <TR>
      <TD  VALIGN="top">
         <BR> <BswMenu> 
      </TD>
      <TD VALIGN="top"> // BGCOLOR="#C9FDD7">
         <BR>// <CENTER>
         <defbody>
      </TD></TR>
   <TR>
      <TD VALIGN="middle">
         <BR><CENTER><ivefooter since></CENTER>
      </TD></TR> 
</TABLE>
</CENTER>	
</BODY>
</HTML>
</defenv>

<defenv BswLay2 title since="11-18-98">
 <include ive.heitml>
<HTML>
<HEAD>
   <TITLE><?title></TITLE>
</HEAD>
<BODY BACKGROUND="/images/smoothsa.jpeg">
// <BODY BGCOLOR="#FFFFFF">
   <center>
  <h3>Southern Arkansas University<br>
   Department of Behavioral and Social Sciences<br>
   Baccalaureate of Social Work Program Web Site</h3> // </center>
<br>
// <CENTER>
<TABLE BORDER=0>
   <TR>
      <TD  VALIGN="top">
         <BR> <center><BswMenu></center> 
      </TD>
   </TR>
   <TR>
      <TD VALIGN="top"> // BGCOLOR="#C9FDD7">
         <BR>
         <defbody>
      </TD></TR>
   <TR>
      <TD VALIGN="middle">
         <BR><CENTER><ivefooter since></CENTER>
      </TD></TR> 
</TABLE>
</CENTER>
</BODY>
</HTML>
</defenv>


<defenv CourseLay title>
 <include ive.heitml>
<HTML>
<HEAD>
   <TITLE><?title></TITLE>
</HEAD>
<BODY background="/images/smoothsa.jpeg">
  <center>
  <h3>Southern Arkansas University<br>
   Department of Behavioral and Social Sciences<br>
   Baccalaureate of Social Work Program Web Site</h3>
   </center>
<center>
<P><TABLE BORDER=0 WIDTH="100%">
   <TR>
      <TD COLSPAN=2 VALIGN="top">
        <center>
         <BR> <BswMenu> 
        </center>
      </TD></TR>
   <TR>
      <TD VALIGN="top" BGCOLOR="beige">
         <BR>
         <defbody>
      </TD></TR>
   <TR>
      <TD COLSPAN=2 VALIGN="middle">
         <BR> <stdfooter> 
      </TD></TR> 
</TABLE></P>
</center>
</BODY>
</HTML>
</defenv>

<defenv FacLay title>
 <include ive.heitml>
<HTML>
<HEAD>
   <TITLE><?title></TITLE>
</HEAD>
<BODY BACKGROUND="/images/smoothsa.jpeg">
// <BODY BGCOLOR="beige">
   <center>
  <h3>Southern Arkansas University<br>
   Department of Behavioral and Social Sciences<br>
   Baccalaureate of Social Work Program Web Site</h3>
   </center>
<CENTER>
<P><TABLE BORDER=0 WIDTH="100%">
   <TR>
      <TD COLSPAN=2 VALIGN="top">
         <BR> <BswFacMenu> 
      </TD></TR>
   <TR>
      <TD VALIGN="top"> // BGCOLOR="beige">
         <BR>
         <defbody>
      </TD></TR>
  <TR>
      <TD COLSPAN=2 VALIGN="middle">
         <BR> <stdfooter> 
      </TD></TR> 
</TABLE></P>
</CENTER>
</BODY>
</HTML>
</defenv>

<defenv FacLay2 title>
 <include ive.heitml>
<HTML>
<HEAD>
   <TITLE><?title></TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
// <BODY BGCOLOR="white">
   <center>
  <h3>Southern Arkansas University<br>
   Department of Behavioral and Social Sciences<br>
   Baccalaureate of Social Work Program Web Site</h3>
   </center>
<CENTER>
<P><TABLE BORDER=0 WIDTH="100%">
   <TR>
      <TD COLSPAN=2 VALIGN="top">
         <BR> <BswFacMenu2> 
      </TD></TR>
   <TR>
      <TD VALIGN="top"> // BGCOLOR="beige">
         <BR>
         <defbody>
      </TD></TR>
  <TR>
      <TD COLSPAN=2 VALIGN="middle">
         <BR> <stdfooter> 
      </TD></TR> 
</TABLE></P>
</CENTER>
</BODY>
</HTML>
</defenv>



<def dbaSpace>
  <tr><td>&nbsp;</td><td>&nbsp;</td></tr>
</def>




<def PopupSel tbl fn sel>
<let srvmax=300> 
  <select size=1 name="r.<?fn>" value=(app.q[fn] quoted)>
    <dbquery q>
      SELECT DISTINCT <?fn> FROM <?tbl>
      ORDER BY <?fn>;
    <dbrow>
      <option
      <if q[fn]==sel> 
        SELECTED
      </if>
      >
      <? q[fn]>
      </option>
  </dbquery>
 </select>
</def>

// (These two MUST go hand-in-hand!)
<def dbaXSelectSel app fn tbl size maxsize=size phrase sel def=null>
 <if app.writeable>
  <tr><td valign="top"><b><font size="-1"><?phrase></font></b></td>
      <td valign="top"><PopupSel tbl fn sel> </td>
  </tr>
 <else> <dbatfix app fn size maxsize phrase def=def>
 </if> 
</def>

<def Next app rel fn phrase>
  <if app.writeable>
   <tr>
    <td>
    (Your <?phrase> will be <b><NextNumberB rel fn></b>)
    </td>
   </tr>
  </if>
</def>


// FOR USE IN THE BSW INPUT PAGES ONLY
<def GetCourse_id app>
 <if app.writeable>
  <tr>
    <td>
  <a href="input1.heitml?first=t&">Forget your Course ID?</a>
    </td></tr>
 </if>
</def>

<def GetInstr_id app>
 <if app.writeable>
  <tr>
    <td>
  <a href="facinfox.heitml?first=t&">Forget your Faculty ID?</a>
    </td></tr>
 </if>
</def>

<def GetProg_id app>
 <if app.writeable>
  <tr>
    <td>
  <a href="input2.heitml?first=t&">Forget your BSW Program ID?</a>
    </td></tr>
 </if>
</def>

<def GetSyllabi_id app>
 <if app.writeable>
  <tr>
    <td>
  <a href="input3.heitml?first=t&">Forget your Syllabus ID?</a>
    </td></tr>
 </if>
</def>

<def GetLesson_id app>
 <if app.writeable>
  <tr>
    <td>
  <a href="input4.heitml?first=t&">Forget your Lesson ID?</a>
    </td></tr>
 </if>
</def>

<def GetGroup_id app>
 <if app.writeable>
  <tr>
    <td>
  <a href="input5.heitml?first=t&">Forget your Lesson Group ID?</a>
    </td></tr>
 </if>
</def>

<def GetInstructor_id app>
 <if app.writeable>
  <tr>
    <td>
  <a href="facinfox.heitml?first=t&">Forget your Instructor ID?</a>
    </td></tr>
 </if>
</def>


<def DBAs>

      <hr>
     <h4>Use these links to input or view information in the
database:</h4>
<p>
<table border=0>
  <tr><td>
      Faculty Info:</td>
      <td> 
 <a href="facinfox.heitml?empty=t&l=l&">Enter New</a> or </td>
      <td> 
 <a href="facinfox.heitml?first=t&l=l&">View List</a></td>
  </tr>
  <tr><td>        
      Course Catalogue Info: </td>
      <td>
         <a href="input1.heitml?empty=t&l=l&">Enter New</a> or </td>
      <td>
         <a href="input1.heitml?first=t&l=l&">View List</a> </td>
  </tr>
  <tr><td>
      Course Schedule: </td>
      <td>
         <a href="input2.heitml?empty=t&l=l&">Enter New</a> or </td>
      <td>
         <a href="input2.heitml?first=t&l=l&">View List</a> </td>
  </tr>
  <tr><td>
      Course Bibliography: </td>
      <td> 
         <a href="biblio.heitml?empty=t&l=l&">Enter New</a> or </td>
      <td>
         <a href="biblio.heitml?first=t&l=l&">View List</a> </td>
  </tr>
  <tr><td>
      Syllabus: 
      </td>
      <td>
         <a href="input3.heitml?empty=t&l=l&">Enter New</a> or 
      </td>
      <td>
         <a href="input3.heitml?first=t&l=l&">View List</a>
      </td>
  </tr>
  <tr><td>
      Lessons in Lesson Bank: 
      </td>
      <td>
         <a href="input4.heitml?empty=t&l=l&">Enter New</a> or 
      </td>
      <td>
         <a href="input4.heitml?first=t&l=l&">View List</a>
      </td>
  </tr>
  <tr><td>
      Lesson Group (linked to syllabi): 
      </td>
      <td>
         <a href="input5.heitml?empty=t&l=l&">Enter New</a> or 
      </td>
      <td>
         <a href="input5.heitml?first=t&l=l&">View List</a>
      </td>
   </tr>
   <tr><td>
	Questions Bank:
       </td>
       <td>
	<a href="questions.heitml?empty=t&l=l&">Enter New</a> or
       </td>
       <td>
	<a href="questions.heitml?first=t&l=l&">View List</a>
       </td>
   </tr>
   <tr><td>
	Test Bank:
       </td>
       <td>
	<a href="test_bank.heitml?empty=t&l=l&">Enter New</a> or
       </td>
       <td>
	<a href="test_bank.heitml?first=t&l=l&">View List</a> 
       </td>
   </tr>
   <tr><td>
	Student Info:
       </td>
       <td>
	<a href="student.heitml?empty=t&l=l&">Enter New</a> or
       </td>
       <td>
	<a href="student.heitml?first=t&l=l&">View List</a> 
       </td>
   </tr>


  <tr><td colspan=3>
         <a href="input1a.heitml">View Courses List</a>
  </tr>
  <tr><td colspan=3>
         <a href="input1a.heitml?detail=DETAIL">View
Courses List with Descriptions</a>
      </td>
   </tr>
</table>
</def>

// THIS FUNCTION CREATES A LINK TO A RELATED PAGE WITH DIFFERING KEYFIELD
// NAMES THOUGH THE SAME VALUE. i.e., lesson_id1 and lesson_id
<def Ldbatfix app fn fn2 fn3 pg size maxsize=size def=null val=(app.q[fn3])>
  <if isnull(app.r)>
    <tr>
      <td valign="top"><a href="<?pg>?display=t&k.<?fn2>=<?val>">
        "<dbafi app fn size maxsize def=def>"  Details </a></td>
  </tr>
  </if>
</def>


<def AutoIncrK app fn size maxsize phrase>
 <if !isnull(app.fn)>
   <dbatfix app fn size maxsize phrase>
 </if>

<if isempty(app.q[fn])>
  <if app.writeable>
   <dbquery q>
        SELECT max(<?fn>)+1  FROM <?app.rel>;
      <db column>
      <tr><td><font size="-1"><b><?phrase></b></font></td>
        <td> <input name="r.<?fn>" size=<?size> maxsize=<?maxsize> value=<field>>
        </td>
      </tr>
   </dbquery>
  </if>
 <else>
   <dbatfix app fn size maxsize phrase>
</if>
</def>

<def AutoIncr2 app fn size maxsize phrase>

<if app.writeable>
// <if isempty(app.q[fn])> 
 <if !isnull(ff.empty)>
   <dbquery q>
        SELECT max(<?fn>)+1  FROM <?app.rel>;
      <db column>
      <tr><td><font size="-1"><b><?phrase></b></font></td>
        <td> <input name="r.<?fn>" size=<?size> maxsize=<?maxsize> value=<field>>
        </td>
      </tr>
   </dbquery>
 <else>
   <dbatfix app fn size maxsize phrase>
  </if>
 <else>
   <dbatfix app fn size maxsize phrase>
 </if>
</def>


<def AutoIncrC app fn size maxsize phrase>
<if !isnull(app.fn)>
   <dbatfixC app fn size maxsize phrase>
</if>

<if isempty(app.q[fn])>
 <if app.writeable>
   <dbquery q>
        SELECT max(<?fn>)+1  FROM <?app.rel>;
      <db column>
      <tr><td><font size="-1"><b><?phrase></b></font></td>
	</tr>
      <tr>
        <td> <input name="r.<?fn>" size=<?size> maxsize=<?maxsize> value=<field>>
        </td>
        </tr>
   </dbquery>
 </if>
<else>
   <dbatfixC app fn size maxsize phrase>
</if>
</def>





// <def HiddenVar app name value>

// <input type="hidden" name=<?name quoted> value=<?value quoted>></td>

// </def>



// THIS IS AN AUXILIARY PASSWORD FIELD FOR USE IN THE TEST FORM
// REGISTRATION - A DBA APP

<def dbafipasswd app fn phrase size=10 pref="<b> Password </b>">
   <if app.writeable>
  <tr><td><? phrase html></td><td>
     <input type="Password" size=<? size> name="r.<? fn>">
  </td></tr>
   </if>
</def>


<def datetimefield  name label>
    <tr><td><font size="-1"><b><?label></b></font></td>
        <td>
<input type="text" name=<?name> value="<? monthname$()> <? day()>, <? year$()> at <? hour$()>:<? minute$()>">
        </td>
    </tr>
</def>

<def dbadatefield  app fn size maxsize phrase>
  <if app.writeable && isempty(app.q[fn])>
    <tr><td><font size="-1"><b><?phrase></b></font></td>
        <td><input name="r.<?fn>" size="<?size>" maxsize="<?maxsize>" value="<? monthname$()> <? day()>, <? year$()>">
        </td>
    </tr>
 <else>
        <dbatfix app fn size maxsize phrase>
</if>
</def>

<def LastRecord app fn fn2 size maxsize phrase>

// <if app.writeable && !isempty(app.q[fn])>
  <dbquery a>
	SELECT max(<?fn2>) from <?app.rel>;
  <dbrow> 
  <dbquery>
        SELECT DISTINCT <?fn> FROM <?app.rel>
	WHERE <?fn2>=<?a.max>;
      <db column>
//  <LdbaTextArea app fn size maxsize phrase>
      <tr><td><font size="-1"><b><?phrase></b></font></td>
        <td> <textarea name="r.<?fn>" rows=<?size> cols=<?maxsize> wrap="physical"><field></textarea>
        </td>
      </tr>
   </dbquery>
   <dbrowend>
  </dbquery>
/* </if>

<if !isempty(app.q[fn])>
  <dbquery a>
	SELECT max(<?fn2>) from <?app.rel>;
  <dbrow> 
  <dbquery>
        SELECT DISTINCT <?fn> FROM <?app.rel>
	WHERE <?fn2>=<?a.max>;
      <db column>
  <LdbaTextArea app fn size maxsize phrase>
//      <tr><td><font size="-1"><b><?phrase></b></font></td>
//        <td> <input type="textarea" name="r.<?fn>" rows=<?size> cols=<?maxsize> value=<field>>
//        </td>
//      </tr>
   </dbquery>
   <dbrowend>
  </dbquery>
</if> */

</def>

<def Popup2 tbl fn fn2>
<let srvmax=300>
  <select size=1 name="r.<?fn>" type="text" value=(app.q[fn] quoted)>
    <dbquery q>
      SELECT  <?fn> FROM <?tbl>
      ORDER BY <?fn2>;
    <dbrow>
    <option><? q[fn]></option>
  </dbquery>
 </select>
</def>

<def dbaXSelect2 app fn fn2 tbl size maxsize=size phrase def=null>
  <tr><td valign="top"><b><font size="-1"><?phrase></font></b></td>
      <td valign="top"><Popup2 tbl fn fn2></td>
  </tr>
</def>

<def SesList>
<table border=0>
  <tr>
    <td>
	<sessionForm href="input3.heitml">
	<input type="submit" name="choice" value="Update Course Syllabus">
	</sessionForm>
    </td>
    <td>
	<sessionForm href="crt.heitml">
	<input type="submit" name="choice" value="Create Student Table">
	</sessionForm>
    </td>
    <td>
	<sessionForm href="upd.heitml">
	<input type="submit" name="choice" value="Update Student Table">
	</sessionForm>
    </td>
    <td>
	<sessionForm href="del.heitml">
	<input type="submit" name="choice" value="Delete Student Table">
	</sessionForm>
    </td>
    <td>
	<sessionForm href="logout.heitml">
	<input type="submit" name="choice" value="Logout">
	</sessionForm>
    </td>
   </tr>
</table>
</def>