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

Diff for /loncom/interface/lonmanagekeys.pm between versions 1.1 and 1.2

version 1.1, 2003/04/12 15:57:30 version 1.2, 2003/04/22 21:00:42
Line 48  sub header { Line 48  sub header {
 </head>  </head>
 $bodytag  $bodytag
 <form method="post" enctype="multipart/form-data"    <form method="post" enctype="multipart/form-data"  
       action="/adm/keymanage" name="keyform">        action="/adm/managekeys" name="keyform">
 ENDHEAD  ENDHEAD
 }  }
   
Line 62  sub show_key_list { Line 62  sub show_key_list {
 #  #
 #   # 
 #   # 
     my $cid=$ENV{'request.course.id'};      my $cid=$ENV{'form.cid'};
     #      #
     # Variables for excel output      # Variables for excel output
     my ($excel_workbook, $excel_sheet, $excel_filename,$row);      my ($excel_workbook, $excel_sheet, $excel_filename,$row);
Line 111  sub show_key_list { Line 111  sub show_key_list {
     } elsif ($mode eq 'excel') {      } elsif ($mode eq 'excel') {
         $excel_workbook->close();          $excel_workbook->close();
         $r->print('<p><a href="'.$excel_filename.'">'.          $r->print('<p><a href="'.$excel_filename.'">'.
                   'Your Excel spreadsheet</a> is ready for download.</p>'."\n");                 'Your Excel spreadsheet</a> is ready for download.</p>'."\n");
       }
   }
   
   
   # ----------------------------------------------------------- Toggle Key Access
   
   sub togglekeyaccess {
       my %cenv=@_;
       unless ($cenv{'domain'}) { return; }
       if ($cenv{'keyaccess'} eq 'yes') {
          &Apache::lonnet::del('environment',['keyaccess'],
       $cenv{'domain'},$cenv{'num'});
      } else {
          &Apache::lonnet::put('environment',{'keyaccess' => 'yes'},
       $cenv{'domain'},$cenv{'num'});
     }      }
 }  }
   
Line 124  sub handler { Line 139  sub handler {
         $r->send_http_header;          $r->send_http_header;
         return OK;          return OK;
     }      }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['state']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
       ['state','cid']);
       if (($ENV{'form.domain'}) && ($ENV{'form.course'})) {
    $ENV{'form.cid'}=$ENV{'form.domain'}.'_'.$ENV{'form.course'};
       }
   
     unless (&Apache::lonnet::allowed('mky',$ENV{'request.role.domain'})) {      unless (&Apache::lonnet::allowed('mky',$ENV{'request.role.domain'})) {
         $ENV{'user.error.msg'}=          $ENV{'user.error.msg'}=
             "/adm/managekeys:mky:0:0:Cannot manage access keys";              "/adm/managekeys:mky:0:0:Cannot manage access keys";
         return HTTP_NOT_ACCEPTABLE;           return HTTP_NOT_ACCEPTABLE; 
     }      }
     #      if ($ENV{'form.cid'}) {
     # Only output the header information if they did not request csv format   #
     #   # Only output the header information if they did not request csv format
     if (exists($ENV{'form.state'}) && ($ENV{'form.state'} eq 'csv')) {   #
         $r->content_type('text/csv');   if (exists($ENV{'form.state'}) && ($ENV{'form.state'} eq 'csv')) {
     } else {      $r->content_type('text/csv');
         # Start page   } else {
         $r->content_type('text/html');      # Start page
         $r->send_http_header;      $r->content_type('text/html');
         $r->print(&header());      $r->send_http_header;
     }      $r->print(&header());
    }
    $r->print('<input type="hidden" name="cid" value="'.$ENV{'form.cid'}.
     '" />');
           my %cenv=&Apache::lonnet::coursedescription($ENV{'form.cid'});
    if ($ENV{'form.toggle'}) {
       &togglekeyaccess(%cenv);
               %cenv=&Apache::lonnet::coursedescription($ENV{'form.cid'});
    }
    if ($cenv{'keyaccess'} eq 'yes') {
       $r->print('Access to this course is key controlled. <input type="submit" name="toggle" value="Open Access" />')
       } else {
    $r->print('Access to this course is open, no access keys. <input type="submit" name="toggle" value="Control Access" />');
       }
    $r->print('<hr />');
 #  #
 # do stuff here.  # do stuff here.
 #  #
   
     if (exists($ENV{'form.state'}) && ($ENV{'form.state'} eq 'csv')) {   if (exists($ENV{'form.state'}) && ($ENV{'form.state'} eq 'csv')) {
         $r->print("\n");      $r->print("\n");
    } else {
       $r->print('</form></body></html>');
    }
     } else {      } else {
         $r->print('</form></body></html>');   # Start page no course id
    $r->content_type('text/html');
    $r->send_http_header;
    $r->print(&header().&Apache::loncommon::coursebrowser_javascript());
           $r->print(
      'Course ID: <input input type="text" size="25" name="course" value="" />');
           $r->print('Domain: '.&Apache::loncommon::select_dom_form(
                  $ENV{'request.role.domain'},'domain'));
           $r->print(&Apache::loncommon::selectcourse_link(
           'keyform','course','domain'));
           $r->print('<br /><input type="submit" value="Manage Access Keys" />');
    $r->print('</form></body></html>');
     }      }
     return OK;      return OK;
 }  }
Removed from v.1.1  
changed lines
  Added in v.1.2

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