/[webpac2]/trunk/web/browse.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/web/browse.cgi

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

revision 57 by dpavlin, Tue Nov 15 14:30:11 2005 UTC revision 59 by dpavlin, Tue Nov 15 14:30:39 2005 UTC
# Line 48  if ($q->path_info =~ m#xml#) { Line 48  if ($q->path_info =~ m#xml#) {
48          if (@ds && $#ds > 0) {          if (@ds && $#ds > 0) {
49                  print qq{<response>                  print qq{<response>
50  <action type='html' target='div_record' errorCode='' errorMessage='' >  <action type='html' target='div_record' errorCode='' errorMessage='' >
51                  }, $out->apply(                  }, $iconv_utf8->convert( $out->apply(
52                          template => $template,                          template => $template,
53                          data => \@ds,                          data => \@ds,
54                  ), qq{                  ) ), qq{
55    
56  </action>  </action>
57  <action type='javascript' errorCode='' errorMessage='' >  <action type='javascript' errorCode='' errorMessage='' >
# Line 74  if ($q->path_info =~ m#xml#) { Line 74  if ($q->path_info =~ m#xml#) {
74  <action type='javascript' errorCode='' errorMessage='' >  <action type='javascript' errorCode='' errorMessage='' >
75  <!--  <!--
76          var el = iwfGetById('div_record_nr');          var el = iwfGetById('div_record_nr');
77          if (el) el.innerHTML = '<strike>$rec</strike>';          if (el) el.innerHTML = '<strike>&nbsp;$rec&nbsp;</strike>';
78  //-->  //-->
79  </action>  </action>
80  </response>  </response>
# Line 88  if ($q->path_info =~ m#xml#) { Line 88  if ($q->path_info =~ m#xml#) {
88    
89                  if ($q->param('save_template')) {                  if ($q->param('save_template')) {
90    
91                          my $tmpl = $q->param('tt_template') || die "no template?";                          my $tmpl = $iconv_loc->convert( $q->param('tt_template') ) || die "no template?";
92                            sub _conv_js {
93                                    my $t = shift || return;
94                                    return $iconv_loc->convert(chr(hex($t)));
95                            }
96                            $tmpl =~ s/%u([a-fA-F0-9]{4})/_conv_js($1)/gex;
97    
98                          my $tmpl_file = $out->{'include_path'} . '/' . $template;                          my $tmpl_file = $out->{'include_path'} . '/' . $template;
99                          write_file($tmpl_file . '.new', $iconv_loc->convert($tmpl)) || die "can't save $tmpl_file: $!";                          write_file($tmpl_file . '.new', $tmpl) || die "can't save $tmpl_file: $!";
100                          rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!";                          rename $tmpl_file . '.new', $tmpl_file || die "can't rename to $tmpl_file: $!";
101    
102                          print qq{<response>                          print qq{<response>
# Line 157  function update_status(text) { Line 163  function update_status(text) {
163  }  }
164    
165  function load_rec(nr) {  function load_rec(nr) {
166            if (nr == 1) {
167                    iwfHide('a_left_arr', 1);
168            } else {
169                    iwfShow('a_left_arr', 1);
170            }
171          update_status(nr+'...');          update_status(nr+'...');
172          iwfRequest( url+'/xml/?rec='+nr, 'div_record' );          iwfRequest( url+'/xml/?rec='+nr, 'div_record' );
173          iwfOpacity('div_record', 30);          iwfOpacity('div_record', 30);
# Line 169  function inc_rec() { Line 180  function inc_rec() {
180  }  }
181    
182  function dec_rec() {  function dec_rec() {
183          rec--;          if (rec > 1) {
184          load_rec(rec);                  rec--;
185                    load_rec(rec);
186            }
187          return false;          return false;
188  }  }
189    
# Line 196  template = <tt>$template</tt><br/> Line 209  template = <tt>$template</tt><br/>
209  </div>  </div>
210    
211  <div style="background: #e0e0e0; padding: 0.5em; display: block;">  <div style="background: #e0e0e0; padding: 0.5em; display: block;">
212          <a href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">&#8678;</a>&nbsp;          <a id="a_left_arr" href="$self?rec=}, $rec - 1, qq{" onClick="return dec_rec();">&#8678;</a>
213          <span id="div_record_nr"> none </span>          <span id="div_record_nr"> none </span>
214    
215          <a href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">&#8680;</a>&nbsp;          <a id="a_right_arr" href="$self?rec=}, $rec + 1, qq{" onClick="return inc_rec();">&#8680;</a>
216          <a href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">&#8634;</a>&nbsp;          <a id="a_reload" href="$self?rec=}, $rec, qq{" onClick="return reload_rec();">&#8634;</a>
217          <a href="#" onClick="iwfRefreshLog(); return false;">&#9636;</a>&nbsp;          <a href="#" onClick="iwfRefreshLog(); return false;">&#9636;</a>
218    
219  </div>  </div>
220    
Legend:
Removed from v.57  
changed lines
  Added in v.59
  ViewVC Help
Powered by ViewVC 1.1.26