[Bio] / FigWebServices / subsys.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys.cgi

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

revision 1.74, Tue Apr 26 14:28:41 2005 UTC revision 1.75, Thu Apr 28 21:11:11 2005 UTC
# Line 5  Line 5 
5    
6  use Subsystem;  use Subsystem;
7    
8  use URI::Escape;  use URI::Escape;  # uri_escape()
9  use HTML;  use HTML;
10  use strict;  use strict;
11  use tree_utilities;  use tree_utilities;
# Line 728  Line 728 
728    
729          if ( $can_alter ) { format_extend_with($fig,$cgi,$html,$subsystem) }          if ( $can_alter ) { format_extend_with($fig,$cgi,$html,$subsystem) }
730    
731        my $esc_ssa = uri_escape( $ssa );
732      push @$html, "<TABLE width=\"100%\">\n",      push @$html, "<TABLE width=\"100%\">\n",
733                   "    <TR>\n",                   "    <TR>\n",
734                   ($can_alter) ? "        <TD>" . $cgi->checkbox(-name => 'precise_fill', -value => 1, -checked => 0, -override => 1,-label => 'fill') . "</TD>\n" : (),                   ($can_alter) ? "        <TD>" . $cgi->checkbox(-name => 'precise_fill', -value => 1, -checked => 0, -override => 1,-label => 'fill') . "</TD>\n" : (),
735                       "        <TD><a href=\"/FIG/Html/conflict_resolution.html\" class=\"help\" target=\"help\">Help on conflict resolution</a></TD>\n",                       "        <TD><a href=\"/FIG/Html/conflict_resolution.html\" class=\"help\" target=\"help\">Help on conflict resolution</a></TD>\n",
736                       "        <TD><a href=\"/FIG/Html/seedtips.html#edit_variants\" class=\"help\" target=\"help\">Help on editing variants</a></TD>\n",                       "        <TD><a href=\"/FIG/Html/seedtips.html#edit_variants\" class=\"help\" target=\"help\">Help on editing variants</a></TD>\n",
737                       "        <TD><a href=\"ss_export.cgi?user=$user&ssa_name=$ssa\" class=\"help\">Export subsystem data</a></TD>\n",                       "        <TD><a href=\"ss_export.cgi?user=$user&ssa_name=$esc_ssa\" class=\"help\">Export subsystem data</a></TD>\n",
738                   "    </TR>\n",                   "    </TR>\n",
739                   "</TABLE>\n";                   "</TABLE>\n";
740    
# Line 2726  Line 2727 
2727          foreach $t (@spreadsheets)          foreach $t (@spreadsheets)
2728          {          {
2729              $readable = &FIG::epoch_to_readable($t);              $readable = &FIG::epoch_to_readable($t);
2730              $url = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=$ssa&request=reset_to&ts=$t";              $url = &FIG::cgi_url . "/subsys.cgi?user=$user&ssa_name=" . uri_escape( $ssa ) . "&request=reset_to&ts=$t";
2731              $link = "<a href=$url>$readable</a>";              $link = "<a href=$url>$readable</a>";
2732              open(TMP,"<$FIG_Config::data/Subsystems/$ssa/Backup/spreadsheet.$t")              open(TMP,"<$FIG_Config::data/Subsystems/$ssa/Backup/spreadsheet.$t")
2733                  || die "could not open $FIG_Config::data/Subsystems/$ssa/Backup/spreadsheet.$t";                  || die "could not open $FIG_Config::data/Subsystems/$ssa/Backup/spreadsheet.$t";
# Line 2869  Line 2870 
2870   my @labels=sort {$a cmp $b} keys %$tvc;   my @labels=sort {$a cmp $b} keys %$tvc;
2871   my $selfurl=$cgi->url();   my $selfurl=$cgi->url();
2872   # recreate the url for the link   # recreate the url for the link
2873   $selfurl .= "?user=" . $cgi->param('user') . "&ssa_name=".$cgi->param('ssa_name') . "&request=" . $cgi->param('request') . "&can_alter=" . $cgi->param('can_alter');   $selfurl .= "?user=" . $cgi->param('user')
2874              .  "&ssa_name=" . uri_escape( $cgi->param('ssa_name') )
2875              .  "&request=" . $cgi->param('request')
2876              .  "&can_alter=" . $cgi->param('can_alter');
2877    
2878   my $row;   my $row;
2879   for (my $i=0; $i<= scalar @labels; $i++) {   for (my $i=0; $i<= scalar @labels; $i++) {

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3