[BACK]Return to loncreateuser.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreateuser.pm between versions 1.2 and 1.3

version 1.2, 2001/02/19 22:58:53 version 1.3, 2001/02/21 20:38:35
Line 16 Line 16
 #  #
 # 2/14 Gerd Kortemeyer)  # 2/14 Gerd Kortemeyer)
 #  #
 # 2/14,2/17,2/19 Gerd Kortemeyer  # 2/14,2/17,2/19,2/20,2/21 Gerd Kortemeyer
 #  #
 package Apache::loncreateuser;  package Apache::loncreateuser;
   
Line 59  sub phase_two { Line 59  sub phase_two {
 <html>  <html>
 <head>  <head>
 <title>The LearningOnline Network with CAPA</title>  <title>The LearningOnline Network with CAPA</title>
   <script>
   
       function pclose() {
           parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
                    "height=350,width=350,scrollbars=no,menubar=no");
           parmwin.close();
       }
   
       function pjump(type,dis,value,marker,ret,call) {
           parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)
                    +"&value="+escape(value)+"&marker="+escape(marker)
                    +"&return="+escape(ret)
                    +"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",
                    "height=350,width=350,scrollbars=no,menubar=no");
   
       }
   
       function dateset() {
           eval("document.cu."+document.cu.pres_marker.value+
               ".value=document.cu.pres_value.value");
           pclose();
       }
   
   </script>
 </head>  </head>
 <body bgcolor="#FFFFFF">  <body bgcolor="#FFFFFF">
 <img align=right src=/adm/lonIcons/lonlogos.gif>  <img align=right src=/adm/lonIcons/lonlogos.gif>
 <h1>Create User, Change User Privileges</h1>  <h1>Create User, Change User Privileges</h1>
 <form action=/adm/createuser method=post>  <form action=/adm/createuser method=post name=cu>
 <input type=hidden name=phase value=three>  <input type=hidden name=phase value=three>
 <input type=hidden name=ccuname value=$ccuname>  <input type=hidden name=ccuname value=$ccuname>
 <input type=hidden name=ccdomain value=$ccdomain>  <input type=hidden name=ccdomain value=$ccdomain>
   <input type="hidden" value='' name="pres_value">
   <input type="hidden" value='' name="pres_type">
   <input type="hidden" value='' name="pres_marker">
   
 ENDENHEAD  ENDENHEAD
     my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);      my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain);
     my %incdomains;       my %incdomains; 
Line 95  ENDENHEAD Line 123  ENDENHEAD
               my $thisrole=$area;                my $thisrole=$area;
               $area=~s/\_\w\w$//;                $area=~s/\_\w\w$//;
               my ($trole,$tend,$tstart)=split(/_/,$role);                my ($trole,$tend,$tstart)=split(/_/,$role);
                 my $bgcol='ffffff';
               my $allows=0;                my $allows=0;
               if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {                if ($area=~/^\/(\w+)\/(\d\w+)\/(\w+)/) {
                  my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2);                   my %coursedata=&Apache::lonnet::coursedescription($1.'_'.$2);
Line 105  ENDENHEAD Line 133  ENDENHEAD
                  if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) {                   if (&Apache::lonnet::allowed('c'.$trole,$1.'_'.$2)) {
      $allows=1;       $allows=1;
                  }                   }
                    $bgcol=$1.'_'.$2;
                    $bgcol=~s/[^8-9b-e]//g;
                    $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6);
       } else {        } else {
                  if ($1) {                   if ($1) {
      $incdomains{$1}=1;       $incdomains{$1}=1;
Line 117  ENDENHEAD Line 148  ENDENHEAD
               my $active=1;                my $active=1;
               if (($tend) && ($now>$tend)) { $active=0; }                if (($tend) && ($now>$tend)) { $active=0; }
   
               $r->print('<tr><td>');                $r->print('<tr bgcolor=#'.$bgcol.'><td>');
               if ($active) {                if ($active) {
                   if ($allows) {                    if ($allows) {
      $r->print(       $r->print(
Line 147  ENDENHEAD Line 178  ENDENHEAD
             }              }
         } ('dc','cc','li','dg','au');          } ('dc','cc','li','dg','au');
     } sort keys %incdomains;      } sort keys %incdomains;
     $r->print('<h5>Course Level</h5>');      $r->print('<h5>Course Level</h5>'.
       '<table border=2><tr><th>Activate</th><th>Role</th><th>Extent</th>'.
       '<th>Group/Section</th><th>Start</th><th>End</th></tr>');
     map {      map {
  my $thiscourse=$_;   my $thiscourse=$_;
           my %coursedata=&Apache::lonnet::coursedescription($thiscourse);
           my $area=$coursedata{'description'};
           my $bgcol=$thiscourse;
           $bgcol=~s/[^8-9b-e]//g;
           $bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',0,6);
         map {          map {
             if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {              if (&Apache::lonnet::allowed('c'.$_,$thiscourse)) {
  $r->print($_.' - '.$thiscourse.'<br>');                 my $plrole=&Apache::lonnet::plaintext($_);
                  $r->print(<<ENDROW);
   <tr bgcolor=#$bgcol>
   <td><input type=checkbox name="act_$thiscourse\_$_"></td>
   <td>$plrole</td>
   <td>$area</td>
   <td><input type=text size=5 name="sec_$thiscourse\_$_"></td>
   <td><input type=hidden name="start_$thiscourse\_$_" value=''>
   <a href=
   "javascript:pjump('date_start','Start Date $plrole',document.cu.start_$thiscourse\_$_.value,'start_$thiscourse\_$_','cu.pres','dateset')">Set Start Date</a></td>
   <td><input type=hidden name="end_$thiscourse\_$_" value=''>
   <a href=
   "javascript:pjump('date_end','End Date $plrole',document.cu.end_$thiscourse\_$_.value,'end_$thiscourse\_$_','cu.pres','dateset')">Set End Date</a></td>
   </tr>
   ENDROW
   
             }              }
         } ('st','ta','ep','ad','in');          } ('st','ta','ep','ad','in');
     } sort keys %inccourses;      } sort keys %inccourses;
       $r->print('</table>');
     $r->print('</form></body></html>');      $r->print('</form></body></html>');
 }  }
   
Removed from v.1.2  
changed lines
  Added in v.1.3

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>