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

Diff for /loncom/interface/lonmeta.pm between versions 1.73 and 1.77

version 1.73, 2004/04/16 21:43:56 version 1.77, 2004/05/07 17:17:58
Line 345  sub relatedfield { Line 345  sub relatedfield {
   
 sub prettyinput {  sub prettyinput {
     my ($type,$value,$fieldname,$formname,      my ($type,$value,$fieldname,$formname,
  $relatedsearchflag,$relatedsep,$relatedvalue)=@_;   $relatedsearchflag,$relatedsep,$relatedvalue,$size)=@_;
       if (! defined($size)) {
           $size = 80;
       }
     # Language      # Language
     if ($type eq 'language') {      if ($type eq 'language') {
  return &selectbox($fieldname,   return &selectbox($fieldname,
Line 401  sub prettyinput { Line 404  sub prettyinput {
     $value=~s/^\s+//gs;      $value=~s/^\s+//gs;
     $value=~s/\s+$//gs;      $value=~s/\s+$//gs;
     $value=~s/\s+/ /gs;      $value=~s/\s+/ /gs;
     $value=~s/\"/\&quod\;/gs;      $value=~s/\"/\&quot\;/gs;
     return       return 
         '<input type="text" name="'.$fieldname.'" size="80" '.          '<input type="text" name="'.$fieldname.'" size="'.$size.'" '.
         'value="'.$value.'" />'.          'value="'.$value.'" />'.
         &relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,          &relatedfield(1,$relatedsearchflag,$relatedsep,$fieldname,
                       $relatedvalue);                         $relatedvalue); 
Line 415  sub handler { Line 418  sub handler {
     #      #
     my $uri=$r->uri;      my $uri=$r->uri;
     #      #
     # Check to see if this server is overloaded  
     my $loaderror=&Apache::lonnet::overloaderror($r);  
     if ($loaderror) {   
         return $loaderror;  
     }  
     #  
     # Check to see if original resource server is overloaded  
     my ($resdomain,$resuser)=  
         (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);  
     $loaderror=&Apache::lonnet::overloaderror  
         ($r,&Apache::lonnet::homeserver($resuser,$resdomain));  
     if ($loaderror) {   
         return $loaderror;  
     }  
     #  
     # Set document type      # Set document type
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
     #      #
       my ($resdomain,$resuser)=
           (&Apache::lonnet::declutter($uri)=~/^(\w+)\/(\w+)\//);
     $r->print('<html><head><title>'.      $r->print('<html><head><title>'.
               'Catalog Information'.                'Catalog Information'.
               '</title></head>');                '</title></head>');
Removed from v.1.73  
changed lines
  Added in v.1.77

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