[Bio] / FigKernelPackages / HTML.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/HTML.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30, Wed Feb 16 18:59:21 2005 UTC revision 1.31, Fri Feb 18 19:31:12 2005 UTC
# Line 9  Line 9 
9  use HTTP::Request::Common;  use HTTP::Request::Common;
10  use POSIX;  use POSIX;
11    
12    sub new
13    {
14        my($class) = @_;
15    
16        my $self = {};
17    
18        return bless $self, $class;
19    }
20    
21  sub compute_html_header  sub compute_html_header
22  {  {
23        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
24      my($additional_insert) = @_;      my($additional_insert) = @_;
25      my $html_hdr_file = "./Html/html.hdr";      my $html_hdr_file = "./Html/html.hdr";
26      if (! -f $html_hdr_file)      if (! -f $html_hdr_file)
# Line 53  Line 63 
63  }  }
64    
65  sub show_page {  sub show_page {
66        warn "SHOWPAGE: cgi=", Dumper(@_);
67        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
68      my($cgi,$html,$no_home) = @_;      my($cgi,$html,$no_home) = @_;
69      my $i;      my $i;
70    
# Line 345  Line 357 
357  }  }
358    
359  sub expand {  sub expand {
360        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
361      my($x, $tag) = @_;      my($x, $tag) = @_;
362    
363      $tag = "td" unless $tag;      $tag = "td" unless $tag;
# Line 365  Line 378 
378  }  }
379    
380  sub set_ec_links {  sub set_ec_links {
381        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
382      my($cgi,$x) = @_;      my($cgi,$x) = @_;
383      my($before,$match,$after);      my($before,$match,$after);
384    
# Line 379  Line 393 
393  }  }
394    
395  sub ec_link {  sub ec_link {
396        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
397      my($role) = @_;      my($role) = @_;
398    
399      if ($role =~ /(\d+\.\d+\.\d+\.\d+)/)      if ($role =~ /(\d+\.\d+\.\d+\.\d+)/)
# Line 392  Line 407 
407  }  }
408    
409  sub role_link {  sub role_link {
410        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
411      my($cgi,$role) = @_;      my($cgi,$role) = @_;
412    
413      my $roleR = ($role =~ /^(\d+\.\d+\.\d+\.\d+)\s+-\s+/) ? $1 : $role;      my $roleR = ($role =~ /^(\d+\.\d+\.\d+\.\d+)\s+-\s+/) ? $1 : $role;
# Line 407  Line 423 
423  # text of the link.  # text of the link.
424  #  #
425  sub fid_link {  sub fid_link {
426        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
427      my($cgi,$fid,$local,$just_url) = @_;      my($cgi,$fid,$local,$just_url) = @_;
428      my($n);      my($n);
429    
# Line 452  Line 469 
469  }  }
470    
471  sub family_link {  sub family_link {
472        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
473      my($family,$user) = @_;      my($family,$user) = @_;
474    
475      return $family;      return $family;
# Line 460  Line 478 
478  use URI::Escape;  use URI::Escape;
479    
480  sub get_html {  sub get_html {
481        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
482      my( $url, $type, $kv_pairs) = @_;      my( $url, $type, $kv_pairs) = @_;
483      my( $encoded, $ua, $args, @args, $out, @output, $x );      my( $encoded, $ua, $args, @args, $out, @output, $x );
484    
# Line 524  Line 543 
543  }  }
544    
545  sub trim_output {  sub trim_output {
546        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
547      my($out) = @_;      my($out) = @_;
548      my $i;      my $i;
549    
# Line 561  Line 581 
581  }  }
582    
583  sub set_prot_links {  sub set_prot_links {
584        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
585      my($cgi,$x) = @_;      my($cgi,$x) = @_;
586      my($before,$match,$after);      my($before,$match,$after);
587    
# Line 617  Line 638 
638  }  }
639    
640  sub refseq_link {  sub refseq_link {
641        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
642      my($cgi,$id) = @_;      my($cgi,$id) = @_;
643    
644      if ($id =~ /^[NXYZA]P_/)      if ($id =~ /^[NXYZA]P_/)
# Line 626  Line 648 
648  }  }
649    
650  sub gi_link {  sub gi_link {
651        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
652      my($cgi,$gi) = @_;      my($cgi,$gi) = @_;
653    
654      if ($gi =~ /^gi\|(\d+)$/)      if ($gi =~ /^gi\|(\d+)$/)
# Line 636  Line 659 
659  }  }
660    
661  sub uni_link {  sub uni_link {
662        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
663      my($cgi,$uni) = @_;      my($cgi,$uni) = @_;
664    
665      if ($uni =~ /^uni\|(\S+)$/)      if ($uni =~ /^uni\|(\S+)$/)
# Line 646  Line 670 
670  }  }
671    
672  sub sp_link {  sub sp_link {
673        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
674      my($cgi,$sp) = @_;      my($cgi,$sp) = @_;
675    
676      if ($sp =~ /^sp\|(\S+)$/)      if ($sp =~ /^sp\|(\S+)$/)
# Line 656  Line 681 
681  }  }
682    
683  sub pir_link {  sub pir_link {
684        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
685      my($cgi,$pir) = @_;      my($cgi,$pir) = @_;
686    
687      if ($pir =~ /^pirnr\|(NF\d+)$/)      if ($pir =~ /^pirnr\|(NF\d+)$/)
# Line 666  Line 692 
692  }  }
693    
694  sub kegg_link {  sub kegg_link {
695        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
696      my($cgi,$kegg) = @_;      my($cgi,$kegg) = @_;
697    
698      if ($kegg =~ /^kegg\|([^:]+):(\S+)$/)      if ($kegg =~ /^kegg\|([^:]+):(\S+)$/)
# Line 676  Line 703 
703  }  }
704    
705  sub set_map_links {  sub set_map_links {
706        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
707      my($cgi,$x) = @_;      my($cgi,$x) = @_;
708      my($before,$match,$after);      my($before,$match,$after);
709    
# Line 692  Line 720 
720  }  }
721    
722  sub map_link {  sub map_link {
723        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
724      my($cgi,$map,$org) = @_;      my($cgi,$map,$org) = @_;
725    
726      $user = $cgi->param('user');      $user = $cgi->param('user');
# Line 703  Line 732 
732  }  }
733    
734  sub javascript {  sub javascript {
735        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
736          #### MODIFIED BY RAE TO ADD JAVA SUPPORT FOR CHECK ALL/UNCHECK ALL          #### MODIFIED BY RAE TO ADD JAVA SUPPORT FOR CHECK ALL/UNCHECK ALL
737          # This routine takes three arguments, $html, $form, and $button          # This routine takes three arguments, $html, $form, and $button
738          # $html is the ref to the array with the html in it          # $html is the ref to the array with the html in it
# Line 753  Line 783 
783  }  }
784    
785  sub java_buttons {  sub java_buttons {
786        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
787    ## ADDED BY RAE    ## ADDED BY RAE
788    # Provides code to include check all/first half/second half/none for javascrspt    # Provides code to include check all/first half/second half/none for javascrspt
789    # this takes two variables - the form name provided in start_form with the    # this takes two variables - the form name provided in start_form with the
# Line 768  Line 799 
799  }  }
800    
801  sub sub_link {  sub sub_link {
802        shift if UNIVERSAL::isa($_[0],__PACKAGE__);
803      my($cgi,$sub) = @_;      my($cgi,$sub) = @_;
804      my($sub_link);      my($sub_link);
805    

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3